跪求大神翻译visual studio 编译的vb 代码

发布网友发布时间：2022-05-05 02:19

共1个回答

热心网友时间：2022-06-28 14:54

就是一个读数据库表到数据显示的常用过程：
Try
Dim SQLCmdStr As String = "SELECT * FROM 学生信息库" 'sql的搜索命令语句，用来读学生信息库这个表的
Dim SQLConn As New SqlConnection(MDIParent1.SqlConnStr)' 建立连接，MDIParent1.SqlConnStr这个是数据库地址的变量
Dim SQLCmd As New SqlCommand(SQLCmdStr, SQLConn)'建立sql的搜索命令SqlCommand
SQLConn.Open() ‘打开连接
Dim SQLAdp As New SqlDataAdapter(SQLCmd) ’建立桥接器
SQLConn.Close() ‘关闭连接，
Dim TempDataSet As New DataSet ’建立一个虚拟表
SQLAdp.Fill(TempDataSet) ‘用桥接器将sql语句查询出的表填充到虚拟表
DataGridView1.DataSource = TempDataSet.Tables(0) ’将虚拟表绑定个窗体的数据显示器，就是显示出来
Catch sqlExc As SqlException '在try中捕捉到的可能错误信息显示
MsgBox(sqlExc.Message, MsgBoxStyle.OkOnly, "SQL Error")
Catch Exc As Exception
MsgBox(Exc.Message, MsgBoxStyle.OkOnly, "Application Error")
End Try
End Sub