application畫板中的打開問題-有解無憂

這是我在Application畫板中，open事件下寫的一段代碼，但是運行時報“和資料庫連接錯誤”，請各位指教。程式的那一步出了錯誤。應該怎樣去改。。。

int li_i,li_flag
SQLCA.DBMS = profileString("pB.INI","Database","DBMS","")
SQLCA.Database = profileString("PB.INI","Database","DataBase","")
SQLCA.LogID = profileString("PB.INI","Database","LogID","")
SQLCA.LogPass = profileString("PB.INI","Database","LogPassword","")
SQLCA.ServerName = profileString("PB.INI","Database","ServerName","")
SQLCA.UserID = profileString("PB.INI","Database","UserID","")
SQLCA.DBPass = ProfileString("PB.INI","Database","DatabasePassword","")
SQLCA.LOCK = ProfileString("PB.INI","Database","Lock","")
SQLCA.DbParm = ProfileString("PB.INI","Database","DbParm","")

connect; //使用剛才的引數連接資料庫服務器
If SQLCA.sqlcode <> 0 then   //資料庫連接不正確
     Beep(2)
    Messagebox("提示","和資料庫連接錯誤！", Information!)
    halt close;  //或者進入資料庫服務器連接引數設定界面
Elseif SQLCA.sqlcode = 0 then
  Open(w_main)   //打開主操作視窗
  li_i=3
  li_flag=1
DO While li_flag = 1   //口令不正確并且嘗試次數沒有達到3次就一直執行下面陳述句
     Open(w_password)  //打開用戶身份驗證和口令檢驗視窗
     If Message.stringparm= "ok" then  //校驗正確
li_flag= 0
     Else                           //檢驗不正確
          li_i = li_i - 1
          If li_i=0 then li_flag= 0
     End If
Loop
If li_i=0 then
     Beep(3)
     Messagebox("提示","登錄錯誤！",Information!)
     Halt Close;
End If

End If

uj5u.com熱心網友回復：

出現資料庫連接錯誤是因為 SQLCA.sqlcode <> 0
也就是用connect陳述句未被正常執行，出現問題的原因在于，下面引數中的錯誤，請檢查Pb.ini中各項引數

設定是否正確

SQLCA.DBMS = profileString("pB.INI","Database","DBMS","")
SQLCA.Database = profileString("PB.INI","Database","DataBase","")
SQLCA.LogID = profileString("PB.INI","Database","LogID","")
SQLCA.LogPass = profileString("PB.INI","Database","LogPassword","")
SQLCA.ServerName = profileString("PB.INI","Database","ServerName","")
SQLCA.UserID = profileString("PB.INI","Database","UserID","")
SQLCA.DBPass = ProfileString("PB.INI","Database","DatabasePassword","")
SQLCA.LOCK = ProfileString("PB.INI","Database","Lock","")
SQLCA.DbParm = ProfileString("PB.INI","Database","DbParm","")

uj5u.com熱心網友回復：

connect; //使用剛才的引數連接資料庫服務器
↓
connect using sqlca;

uj5u.com熱心網友回復：

在 "和資料庫連接錯誤！" 的提示處加
messagebox('', sqlca.sqlerrtext ) 看一下它提示什么錯誤先。。。

uj5u.com熱心網友回復：

我粘不了圖。報的錯誤是：

  不能和資料庫正確建立連接！
  錯誤代碼：999
  錯誤資訊：DBMS is not supported in your current installation.

請各位指教！！！！

uj5u.com熱心網友回復：

把 pB.INI 檔案打開把dbms = 那行貼出來可能是資料庫介面驅動沒裝

uj5u.com熱心網友回復：

我在PB.INI 中沒有找到DBMS = 的那行陳述句啊。

轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/86501.html

下一篇：打開修改sybase .db資料庫