|
Hola amigo, disculpa tengo una duda. Cómo hago para crear un campo en una tabla de una base de datos desde otra. Estoy intentando con esta instrucción pero no me funciona:
Sé que tengo algún error, cual encuentras? sabes alguna otra instrucción más apropiada?
Dim cnn As ADODB.Connection
Dim SQL As String
' Creo la cadena SQL
SQL = "ALTER TABLE Tbla " _
& "ADD COLUMN descripcion TEXT(50)"
' Creo un objeto Connection
Set cnn = New ADODB.Connection
' Establezco la cadena de conexión
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & RutaArchivo & "/Prueba.mdb;pwd=hello"
' Abro la conexión
.Open
' Ejecuto la consulta de creación de tabla
.Execute SQL, , adCmdText
' Cierro la conexión
.Close
End With
GRACIAS POR TU TIEMPO
|
