VB6 y MySQL: error 3709

Kitty_05 · #1 (**permalink**) 14/04/2008, 09:32

Hola Buienos dias para todos!!

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"

Gracias

LuZbA · #2 (**permalink**) 14/04/2008, 10:11

Cita:

Iniciado por Kitty_05

Hola Buienos dias para todos!!

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"

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 · #3 (**permalink**) 14/04/2008, 10:21

Ok voy a intentarlo solo q en mi caso cada ves que abro la conexion la cierro nuevamente ..

Kitty_05 · #4 (**permalink**) 14/04/2008, 10:28

Una consulta amor despues de WHERE coloc todo como lo tengo o algo de eso cambia?

Kitty_05 · #5 (**permalink**) 14/04/2008, 10:33

Iwal me mando error :(

Kitty_05 · #6 (**permalink**) 14/04/2008, 10:41

Ademas no kiero insertar kiero actualizar lo q ya tengo .. ese es el detalle

LuZbA · #7 (**permalink**) 14/04/2008, 11:05

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 · #8 (**permalink**) 14/04/2008, 11:19

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 · #9 (**permalink**) 14/04/2008, 11:29

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 · #10 (**permalink**) 14/04/2008, 11:41

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