0

ご返信ありがとうございます。

コンパイラとしてPowerbasic（www.powerbasic.com）を使用し、ODBCを介してADSにアクセスするためのサードパーティツールとしてSQLToolsを使用しています。このエラーは、更新、削除、検索などの他のアクションを実行したときにも発生することを明記する必要があります。ただし、MSAccessを使用している場合はこのエラーは発生しません。

これが私の保存ルーチンです：

Local sUsername As String
Local sPassword As String
Local sStatus As String
Local sSQLStatement1 As String

sUsername = VD_GetText (nCbHndl, %ID_FRMUPDATEUSERS_TXTUSERNAME)
If Trim$(sUsername) = "" Then
    MsgBox "Please, enter Username", %MB_ICONINFORMATION Or %MB_TASKMODAL, VD_App.Title
    Control Set Focus nCbHndl, %ID_FRMUPDATEUSERS_TXTUSERNAME
    Exit Function
End If

sPassword = VD_GetText (nCbHndl, %ID_FRMUPDATEUSERS_TXTPASSWORD)
If Trim$(sPassword) = "" Then
    MsgBox "Please, enter Password", %MB_ICONINFORMATION Or %MB_TASKMODAL, VD_App.Title
    Control Set Focus nCbHndl, %ID_FRMUPDATEUSERS_TXTPASSWORD
    Exit Function
End If

sStatus = VD_GetText (nCbHndl, %ID_FRMUPDATEUSERS_CBOSTATUS)

sSQLStatement1 =  "INSERT INTO [tblUsers] (Username, Password, Status) " + _
                 "VALUES ('" + sUsername + "','" + sPassword + "','" + sStatus +"')"

'Submit the SQL Statement to the database
SQL_Stmt %SQL_STMT_IMMEDIATE, sSQLStatement1

'Check for errors
If SQL_ErrorPending Then
    SQL_MsgBox SQL_ErrorQuickAll, %MSGBOX_OK
End If

よろしくお願いします、

4

1 に答える 1

0

私は Powerbasic に詳しくなく、試用版を探すのに苦労しました。しかし、私はこれについて考えてきました。この問題は、更新と削除、およびこの挿入ステートメントで発生することに注意してください。これは、ステートメントがカーソルを返さないときにカーソルを返す必要があることを示すために属性が設定されている可能性があると私に信じさせます。ただし、これはよりワイルドな推測です。
ODBC トレースは、変更されたオプションに関して何らかの光を当てていますか?

于 2010-04-05T22:45:55.040 に答える