?? accesscnn.bas
字號:
Attribute VB_Name = "accesscnn"
Public cnn As New ADODB.Connection
Public qy1 As New ADODB.Recordset '數據專用
Public qy2 As New ADODB.Recordset '數據專用
Sub Main()
tkOpenAccessDB App.Path & "\base.mdb"
If qy1.State = adStateOpen Then '表狀態
qy1.Close
End If
qy1.Open "select * from 登陸", cnn, adOpenStatic, adLockReadOnly, adCmdText
If qy1.RecordCount = 0 Then
Set qy1 = cnn.Execute("insert into 登陸 values('admin','admin','超級管理員')")
End If
Form3.Show
End Sub
Private Sub tkOpenAccessDB( _
tkFileName As String, _
Optional tkUserID As String, _
Optional tkPassword As String _
)
On Error GoTo tkFinish
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & tkFileName & ";" & _
"Mode=Share Deny None;" & _
"Extended Properties=;" & _
"Jet OLEDB:System database=;" & _
"Jet OLEDB:Registry Path=;" & _
"Jet OLEDB:Database Password=;" & _
"Jet OLEDB:Engine Type=5;" & _
"Jet OLEDB:Database Locking Mode=1;" & _
"Jet OLEDB:Global Partial Bulk Ops=2;" & _
"Jet OLEDB:Global Bulk Transactions=1;" & _
"Jet OLEDB:New Database Password=;" & _
"Jet OLEDB:Create System Database=False;" & _
"Jet OLEDB:Encrypt Database=False;" & _
"Jet OLEDB:Don't Copy Locale on Compact=False;" & _
"Jet OLEDB:Compact Without Replica Repair=False;" & _
"Jet OLEDB:SFP=False;" & _
tkUserID, _
tkPassword
Exit Sub
tkFinish:
MsgBox Err.Description
End
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -