Insertar datos en tabla con VBA y SQL
Publicado por Carlos Q (48 intervenciones) el 09/09/2008 21:40:42
Hola
Espero que alguien me pueda ayudar.
Necesito agregar un registro a un tabla(Tabla1) mediante la seguiente funcion:
Public Function Example(strEdificio As String)
Dim BDD As Database
Dim SQL As Variant
Set BDD = OpenDatabase_
_("C:UsersCarlosDocumentsProyectosAccessAdmEdificiosAdmEdificios7.6.mdb")
SQL = "INSERT INTO Tabla1 (Edificio)Values(strEdificio)"
BDD.Execute SQL
End Funtion
Y manda el error 3061 ,Pocos parametros ,se esperaba 1
Al mirar el error paso a paso , el dato lo trae y esta en strEdificio ("Ejemplo") , incluso cuando reviso el valor de Edificio Tabla1(Edificio) ,tambien esta el Dato y lo muestra ("Ejemplo") , pero al pasar a BDD:Execute SQL genera el error.
Espero que alguien me pueda ayudar y agradesco su ayuda de antemano.
Espero que alguien me pueda ayudar.
Necesito agregar un registro a un tabla(Tabla1) mediante la seguiente funcion:
Public Function Example(strEdificio As String)
Dim BDD As Database
Dim SQL As Variant
Set BDD = OpenDatabase_
_("C:UsersCarlosDocumentsProyectosAccessAdmEdificiosAdmEdificios7.6.mdb")
SQL = "INSERT INTO Tabla1 (Edificio)Values(strEdificio)"
BDD.Execute SQL
End Funtion
Y manda el error 3061 ,Pocos parametros ,se esperaba 1
Al mirar el error paso a paso , el dato lo trae y esta en strEdificio ("Ejemplo") , incluso cuando reviso el valor de Edificio Tabla1(Edificio) ,tambien esta el Dato y lo muestra ("Ejemplo") , pero al pasar a BDD:Execute SQL genera el error.
Espero que alguien me pueda ayudar y agradesco su ayuda de antemano.
Valora esta pregunta


0