¡¡Ayuda con DBF!!

01/10/2005 - 15:18 por Mauricio López [ProNet] | Informe spam
Sres.

Tengo un gran problema, necesito sólo extraer datos de algunos
archivos dbf. He buscado en el historial del grupo en Google y he
probado con todos los ejemplos que allí se explican, pero siempre me
sale el mismo error. Les ruego que me den una mano, porque ya estoy
verde!!

Desde ya muchísimas gracias!

El código que estoy probando es este:

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim cnn As OleDb.OleDbConnection
Dim oCommand As New OleDb.OleDbCommand()
Dim oDataAdapter As OleDb.OleDbDataAdapter
Dim oDataSet As New DataSet()

ConectarBD_DBF("D:\Documentos\Desarrollo\Ver DBF\bin", cnn)
cnn.Open()

With oCommand
.CommandText = "SELECT * FROM prueba"
.Connection = cnn
End With

oDataAdapter = New OleDb.OleDbDataAdapter(oCommand)

Try
oDataAdapter.Fill(oDataSet, "Prueba")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try


Public Function ConectarBD_DBF(ByVal Directorio As String, ByRef Con As
OleDb.OleDbConnection) As Boolean
Dim CadenaConexion As String

CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Directorio & _
";Extended Properties=dBASE III;User ID=Admin;Password="
Try
Con = New OleDb.OleDbConnection(CadenaConexion)
Catch e As Exception
MessageBox.Show("Error al crear la conexión:" & vbCrLf &
e.Message)
Return (False)
End Try
End Function


Saludos!

Mauricio López
www.pronet.com.uy
Maldonado - Uruguay

Preguntas similare

Leer las respuestas

#1 Developers
01/10/2005 - 19:37 | Informe spam
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ????????

Estas abriendo con un controlador de Access un DBF???

Tienes que bajar desde la pagina de microsoft el controlador Oledb de Visual
Foxpro??


"Mauricio López [ProNet]" escribió en el
mensaje news:%
Sres.

Tengo un gran problema, necesito sólo extraer datos de algunos
archivos dbf. He buscado en el historial del grupo en Google y he
probado con todos los ejemplos que allí se explican, pero siempre me
sale el mismo error. Les ruego que me den una mano, porque ya estoy
verde!!

Desde ya muchísimas gracias!

El código que estoy probando es este:

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim cnn As OleDb.OleDbConnection
Dim oCommand As New OleDb.OleDbCommand()
Dim oDataAdapter As OleDb.OleDbDataAdapter
Dim oDataSet As New DataSet()

ConectarBD_DBF("D:\Documentos\Desarrollo\Ver DBF\bin", cnn)
cnn.Open()

With oCommand
.CommandText = "SELECT * FROM prueba"
.Connection = cnn
End With

oDataAdapter = New OleDb.OleDbDataAdapter(oCommand)

Try
oDataAdapter.Fill(oDataSet, "Prueba")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try


Public Function ConectarBD_DBF(ByVal Directorio As String, ByRef Con As
OleDb.OleDbConnection) As Boolean
Dim CadenaConexion As String

CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Directorio & _
";Extended Properties=dBASE III;User ID=Admin;Password="
Try
Con = New OleDb.OleDbConnection(CadenaConexion)
Catch e As Exception
MessageBox.Show("Error al crear la conexión:" & vbCrLf &
e.Message)
Return (False)
End Try
End Function


Saludos!

Mauricio López
www.pronet.com.uy
Maldonado - Uruguay

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida