Question

用VB如何在Access数据库某个表中加入数据

如图所示,：
用VB打开一个文件后缀名为.tsf的文件（该文件其实就是Access数据库，只是后缀名变了而已，完全可以用Access打开），把一些数据添加到一个名叫“断链”的表里面，这个“断链”表中“ID”字段为序列号，比如1、2、3等数值型字符，“断链”字段添加的内容是一个等式，比如25000=25300，VB上设计三个按钮，一个打开文件，一个是对这个数据库中的“断链”表中进行添加内容，一个是退出，设置10个文本框，共计5行，把这10个文本框中的数据（5个填入“ID”字段，5个填入“断链”字段）添加到.tsf的文件的“断链”表中，共5行。请问这个程序应该怎么写？谢谢。可加我QQ：503766829.财富悬赏5.





Answer 1

建立text1控件组，供填写id，建立text2控件组，供填写断链，添加ado控件
Dim adocn As New ADODB.Connection
adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.tsf;Persist Security Info=False"
For i = 0 To 4
adocn.Execute "insert into 断链 (ID,断链) values ('" & text1(i).text. & "','" & text2(i).text & "')"
next
adocn.Close

追问

 

 

adocn.Execute "insert into 断链 (ID,断链) values ('" & text1(i).text. & "','" & text2(i).text & "')"

这个语句有误，不了，敬请指点，谢谢。

我将其改成

 

adocn.Execute "insert into 断链 (ID,断链) values (" & Text1(i).Text & Text2(i).Text & ")"

 

后，提示，“查询值的数目与目标字段中的数目不同”

请问，给如何修改？再次感谢。

追答

你把数据库发给我，qw623577789@163.com

Answer 2

Dim db As adodb.Connection '定义了一个连接db
Dim rs As adodb.Recordset '定义了一个记录集rs

'==============初始化设置==============
Set db = New adodb.Connection '设置db是一个连接对象
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEdb.4.0;Data Source=ecdict.mdb;"

'建立连接
Set rs = New adodb.Recordset
rs.Open "select * from d_dict", db, adOpenStatic, adLockOptimistic

rs.MoveFirst ’记录指针指到第一个记录
rs.MoveNext ‘记录指针向下移一个记录

rs("d_china") 这句话的意思是表示d_china字段的值，你可以附给一个字符串变量

'==============关闭记录集数据库==========
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing