1. 程式人生 > >pb9.0連線sql server2008全攻略

pb9.0連線sql server2008全攻略

SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=2pbconn2008;ODBC'"
connect using SQLCA;   //注意 這句必須加分號 
if sqlca.sqlcode < 0 then
MessageBox("提示資訊", "連線資料庫失敗"+sqlca.sqlerrtext, exclamation!) //exclamation!這個引數是改變彈出框提示圖示的。
halt
end if
string testStr
select val into :testStr from t_glb where mk = 'xtgl_today'   //t_glb表明, mk是列名, xtgl_today是mk欄位下的一個值。
using SQLCA;   //注意分號
sle_1.text = testStr