VB6.0连接ACCESS数据库

来源：百度知道 编辑：UC知道 时间：2024/05/12 20:17:31
第一次用VB连ACCESS数据库~谁能告诉我怎么连。。我是菜鸟 能一步一步教我吗~先加载什么 然后怎么连。。。怎么写连接代码。。。代码放在哪？？
希望达人给我留个QQ~~谢谢~

在工程里引用microsoft activex data objects 2.7 library

Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句
Private Sub Form_Load()
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""
sql = "select * from 表名"
rs1.Open sql, cn
rs1.MoveFirst
Do While Not rs1.EOF
Combo1.AddItem rs1("字段名")
rs1.MoveNext
Loop
rs1.Close
End Sub

上面的是打开数据库进行查询，并将查询结果写入列表框
不清楚的留言给我，发一个可以运行的程序给你参考

在创建窗体时 不 要选择 标准 窗体 选 VB数据库创建导向 然后 一步步 往下做 ,..呵呵