ADO 如何执行多条语句？ 用的是sql server 2000

Question

1.建立与database1的连接conn
2.将多条语句写入字符串用分号隔开
3.conn.execute 字符串

Answer 1

dim  Cnn As New ADODB.Connection
SQLstr = "use database1 ;go; insert into t1(code,date,message) ;select ID,Time,PA from database2..t2 ;insert into t3(itemno,partno) ;select Item ,Mode,from database2..t4 "
Cnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=database1;Data Source=192.168.2.123"
Cnn.Execute SQLstr
运行时报错啊？

Answer 2

dim  Cnn As New ADODB.Connection 
dim  Sql string
SQLstr = "insert into t1(code,date,message) select ID,Time,PA from database2..t2 ;insert into t3(itemno,partno) select Item ,Mode,from database2..t4 " 
Sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=database1;Data Source=192.168.2.123" 
Cnn.open Sql
Cnn.Execute SQLstr 

Answer 3

dim  Cnn As New ADODB.Connection 
dim  Sql string
SQLstr = "insert into t1(code,date,message) select ID,Time,PA from database2..t2 ;insert into t3(itemno,partno) select Item ,Mode,from database2..t4 " 
Sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=database1;Data Source=192.168.2.123" 
Cnn.open Sql
Cnn.Execute SQLstr quite right!