09/03/2009, 13:21
|
| | | Fecha de Ingreso: noviembre-2008
Mensajes: 131
Antigüedad: 15 años, 6 meses Puntos: 0 | |
| Respuesta: time expirated consulta de actualizacion
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 |