module1.bas

来自「this is source code for billing system i」· BAS 代码 · 共 16 行

Attribute VB_Name = "connection"
Sub cnn()
On Error GoTo b
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft Jet 4.0 OLE DB PROVIDER;Data source=" & App.Path & "\payroll.mdb" & _
";Jet OLEDB:Database Password=acg"
'RsTuD.CursorLocation = adUseClient
rs.Open "SELECT * FROM tblusers", db, adOpenDynamic, adLockOptimistic
rs1.Open "SELECT * FROM JRStblbilling", db, adOpenDynamic, adLockOptimistic
rs2.Open "SELECT * FROM MACROtblbilling", db, adOpenDynamic, adLockOptimistic
rs3.Open "SELECT * FROM billingRATE", db, adOpenDynamic, adLockOptimistic

b:
End Sub