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:
974		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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