tigerwood12345: 连接代码如下:
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.dbParm = "ConnectString = 'DSN=TMS;UID=dba;PWD=sql'"
Connect using SQLCA;
If sqlca.sqlcode < 0 then
MessageBox("Connection Error", sqlca.sqlerrtext)
return
else
Open(w_login)
li_return=Message.DoubleParm
if li_return=1 then
Open(w_main_tms)
Open(w_ideal_dateformat)
else
disconnect;
end if
end if