Hente data over i Excel via ODBC

Sæt DSN'en op hvis du ikke allerede har gjort det
- Start -> Settings -> Control Panel
- Administrative Tools -> Data Sources (ODBC)
- System DSN -> Add
- Vælg MySQL driver og klik på Finish
- Nu skal du konfigurere MySQL driveren.
- Windows DNS name = MyDNSConn
- MySQL Host = den computer som MySQL ligger på (lokalt = 127.0.0.1/localhost)

Nu kan du connecte til databasen med flg. kode

    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strSQL As String
   
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
   
    objConn.Open "MyDNSConn"
   
    strSQL = "SELECT * FROM Tabel"
    objRs.Open strSQL, objConn
   
    While Not objRs.EOF
        'Din kode...
    Wend
   
    objRs.Close
    objConn.Close

får en fejl ved Dim objConn As ADODB.Connection
"Compiler error: User-defined type not defined"

Start VBEditor -> Tools -> References...
Find og sæt flueben ved Microsoft ActiveX Data Object 2.x Library

"name conflict with existing module, project or project libary"
den fejl får jeg...ved ikke hvad der er galt..sikkert mig der er små kvadret så jeg smutter i seng og så må jeg kigge videre på det imorgen....

håber på at du kan hjælpe mig igennem senere når jeg er knap så smadret i bøtten;)

Det kan jeg da :)

så er jeg tilbage på min pind..men jeg får stadigvæk ovenstående fejl når jeg prøver at tilføje alle de der ting...

Du har to objekter med samme navn. Prøv at omdøbe dem.

den smider fint 2.2 - 2.3 - 2.4 ind men 2.1 - 2.5 - 2.6 - 2.7 vil den ikke installere uden fejlen "name conflict with existing module, project or project libary"

ehm hvordan, har lige installeret office og startet excel..

Vælger du flere af de samme referencer?

Hvis det virker med 2.4 så vælg den...

jeg vælger alle Microsoft ActiveX Data Object 2.* Library...

jeg får en runtime error nu når jeg prøver at køre ovenstående..

Du skal kun sætte flueben ved én af referecerne. Da jeg skrev 2.x mente jeg den seneste version af ActiveX Data Object. :)

Hvor i koden får du fejlen? Og hvad siger fejl-meddelelsen?

Automation error
Uspecifiseret fejl
og hvor den kommer kan jeg ikke lige se...

Hvordan ser din kode ud?

Private Sub Workbook_Open()
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strSQL As String
   
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
   
    objConn.Open "MyDNSConn"
   
    strSQL = "SELECT * FROM Tabel"
    objRs.Open strSQL, objConn
   
    While Not objRs.EOF
        'Din kode...
    Wend
   
    objRs.Close
    objConn.Close
End Sub

Jeg kan ikke lige se hvad der er galt i ovenstående kode. Kan du finde ud af hvor fejlen opstår ved at debugge din kode?

hvordan tænker du på..?
jeg kender ikke ret meget til VBA...

Hovsa... Har du en tabel med navnet Tabel i din database?

  strSQL = "SELECT * FROM Tabel"
                            ^

så den også selv, har ændre til den rigtige tabel, men stadigvæk fejl.

Prøv med

...
    While Not objRs.EOF
        Debug.Print objRs(0)
        objRs.MoveNext
    Wend
...

får stadigvæk en fejl..den når åbenbart ikke så langt ned...

Hmm...

Prøv at lege lidt med det selv...

ehm..hvordan ?
som sagt helt på blank bund med VBA

*slå sig selv* jeg havde glemt at ændre dns tingen så den passede..

OK... Virker det nu?

så skal jeg bare have fundet ud af hvordan jeg får smidt resultatet ud i celler

ja det virker :)

smider du et svar så du kan få point...forresten du skulle ikke vide hvordan man gemmer i databasen via ODBC ?

har fået hentning til at virke :)

Her har du mit svar :)

Hvad tænker du på når du skriver gemme databasen via ODBC?

indsættelse i en tabel fra nogle angivede celler

f.eks. a1 - a4

Jeg er ikke med. Kan du ikke skære det ud i pap :)

jo når jeg kommer tilbage på min pind i eftermiddag :)

OK :D

okay, lettere forsinket er jeg tilbage:)

det jeg mener er at hvordan indsætter man indholdet fra nogle celler excell i en tabel i databasen.

et eksempel kan være at jeg ønsker at indsætte indholdet af A1 i en tabel

ved ikke om du kan følge mig ?

Den nemmeste måde, at gemme indholdet af cellen A1 i en tabel, er ved at bruge INSERT ( http://www.w3schools.com/sql/sql_insert.asp )

    strSQL = "INSERT INTO Tabel (Felt1) VALUES ('" & Range("A1") & "')"
    objRs.Open strSQL, objConn

kender godt til insert, skulle bare lige vide hvordan jeg fik fat i det enkelte felt:)
jeg prøver lige og så vender jeg tilbage, sig endlig til hvis du vil have flere point for din store hjælp.

Nej tak, jeg skal ikke have flere point. Du kan gemme pointene til en anden gang :)

mange tak, hmm okay jeg troede jeg havde fået bikset noget sammen som virkede med select, det har jeg så lige fundet ud af at det gør det ikke ordentligt...
den hiver kun første række i tabellen...

min funktion ser sådan ud:

Private Sub Workbook_Open()
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strSQL As String
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
    Dim Ws As Object
    Dim i As Integer
    Set Ws = Sheets("Ark1")
    objConn.Open "Mysql"
    'slet nuværende indhold
    Ws.Activate
    Range("A1").Activate
    Selection.CurrentRegion.Select
    Selection.ClearContents
    Range("A1").Select
   
   
    strSQL = "SELECT * FROM test"
    objRs.Open strSQL, objConn
    For i = 0 To objRs.Fields.Count - 1
      Ws.Cells(1, i + 1).Value = objRs.Fields(i).Name
    Next i
   
    'Ws.Range(Ws.Cells(1, 1), Ws.Cells(1, objRs.Fields.Count)).Font.Bold = True
    'Ws.Range("A2").CopyFromRecordset objRs
    'Formater resultat
    'Sheets("Ark1").Select
    'Range("A1").Select
    'Selection.CurrentRegion.Select
    'Selection.Columns.AutoFit
    'Range("A1").Select

       
    objRs.Close
    objConn.Close
End Sub

eller hmm..har fundet ud af den del nu, hvordan slipper jeg af med at den udskriver titlen på cellen?

Prøv at udskifte denne blok kode

    For i = 0 To objRs.Fields.Count - 1
      Ws.Cells(1, i + 1).Value = objRs.Fields(i).Name
    Next i
   
med

    While Not objRs.EOF
        Ws.Cells(1, i + 1) = objRs(0)
        objRs.MoveNext
    Wend

hmm er fikset hjalp at sætte den til at starte ved 1 istedet for 0.

sikker på at du ikke vil have nogle point ?

den der bliver bare ved med at overskrive indholdet i cellen...den hopper ikke videre...

Der er en bug i koden :)

    While Not objRs.EOF
        Ws.Cells(1, i + 1) = objRs(0)
        i = i + 1
        objRs.MoveNext
    Wend

Og nej tak. Gem pointene til en anden gang.

jamen så siger jeg mange tak, det virker som det skal nu :)

:)