Algun Gurú Sith o Jedi que me ayude con bd's dbf
Publicado por OMAR (56 intervenciones) el 17/06/2005 02:00:44
Que tal foro, antes que nada saludos desde Monterrey Mexico.
Alguien me pudiera explicar las siguientes dudas?
1.Como puedo abrir una bd dbf para ver los campos
2.Como puedo enlazarla a mi aplicacion de visual
3.Se puede convertir a access? es conveniente?, o es mejor asi como esta.
Se que la puedo abrir con el visualfox pero quisiera abrirla sin instalarlo.
Asi es como abro mis bd's desde un modulo, cual seria la diferencia para abrir la dbf?
Option Explicit
Public ConnNL As New ADODB.Connection
Private Sub AbrirConexionNL()
Dim StrProveedor As String
Dim StrRuta As String
Dim StrCadenaConex As String
On Error Resume Next
StrProveedor = "Provider=Microsoft.Jet.OLEDB.4.0;"
StrRuta = "DATA SOURCE=" & App.Path & "\NL.MDB" & ";"
StrCadenaConex = StrProveedor & StrRuta & "Persist Security Info=false ;Jet OLEDB:"
ConnNL.Open ConnectionString:=StrCadenaConex
DoEvents
If Err.Number <> 0 Then
Beep
MsgBox "Error: " & Err.Description
Exit Sub
End If
End Sub
Sub Main()
AbrirConexionNL
Form1.Show
End Sub
De antemano gracias.
Alguien me pudiera explicar las siguientes dudas?
1.Como puedo abrir una bd dbf para ver los campos
2.Como puedo enlazarla a mi aplicacion de visual
3.Se puede convertir a access? es conveniente?, o es mejor asi como esta.
Se que la puedo abrir con el visualfox pero quisiera abrirla sin instalarlo.
Asi es como abro mis bd's desde un modulo, cual seria la diferencia para abrir la dbf?
Option Explicit
Public ConnNL As New ADODB.Connection
Private Sub AbrirConexionNL()
Dim StrProveedor As String
Dim StrRuta As String
Dim StrCadenaConex As String
On Error Resume Next
StrProveedor = "Provider=Microsoft.Jet.OLEDB.4.0;"
StrRuta = "DATA SOURCE=" & App.Path & "\NL.MDB" & ";"
StrCadenaConex = StrProveedor & StrRuta & "Persist Security Info=false ;Jet OLEDB:"
ConnNL.Open ConnectionString:=StrCadenaConex
DoEvents
If Err.Number <> 0 Then
Beep
MsgBox "Error: " & Err.Description
Exit Sub
End If
End Sub
Sub Main()
AbrirConexionNL
Form1.Show
End Sub
De antemano gracias.
Valora esta pregunta


0