level 1
SQLCA.DBMS = 'MSS Microsoft SQL Server 6.x'SQLCA.ServerName = 服务器名称或者ipSQLCA.Database = 数据库名称SQLCA.LogId = 用户名SQLCA.LogPass = 密码SQLCA.AutoCommit = FalseSQLCA.DBParm = "" connect using SQLCA;if SQLCA.SQLCODE=0 thenopen(w_login)elsemessagebox("数据库信息","连接数据库失败,请重新配置数据库")open(w_setup_dbms)end if
2006年11月07日 06点11分