time expirated consulta de actualizacion

natalyro · #1 (**permalink**) 06/03/2009, 09:16

Hola Buenos dias,

tengo una consulta de actualizacion y cuando ejecuto el formulario despues de un rato me dice time expirated y el error me lo saca cuando abro el recordset:

Cadena_SQL_11 = "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Text_Precio.Text & "' FROM ARCUSFIL_SQL,IMITMIDX_SQL,OEPRCFIL1_SQL,OECOTIZACI ON_SQL WHERE OECOTIZACION_SQL.search_name='" & cadena4 & "' and OECOTIZACION_SQL.item_no='" & cadena2 & "' and ARCUSFIL_SQL.search_name='" & Combo_Cliente.Text & "' AND IMITMIDX_SQL.item_no= '" & Text_Product.Text & " '"
Rs11.Open Cadena_SQL_11, Connect, adOpenDynamic, adLockPessimistic'AQUI ME SACA EL ERROR

alguna sugerencia?

seba123neo · #2 (**permalink**) 06/03/2009, 19:59

Hola, ejecuta un comando no abras un recordset...priemro declara en general un Objeto Command..despues le pasas la conexion...y lo ejecutas..

Código vb:

Ver originalPrivate Cmd As ADODB.Command
set Cmd = New ADODB.Command
Cmd.ActiveConnection = TuConexion
Cmd.Execute Cadena_SQL_11

saludos.

Avellaneda · #3 (**permalink**) 07/03/2009, 03:02

Hola, también lo puedes hacer ejecutando directamente la consulta en la base de datos sin abrir ningún objeto Command:

Connect.Execute "UPDATE..."

Pero no creo que ése sea el problema, mas bien creo que está en la consulta ¿quieres actualizar dos tablas diferentes en la misma consulta?

Saludos

natalyro · #4 (**permalink**) 09/03/2009, 10:52

Gracias por las respuestas,

solo quiero actualizar una sola tabla y un solo campo...

he modificado el codigo y aqui va mas claro.. por si tinen alguna solucion.

ElseIf var9 < Precio Then
Cadena_SQL_11 = "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Precio & "' WHERE OEPRCFIL1_SQL.filler_0001 LIKE '%" & cadena & "%' "
Rs11.Open Cadena_SQL_11, Connect, adOpenDynamic, adLockPessimistic

Gracias

totigo · #5 (**permalink**) 09/03/2009, 12:08

Debes involucrar un Timeout, ejemplo 1200

Asi:

Código vb:

Ver originalDim Conectar As ADODB.Connection
    Set Conectar = New ADODB.Connection
    Conectar.Provider = "SQLOLEDB.1"
    Conectar.CommandTimeout = 1200
    Conectar.Open CadenaConexion

O así

Código vb:

Ver originalDim adbconect As New ADODB.Connection
    adbconect.CursorLocation = adUseServer
    adbconect.ConnectionTimeout = 1200
    adbconect.Provider = "SQLOLEDB.1"
    adbconect.Open CadenaConexion

natalyro · #6 (**permalink**) 09/03/2009, 12:26

Gracias....

pero no funcionana lo puse asi:

Connect.Provider = "SQLOLEDB"
Connect.ConnectionTimeout = 1200
Connect.Open "Driver={SQL Server};" & _
"Server=" & macForm.ConnInfo.Server & _
";Uid=" & macForm.ConnInfo.User & _
";Pwd=" & macForm.ConnInfo.pwd & _
";Database=" & macForm.ConnInfo.DB

yo creo que es algo mal de la consulta....

totigo · #7 (**permalink**) 09/03/2009, 12:48

Ok entonces ya te funcionó?

natalyro · #8 (**permalink**) 09/03/2009, 12:52

No me ha funcionado.

por eso creo que es algo ya en la consulta.

estaba haciendolo como Avellaneda me dijo pero tampoco.

Connect.Execute "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Precio & "' WHERE OEPRCFIL1_SQL.filler_0001 LIKE '%" & cadena & "%' "

