杭州交通信息网圆盘机英语怎么说:VB中如何循环往数据库中插入数据
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 06:41:44
变量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'(一三表示可读可写)
rs.addnew
for i = 1 to max1
rs("f"&i)=myarray(i)
next
rs.update
rs.close
或者可以写成insert的
这个sql语句要注意空格,可以先输出一下sql语句检查一下
sql= "insert [tab] ("
for i= 1 to max1'这个循环列出字段
sql= sql&"f"&i
if i<>max1 then
sql=sql&","
else
sql=sql&") values ("
end if
next
for i= 1 to max1'这个循环写入值
sql=sql&"'"&myarray(i)"'"
if i<>max1 then
sql=sql&","
else
sql=sql&")"
end if
next
conn.execute sql
不知道有没有正确理解你的意思,代码我没试,反正你也要改了再试,应该问题不大.
以前写过类似的东西.