vb中怎样将同一个数据库中的两个不同的表进行操作
需求是这样子的,在同一个数据库中有两个不同表,表a和表b,现在将表a数据中的一些字段查询出来,然后将表a中查询出来的字段添加到表b中,表b中字段恰好就是表a查询出来的字段...
需求是这样子的,在同一个数据库中有两个不同表,表a和表b,现在将表a数据中的一些字段查询出来,然后将表a中查询出来的字段添加到表b中,表b中字段恰好就是表a查询出来的字段,主要代码怎样写,谢谢了,急用!
主要是对数据库的操作语句怎么写?对vb数据库我没写过,谢谢了1 展开
主要是对数据库的操作语句怎么写?对vb数据库我没写过,谢谢了1 展开
展开全部
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库地址;Persist Security Info=False"
conn.Open
sql="select * from 表A where id>50"
rs.open sql,conn,1,1
do while not rs.eof
sql="insert into 表B(id) values("& rs("id") &")"
conn.execute(sql)
rs.movenext
loop
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库地址;Persist Security Info=False"
conn.Open
sql="select * from 表A where id>50"
rs.open sql,conn,1,1
do while not rs.eof
sql="insert into 表B(id) values("& rs("id") &")"
conn.execute(sql)
rs.movenext
loop
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询