VB中如何连接一个数据库

答案：可以用Data或者用ADODC。
 
用data控件的话，连接格式为：
Data1.DatabaseName = "E:\Visual Basic\123.mdb"
Data1.RecordSource = "select * from 表1 
 
用Adodc控件的话，连接格式为：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\IDE\SIEMENS.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 表1"
Adodc1.Refresh
 
当然用ADO也可以
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\IDE\SIEMENS.mdb;Persist Security Info=False"
rs.Open "select * from 表1
 
在使用这些代码之前，请先“引用”数据库控件，步骤如：单击VB菜单栏“工程”，选择引用，然后勾选Microsoft Activex Data Objects 2.8 library……点确定保存。
然后在“引用”下面，选择“部件”，找到Microsoft Data Control 6.0，勾选，点确定保存，就可以使用ADO和ADODC控件连接数据库了。

上一个：VB SendMessage的参数
下一个：VB问题组合