在VB里怎么连接sql数据库

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

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

4、连接参数。

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

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

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

如果底层传输协议使用的是TCP协议的话
是保持连接的
如果是UDP是不保持连接的！
Button类如果不显示，看看你的命名空间是否包含进来啦!因该是这个名字空间SystemWindowsForms

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

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

4、连接参数。

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

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

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

VB连接MYSQL数据的方法
博客分类：
VB
VBMySQLSQLServerSQLSocket
第一步：上网>服务器端在指定端口侦听，这个实例对连接请求使用新的套接字响应。而客户端则无需特别的代码。
具体做法可参考下面的内容：
在服务端放一个winsock控件name属性设置为sock,设置它的index属性为0
在表单的Initialize事件中开始侦听：
sock(0)LocalPort = 2012
sock(0)Listen
在sock的ConnectionRequest事件编写代码：
Dim iSock As Integer
'寻找是否有空闲的套接字
For iSock = 1 To sockUBound
'找到第一个后即可结束循环
If sock(iSock)State = 0 Then Exit For
Next
'如果没有空闲的套接字,建立一个新的(新建的就是空闲的)
If iSock > sockUBound Then Load sock(iSock)
'响应连接请求
sock(iSock)Accept requestID
其它事件的代码按实际需要编写，与客户端没有什么区别。
上面这部分代码，就是让sock(0)在指定的端口进行侦听，然后，如果有客户端在这个端口请求连接，那么，sock(0)就会产生一个ConnectionRequest事件，这时，并不去用sock(0)去响应连接，而是建立一个新的sock,如sock(1),sock(2)并用它们的Accept去与客户端的socket交互，而sock(0)继续在原有的端口上进行着侦听。
这样，就可以在同一个端口上接入多个客户端，这就是服务器侦听模式的简单应用例子了。

VB连接数据库方式主要有两种，一是通过ODBC接口，ODBC是windows系统里提供的接口，专门连接数据库的，可以连接多种数据库，在应用电脑的设置ODBC，也就DSN数据源（下面说到的），连接到服务器。
第二种就是ADO方式，
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 26 library和 microsoft activeX Data objects recordset 26两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODBConnection
Set rs = New ADODBRecordset
第一种方法采用的是无源的数据库连接方法
connConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
connConnectionTimeout = 30
connOpen
rsOpen "select 用户名,密码 from login where 用户名='" & Trim(Combo1Text) & "' And 密码='" & Trim(Text1Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rsEOF = True And rsBOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1Text = ""
Text1SetFocus
Else
Form1Hide
End If
rsClose
这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn = New ADODBConnection
Set rs = New ADODBRecordset
connConnectionString = "DSN=login;uid=sa;pwd=;"
connConnectionTimeout = 30
connOpen
rsOpen "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rsRecordCount) - 1
i = Trim(rsFields("用户名")Value)
rsMoveNext
Combo1AddItem i
Next t
rsClose
连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 26 library和 microsoft activeX Data objects recordset 26两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODBConnection
Set rs = New ADODBRecordset
第一种方法采用的是无源的数据库连接方法
connConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
connConnectionTimeout = 30
connOpen
rsOpen "select 用户名,密码 from login where 用户名='" & Trim(Combo1Text) & "' And 密码='" & Trim(Text1Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rsEOF = True And rsBOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1Text = ""
Text1SetFocus
Else
Form1Hide
End If
rsClose
这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn = New ADODBConnection
Set rs = New ADODBRecordset
connConnectionString = "DSN=login;uid=sa;pwd=;"
connConnectionTimeout = 30
connOpen
rsOpen "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rsRecordCount) - 1
i = Trim(rsFields("用户名")Value)
rsMoveNext
Combo1AddItem i
Next t
rsClose
连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

---