做毕业设计类型的书
来源:百度知道 编辑:UC知道 时间:2024/05/05 23:50:16
Attribute VB_Name = "accesscnn"
Public cnn As New ADODB.Connection
Public qy1 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=;" &