March 10th, 2005, 12:40 AM
|
|
Moderator: Access, SQL
|
|
Join Date: Oct 2003
Posts: 5,126
Time spent in forums: 4 Days 1 h 2 m 51 sec
Reputation Power: 13
|
|
Code:
Dim sStr As String
Dim adoCN As New ADODB.Connection
adoCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile & ";Persist Security Info=False"
adoCN.Open
sStr = "ALTER TABLE TableName" & _
"Drop Column ColumnName"
adoCN.Execute sStr
sStr = "ALTER TABLE TableName" & _
"Add Column ColumnName DataType"
adoCN.Execute sStr
S-
__________________
If you have found a particular post helpful, show your appreciation by adding reputation points to that user by clicking the "scales" image in the upper right had corner of their post.
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
