第1个回答 2011-04-07
通过odbc来连接比较简单,适合初学者。比如:
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = false
SQLCA.DBParm = " "
//SQLCA.DBParm = "ConnectString='DSN=xxxx;UID=sa;PWD=xxxx',DisableBind=1,StaticBind=0,CallEscape='No',DelimitIdentifier='Yes',StripParmNames='Yes'"
//
connect;
//
if sqlca.sqlcode<0 then
messagebox("错误信息","数据库连接失败,请检查网络是否连通或拨号连接是否已断。")
return
end if
//
if sqlca.sqlcode = 100 then
messagebox("错误信息","数据库连接失败(服务找不到),具体错误信息是~r~n" + sqlca.sqlerrtext,stopsign!)
return
end if