Insertar registros desde Visual Basic

13/08/2012 - 13:05 por Toni | Informe spam
Buenos dias,

Intento insertar un registro en una tabla de Acces 2007 desde Visual Basic 6.3, con la siguiente instrucción, pero me da un error '424', requeriendo un objeto.

Dim sSQL As String
Dim bRevMant As Byte

sSQL = "(INSERT INTO Index (IdActivitat,NomActivitat,DataFoliExpedient,IdTipusPermis)VALUES ("
sSQL = sSQL & IdActivitat & ", "
sSQL = sSQL & NomActivitat & ", "
sSQL = sSQL & Forms![Manteniment01]![DataManteniment01] & ", "

If MarcReviAct = 0 Then
bRevMant = 40
Else
bRevMant = 46
End If

sSQL = sSQL & bRevMant & ") "

dbcon.Execute sSQL

El error debe estar en la última línea, he copiado el còdigo de webs que pueden hacer referència a otras versiones de Acces o de VB. Qué opinas?

Gràcias de antemano.
Toni
 

Leer las respuestas

#1 Toni
13/08/2012 - 13:50 | Informe spam
he leido alguna cosa sobre la necesidad de estar conectado a la base de datos, o a la tabla, no lo entendí bien. En todo caso, explicito que estoy utilizando una aplicación vinculada a una base de datos.

Muchas gracias.
Toni


On Monday, August 13, 2012 1:05:57 PM UTC+2, Toni wrote:
Buenos dias,



Intento insertar un registro en una tabla de Acces 2007 desde Visual Basic 6.3, con la siguiente instrucción, pero me da un error '424', requeriendo un objeto.



Dim sSQL As String

Dim bRevMant As Byte



sSQL = "(INSERT INTO Index (IdActivitat,NomActivitat,DataFoliExpedient,IdTipusPermis)VALUES ("

sSQL = sSQL & IdActivitat & ", "

sSQL = sSQL & NomActivitat & ", "

sSQL = sSQL & Forms![Manteniment01]![DataManteniment01] & ", "



If MarcReviAct = 0 Then

bRevMant = 40

Else

bRevMant = 46

End If



sSQL = sSQL & bRevMant & ") "



dbcon.Execute sSQL



El error debe estar en la última línea, he copiado el còdigo de webs que pueden hacer referència a otras versiones de Acces o de VB. Qué opinas?



Gràcias de antemano.

Toni

Preguntas similares