// Profile SQLCA.DBMS = "MSS Microsoft SQL Server"SQLCA.Database = ""SQLCA.LogPass = ""//密码SQLCA.ServerName = "."//地址SQLCA.LogId = "sa"//登陆名SQLCA.AutoCommit = False//是否自动提交SQLCA.DBParm = ""connect using sqlca;//连接数据库