Thema Datum  Von Nutzer Rating
Antwort
Rot ADODB.Connection gibt Laufzeitfehler
08.01.2021 11:25:42 ChillSheep
NotSolved
08.01.2021 11:29:49 Mase
NotSolved
08.01.2021 11:48:18 ChillSheep
Solved

Ansicht des Beitrags:
Von:
ChillSheep
Datum:
08.01.2021 11:25:42
Views:
67
Rating: Antwort:
  Ja
Thema:
ADODB.Connection gibt Laufzeitfehler

Hallo zusammen,

 

ich versuche mich gerade daran in Excel SQL Codes anzuwenden. Dazu habe ich in Excel-Arbeitsblätter per SQL abfragen und auswerten - saracus consulting

folgenden Code gefunden. Leider gibt mir Excel die Fehlermeldung Laufzeitfehler 404 an.

Die Microsoft ActiveX Data Objects 2.8 Library und die Microsoft ActiveX Data Objects 2.8 Recordset Library habe ich wie in anderen Beiträgen empfohlen aktiviert. Ich verwende MS Excel 365 - ich hoffe die Information ist ausreichend. 

Sub run_sql_in_excel()

    'variable declaration
    Dim cn As Object 'Connection
    Dim rs As Object 'RecordSet
    Dim sql As String
    Dim start_row As Integer: start_row = 1
    Dim start_col As Integer: start_col = 1
    Dim iCol As Integer

'Connect to the Data Source
Set cn = CreateObject(“ADODB.Connection”)
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & _
ThisWorkbook.Name & ";" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
.Open
End With

'write SQL
sql = "Select * from [Aktuelle_Aufträge$]"

'run SQL
Set rs = cn.Execute(sql)

'delete data from previous runs in worksheet "verfügbare_Aufträge"
Worksheets("verfügbare_Aufträge").Cells(start_row, start_col).CurrentRegion.Clear

'insert header row worksheet "verfügbare_Aufträge" (only if HDR=YES)
For iCols = 0 To rs.Fields.Count - 1
Worksheets("verfügbare_Aufträge").Cells(start_row, start_col + iCols).Value = _
rs.Fields(iCols).Name
Next

'paste result of sql to worksheet "verfügbare Aufträge"
Worksheets("verfügbare_Aufträge").Cells(start_row + 1, start_col).CopyFromRecordset rs

'clean up and free memory
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub

Könnten Ihr mir hier weiterhelfen? Vielen Dank und viele Grüße

ChillSheep


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot ADODB.Connection gibt Laufzeitfehler
08.01.2021 11:25:42 ChillSheep
NotSolved
08.01.2021 11:29:49 Mase
NotSolved
08.01.2021 11:48:18 ChillSheep
Solved