How to read TableDefs in ADO

[Guest]

Hi all,

In DAO, I could get all table information by using "for each e in
currentdb.tabledefs". How can I do similar thing in ADO?

Thanks in advance!

KS

 

[Tim Williams]

Try searching on ADOX

Tim

 

[Bob Phillips]

Sub GetTables()
Dim oConn As Object
Const sFilename As String = "C:\myTest\18.xls"
Dim oCat As Object
Dim tbl As Object
Dim iRow As Long
Dim sConnString As String

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sFilename & ";" & _
"Extended Properties=Excel 8.0;"

Set oConn = CreateObject("ADODB.Connection")
oConn.Open sConnString
Set oCat = CreateObject("ADOX.Catalog")
Set oCat.ActiveConnection = oConn

iRow = 1
For Each tbl In oCat.Tables
Next tbl

oConn.Close
Set oCat = Nothing

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

I got it! Thank you very much!

Sub GetTables()
Dim oConn As Object
Const sFilename As String = "C:\myTest\18.xls"
Dim oCat As Object
Dim tbl As Object
Dim iRow As Long
Dim sConnString As String

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sFilename & ";" & _
"Extended Properties=Excel 8.0;"

Set oConn = CreateObject("ADODB.Connection")
oConn.Open sConnString
Set oCat = CreateObject("ADOX.Catalog")
Set oCat.ActiveConnection = oConn

iRow = 1
For Each tbl In oCat.Tables
Next tbl

oConn.Close
Set oCat = Nothing

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)