Re: Excel und ADO
11.07.2002 17:35:08
Matthias S.
Hallo Jens,wie gesagt, ADO wirklich zu verstehen und professionell anzuwenden dauert ein bißchen. Nachfolgend ein Beispiel für eine von Excel aus durchgeführte SQL-Query. Der SQL-Code wird in dem String sql angegeben. Probier's mal mit einer eigenen Testdatenbank (mußt dann Source und sql-string verändern).
###########################################################
Sub test()
Dim conn As New connection
Dim rec As New Recordset
Dim ws As Worksheet
Dim sql$, i&
Dim f As Field
Set ws = ThisWorkbook.Worksheets(1)
conn.Open "Provider=microsoft.jet.oledb.4.0; Data Source=H:\Personal\db1.mdb"
sql = "SELECT Name, Age " & "FROM Table1"
MsgBox sql
rec.Open sql, conn
For Each f In rec.Fields
i = i + 1
ws.[a1].Cells(i) = f.Name
ws.[b1].Cells(i) = f.Type
ws.[c1].Cells(i) = TypeName(f.Value)
Next
End Sub
###########################################################
Viele Grüße,
Matthias