add a colmn to an existing table using ADO

[dave]

I need to add a column to a table using code.

The following works, but only for a new table. How should I change this to
alter an existing table?
Dim strConn
Dim Catalog As New ADOX.Catalog
Dim Table As ADOX.Table

Set Catalog = New ADOX.Catalog

strConn = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\Data. mde"
Catalog.ActiveC onnection = strConn

Set Table = New ADOX.Table
Table.Name = "tblExistingTab le"
Table.Columns.A ppend "NewColumn" , adBoolean
Catalog.Tables. Append Table

[Leon]

U¿ytkownik "da**@strategic delivery.co.nz" <st************ ***@ihug.co.nz>
napisa³ w wiadomo¶ci

I need to add a column to a table using code.

Hi!

Private Sub OnButton_Click( )
Dim sql As String
sql = "ALTER TABLE MyTable ADD MyField Text NULL"
DoCmd.RunSQL sql
End Sub

I'm sure you don't need more code ;)

Regards, Leon!

[Leon]

U¿ytkownik "Leon" <et**@op.pl> napisa³ w wiadomo¶ci
news:bu******** **@news.onet.pl ...

U¿ytkownik "da**@strategic delivery.co.nz" <st************ ***@ihug.co.nz>
napisa³ w wiadomo¶ci

I need to add a column to a table using code.

Hi!

Private Sub OnButton_Click( )
Dim sql As String
sql = "ALTER TABLE MyTable ADD MyField Text NULL"
DoCmd.RunSQL sql
End Sub

Soooorrryyyyy ;) ADO correction ;)

Private Sub OnButton_Click( )
Dim sql As String
sql = "ALTER TABLE MyTable ADD MyField Text NULL"
CurrentProject. Connection.Exec ute sql
End Sub

My mistake ;)

[dave]

Leon

Thanks for that - it works perfectly for a local database

How would I use it to connect to

strConn = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\Data. mde"

Dave
"Leon" <et**@op.pl> wrote in message news:bu******** **@news.onet.pl ...

U¿ytkownik "Leon" <et**@op.pl> napisa³ w wiadomo¶ci
news:bu******** **@news.onet.pl ...

U¿ytkownik "da**@strategic delivery.co.nz" <st************ ***@ihug.co.nz>
napisa³ w wiadomo¶ci

I need to add a column to a table using code.

Hi!

Private Sub OnButton_Click( )
Dim sql As String
sql = "ALTER TABLE MyTable ADD MyField Text NULL"
DoCmd.RunSQL sql
End Sub

Soooorrryyyyy ;) ADO correction ;)

Private Sub OnButton_Click( )
Dim sql As String
sql = "ALTER TABLE MyTable ADD MyField Text NULL"
CurrentProject. Connection.Exec ute sql
End Sub

My mistake ;)

[Leon]

Sorry I have some problems with posting :/

Here is general case:

Private Sub OnButton_Click( )
Dim cnn as ADODB.Connectio n
Dim sql As String
Dim strConn As String

strConn = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\Data. mde"
Set cnn = New ADODB.Connectio n

cnn.Open strConn, USERID, PASSWORD

sql = "ALTER TABLE MyTable ADD MyField Text NULL"
cnn.Execute sql

End Sub

Regards, Leon!