0
Access 보류중인 작업을 다시 검색하고 상태와 함께 나열하기 위해 Access DB와 연결된 Excel Userform을 만들었습니다. 이 엑셀 파일은 문제없이 6 명의 분석가가 실행하지만 런타임 오류 429를 수신했습니다. activeX 구성 요소가 객체를 만들 수 없습니다.ADODB.Connection 개체를 만들 때 오류 429가 발생했습니다.
오류가 발생한 사용자는 x86 윈도우 만 사용하고 있습니다. 나는 또한 액세스 데이터베이스 엔진 여전히 코드에 따라
오는 오류를 설치하려고
나는 MS ActiveX 데이터의 모든 버전을 시도했습니다는 unsuccessfull XL에 참조에 XX의 개체 라이브러리 :
Public Const conStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\SAO229DT91264\Planej_dev\Planilhao.accdb;Persist Security Info=False;"
Public CN As ADODB.Connection
Public RS As ADODB.Recordset
_______________________________________________________________
Function importDB(ByVal filter As String)
Dim line As Long
Dim col As Long
Dim tim As Date
Dim user As String
Dim query As String
query = "Select Code, indice, flNO, dtStart, dtEnd, Pattern, orig, std, sta, dest, mkt, resp, order, motiv, status, action, obs, dtMsg, numMsg, dtVigencia, daysOps, dtAdd, dtChg from Alterations"
tim = Now()
user = CStr(Application.UserName)
Set CN = New ADODB.Connection 'The code stops here With the runtime error
Set RS = New ADODB.Recordset
WS.Unprotect
line = WS.Cells(Rows.Count, 1).End(xlUp).Row
If linha > 2 Then WS.Range(WS.Cells(3, 1), WS.Cells(linha, 23)).ClearContents
CN.Open conStr
RS.Open query & " " & filter & " order by code asc;", CN
line = 2
Do While Not RS.EOF
line = line + 1
For col = 1 To RS.Fields.Count
If col = 4 Or col = 5 Then
WS.Cells(line, col).NumberFormat = "@"
WS.Cells(line, col) = CStr(Format(RS.Fields(col - 1).Value, "dd/MMM/YYYY"))
Else
WS.Cells(line, col) = RS.Fields(col - 1).Value
End If
Next col
RS.MoveNext
Loop
CN.Close
WS.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Function
무엇을 의미합니까 "오류가 발생한 사용자는 x86 창만 사용합니다" 32 비트를 의미합니까, 아니면 다른 사람들이 Wine이나 MAC을 사용합니까? –
다른 모든 사용자는 64 비트 창을 사용하고 있습니다. –