VB连接数据库

答案：
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
'''引用MS Data ActiveX Object
Private Sub CommandOK_Click()
Dim con As New Connection '数据库连接对象
Dim rs As New RecordSet '数据集对象
con.ConnectionString = "你的数据库连接字符串"
con.Open '打开数据库连接
rs.Open "select * from tb_name", con '查询结果在rs里
'你要做的
'...
'最后关闭
con.Close
Set rs = Nothing
Set con = Nothing
End Sub
上面的连接SQL Server 都没有问题 下面是连接ACCESS

'定义数据库连接的连接对象 
Dim con As New ADODB.Connection 
'定义数据库连接的数据集 
Dim rs As New ADODB.Recordset 
'定义数据库连字串，数据源名要设置为自己的数据源名 
con.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &  "\databasename;Persist   Security   Info=False"
'进行连接 
con.Open 
'获得数据集，SQL语句为查询SQL，连接名为数据库连接的名字，这里为CON 
rs.Open "SQL语句", 连接名, adOpenDynamic, adLockPessimistic 
'RS数据集存储了查询返回的结果集合 

VB的电子学习文档最好的是MSDN帮助

上一个：如何入门VB
下一个：有没有VB高手啊 ！！！