VB中如何循环往数据库中插入数据

来源：百度知道 编辑：UC知道 时间：2024/05/19 07:42:47
如：变量a1,b1，如何把变量中的字符串同时写入数据库的两上不同字段？比如循环100次。最好能给出全部代码，谢谢。
变量a1=张三 b1=李四 假设两个字段为f1和f2，这段代码如何写。在同一个表里进行，循环插入记录。

一个数据库文件中有很多表

Dim con As ADODB.Connection
Dim zrst As ADODB.Recordset
set zcon=new ADODB.Connection
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 路径 & ";Persist Security Info=False"
con.Open
'for i=1 to 100
con.execute "insert * into Table1(f1,f2) VALUES("+chr(34)+"张三"+chr(34)+","+chr(34)+"李四"+chr(34)+")" 'Table1是表名
'next i

网上这种代码很多，关于数据库的。下载一些，改改就行啦！

可以将变量的值放在一个数组里面如:a(99)
把字段也写成一个数组:b(99)
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "表名",连接字符串,参数,参数
rs.addnew
for i=0 to 99
rs("b")(i)=a(i)
next i
rs.update
rs.close
set rs=nothing

max1=2
redim myarray1(2)'因为让vb执行字符串需要api函数而且很麻烦,所以变量就用数组了.. 直接用数组更好
myarray(1)=a1
myarray(2)=b1
rs.open sql,conn,1,3'(一三表示可