|
sql sever 2000 是开发版的, 操作系统都是xpsp3包括服务器
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = profilestring("bzgl.ini","dbms","Database","")
SQLCA.LogPass = profilestring("bzgl.ini","dbms","LogPass","")
SQLCA.ServerName = profilestring('bzgl.ini','dbms','ServerName','')
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
Connect using SQLCA;
If SQLCA.SQLCode <> 0 Then
MessageBox ("Á¬½ÓÊý¾Ý¿âʧ°Ü", SQLCA.SQLErrText )
open (w_load)
End If
open (w_load)
end if |
|