关于无法连接数据库的问题
运行时总是 显示连接数据库失败,不知道什么问题,麻烦帮看下。
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=rsglxt'"
CONNECT USING SQLCA;//连接事务处理对象
if sqlca.sqlcode <> 0 then
messagebox('错误:','连接数据库失败!')
return
end if
GetEnvironment(Ge_Env)
Gi_ScreenH = Ge_Env.ScreenHeight
Gi_ScreenW = Ge_Env.ScreenWidth
Gi_ScreenWPBU = PixelsToUnits(Gi_ScreenW , XPixelsToUnits!)
Gi_ScreenHPBU = PixelsToUnits(Gi_ScreenH , YPixelsToUnits!)
open(w_hehe)