agregar campo en tabla en runtime

hola chikos, q tal, tengo un problemita, como puedo hacer para q en un programa en tiempo de ejecucion pueda agregar un campo a una tabla?

espero y me pudieran ayudar, gracias

Hola, te pongo dos formas de hacerlo:

a) mediante una consulta

Código:

---

Dim sql As String
 sql = "ALTER TABLE [Tabla1] ADD COLUMN [NuevoCampo] VARCHAR(20) "
 cn.Execute sql, , adCmdText

---

"cn" es la conexion ADO a la base de datos.

b) con DAO

Código:

---

Dim db As Database
 Dim Fd As Field
 Dim Td As TableDef
 
 Set db = OpenDatabase(App.Path & "\BaseDatos")
 Set Td = db.TableDefs("Tabla1")
 Set Fd = Td.CreateField("NuevoCampo", dbText, 20)
 Td.Fields.Append Fd
 db.Close

---

En ambos casos añadimos a "Tabla1" un nuevo campo llamado "NuevoCampo" de tipo Text y un tamaño de 20 car.

Saludos