'''进行数据库连接,只要在工程的首窗体打开一次就可以了,以后不用再打开 Public Function F_Initial() Set CNT = New ADODB.Connection ' CNT.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=BORUIOA;PWD=BORUI;Data Source=oa" CNT.Open End Function D我没用过,只好写段VB的供你参考了
ADOConnection1.BeginTrans;
ADOQuery.ExecSQL;
ADOConnection1.CommitTrans;
Public Function F_Initial()
Set CNT = New ADODB.Connection '
CNT.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=BORUIOA;PWD=BORUI;Data Source=oa"
CNT.Open
End Function
D我没用过,只好写段VB的供你参考了