如何用vb写一个多笔insert into到资料库?

Question

我在sql server 2000的资料库testDB中,有二个表格,分别为Tb1及Tb2.Tb1有五个栏位,分别为no,a,b,c,d;Tb2有十个栏位,其中与Tb1一样,有a,b,c,d四个栏位.我想要将Tb1的a,b,c,d资料依no顺序,一笔一笔insert into到Tb2.我目前一笔一笔以下列方式执行,但资料量很大,请问各位高手,有没有比较快的方式?
INSERT INTO Tb2 (a, b, c, d) SELECT a, b, c, d FROM Tb1 WHERE ([no] = 5)
(注1: Tb1的no从5,6,7..依序到1500)
(注2: 由于我在Tb2会做一些计算,一定要一笔一笔insert into才行,不能一次insert into多笔)
谢谢.
我在 compile 的时候,出现一个错误讯息"编译错误:不正确的外部程序",
当中, 这一列“sql = "provider=sqloledb.1;password=密码;user id=用户名;initial catalog=数据库名;data source=服务器名"”被 mark 起来,不知道是什么原因,尚请帮忙,谢谢.

Answer 1

用的是ADO连接方式
dim i as integer
dim adoCn As ADODB.Connection
dim sql as string
sql = "provider=sqloledb.1;password=密码;user id=用户名;initial catalog=数据库名;data source=服务器名"
Set adoCn = New ADODB.Connection
adoCn.ConnectionString = conStr
adoCn.CursorLocation = adUseClient
adoCn.Open
adocn.BeginTrans
for i=5 to 1500
sql="INSERT INTO Tb2 (a, b, c, d) SELECT a, b, c, d FROM Tb1 WHERE ([no] = " & i & ")"
adocn.Execute sql
next i
adocn.CommitTrans