time expirated consulta de actualizacion

[totigo]

Ok te coloco toda la declaracion, y cambias CadenaConexion

Código vb:

Dim 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:

Dim 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!