使用vb连接oracle数据库，执行多个命令

以前如果执行某个命令，就在commandtext后面进行写名，但是如果要执行很多的命令呢，如何进行处理呢？

是不是要定义很多的new adodb.command呢？当然不是，下面只要将其使用begin和end包含起来，就是建立

一个程序块，你就可以编辑处理很多的命令：

Private Sub Command1_Click()
    Dim cnn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    cnn.ConnectionString = "provider=msdaora;user id = test11;password=test11;data source=datasource"
    cnn.Open
    If cnn.State = adStateOpen Then
        Set cmd.ActiveConnection = cnn
        cmd.CommandType = adCmdText
        cmd.CommandText = "begin insert into bz_temp values('31111'); insert into bz_temp values('353432');  end;"
        cmd.Execute

    End If
   
    cnn.Close
End Sub 

 

注意两点：

1 使用begin和end将多条语句，包含起来，否则就会报错：invalid character

2 在end的后面一定要加上分号，否则就会提示结束的时候出现错误，这个问题，挺让人郁闷的。如果是一个语句

那么就不要在最后添加分号，如果添上了分号，那么就会报错的啊！请一定分辨好，那些需要添加，那些时候不需

要添加啊！