IF ls_userid
= " " OR ls_password
=" " THEN
RETURN -1
END IF
SQLCA.DBMS
="ODBC"
SQLCA.AutoCommit
=FALSE
ls_database
= "ConnectString='DSN=Ceshi;"
SQLCA.dbparm
=ls_database+
"UID="+ls_userid+
";PWD="+ls_password+
" ' "
CONNECT USING SQLCA
;
RETURN SQLCA.SQLCODE
IF SQLCA.SQLCODE
<>0 THEN
MessageBox
("连接数据库失败",sqlca.sqlerrtext,exclamation
!)
END IF