740
社区成员
发帖
与我相关
我的任务
分享
// Profile student
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=s2;UID=sle_1.text;PWD=sle_2.text'"
CONNECT USING SQLCA;
if sqlca.sqlcode <>0 then
messagebox("消息","连接错误!"+ string(sqlca.sqlcode)+"~r~n"+sqlca.sqlerrtext)
return -1;
else
messagebox("消息","连接成功!")
end if