sqlca.DBMS = "SYC Adaptive Server Enterprise"
sqlca.Database = "database"
sqlca.LogPass = 'password'
sqlca.ServerName = "server"
sqlca.LogId = "id"
sqlca.AutoCommit = False
sqlca.DBParm = "CommitOnDisconnect='No',CharSet='CP850'"
connect using sqlca;
if sqlca.sqlcode<>0 then
messagebox('提示','数据库连接失败,请与管理员联系')
halt
end if