Duda consultas dbf
Publicado por Sara (22 intervenciones) el 19/07/2007 18:41:42
Estoy creando una aplicacion donde interaccionan dos forms que apuntan hacia la misma tabla. Al hacer las consultas uno de los dos forma se atrasa siempre y arroja datos que no corresponde. Cuando esta uno solo el resultado es bueno. Este es mi codigo
Cnc.Mode = adModeRead
Cnc.Open "Provider=MSDASQL.1;Persist Security Info=False;" & _
"Extended Properties=DSN=dBASE Files;DBQ=F:\EIM\DB\;" & _
"DefaultDir=F:\EIM\BD\;DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;PageTimeout=600"
RsPath.Index = "folio"
RsPath.CursorLocation = adUseClient
RsPath.Open buscar, Cnc, adOpenStatic, adLockPessimistic, adCmdText
If RsPath.EOF = False Then
UpdateLog "Consulta de datos del deudor ", True
For a = 1 To UBound(ArFix())
msg = msg & ArFix(a)
If UCase(ArVar(a)) <> "NADA" Then
msg = msg & " " & RsPath(ArVar(a))
End If
Next
Else
Gestion_Transferencia ("101")
End If
Son tablas de dbase. Gracias por su atencion
Cnc.Mode = adModeRead
Cnc.Open "Provider=MSDASQL.1;Persist Security Info=False;" & _
"Extended Properties=DSN=dBASE Files;DBQ=F:\EIM\DB\;" & _
"DefaultDir=F:\EIM\BD\;DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;PageTimeout=600"
RsPath.Index = "folio"
RsPath.CursorLocation = adUseClient
RsPath.Open buscar, Cnc, adOpenStatic, adLockPessimistic, adCmdText
If RsPath.EOF = False Then
UpdateLog "Consulta de datos del deudor ", True
For a = 1 To UBound(ArFix())
msg = msg & ArFix(a)
If UCase(ArVar(a)) <> "NADA" Then
msg = msg & " " & RsPath(ArVar(a))
End If
Next
Else
Gestion_Transferencia ("101")
End If
Son tablas de dbase. Gracias por su atencion
Valora esta pregunta
0