Utilizar SQL en VBASIC??

[crancurello]

Tengo un pequeño reporteador en MS Access. El problema es que desde hace algun tiempo no he podido reparar un problema que tengo cuando presiono mi boton de insertar campos en una tabla; mi codigo es el siguiente

Private Sub insertar_Click()
Set rs = New ADODB.Recordset
Set cn = Application.CurrentProject.Connection
rs.Open = "INSERT INTO tempreporte(CÓDIGO, DESCRIPCIÓN, UM,CANTIDAD)VALUES('" & Me.CÓDIGO.Value & "', '" & Me.DESCRIPCIÓN.Value & "' , '" & Me.UM.Value & "' , '" & Me.CANTIDAD.Value & "' , cn, adOpenDynamic"))
End Sub

No se en que estoy mal.. ALGUIEN ME PUEDE AYUDAR?????????

[Insomnia]

Hola

No recuerdo como se realizaban los inserts en VBA, pero en VB, se realiza con la conexión, es decir, en tu ejemplo: cn.execute "INSERT ..."

--Saludos--

[crancurello]

pero si ya utilice eso, no me da resultado.. es critico resolver el problema...

alguien sabe si mis comillas y eso esta bien?

Private Sub insertar_Click()
Set rs = New ADODB.Recordset
Set cn = Application.CurrentProject.Connection
rs.Open = "INSERT INTO tempreporte(CÓDIGO, DESCRIPCIÓN, UM,CANTIDAD)VALUES('" & Me.CÓDIGO.Value & "', '" & Me.DESCRIPCIÓN.Value & "' , '" & Me.UM.Value & "' , '" & Me.CANTIDAD.Value & "' , cn, adOpenDynamic"))
End Sub

[Insomnia]

Hola

He realizado una pequeña prueba, y con el siguiente código me funciona. Si vas a la ayuda del execute, te pone un ejemplo amplio y simplemente con seguir el ejemplo es suficiente. De todas formas te pongo un ejemplo mio mas sencillo y probado (funciona correctamente), solo tienes que adaptarlo a tus necesidades.

Código:

Private Sub Comando0_Click()

Dim cn As New ADODB.Connection
Dim inserta As New ADODB.Command
Dim strInserta As String
Dim rs As New ADODB.Recordset

Set cn = Application.CurrentProject.Connection

strInserta = "INSERT into tabla1( num, nom) values(" & Texto1.Value & ", '" & Texto3.Value & "')"

Set inserta.ActiveConnection = cn
inserta.CommandText = strInserta
rs.Open "tabla1", cn, , , adCmdTable

inserta.Execute
rs.Requery

End Sub

--Saludos--

[crancurello]

Hola de nuevo

he puesto todo tal cual me explicaste que lo hiciera, pero el error sigue en la linea de :

Set cn = Application.CurrentProject.Connection

el error es el 430 y dice que esta clase no permite automatizacion.. no he podido encontrar nada al respecto. este es el código acomodado a mis necesidades:

Private Sub insertar_Click()

Dim cn As New ADODB.Connection
Dim inserta As New ADODB.Command
Dim strInserta As String
Dim rs As New ADODB.Recordset

Set cn = Application.CurrentProject.Connection

strInserta = "INSERT INTO tempreporte(CÓDIGO, DESCRIPCIÓN, UM,CANTIDAD)VALUES('" & Me.CÓDIGO.Value & "', '" & Me.DESCRIPCIÓN.Value & "' , '" & Me.UM.Value & "' , '" & Me.CANTIDAD.Value & "')"
Set inserta.ActiveConnection = cn
inserta.CommandText = strInserta
rs.Open "tempreporte", cn, , , adCmdTable

inserta.Execute
rs.Requery

End Sub


.::Saludos

[Insomnia]

Hola

No se me ocurre cual puede ser el error, si dejas tu email (si prefieres puedes enviármelo por M. Privado) te puedo enviar mi ejemplo para ver si te funciona.

--Saludos--

[jcastrob1980]

como te comentaban las otas personas debes buscarle con el EXECUTE
otra cosa quitale todos los acentos!!!! tanto en la base de datos, como en el codigo vb

[crancurello]

HOLA, MI CORREO ES [email protected]. ojala te pudieras comunicar conmigo para poder solucionar ese problema

[jcastrob1980]

Ya te agregué en mis contactos del messenger