ACCESS+ADO+EXCEL 通用类模块倾情贡献！！

风的孩子1

Public Sub RunSQL(strQryName As String)
为便利大家使用,给个例子。
Skkdb.RunSQL Teseisql
End Sub
End If
　　　　Call ConnDB
　　　　End With
Private Sub Class_Terminate()
-----------------------------------------------------------------------------
　　　　If cnn.State = 1 Then
End Sub
　　　　Dim lngAffected As Long
Private Sub Class_Initialize()
End Sub
End Sub
　　　　cnn.Close
Teseisql = Teseisql & " SELECT......" '写入SQL查问语句
End Function
　　　　　　　　cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
贴在别人的贴子后面没人看，只好再发一次了．
Public DBName As String
Public Function RunCMD(strSQL As String) As Long
--------------------------------------------------------------
Public RS As ADODB.Recordset
　　　　With RS
Private cnn As ADODB.Connection
　　　　　　　　cnn.Close
Skkdb.DBName = Ckdbname '某存储数据库PASS和数据库名的变量
Tesql = "UPDATE ......" '在此写入SQL语句
ReDim teseidata(1 To Skkdb.RS.RecordCount, 1 To 8) As Variant
　　　　If RS.State <> 0 Then
End Sub
i = 1 Do Until Skkdb.RS.EOF = True teseidata(i, 1) = Skkdb.RS.Fields("A") '将查询成果写入某个数组 teseidata(i, 2) = Skkdb.RS.Fields("B") teseidata(i, 3) = Skkdb.RS.Fields("C") teseidata(i, 4) = Skkdb.RS.Fields("D") teseidata(i, 5) = Skkdb.RS.Fields("E") teseidata(i, 6) = Skkdb.RS.Fields("F") teseidata(i, 7) = Skkdb.RS.Fields("G") teseidata(i, 8) = Skkdb.RS.Fields("H") Skkdb.RS.MoveNext i = i + 1 Loop
Skkdb.CloseCnn
更改数据库数据的例子:
ACCESS+ADO+EXCEL 通用类模块倾情贡献！！
　　　　If cnn.State = 0 Then
　　　　Set cnn = New ADODB.Connection
Tesdb.RunCMD Tesql Tesdb.CloseCnn
　　　　End If
Dim Skkdb As New AccessDB Dim Teseisql As String
Dim Tesdb As New AccessDB 'AccessDB是类模块的名字 Dim Tesql As String
RunCMD = lngAffected
Sub miteisei()
Public Sub CloseCnn()
在论坛上得到了良多辅助，现回赠大家雪藏已久的精品。
If Skkdb.RS.RecordCount = 0 Or Skkdb.RS.RecordCount = -1 Then Skkdb.CloseCnn '假如查不到记载则退出 Exit Sub Else
End Sub
　　　　Call ConnDB
赠予所有的想使用ACCESS+ADO+EXCEL实现小型数据库制造的喜好者一个十分好用的ACCESS数据库衔接以及查询/增加/修正/删除都可以应用的VBA类模块。我做的所有ACCESS+ADO+EXCEL程序全体用它可以解决！（也能够用来建ACCESS表）
　　　　Set cnn = Nothing
End Sub
　　　　　　　　 .Open Source:=strQryName, _ ActiveConnection:=cnn, _ CursorType:=adOpenStatic, _ LockType:=adLockReadOnly
Sub teiseizumi()
　　　　End If
Tesdb.DBName = "C:\CHECKER.mdb" '指明数据库门路跟完全数据库名
　　　　Set RS = New ADODB.Recordset
　　　　cnn.Execute CommandText:=strSQL, _ RecordsAffected:=lngAffected
Private Sub ConnDB()
再献上一个查询的例子(恐怕这个用得多些).
　　　　　　　　RS.Close
　　　　Set RS = Nothing
　　　　　　　　cnn.Open DBName
Option Explicit