Visual Basic.NET - AYUDA URGENTE TABLAS DBF

   
Vista:

AYUDA URGENTE TABLAS DBF

Publicado por Gerardo (7 intervenciones) el 05/06/2009 21:47:21
De antemano gracias, mi problema es que necesito actualizar la información de un campo de en una base de datos DBF, ahora bien, trabajo en visual basic 2005 y he creado la conexión con ADODB, uso una conexión a una base de datos acces donde esta los datos que quiero actualizar a la DBF, todo funciona bien hasta que quiero filtrar los datos en la DBF, me genera un error de argumentos, si ven mi error por favor corrijan me, aqui les dejo parti del codigo:

Cnn2 = New ADODB.Connection
Try
With Cnn2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.IO.Path.GetDirectoryName(TextBox2.Text) & ";Extended Properties=""DBASE 5.0;"";"
.Open()
End With
Catch ex As Exception
MsgBox("Apertura de conexiones DBF" & vbCrLf & ex.Message)
GoTo Salida
End Try

Try
Data2 = New ADODB.Recordset
With Data2
'.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.CursorType = ADODB.CursorTypeEnum.adOpenDynamic
.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
.ActiveConnection = Cnn2
.Open("Select * from Data.dbf")
End With
Catch ex As Exception
MsgBox("Apertura de Recordsert DBF" & vbCrLf & ex.Message)
GoTo Salida
End Try

For I As Integer = 0 To 20
Fila = vb.Mid(Data1.Fields("Fila").Value, InStrRev(Data1.Fields("Fila").Value, "") + 1)
Direccion = Data1.Fields("Fila").Value
With Data2
.MoveNext()
.Filter = "[FILENAME] Like '*" & Replace(Fila.ToString, "'", "''") & "'" ( aqui me genera el error)
If .EOF = False Then
MsgBox("SI encontro")
Else
MsgBox("NO encontro")
End If
.Filter = 0
End With
Data1.MoveNext()
If Data1.EOF = True Then Exit For
Next

Les agradezco cualquier aporte
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder