VB で ODBC 経由でデータを取得するためのコードは次のとおりです。
Dim Ssql
Dim dbstatus
Dim rs
'*************
Ssql = " Select * from User_Access A Where A.User_pwd ='1234' "
set rs = Server.CreateObject("ADODB.RecordSet")
rs = DB.execute(Ssql,dbstatus)
Response.Write(dbstatus)
If dbstatus <> 0 Then
'Error code here
Else
'code here
END IF
'*************
コードは正常に動作しています。SQL ステートメントの実行が成功すると、dbstatus 値は -1 になります。しかし、コードによれば、さらに実行するには 0 を返す必要があります。0 以外の場合は Error が返されます。
これをSQL Server 2005とWindows 7で実行しています。
***しかし、同じコード sql ステートメントの実行が成功すると、ODBC のバージョンと sql サーバーのバージョンが異なる他の環境で dbstatus 値が 0 になります。
誰でも私を助けることができます。前もって感謝します