Question

VB连接ACCESS数据库（1.mdb）有表tb，表内分别有ID,姓名，手机，备注； 实现：如图按钮下说明。求代码

不用控件啊。 就是代码 写

Answer 1

添加一个DATA控件在窗体上，设置器可见属性为不可见,将上述4个文本框与之绑定
sub cmd1_click()
data1.database.recordset.add
data1.database.recordset.field"id"=text1.text
data1.database.recordset.field"姓名"=text2.text
data1.database.recordset.field"手机"=text3.text
data1.database.recordset.field"备注"=text4.text
data1.database.updata
end sub
sub cmd2_click()
data1.database.recordset.movefirst
do while data1.database.recordset.eof=flase
if data1.database.recordset.field"id"=text5.text then
data1.database.refresh
end if
exit sub
loop
end sub

追问

不用控件的代码可以说下吗？

追答

你不嫌麻烦吗，动态添加控件，还要动态卸载，不实际编完，怎呢写出，而且代码量不会低于这个的十倍！你看控件绑定后就1条data1.database.refresh就查询完毕，否则你还要一一绑定每个控件设置它的datasource.datafield,datamember不成！这个只要在文本框中选取就行了嘛。

追问

追答

你是不是没有在窗体上放置一个DATA控件啊，注意还要设置你的数据库路径，最好用绝对的即app.path & "\1.mdb"

追问

不可识别的数据库格式。。。。。

追答

肯定你的数据库是2000以上做出来的吧，用的又是VB6，当然不行，办法：
1.升级到VB6 SP6
2.用ACCESS2000或以前帮本，并在引用中应用低版本的JET，谁让你用VB的，贪图方便最后最麻烦的就是VB歪逼

Answer 2

明天吧，这个比较啰嗦