這段時間碰到一個奇怪的問題，ADODB連接資料庫（SQL）,執行查詢都沒問題，但想執行存盤行程。
Set AdoCon = CreateObject("ADODB.Connection")
Set errLoop = CreateObject("ADODB.Error")
'Connect to database
On Error GoTo DatabaseError
AdoCon.ConnectionString = dsnSQLStr
AdoCon.Open
Set AdoCmd = CreateObject("ADODB.Command")
AdoCmd.ActiveConnection = AdoCon
strSQL = "{Call " & GET_PAGE_SP_NAME & "( " & page_number & ", " & VISIBLE_ROWS & ") }"
Set AdoCmd = CreateObject("ADODB.Command")
AdoCmd.ActiveConnection = AdoCon
AdoCmd.CommandText = strSQL
AdoCmd.CommandType = adoCmdStoredProc
陳述句執行到 AdoCmd.ActiveConnection = AdoCon就報 sql state:01000,Native Error:5701
錯誤，有哪位高手碰到
uj5u.com熱心網友回復：
錯誤詳細資訊是啥？只有個錯誤代碼？uj5u.com熱心網友回復：
Option ExplicitDim AdoCon As Object
Dim AdoCmd As Object
Dim errLoop As Object
Dim dsnSQLStr As String
Private Sub Form_Load()
Set AdoCon = CreateObject("ADODB.Connection")
Set errLoop = CreateObject("ADODB.Error")
'Connect to database
dsnSQLStr = "DBQ=D:\管理專案3\練習資料庫1.mdb;DefaultDir=D:\管理專案3;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=C:\Users\Administrator\Documents\a.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
AdoCon.ConnectionString = dsnSQLStr
AdoCon.Open
Set AdoCmd = CreateObject("ADODB.Command")
AdoCmd.ActiveConnection = AdoCon
End Sub
沒問題呀
你的錯誤處理程式干擾了把
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40411.html
標籤：VB基礎類
下一篇：請教各位大俠，有一個問題困擾很久