Does anyone know what will replicate this piece of DAO code in ADO? I think I'm looking for the ADO equivalent of TableDef basically....

Dim db As Database
Dim tdf As DAO.TableDef

Set db = CurrentDb
Set tdf = db.TableDefs("TableName")

tdf.Fields(0).Name = "NewFieldName"

Try something along these lines:

Dim cat as ADOX.Catalog
Dim tbl as ADOX.Table

Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
On Error Resume Next

Set tbl = New ADOX.Table
tbl.Name = "TableName"

tbl.Columns.Append "NewFieldName", <fieldtype>, <fieldlength>
tbl.Columns.Append "NewFieldName2", <fieldtype>, <fieldlength>
 < ... etc >

cat.Tables.Append tbl
cat.Tables.Refresh

cat.ActiveConnection = Nothing
Set tbl = Nothing
Set cat = Nothing
------------------------------------------------------------------------------
That's what I got from my WROX book - however I'm having some weird problems with the cat.Tables.Append line. Unfortunately for me, all of the examples I've seen online (I just spent about an hour Googling for this stuff) all have the same syntax as I showed above.

Good luck!

Please, if anybody can help with the following:
Need to be basically replace TableDef property... I have a table, where I need to read Columns names. Anybody? not DAO but ADO...

Always start a new thread if you don't own it are is not related in any way.

Did you try google?? because looping through the fields collection of the recorset is the way to do it (and extracting the name property of it).

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

Googling did not help.... I need to be able to read columns/fields from existing table, not just to read .adoSchema, but Names of colulmns

And looping through the output recordset is not good because???

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

this basically without details is a code from DAO
Dim db As Database
Dim tdf As DAO.TableDef

Set db = CurrentDb
Set tdf = db.TableDefs("TableName")

tdf.Fields(0).Name = "NewFieldName"

URGENTLY NEED an equivalent for the same using ADO though

Ado has a catalog, and a catalog has tables.
You can loop that collection to get your info.

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

tried, somehow did not work.... sample of code, pls?

Help us help you..
Maybe showing your code we can see what is wrong?

That's a way to do it. Also I think that MSDN has some sample codes to do that.

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========