如何用vb连接sql server数据库

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

要连接SQL数据库有两种方法用ADODC或ADO.

方法一: （ADODC)

首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).

之后在表单设置ADODC控件。然后Form_Load()输入以下代码：

Private Sub Form_Load()

ADODC1.ConnectionString = "Provider=SQLOLEDBPassword=密码Persist Security Info=FalseUser ID=用户名Initial Catalog=数据库名Data Source=服务器名"

ADODC1.CommandType = adCmdText

ADODC1.RecordSource = "select * from 表格名称"

ADODC1.Refresh

End Sub

方法二: (ADO)

'首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library.

'*注意以下两段须写在程式最上面（Gerenal一般）中。

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim SQL As String

'然后在Form_Load()输入以下代码：

Private Sub Form_Load()

cn.ConnectionString = "Provider=SQLOLEDBPassword=密码Persist Security Info=FalseUser ID=用户名Initial Catalog=数据库名Data Source=服务器名"

cn.Open

If rs.State = adStateOpen Then rs.Close

rs.CursorLocation = adUseClient

SQL = "select * from 表格名"

rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic

End Sub

---