ADO中怎么在一个Execute中执行多条语句，数据库使用SQL Server

用英文分号作隔离，将多条语句合并为一句即可实现“ADO中一个Execute中执行多条语句”

下面是VB中的ADO示例代码

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim cnStr As String
Dim strSql As String
cnStr = "Provider=SQLOLEDB;Data Source=196.168.100.42;" _
  & "Initial Catalog=TestDB;User ID=sa;Password=123456;"
cn.Open cnStr  '打开连接
'将下列6个SQL语句合并为一句
'创建学生表
'创建教师表
'学生表插入一条记录
'教师表插入一条记录
'删除学生表
'删除教师表
strSql = "create table students(Sid char(6),Sname varchar(50));" _
  & "create table teachers(Tid char(6),Tname varchar(50));" _
  & "insert into students values('000001','张三');" _
  & "insert into teachers values('000200','李老师');" _
  & "drop table students;" _
  & "drop table teachers;"
cn.Execute strSql  '一次执行6条语句
MsgBox "全部语句一次执行成功"
cn.Close
Set cn = Nothing
End Sub

'其它编程工具使用ADO原理相同

把多条语句组成一个存储过程