| 
 | 
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 |   
 
 
 
 |