tu me podrias decir como separ lo que tu me enviaste por lineas. o si se te ocurre otra idea.

Dim adbconect As New ADODB.Connection
adbconect.CursorLocation = adUseServer
adbconect.ConnectionTimeout = 1200
adbconect.Provider = "SQLOLEDB.1"
adbconect.Open CadenaConexion

Osea que creo una nueva conexion? adbconect

totigo · #9 (**permalink**) 09/03/2009, 13:02

Ok te coloco toda la declaracion, y cambias CadenaConexion

Código vb:

Ver originalDim Connect As ADODB.Connection
    Dim adbRecordset As ADODB.Recordset
    Dim CadenaConexion As String
    
    CadenaConexion = "provider = SQLOLEDB.1;Server=" & MI_SQLSERVER_IP & ";database=" & MI_BASEDATOS & ";User ID=" & MI_USUARIO & ";Password=" & MI_CLAVE & vbNullString
    
    Set Connect = New ADODB.Connection
    Connect.Provider = "SQLOLEDB.1"
    Connect.CommandTimeout = 1200
    Connect.Open CadenaConexion
        
    Set adbRecordset = New ADODB.Recordset
    Cadena_SQL_11 = "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Text_Precio.Text & "' FROM ARCUSFIL_SQL,IMITMIDX_SQL,OEPRCFIL1_SQL,OECOTIZACI ON_SQL WHERE OECOTIZACION_SQL.search_name='" & Cadena4 & "' and OECOTIZACION_SQL.item_no='" & Cadena2 & "' and ARCUSFIL_SQL.search_name='" & Combo_Cliente.Text & "' AND IMITMIDX_SQL.item_no= '" & Text_Product.Text & " '"
    adbRecordset.Open Cadena_SQL_11, Connect, adOpenKeyset, adLockOptimistic

O si lo prefieres puedes ejecutarlo directamente sin usar recordset, asi:

Código vb:

Ver originalDim Connect As ADODB.Connection
    Dim CadenaConexion As String
    
    CadenaConexion = "provider = SQLOLEDB.1;Server=" & MI_SQLSERVER_IP & ";database=" & MI_BASEDATOS & ";User ID=" & MI_USUARIO & ";Password=" & MI_CLAVE & vbNullString
    
    Set Connect = New ADODB.Connection
    Connect.Provider = "SQLOLEDB.1"
    Connect.CommandTimeout = 1200
    Connect.Open CadenaConexion
        
    Cadena_SQL_11 = "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Text_Precio.Text & "' FROM ARCUSFIL_SQL,IMITMIDX_SQL,OEPRCFIL1_SQL,OECOTIZACI ON_SQL WHERE OECOTIZACION_SQL.search_name='" & Cadena4 & "' and OECOTIZACION_SQL.item_no='" & Cadena2 & "' and ARCUSFIL_SQL.search_name='" & Combo_Cliente.Text & "' AND IMITMIDX_SQL.item_no= '" & Text_Product.Text & " '"
    
    Connect.Execute Cadena_SQL_11

Dale, prueba!

natalyro · #10 (**permalink**) 09/03/2009, 13:21

Mira ya lo hice pero en la parte de la conexion me sale absolutamente todo en rojo.

Me ayudas?

Dim adbconect As ADODB.Connection
Dim adbRecordset As ADODB.Recordset
Dim CadenaConexion As String

Cadena_SQL="Provider = "SQLOLEDB";Server=" & macForm.ConnInfo.Server & ";Database=" & macForm.ConnInfo.DB& ";Uid=" & macForm.ConnInfo.User & ";Pwd=" & macForm.ConnInfo.pwd &'ME SALE EN ROJO

Set adbconect = New ADODB.Connection
adbconect.Provider = "SQLOLEDB"
adbconect.CommandTimeout = 1200
adbconect.Open Cadena_SQL

