答案：首先你用的是2000的数据库 所以必须先在窗体撒谎那个放置一个DATA的控件
这个控件在你的工具箱倒数第2个就是 放到窗体上就可以
其次你得建立与数据库之间的联系用到这样的代码
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path + "/11.mdb")
Set rs = db.OpenRecordset("s.dbf")'这是表名
这就是建立连接了
你可以把它放到窗体的form_load里 或者再建一个连接按钮 反正必须要在你添加记录之前建立！
连接建立了就可以直接添加记录了
添加记录用
rs.AddNew
rs.Fields("a") = text1.text
rs.Fields("b") = text2.text
rs.Update
如果你想只在字段a里添加数据
哪就
rs.AddNew
rs.Fields("a") = text1.text
rs.Update
就可以了
或者你想可以在a字段里连续添加多条记录哪你就得重复运行上面的代码
rs.AddNew
rs.Fields("a") = text1.text
rs.Update
rs.AddNew
rs.Fields("a") = text2.text
rs.Update
就可以了 或者干脆写个FOR 或者DO WHILE循环 这个就不说了
然后我觉得你可能对一些问题还感兴趣
比如怎么扒数据往后移动一条
哪就可以 rs.MoveNext
对了显示数据就用
rs.MoveFirst
Text1 = rs.Fields("a")
这是显示的第一条记录 如果还想往后移动就得用rs.MoveNext Text1 = rs.Fields("a")了
与它相关的还有
rs.MoveLast'移动最后一条
rs.MovePrevious'向前移动
好了说的够多了 我觉得这些先学会就可以了
还有其他的我没告诉你
比如查询数据并显示、修改数据、查询共有多少条数据等等
还有我建议你用2003的数据库吧这样还能方便点 虽然vb对2000支持的非常好
但是2000的数据库你自己编辑也不太方便
上面的问题等你把我说的掌握了 自己再慢慢学或者再来发帖问我也可以了
我主要就是用循环语句的这个很容易实现的，关键是你连接数据库和字段的时候连接好了就可以了！下面这个网手把手教你的 http://www.enet.com.cn/eschool/video/vb/ 从入门到精通视频教程第十三章 VisualBasic6的开发数据库管理程序简单点的.
用DATA控件.. DatabaseName="数据库名" '连接数据库
RecordSource="表名" '连接表
然后就在那些控件里的DATASOURCE属性里选 你建的这个DATA控件
再先字段
上一个：VB做3个功能高手帮帮忙！感激不尽
下一个：鍏充簬鐢╒B缂栫▼鐨勫熀鏈煡璇嗗拰闂銆?- 宸茶В鍐?- 鎼滄悳闂棶
