我的資料庫中的資料型別為varchar
但是取不到資料庫中的資料。。。
下面這段程式是讀取資料庫中的資料值：
string username
string keyword
string s_KW,s_NM
string user
string key
user=Trim(sle_1.text)
key=Trim(sle_2.text)
declare student cursor for select KW from PASS where NM=:s_NM;
s_NM=trim(sle_1.text)
open student;
fetch student into:s_KW;
username=string(s_NM)
keyword=string(s_KW)
if user=username and key=keyword then
messagebox("true","登錄成功！")
close(parent)
else
messagebox("false","登陸失敗，請重新輸入！")
sle_1.text=string(sle_1.text)
sle_2.text=''
end if
close student;
uj5u.com熱心網友回復：
連接資料庫了嗎？單步執行一下，看到哪個地方出現問題了，如果取不到資料，看一下sqlca.sqlerrtext回傳的是什么錯誤內容，根據錯誤來修改程式
uj5u.com熱心網友回復：
+1
uj5u.com熱心網友回復：
你的游標使用完畢后，要關閉，看到你有 close(parent)，又不關閉游標的情況。更改如下吧：
string username
string keyword
string s_KW,s_NM
string user
string key
user=Trim(sle_1.text)
key=Trim(sle_2.text)
declare student cursor for select KW from PASS where NM=:s_NM;
s_NM=trim(sle_1.text)
open student;
fetch student into:s_KW;
close student;
if sqlca.sqlcode <> 0 then
messagebox('提示!','打開游標失敗!~n'+sqlca.sqlerrtext)
return
end if
username=string(s_NM)
keyword=string(s_KW)
if user=username and key=keyword then
messagebox("true","登錄成功！")
close(parent)
else
sle_1.text=string(sle_1.text)
sle_2.text=''
messagebox("false","登陸失敗，請重新輸入！")
return
end if
uj5u.com熱心網友回復：
close student;放在
if sqlca.sqlcode <> 0 then
messagebox('提示!','打開游標失敗!~n'+sqlca.sqlerrtext)
return
end if
后面吧
uj5u.com熱心網友回復：
return的上面一行轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/52554.html
標籤：數據庫相關
上一篇：ORA-00064: 物件過大以至無法在此 O/S 分配 (%s, %s)
下一篇：pb12.5 pbt