I need someone to help me with VB6 codes to add new columns to already created Access database table at run time.

Secondly, i needed to create a duty rota table that keeps track of staff duties for 365 days. I am a bit confuse as i intended placing the fields (Columns) as the days and the names (rows) to be name of staff but i just noticed that the fields in Access has a limit to the number it can hold per table.

7 Years
Discussion Span
Last Post by michael magwila

For the first part you need to look up an alter table statement for the second part...

iSDID 'unique ID auto number
iStaffID 'foreign key to staff name table
iDutyID 'foreign key to descriptions of duties table
dDate 'date of duty

Good Luck


your database is more important
if u use sql you can use sql lang
if u use access you must use adox
u can find it on preferences with name Microsoft ADO ext. 2.8 for DDL and Security

Dim Cat     As New ADOX.Catalog
Dim COL     As New Column

Screen.MousePointer = vbHourglass

Cat.ActiveConnection = Cnn.ConnectionString 'Cnn String

With Cat.Tables("Task") 'The Table Name
        Set COL = New Column
        COL.Attributes = adColFixed
        COL.Name = "fldTaskLength"
        COL.Type = adInteger
        .Columns.Append COL
End With

Set COL = Nothing
Set Cat = Nothing

HI guys
iam michael from Tanzania , Iam an IT student (2ndyear),I still dont know to write codes in vb6.0.please guys help me.

This article has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.