RE:Base de datos dbf compartida
Global Bdatos As Database 'BASE BTRIEVE
Global BdbFox As Database 'BASE FOX
Global BdbDbase As Database 'BASE DBASE
'Global Tabla As Table 'ESTO NO ES MAS SOPORTADO POR VB.5 ..
'Global TablaDet As Table ' SE REEMPLAZA POR RECORDSET
Global Cliente As Recordset
'Global ctacte As Table
'Global Articulos As Table
'Global Deposito As Table
'Global DbfFox As Table
'Global DbfDbase As Table
'Global Dbf1 As Table
Sub Directorio()
Set Bdatos = OpenDatabase("C:\Directorio\file.DDF", False, False, "Btrieve;")
Set BdbFox = OpenDatabase("C:\Directorio", False, False, "FoxPro 2.0;")
Set BdbDbase = OpenDatabase("C:\Directorio", False, False, "dBASE III;")
End Sub
en un form evento load
Set Tabla = Bdatos.OpenTable("Clientes") 'esta es Btrieve
Set DbfFox = Bdbf.OpenTable("Fvw0003") 'esta es dbf fox
Set Cliente = BdbDbase.OpenRecordset("Archivo") 'esta es dbf fox
en un archivo ini del mismo nombre del proyecto
[VBX Conversions32]
crystal.vbx={00025600-0000-0000-C000-000000000046}#1.0#0;C:\WINDOWS\SYSTEM\crystl32.ocx
msmapi.vbx={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0;C:\WINDOWS\SYSTEM\msmapi32.ocx
mci.vbx={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.0#0;C:\WINDOWS\SYSTEM\mci32.ocx
mscomm.vbx={648A5603-2C6E-101B-82B6-000000000014}#1.0#0;C:\WINDOWS\SYSTEM\mscomm32.ocx
msmasked.vbx={C932BA88-4374-101B-A56C-00AA003668DC}#1.0#0;C:\WINDOWS\SYSTEM\msmask32.ocx
picclip.