DBMS is not supported in your current installation
dlwk 2001-05-29 09:18:00 string ls_startupfile //此变量保存获取数据库信息的文件名
// 数据库连接信息存储在文件"PB.ini"中
ls_startupfile="pb.ini"
//从文件(PB.ini)中获取数据库连接信息
SQLCA.DBMS =ProfileString("ls_startupfile","Database","DBMS", " ")
SQLCA.Database =ProfileString("ls_startupfile","Database","DataBase", " ")
SQLCA.LogID =ProfileString("ls_startupfile","Database","LogID", " ")
SQLCA.LogPass =ProfileString("ls_startupfile","Database","LogPassword", " ")
SQLCA.ServerName =ProfileString("ls_startupfile","Database","ServerName", " ")
SQLCA.UserID =ProfileString("ls_startupfile","Database","UserID", " ")
SQLCA.DBPass =ProfileString("ls_startupfile","Database","DatabasePassword", " ")
SQLCA.DbParm =ProfileString("ls_startupfile","Database","DbParm", " ")
//连接数据库
Connect;
//如连接失败,弹出错误提示
if sqlca.sqlcode<>0 then
MessageBox("不能连接数据库",sqlca.sqlerrtext)
return
end if
//打开MDI窗口
open(w_main)
我前后找了一下问题都没有找到答案,不知道问题出在哪里!