Question

VB6.0连接ACCESS数据库

第一次用VB连ACCESS数据库~谁能告诉我怎么连。。我是菜鸟 能一步一步教我吗~先加载什么 然后怎么连。。。怎么写连接代码。。。代码放在哪？？
希望达人给我留个QQ~~谢谢~

Answer 1

在工程里引用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

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

Answer 2

Private
Sub
Combo1_Click()
Dim
Reco
As
New
ADODB.Recordset
Dim
sql
As
String
sql
=
"银租select
*
from
data.p_m
（数据库.表名）Where
i_name
（字段）='"
&
Combo1.Text
&
"'郑喊"
Reco.Open
sql,
conn,
1,
3
If
Not
Reco.EOF
Then
Text1.Text
=
Reco("锋丛兆i_path").Value
Image1.Picture
=
LoadPicture(Text1.Text)
End
If
Reco.Close
End
Sub

Answer 3

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