Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
trabajar con ficheros.DBF en Visual Basic
Enviado por gogue el día 25 de enero de 2004
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
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.
Enviado por Jonathan Isai Aguirre Coronado el día 10 de julio de 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
Foros de debate
Visual FoxPro
