ls连接odbc（SQL Or Oracle）

 DimODBCdatasource As String
 

   DimODBCusername As String
    DimODBCpassword As String
    DimODBCservername As String
   
   ODBCservername = Trim(configdoc.ChgServerName(0))
   ODBCdatasource = Trim(configdoc.ODBCDatabase(0))
   ODBCusername  = Trim(configdoc.ChgUserName(0))
   ODBCpassword  = Trim(configdoc.ChgPassword(0))   
   '开始联接ODBC
    Dim con AsODBCConnection
    Dim qry AsODBCQuery
    Dim resultAs ODBCResultSet
   
    Set con =New ODBCConnection
    Set qry =New ODBCQuery
    Set result =New ODBCResultSet
   
   If  ODBCuserName="" Or ODBCpassword="" Then
       If Notcon.ConnectTo(ODBCdataSource) Then
          Print"Error: 不能联接到ODBC " & ODBCdataSource
          GotoNextStep
          ExitSub
       Else
          Print"联接到ODBC " & con.DataSourceName
       EndIf   
    Else
       If Notcon.ConnectTo(ODBCdataSource, ODBCuserName, ODBCpassword)Then
          Print"Error: 不能联接到ODBC " &ODBCdataSource   
          GotoNextStep
          ExitSub
       Else
          Print"联接到ODBC " & con.DataSourceName
       EndIf   
    End If
On Error Goto errorHandler
   
    Setqry.Connection = con
    Setresult.Query = qry
   
    MySQL$ ="select * from " +  configdoc.ChgViewName(0) + "where " + configdoc.ChgRowName(0) + "= '" + SapCodeName + "'ORDERBY " + configdoc.ChgRowName(0)
   
    qry.SQL =MySQL$
   result.Execute
    result.lastrow
   。。。。。
   result.Close(DB_CLOSE)
   con.Disconnect


errorHandler:
    Print"Error: " + result.GetExtendedErrorMessage + ";" +result.GetErrorMessage   
    PrintError
   Con.Disconnect   
   
    注：其中红色标注的为特别注意的地方，因为odbc在获取数据时需要先定位到最后一条记录后才能正确读取