0

谢谢您的答复。

我使用 Powerbasic (www.powerbasic.com) 作为编译器，使用 SQLTools 作为第三方工具通过 ODBC 访问 ADS。我必须指出，当我执行更新、删除、查找等其他操作时也会出现此错误。但是当我使用 MS Access 时，我没有收到此错误。

这是我的保存程序：

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 回答