暗黑

類別
clsADODBopenAcs

Option Explicit


Dim theCON As ADODB.Connection
Public theRST As ADODB.Recordset

Sub subConn(strFullName As String)
Dim strDrv As String

    strDrv = "Data Source=" & strFullName & ";"
    theCON.Open "rovider=Microsoft.Jet.OLEDB.4.0;" & strDrv & "Jet OLEDBatabase Password=zxcvbnm,./;"
   
   
   
    '其密碼參數如何設定
'theCON.Open "rovider=Microsoft.Jet.OLEDB.4.0;" & strDrv & "Jet OLEDBatabase Password=yourpassword;"
   
End Sub

Sub subOpen(strCMn As String)
    theRST.Open Source:=strCMn, ActiveConnection:=theCON, _
                CursorType:=adOpenStatic, LockType:=adLockPessimistic, Options:=adCmdText
End Sub

Private Sub Class_Initialize()
    Set theCON = New ADODB.Connection
    Set theRST = New ADODB.Recordset
End Sub

Private Sub Class_Terminate()
    theCON.Close
    Set theRST = Nothing
    Set theCON = Nothing
End Sub

這是access 的ado 連線類別，結合上一段，就可載出資料

暗黑

另外  這邊板上有個舊資料查詢   那裡是舊論壇 有很多資料  你可以去看看
另  你可以試用  vb2008  下去寫，會比  vb6還好寫的多了

暗黑

再補充一下  連結AccEss 的參數

資料庫路徑 = "Z:\部門\製造中心\品質管理部\QM資料庫\FQCDataBase.mdb"
  mApp = "FQC"
  mApp1 = "檢驗日期,檢驗時間,週別,班別,檢驗人員,工單號碼,廠商名稱,產品編號,品名,規格,RUN卡,大標,內標,小標,Hi-Pot,瓦數,檢驗結果,異常類別,異常位置,異常編碼,不良項目,不良原因,處理方式,備註"


mapp  是 table 的名稱
mapp1  是 table  的欄位名稱(不是欄位數喔)

vpower

請問黑暗大大是把Excel當作VB的資料庫嗎?

再次感謝,看來我真的該加油了,我完全看不懂

我先來去下載VB2008好了,感恩