''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsAccess As Recordset
Dim ConnAccess As New Connection
Dim StrSQLAccess As String
Dim i As Integer
DBSeaverPath=App.Path
ConnAccess.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBSeaverPath + IIf(Len(DBSeaverPath) > 3, "/" & "Users.mdb;", "Users.mdb;") + " Jet OLEDB:Database Password=;"
StrSQLAccess = "Select * from Users order by id asc"
Set rsAccess = New Recordset
rsAccess.Open StrSQLAccess, ConnAccess, adOpenStatic, adLockOptimistic
If rsAccess.RecordCount = 0 Then End
'ComboUserName.Clear'
'Do While Not rsAccess.EOF'
' ComboUserName.AddItem rsAccess!username'
' rsAccess.MoveNext'
'Loop'
rsAccess.Close
Set rsAccess = Nothing
ConnAccess.Close
Set ConnAccess = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim strSQL As String
Dim OldWs As Workspace, mainDb As Database, TableMain As Recordset
Condata = App.Path & "/Users.mdb"
SaveSetting App.EXEName, "Data", "Path", Condata
ConStr = ";UID=" & ";PWD="
Set OldWs = DBEngine.Workspaces(0)
Set mainDb = OldWs.OpenDatabase(Condata, False, False, ConStr)
'mainDb.Execute "delete Users"'
Set TableMain = mainDb.OpenRecordset("select * from Users" & strSearchString)
TableMain.LockEdits = False
Do Until TableMain.EOF
If Not IsNull(TableMain("UserName").Value) Then
UserNameText.AddItem TableMain("UserName").Value
End If
TableMain.MoveNext
Loop
TableMain.Close
Set TableMain = Nothing
mainDb.Close
Set mainDb = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
strSQL = "select * from Users order by id asc"
Data1.DatabaseName = App.Path & "/Users.mdb"
Data1.RecordSource = strSQL
Data1.Refresh
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'“工程”菜单中选择“引用”菜单选择“Microsoft DAO 3.51 Object Library”项'
Public AcessDB As Database
Dim TableMain As RecordSet
Public Sub OpenDatabase ( )
Dim sConeect As String
SConnect = ";PWD =; UID ="
Set AcessDB = Nothing
Set AcessDB = WorksPaces (0 ).OpenDatabase (App.Path & "/Users.mdb",False,sConnect)
End Sub
Set TableMain = AcessDB.OpenRecordSet ( "Users",dbOpenSnapshot )
For j = 0 To 2
For I = 0 To 3
TableMain.MoveNext
Excel.Sheet.Range ( Trim ( chr ( 71+j*10+I ) )+"G").Value = TableMain.Fields (0)
Next I
Next j
AcessDB.Close
Set AcessDB = Nothing
TableMain.Close
Set TableMain = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsAccess As Recordset
Dim ConnAccess As New Connection
Dim StrSQLAccess As String
Dim i As Integer
DBSeaverPath=App.Path
ConnAccess.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBSeaverPath + IIf(Len(DBSeaverPath) > 3, "/" & "Users.mdb;", "Users.mdb;") + " Jet OLEDB:Database Password=;"
StrSQLAccess = "Select * from Users order by id asc"
Set rsAccess = New Recordset
rsAccess.Open StrSQLAccess, ConnAccess, adOpenStatic, adLockOptimistic
If rsAccess.RecordCount = 0 Then End
'ComboUserName.Clear'
'Do While Not rsAccess.EOF'
' ComboUserName.AddItem rsAccess!username'
' rsAccess.MoveNext'
'Loop'
rsAccess.Close
Set rsAccess = Nothing
ConnAccess.Close
Set ConnAccess = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim strSQL As String
Dim OldWs As Workspace, mainDb As Database, TableMain As Recordset
Condata = App.Path & "/Users.mdb"
SaveSetting App.EXEName, "Data", "Path", Condata
ConStr = ";UID=" & ";PWD="
Set OldWs = DBEngine.Workspaces(0)
Set mainDb = OldWs.OpenDatabase(Condata, False, False, ConStr)
'mainDb.Execute "delete Users"'
Set TableMain = mainDb.OpenRecordset("select * from Users" & strSearchString)
TableMain.LockEdits = False
Do Until TableMain.EOF
If Not IsNull(TableMain("UserName").Value) Then
UserNameText.AddItem TableMain("UserName").Value
End If
TableMain.MoveNext
Loop
TableMain.Close
Set TableMain = Nothing
mainDb.Close
Set mainDb = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
strSQL = "select * from Users order by id asc"
Data1.DatabaseName = App.Path & "/Users.mdb"
Data1.RecordSource = strSQL
Data1.Refresh
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'“工程”菜单中选择“引用”菜单选择“Microsoft DAO 3.51 Object Library”项'
Public AcessDB As Database
Dim TableMain As RecordSet
Public Sub OpenDatabase ( )
Dim sConeect As String
SConnect = ";PWD =; UID ="
Set AcessDB = Nothing
Set AcessDB = WorksPaces (0 ).OpenDatabase (App.Path & "/Users.mdb",False,sConnect)
End Sub
Set TableMain = AcessDB.OpenRecordSet ( "Users",dbOpenSnapshot )
For j = 0 To 2
For I = 0 To 3
TableMain.MoveNext
Excel.Sheet.Range ( Trim ( chr ( 71+j*10+I ) )+"G").Value = TableMain.Fields (0)
Next I
Next j
AcessDB.Close
Set AcessDB = Nothing
TableMain.Close
Set TableMain = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''