Private Sub TitleCom_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim total As Integer
conn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\總表.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM 表1"
total = rs.RecordCount
rs.MoveFirst
QuesLab.Caption = rs.Fields(1)
AnswLab.Caption = rs.Fields(5)
TotalLab.Caption = total
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
uj5u.com熱心網友回復：
代碼除錯發現直接退出的原因可能是有些代碼指向的空間并不存在。以下代碼測驗通過，VB6.0，Windows 8.1（64位）
Private Sub Command13_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim total As Integer
Dim sql
'conn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\總表.accdb"
sql = "select * from guzhang_sj" ' where madanhao='1'"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
conn.Open
Set rs.ActiveConnection = conn
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
'rs.Open "SELECT * FROM 表1"
total = rs.RecordCount
rs.MoveFirst
Text2 = total
QuesLab.Caption = rs.Fields(1)
AnswLab.Caption = rs.Fields(2)
' TotalLab.Caption = total
rs.Close
conn.Close
Set rs = Nothing
End Sub
uj5u.com熱心網友回復：
代碼除錯發現直接退出的原因可能是有些代碼指向的控制元件并不存在。uj5u.com熱心網友回復：
在64位Windows下：64位exe和dll在目錄c:\windows\system32目錄下；
32位exe和dll在目錄c:\windows\syswow64目錄下；
所以要注意：
在win64位系統下注冊32位ocx或dll需要將32位ocx或dll拷貝到c:\windows\syswow64\目錄下。
且注冊要用c:\windows\syswow64\regsvr32 xxxxxxx.ocx或dll
在win64位系統下設定32位程式使用的資料庫別名要用c:\windows\syswow64\cliconfg.exe
在win64位系統下設定32位程式使用的系統DSN要用c:\windows\syswow64\odbcad32.exe
uj5u.com熱心網友回復：
直接退出是因為你沒有做錯誤處理！錯誤原因是你沒有安裝Microsoft Access 2010 資料庫引擎可再發行程式包，或者Access是64位的。
uj5u.com熱心網友回復：
conn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\總表.accdb"修改為：
conn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\總表.accdb;Jet OLEDB:Database Password=;"
測驗沒有問題的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/62427.html
上一篇：Either BOF or EOF is True, or the current record has been deleted.問題求助