module1.bas

来自「nice proggy nn」· BAS 代码 · 共 44 行

Attribute VB_Name = "Module1"
Public mysql As String
Public Sub del_rec()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
mysql = "delete from temp_accounts"
cn.ConnectionString = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=Admin;Data Source=relience"
cn.CursorLocation = adUseClient
cn.Open

cn.Execute mysql
'cn.CommitTrans
cn.Close

End Sub


Public Sub clear_temp_trans()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
mysql = "delete from temp_trans"
cn.ConnectionString = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=Admin;Data Source=relience"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute mysql
'cn.CommitTrans
cn.Close
End Sub

Public Sub clear_temp_trans_pur()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
mysql = "delete from temp_trans_pur"
cn.ConnectionString = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=Admin;Data Source=relience"
cn.CursorLocation = adUseClient
cn.Open

cn.Execute mysql
'cn.CommitTrans
cn.Close

End Sub