我用 profilestring来连接sql数据库,结果出错，求救！！

[wangmin_yjitx]

代码如下：
sqlca.DBMS = profilestring("connect.ini",database,"DBMS"," ")
sqlca.Database = profilestring("connect.ini",database,"Database"," ")
sqlca.ServerName = profilestring("connect.ini",database,"ServerName"," ")
sqlca.LogId = profilestring("connect.ini",database,"LogId"," ")
sqlca.LogPass =''
sqlca.AutoCommit =false
sqlca.DBParm = profilestring("connect.ini",database,"DBParm"," ")
系统指第一行的"database" 没有定义，后来我定义 dabase为string,但连接不上数据库
这是怎么一回事啊？

[twb88]

sqlca.DBMS = profilestring("connect.ini",database,"DBMS","your dbms ")

[freeliu]

sqlca.DBMS = profilestring("connect.ini","database","DBMS"," ")
sqlca.Database = profilestring("connect.ini","database","Database"," ")
sqlca.ServerName = profilestring("connect.ini","database","ServerName"," ")
sqlca.LogId = profilestring("connect.ini","database","LogId"," ")

database也要用引号扩起来。

[pbtech]

同意freeliu()

[fengkyf001]

database是file_ini文件中一个子目录，
如果file_ini内容如下：

[prof_database]
dbms=sqlsever
...

则应写成如下样式：
sqlca.DBMS = profilestring("connect.ini",”prof_database“,"DBMS"," ")

[bobi1314]

if not fileexists(file_ini) then
messagebox('系统信息','程序的配置文件 '+file_ini+' 不存在,请设置配置文件!')
return
end if
//--连接数据库
SQLCA.DBMS =ProfileString(file_ini,"Database","DBMS","")
SQLCA.Database =ProfileString(file_ini,"Database","Database","")
SQLCA.LogID =ProfileString(file_ini,"Database","LogID","")
SQLCA.LogPass =ProfileString(file_ini,"Database","LogPass","")
SQLCA.ServerName =ProfileString(file_ini,"Database","ServerName","")
SQLCA.UserID =ProfileString(file_ini,"Database","UserID","")
SQLCA.DBPass =ProfileString(file_ini,"Database","DBPass","")
SQLCA.Lock =ProfileString(file_ini,"Database","Lock","")
SQLCA.DbParm =ProfileString(file_ini,"Database","DbParm","")

sqlca.autocommit = true
connect; //数据库连接

if sqlca.sqocode <> -1 then
messagebox("系统提示","数据库连接成功！")
//可以进入系统
else
messagebox("错误提示","数据库连接失败！")
halt;
end if
file_ini：是数据库配置文件名字，是字符串形式。
请试用一下，这代码我用在了30个系统上没有什么问题。