在应用中写:
SQLCADBMS = "MSS Microsoft SQL Server"
SQLCADatabase = "你的数据库名"
SQLCALogPass = "密码"
SQLCAServerName = "服务器地址,可以使IP,可以是名称"
SQLCALogId = "sa登录用户"
SQLCAAutoCommit = False
SQLCADBParm = ""
connect;
IF SQLCASQLCode <>0 THEN
MessageBox("错误提示", '数据库连接失败,请确认数据库是否运行或者网络是否连接!')
return;
END IF
open(w_login)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)