Crear un campo de una base de datos access con sql
Publicado por tono (34 intervenciones) el 05/02/2007 17:13:51
Hola a todos !!! Estoy intentando modificar una base de datos ya existente que tengo en access de la forma que después de que el usuario rellene varios TextBox, se modifique la base de datos, añadiéndose los campos de TextBox como nuevos "campos" de la base de datos access, es decir, que el usuario va a introducir en el TextBox los nuevos campos a introducir en la base de datos.
El problema es que no consigo recoger el contenido de un TextBox e introducirlo en la base de datos. Lo estoy haciendo a través del lenguaje de consulta sql, con el siguiente código:
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim SQL As String
campox5 = Text2(0).Text
' Creo la cadena SQL
SQL = "ALTER TABLE Probando ADD COLUMN Text2(0) VARCHAR (30)"
' 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=C:\Documents and Settings\josé david vela cast\Escritorio\Gerencia Urbanismo\Gestor de fichas\bd.mdb"
' Abro la conexión
.Open
' Ejecuto la consulta de creación de tabla
.Execute SQL, , adCmdText
' Cierro la conexión
.Close
End With
Sé que el problema está en la setencia sql="alter ...... Text2(0)" ya que así no reconoce el contenido que ha introducido el usuario.
He intentado ponerlo en una variable de la forma:
variable=Text2(0)
y por tanto sql="alter ...... variable"
pero tampoco funciona.
¿Alguna ayuda? Gracias de antemano, tono.
El problema es que no consigo recoger el contenido de un TextBox e introducirlo en la base de datos. Lo estoy haciendo a través del lenguaje de consulta sql, con el siguiente código:
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim SQL As String
campox5 = Text2(0).Text
' Creo la cadena SQL
SQL = "ALTER TABLE Probando ADD COLUMN Text2(0) VARCHAR (30)"
' 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=C:\Documents and Settings\josé david vela cast\Escritorio\Gerencia Urbanismo\Gestor de fichas\bd.mdb"
' Abro la conexión
.Open
' Ejecuto la consulta de creación de tabla
.Execute SQL, , adCmdText
' Cierro la conexión
.Close
End With
Sé que el problema está en la setencia sql="alter ...... Text2(0)" ya que así no reconoce el contenido que ha introducido el usuario.
He intentado ponerlo en una variable de la forma:
variable=Text2(0)
y por tanto sql="alter ...... variable"
pero tampoco funciona.
¿Alguna ayuda? Gracias de antemano, tono.
Valora esta pregunta


0