Foros del web, para los que viven de bits

Kitty_05 · 14-abr-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 · 14-abr-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 · 14-abr-2008, 10:21

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

Kitty_05 · 14-abr-2008, 10:28

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

Kitty_05 · 14-abr-2008, 10:33

Iwal me mando error :(

Kitty_05 · 14-abr-2008, 10:41

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

LuZbA · 14-abr-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 · 14-abr-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 · 14-abr-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 · 14-abr-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

14-abr-2008, 09:32	#1 (permalink)
Kitty_05 Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá Mensajes: 100	VB6 y MySQL: error 3709 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

14-abr-2008, 10:11	#2 (permalink)
LuZbA Fecha de Ingreso: abril-2008 Mensajes: 31	Re: VB6 y MySQL: error 3709 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

14-abr-2008, 10:21	#3 (permalink)
Kitty_05 Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá Mensajes: 100	Re: VB6 y MySQL: error 3709 Ok voy a intentarlo solo q en mi caso cada ves que abro la conexion la cierro nuevamente ..

14-abr-2008, 10:28	#4 (permalink)
Kitty_05 Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá Mensajes: 100	Re: VB6 y MySQL: error 3709 Una consulta amor despues de WHERE coloc todo como lo tengo o algo de eso cambia?

14-abr-2008, 10:33	#5 (permalink)
Kitty_05 Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá Mensajes: 100	Re: VB6 y MySQL: error 3709 Iwal me mando error :(

14-abr-2008, 10:41	#6 (permalink)
Kitty_05 Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá Mensajes: 100	Re: VB6 y MySQL: error 3709 Ademas no kiero insertar kiero actualizar lo q ya tengo .. ese es el detalle

14-abr-2008, 11:05	#7 (permalink)
LuZbA Fecha de Ingreso: abril-2008 Mensajes: 31	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...

14-abr-2008, 11:19	#8 (permalink)
Kitty_05 Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá Mensajes: 100	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

14-abr-2008, 11:29	#9 (permalink)
LuZbA Fecha de Ingreso: abril-2008 Mensajes: 31	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()

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado