pb连接数据库问题
string ls_inifile ="dsmis.ini"
sqlca.DBMS = ProfileString (ls_inifile, "database", "dbms", "")
sqlca.database = ProfileString (ls_inifile, "database", "database", "")
sqlca.logid = ProfileString (ls_inifile, "database", "logid", "")
sqlca.logpass = ProfileString (ls_inifile, "database", "LogPassWord","")
sqlca.servername=ProfileString(ls_inifile,"database", "servername", "")
sqlca.dbparm = ProfileString (ls_inifile, "database", "dbparm", "")
sqlca.userId = ProfileString (ls_inifile, "database", "userId", "")
sqlca.DBPass = ProfileString (ls_inifile, "database", "DBPass", "")
sqlca.Lock = ProfileString (ls_inifile, "database", "Lock", "")
sqlca.autocommit=false;
connect using sqlca;
if sqlca.sqlcode <>0 then
messagebox("数据库连接","sqlca.sqlerrtext")
return
else
open(mian)
end if
我运行的时候提示sqlca.sqlerrtext。请各位帮我看看是那里出了问题啊