if Registryget("HKEY_current_user\SOFTWARE\odbc\odbc.ini\"+ls_dbds &
,"database", RegString!, ls_dbname)=-1 or ls_arg='wrong' then
if ls_arg='wrong' then
messagebox("错误","数据库配置错误!~r~n 请重新配置...")
end if
open(w_configdb)
// Profile sun
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x" //sql server7.0
SQLCA.Database = "sun" //数据库
SQLCA.ServerName = "adeva" //服务器名
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect using sqlca;
if sqlca.sqlcode=0 then
else
Messagebox("提示","数据库连接不成功!")
end if