Foros Club Delphi - Ayuda con consulta y eliminacion en SQL en VB 6.0

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Ayuda con consulta y eliminacion en SQL en VB 6.0 (https://www.clubdelphi.com/foros/showthread.php?t=83434)

Ayuda con consulta y eliminacion en SQL en VB 6.0

Hola

Tengo un problema al realizar una consulta en SQL mediante el siguiente codigo en Visual Basic 6.0:

Código:

Código:

Private Sub Command1_Click()



oper.codigo_operario = codigo.Text

oper.dni = dni.Text

oper.fecha_ingreso = fecha.Text

oper.nombre = nombre.Text

oper.telefono = telefono.Text



cnn.Execute "UPDATE Operario set APELLIDO_NOMBRES = '" & oper.nombre & _

"', DNI = '" & oper.dni & _

"', TELEFONO = '" & oper.telefono & _

"' where CODIGO_OPERARIO = " & oper.codigo_operario & ""

End Sub

en donde cnn y rs estan definidas como

Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset

Me salta un Error de "Pocos Parametros. Se esperaba 2". He intentado agregarle los campos que me falta en la consulta (fecha_ingreso, codigo_operario, etc que en mi opinion no los considero necesario). Pero me salta peor que se esperaban 3 y 4 parametros respectivamente.
Lo mismo con el comando para eliminar:

Código:

Código:

Private Sub Command1_Click()



cnn.Execute "delete from Operario where CODIGO_OPERARIO = " & codigo.Text & ""

rs.Requery 1



End Sub

Creo que algo esta mal escrito en la consulta y en la eliminacion pero nose que es.

Hola nefore.

Mentiría si aseguro que ningún miembro de Club Delphi conoce sobre Visual Basic, pero mi consejo es que hagas esta pregunta en un foro dedicado a Visual Basic. Donde sin dudas conseguirás mejores respuestas de los expertos en ese lenguaje.

Saludos. :)

No tengo ni idea de VB, pero creo que el problema esta en las comillas dobles o simples, en vez de ejecutar la SQL mira haber con ShowMessage o algo parecido haber que SQL le estas pasando.

Un saludo.