同樣的資料庫連接方式，只是資料庫大小不一樣
連接大的data.mdb資料庫時點擊表單上查詢按鈕只會閃一下{我已經將data.mdb資料庫洗掉大部分記錄并壓縮過了，現在只有256kb還是除錯不出來}
連接小的會有相應的值出來并提示成功
不知道貓膩在哪里，哪路神仙指教一下呢？
Sub 查詢方法1()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sq1 As String
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb" '& ";Jet OLEDB:Database Password=" & "papaya"
'cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\mydb.mdb" '& ";Jet OLEDB:Database Password=" & "123"
sq1 = "Select * from 主流程 where 批號='" & [D5] & "'"
With rst
.Open sq1, cnn, adOpenKeyset, adLockOptimistic
If rst.RecordCount < 1 Then
MsgBox "找不到該記錄"
Exit Sub
End If
[D7] = .Fields("型號")
'[D9] = .Fields("批號")
'[D11] = .Fields("日期")
'[D13] = .Fields("時間")
'[D15] = .Fields("片數")
[D17] = .Fields("工程")
[D19] = .Fields("步驟")
' [D21] = .Fields("級別")
' [D23] = .Fields("操作人")
' [D25] = .Fields("標記")
' [D27] = .Fields("備注")
' [D29] = .Fields("建檔日期")
' [D31] = .Fields("建檔路徑")
' [D33] = .Fields("暫圖示記")
'[D35] = .Fields("F_OX時間")
End With
MsgBox "查找成功"
cnn.Close
Set cnn = Nothing
End Sub
uj5u.com熱心網友回復：
有沒有參考？轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/151013.html