ElseIf var9 < Precio Then
Cadena_SQL_11 = "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Precio & "' WHERE OEPRCFIL1_SQL.filler_0001 LIKE '%" & cadena & "%' "
adbRecordset.Open Cadena_SQL_11, Conectar(CadenaConx, Timeout), adOpenKeyset, adLockOptimistic

totigo · #11 (**permalink**) 09/03/2009, 13:26

Ok sustituye esto, copia y pega:

Código vb:

Ver originalCadena_SQL = "Provider = SQLOLEDB;Server=" & macForm.ConnInfo.Server & ";Database=" & macForm.ConnInfo.Db & ";Uid=" & macForm.ConnInfo.User & ";Pwd=" & macForm.ConnInfo.pwd

Tienes un error con comillas y el simbolo de concatenacion.

copia y reemplaza el tuyo!

natalyro · #12 (**permalink**) 09/03/2009, 14:46

Gracias,

pero me genera un error en adbRecordset.Open Cadena_SQL_11, Conectar(CadenaConx, Timeout), adOpenKeyset, adLockOptimistic

Que es conectar?

totigo · #13 (**permalink**) 09/03/2009, 15:22

De donde sacaste eso? revisa los codigos que he pegado!

natalyro · #14 (**permalink**) 09/03/2009, 15:40

totigo que pena contigo...

me equivoque pero igual me sale el mismo error justo en Connect.Execute Cadena_SQL_11

ElseIf var9 < Precio Then
Cadena_SQL_11 = "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Precio & "' WHERE OEPRCFIL1_SQL.filler_0001 LIKE '%" & cadena & "%' "
Connect.Execute Cadena_SQL_11

Gracias por tu pasicencia

culd · #15 (**permalink**) 09/03/2009, 15:45

Me parece que el error esta en algun dato que estas manejando en la actualizacion...

Por que no armas la actualizacion directamente y usas el gestor de consultas del motor de base de datos, a ver que error te tira ahi...

Me suele pasar con MySQL que los errores que devuelve el conector, no especifican exactamente el problema, pero realizandolo con el command line, ahi si me especifica correctamente y puedo solucionarlo

totigo · #16 (**permalink**) 09/03/2009, 15:47

Ok hagamos algo enviame un pantallazo del error al siguiente correo: [email protected] y si puedes enviame el codigo de tu ventana

natalyro · #17 (**permalink**) 10/03/2009, 07:33

Hola,

Miren ya no me genera ese error, pero igual no me actualiza.

anexo la consulta por si alguien sabe la respuesta.

ElseIf var9 < Precio Then
Cadena_SQL_11 = "SELECT * from OEPRCFIL1_SQL,ARCUSFIL_SQL,IMITMIDX_SQL WHERE filler_0001= '" & cadena & "' and ARCUSFIL_SQL.search_name='" & Combo_Cliente.Text & "' AND IMITMIDX_SQL.item_no= '" & Text_Product.Text & " '"
'Connect.Execute Cadena_SQL_11
Rs11.Open Cadena_SQL_11, Connect, adOpenDynamic, adLockPessimistic
'Connect.Execute Cadena_SQL_11
Rs11.Update
End If

natalyro · #18 (**permalink**) 10/03/2009, 13:34

sera que nos rendimos, de mi parte ya no se que hacer...

Alguien si sabe?

natalyro · #19 (**permalink**) 10/03/2009, 14:22

Gracias ya lo solucione..

por si alguien necesita...

Cadena_SQL_11 = "SELECT * FROM OEPRCFIL1_SQL WHERE OEPRCFIL1_SQL.filler_0001 ='" & cadena & "'"
'Connect.Execute "UPDATE OEPRCFIL1_SQL SET OEPRCFIL1_SQL.prc_or_disc_1='" & Precio & "' WHERE OEPRCFIL1_SQL.filler_0001 like '%" & cadena & "%'"
'Connect.Execute Cadena_SQL_11
Rs11.Open Cadena_SQL_11, Connect, adOpenDynamic, adLockPessimistic
'Connect.Execute Cadena_SQL_11
Rs11.Fields("prc_or_disc_1") = Precio
Rs11.Update