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

Ansicht des Beitrags:
Von:
Mase		 Datum:
08.01.2021 11:29:49		 Views:
546		 Rating:
     
Antwort:
  Ja
Thema:
ADODB.Connection gibt Laufzeitfehler

Hi,

 

teste mal:

Option Explicit

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 iCol = 0 To rs.Fields.Count - 1
        Worksheets("verfügbare_Aufträge").Cells(start_row, start_col + iCol).Value = _
        rs.Fields(iCol).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

 

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
08.01.2021 11:25:42 ChillSheep
NotSolved
Blau ADODB.Connection gibt Laufzeitfehler
 08.01.2021 11:29:49 Mase
NotSolved
08.01.2021 11:48:18 ChillSheep
Solved