VB2005连接SQL2005出现的问题-挑战一下

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 = 数据表

补充：VB ,  数据库(包含打印，安装，报表)

上一个：VB窗体按钮调用Fortran编译的dll出错，出现如下错误代码！
下一个：directdraw图片亮度