ODBC - Base de datos dbf compartida

 
Vista:

Base de datos dbf compartida

Publicado por Juan Carlos (1 intervención) el 27/07/2002 07:02:52
Tengo que habrir una base de datos DBF en Visual Basic, mas el problema es que lo habre en modo esclusivo, y el archivo lo nesecito compartido, Visual no tiene un controlador para hacerlo en forma nativa asi que nesecita del odbc para habrirlo en compartido, porfa es urgente....Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Base de datos dbf compartida

Publicado por horacio ferrer (3 intervenciones) el 06/09/2002 13:50:23
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar