Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   VB6 y MySQL: error 3709 (http://www.forosdelweb.com/f69/vb6-mysql-error-3709-a-575809/)

Kitty_05 14/04/2008 09:32
VB6 y MySQL: error 3709
 
Hola Buienos dias para todos!!
:policia::policia:
Estoy ejecutando un programa que al llegar a la sentencia SQL manda el error
3709

Me guian que puede estar sucediendo ..

Marca esta linea cuando le doy DEBUG

Set BD = CONECTAR()
Set RecVar = New ADODB.Recordset

RecVar.Open " UPDATE provs SET prov_dscrp='" & DescripcionB(ind).Text & "', prov_cost='" & MontoB(ind).Text & "', prov_totalcost='" & TotMontoB.Text & "', prov_date='" & FechaB.Text & "', prov_status='" & EstadoB.Text & "', prov_creacion='" & CreadoB.Text & "', prov_autorizacion='" & AutorizadoB.Text & "', prov_aprobacion='" & AprobadoB.Text & "', prov_cancelada='" & CanceladoB.Text & "', prov_dir='" & Form1.dir2 & "', prov_dept='" & Form1.dept2 & "', prov_site='" & Form1.site2 & "' , WHERE prov_id ='" & Num_docB.Text & "', BD, adOpenStatic, adLockOptimistic"



:neurotico:neurotico
Gracias

LuZbA 14/04/2008 10:11
Re: VB6 y MySQL: error 3709
 
Cita:
Iniciado por Kitty_05 (Mensaje 2363031)
Hola Buienos dias para todos!!
:policia::policia:
Estoy ejecutando un programa que al llegar a la sentencia SQL manda el error
3709

Me guian que puede estar sucediendo ..

Marca esta linea cuando le doy DEBUG

Set BD = CONECTAR()
Set RecVar = New ADODB.Recordset

RecVar.Open " UPDATE provs SET prov_dscrp='" & DescripcionB(ind).Text & "', prov_cost='" & MontoB(ind).Text & "', prov_totalcost='" & TotMontoB.Text & "', prov_date='" & FechaB.Text & "', prov_status='" & EstadoB.Text & "', prov_creacion='" & CreadoB.Text & "', prov_autorizacion='" & AutorizadoB.Text & "', prov_aprobacion='" & AprobadoB.Text & "', prov_cancelada='" & CanceladoB.Text & "', prov_dir='" & Form1.dir2 & "', prov_dept='" & Form1.dept2 & "', prov_site='" & Form1.site2 & "' , WHERE prov_id ='" & Num_docB.Text & "', BD, adOpenStatic, adLockOptimistic"



:neurotico:neurotico
Gracias
yo tenia un problema similar a mi se me soluciono de la siguiente manera...

en lugar de abrir le di ejecutar por que al accesar a mi aplicacion ya tengo abierta la BD

BD.Execute "INSERT INTO provs (prov_dscrp, prov_cost, prov_totalcost, prov_date, prov_status, etc....... ) VALUES ('" & DescripcionB(ind).Text & "', '" & MontoB(ind).Text & "', '" & TotMontoB.Text & "', '" & FechaB.Text & "', '" & EstadoB.Text & "', etc ................) WHERE etc..."

hay le completas.... la asignacion de valores es respectiva al campo

espero y si te funcione

Kitty_05 14/04/2008 10:21
Re: VB6 y MySQL: error 3709
 
Ok voy a intentarlo solo q en mi caso cada ves que abro la conexion la cierro nuevamente ..

Kitty_05 14/04/2008 10:28
Re: VB6 y MySQL: error 3709
 
Una consulta amor despues de WHERE coloc todo como lo tengo o algo de eso cambia?

Kitty_05 14/04/2008 10:33
Re: VB6 y MySQL: error 3709
 
Iwal me mando error :(

Kitty_05 14/04/2008 10:41
Re: VB6 y MySQL: error 3709
 
Ademas no kiero insertar kiero actualizar lo q ya tengo .. ese es el detalle

LuZbA 14/04/2008 11:05
Re: VB6 y MySQL: error 3709
 
deberia de ser similar

aqui es BD no RecVar

BD.execute "UPDATE provs(campo1, campo2, etc) VALUES ('" & text1 & "', '" & text2 & "', '" & etc... & "')" ****aqui nada****

o intenta esta otra haber si asi

RecVar = New ADODB.Recordset

RecVar.Open "UPDATE provs(campo1, campo2, etc) VALUES ('" & text1 & "', '" & text2 & "', '" & etc... & "')", BD, adOpenStatic, adLockOptimistic

RecVar.Close

checa la comilla y las comillas, los espacios, etc...

Kitty_05 14/04/2008 11:19
Re: VB6 y MySQL: error 3709
 
Mra lo intente con BD.Execute mando error, lo intenta con

Set BD = CONECTAR()
Set RecVar = New ADODB.Recordset

RecVar.Open "UPDATE provs(prov_dscrp, prov_cost, prov_totalcost, prov_date, prov_status, prov_creacion, prov_autorizacion, prov_aprobacion, prov_cancelada, prov_dir, prov_dept, prov_site) VALUES ('" & DescripcionB(ind).Text & "', '" & MontoB(ind).Text & "', '" & TotMontoB.Text & "', '" & FechaB.Text & "', '" & EstadoB.Text & "', '" & CreadoB.Text & "','" & AutorizadoB.Text & "','" & AprobadoB.Text & "', '" & CanceladoB.Text & "','" & Form1.dir2 & "','" & Form1.dept2 & "','" & Form1.site2 & "') , BD, adOpenDynamic, adLockOptimistic"

RecVar.Close

Y continua mandando el error 3709 :'( voy a llorar

LuZbA 14/04/2008 11:29
Re: VB6 y MySQL: error 3709
 
ahi entonces ya es error de como te estas conectando a la bd, es error de conexion

checa lo que tienes en CONECTAR()

Kitty_05 14/04/2008 11:41
Re: VB6 y MySQL: error 3709
 
Código:
Public Function CONECTAR() As ADODB.Connection

On Error GoTo VError

Dim BD As ADODB.Connection
'Dim STRBD As String

Set BD = New ADODB.Connection

BD.ConnectionString = "driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=;Database=pr2;User=root;Password=;Option=3;"
        BD.CursorLocation = adUseClient
        BD.CommandTimeout = 30
        BD.Open
        Set CONECTAR = BD
        'MsgBox "Conexion establecida..."
       
        Exit Function
VError: MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
 Err.Clear
       
 End Function
esa es la de coneccion


La zona horaria es GMT -6. Ahora son las 05:33.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.