Module SQL模块
Public SQL连接 As New System.Data.SqlClient.SqlConnection
Public SQL指令 As New System.Data.SqlClient.SqlCommand("", SQL连接)
Public Function 连接SQLServer() As System.Data.ConnectionState
Try
SQL连接.ConnectionString = "Data Source=(local);Initial Catalog=master;Integrated Security=True;User ID=sa;Password="
'参数说明:
'一、Data Source
' 服务器IP地址
'二、Initial Catalog
' 数据库名称
'三、Integrated Security 或 Trusted Connection
' 当值为 True 时,将使用当前的Windows帐户凭据进行身份验证,
' 当值为 False 时,将在连接中指定用户ID和密码,
' 可识别的值为 True、False、Yes、No 以及与 True 等效的 SSPI (强烈推荐)。
'四、User ID
' 登录账号
'五、Password
' 登录密码
SQL连接.Open()
Catch ex As Exception
MsgBox("SQL Server 连接失败。", MsgBoxStyle.Critical, "连接失败")
Finally
连接SQLServer = SQL连接.State
End Try
End Function
End Module
新建一个窗口,添加一个DataGridView1控件,用于显示数据。
在过程中添加以下代码,可显示数据库中一个表的全部数据:
Public 数据表 As New DataTable
SQL指令.CommandText = "Select * From 表格名称"
数据表.Load(SQL指令.ExecuteReader)
DataGridView1.DataSource = 数据表
温馨提示:答案为网友推荐,仅供参考