代码之家  ›  专栏  ›  技术社区  ›  Builder

VB6-如何在一个调用中执行多个SQL查询

  •  1
  • Builder  · 技术社区  · 6 年前

        qry = "Update table1 Set col1 = 'eerere' Where 1=1"
        qry = qry & vbCrLf & "  AND MyID = " & MyID & vbCrLf
        ExecSQL qry, DBCon, adAsyncExecute
    
        qry = "Insert Into TableMain"
        qry = qry & "Select  col1,col2,col3 from Table2 Where 1=1"
        qry = qry & vbCrLf & "  AND MyID = " & MyID & vbCrLf
        ExecSQL qry, DBCon, adAsyncExecute
    
        qry = "Update table5 Set col1 = 'eerere' Where 1=1"
        qry = qry & vbCrLf & "  AND MyID = " & MyID & vbCrLf
        ExecSQL qry, DBCon, adAsyncExecute
    
    1 回复  |  直到 6 年前
        1
  •  5
  •   Tab Alleman    6 年前

    通过使用分号分隔命令,可以将它们组合到一个调用中:

    qry = "Update table1 Set col1 = 'eerere' Where 1=1"
    qry = qry & vbCrLf & "  AND MyID = " & MyID & "; " & vbCrLf
    
    qry = qry & "Insert Into TableMain"
    qry = qry & "Select  col1,col2,col3 from Table2 Where 1=1"
    qry = qry & vbCrLf & "  AND MyID = " & MyID & "; " & vbCrLf
    

    它可能会给你一些小的性能改进,如果它不会导致任何错误。