用SQL将VB6转换为VB.NET

Question

我想弄明白这个代码是如何工作的，因为它从VB6和我将它转换为VB.NET，此程序的以前的开发人员告诉我，lstrvalue是一个SQL代码，但我没有看到像SELECT，UPDATE等常见语句，这就是为什么我不理解它。

rs.Open "Select AccountCode,rtrim(type) as type, rtrim(left(formula,3)) as bet1,ltrim(right(formula,3))as bet2 from vwTempTableWP where rtrim(type) in('SUM','+','-') order by orderby", con 
If rs.EOF Then 
Else 
    rs.MoveFirst 

    Do While rs.EOF <> True 

     codetype = Trim(rs!AccountCode) 
     tipo = Trim(rs!Type) 
     bet1 = CDbl(Trim(rs!bet1)) 
     bet2 = CDbl(Trim(rs!bet2)) 

     If tipo = "SUM" Then 
      lstrValue = "execute sp_sum '" & Trim(codetype) & "','Working'," & CDbl(bet1) & "," & CDbl(bet2) & "" 
      con.Execute lstrValue 
      'Do While con.State = adStateExecuting 
      'Loop 
     ElseIf tipo = "+" Then 
      lstrValue = "execute sp_add '" & Trim(codetype) & "','" & Trim(report) & "'," & CDbl(bet1) & "," & CDbl(bet2) & "" 
      con.Execute lstrValue 
      'Do While con.State = adStateExecuting 
      'Loop 
     ElseIf tipo = "-" Then 
      lstrValue = "execute sp_minus '" & Trim(codetype) & "','" & Trim(report) & "'," & CDbl(bet1) & "," & CDbl(bet2) & "" 
      con.Execute lstrValue 
      'Do While con.State = adStateExecuting 
      'Loop 
     End If 
     rs.MoveNext 
    Loop 
    rs.Close 
End If 

• RS被定义为新ADODB.Recordset

• CON被定义为新ADODB.Connection

Answer 1

你张贴正在建设的SQL语句中的代码执行stored procedure，特别是sp_sum,sp_add或sp_minus之一。你的SQL Server文档应该解释什么是存储过程，并在SQL Server Management Studio中检查它们的源代码应该告诉你他们每个人做了什么。