gogue
10 de Julio del 2008

Necesitaria saber cómo puedo trabajar con ficheros DBF en Visual Basic...Abrirlos, añadir datos....todo eso
O si con una referencia se puede reconocer...cual debo añadir?
Gracias

sgomez
10 de Julio del 2008

Si estás en un formulario podés utilizar el control DATA, no es lo mejor, pero lo minimo indispensable te permite hacer. Igualmente no te recomiendo utilizar visual basic para el manejo de archivos de datos. Pasáte a Vfox.

Jonathan Isai Aguirre Coronado
10 de Julio del 2008

Public cnFox As ADODB.Connection
Public rsFox As ADODB.Recordset
Public aux_rsFox As ADODB.Recordset
Public sql As String
Public Function conectar_base_datos()
On Error GoTo e:
Set cnFox = New ADODB.Connection
cnFox.CursorLocation = adUseClient
cnFox.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=c:centralpapeler" & ";SourceType=dbf;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=No;Deleted=Yes;"
cnFox.Open
'MsgBox ("Se Abrio Correctamente La Coenxion")
Exit Function
e:
MsgBox ("Erro En La Conexion")
End Function
Public Function ejecuta_sql(sql As String)
On Error GoTo insertar_ba_d:
cnFox.Execute sql
Exit Function
insertar_ba_d:
End Function
Public Function ejecuta_sql_arreglo()
On Error GoTo insertar_ba_d_arreglo:
cnFox.Execute cadena_sql(1) & cadena_sql(2) & cadena_sql(3) & cadena_sql(4) & cadena_sql(5) & cadena_sql(6) & cadena_sql(7) & cadena_sql(8) & cadena_sql(9) & cadena_sql(10)
Exit Function
insertar_ba_d_arreglo:
End Function
Public Function ejecuta_consulta_sql(sql As String)
On Error GoTo Consulta:
Set rsFox = New ADODB.Recordset
rsFox.CursorLocation = adUseClient
rsFox.Open sql, cnFox, adOpenKeyset, adLockOptimistic
'rsFox.Open sql, cnFox, adOpenDynamic, adLockOptimistic
Exit Function
Consulta:
MsgBox ("Error En La Consulta")
End Function

Public Function ejecuta_consulta_sql_2(sql As String)
On Error GoTo Consulta:
Set aux_rsFox = New ADODB.Recordset
aux_rsFox.CursorLocation = adUseClient
aux_rsFox.Open sql, cnFox, adOpenKeyset, adLockOptimistic
Exit Function
Consulta:
MsgBox ("Error En La Consulta")
End Function


Public Function remplaza_caracter(sOriginal As String, sBuscar As String, sRemplaza As String)
Dim sConcate As String
sConcate = Replace(sOriginal, sBuscar, sRemplaza, , , vbTextCompare)
remplaza_caracter = sConcate
End Function
//este es codigo fuente de una clase con la cual podras trabajar con vb y foxpro
Option Explicit
Public b_d_foxpro As base_datos_foxpro
Public cadena_sql(1 To 10) As String

Private Sub Main()
Set b_d_foxpro = New base_datos_foxpro
b_d_foxpro.conectar_base_datos
Form2.Show
End Sub
//y este es el codigo de un modulo esto te servira mucho