vb怎么连接数据库？

　　VB连接数据库方式主要有两种，一是通过ODBC接口，ODBC是windows系统里提供的接口，专门连接数据库的，可以连接多种数据库，在应用电脑的设置ODBC，也就DSN数据源(下面说到的)，连接到服务器。

　　第二种就是ADO方式

　　VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

　　1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。

　　2、接下来定义ADO的连接对象，如下所示：

　　Set conn = New ADODB.Connection

　　Set rs = New ADODB.Recordset

　　第一种方法采用的是无源的数据库连接方法

　　conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

　　conn.ConnectionTimeout = 30

　　conn.Open

　　rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText

　　If rs.EOF = True And rs.BOF Then

　　m = MsgBox("请重新登录", vbExclamation)

　　Text1.Text = ""

　　Text1.SetFocus

　　Else

　　Form1.Hide

　　End If

　　rs.Close

　　这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

　　Set conn = New ADODB.Connection

　　Set rs = New ADODB.Recordset

　　conn.ConnectionString = "DSN=login;uid=sa;pwd=;"

　　conn.ConnectionTimeout = 30

　　conn.Open

　　rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

　　Dim i As String

　　For t = 0 To Val(rs.RecordCount) - 1

　　i = Trim(rs.Fields("用户名").Value)

　　rs.MoveNext

　　Combo1.AddItem i

　　Next t

　　rs.Close

　　连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

　　VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

　　1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。

　　2、接下来定义ADO的连接对象，如下所示：

　　Set conn = New ADODB.Connection

　　Set rs = New ADODB.Recordset

　　第一种方法采用的是无源的数据库连接方法

　　conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

　　conn.ConnectionTimeout = 30

　　conn.Open

　　rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText

　　If rs.EOF = True And rs.BOF Then

　　m = MsgBox("请重新登录", vbExclamation)

　　Text1.Text = ""

　　Text1.SetFocus

　　Else

　　Form1.Hide

　　End If

　　rs.Close

　　这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

　　Set conn = New ADODB.Connection

　　Set rs = New ADODB.Recordset

　　conn.ConnectionString = "DSN=login;uid=sa;pwd=;"

　　conn.ConnectionTimeout = 30

　　conn.Open

　　rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

　　Dim i As String

　　For t = 0 To Val(rs.RecordCount) - 1

　　i = Trim(rs.Fields("用户名").Value)

　　rs.MoveNext

　　Combo1.AddItem i

　　Next t

　　rs.Close

　　连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

大军SEO，9年来一直专注SEO技术研究，营销型网站建设，热爱SEO，希望能和大家多多交流共同学习，目前主要为企业和个人提供网站优化，关键词排名等服务，属于全职个人站长，凡是跟大军合作的每家企业/个人都是认真负责，做好网站每个细节，如有SEO/网络营销技术问题的朋友可以。

本页核心：vb,连接,数据库

Tags：

声明：
1.本站遵循行业规范，任何转载的稿件都会明确标注作者和来源，如注作有误请联系我更改；
2.本站的原创文章，请转载时务必注明文章作者和来源，不尊重原创的行为我们将追究责任；
3.欢迎您对本文《vb怎么连接数据库？》做点评，可以加我QQ或微信吐槽；
4.本页面网址：https://www.seodajun.com/SEOfenxiang/1384.html