Resumen Vincular dbase con Acces por código

Mensaje enviado por Diego Buendía <diegobb@teleline.es>

Hola, Marcelo:

Esta función es la que uso yo para vincular un DBF. sDir es el directorio de trabajo, sDBF el nombre del fichero y d un objeto Database donde realizar el vínculo. sName es el nombre de la tabla vinculada.

'=======================================================================

Function VincularDBF(d As Database, sDir As String, sDBF As String, sName As
String) As Boolean
Dim sConn As String
Dim AuTd As TableDef
Const CONNECT_STR As String = "dBASE III;HDR=NO;IMEX=2;DATABASE="

'Si ya existe esta tabla, preguntar
If d.TableDefs(sName).Name <> "" Then
    If vbYes = MsgBox("La tabla " & sName & " ya existe en " & d.Name & ".
¿Desea eliminarla para realizar la vinculación?", vbExclamation + vbYesNo)
Then
        d.TableDefs.Delete sName
    Else
        Exit Function
    End If
End If

'Vincular tabla DBF
sConn = CONNECT_STR & sDir
Set AuTd = d.CreateTableDef(sName)
AuTd.SourceTableName = sDBF
AuTd.Connect = sConn
d.TableDefs.Append AuTd
VincularDBF = True
End Function

'=======================================================================

Espero que te sirva. Un saludo,

Diego Buendía
Barcelona, Spain
diegobb@teleline.es
http://teleline.terra.es/personal/diegobb

----- Original Message -----
From: Marcelo Pedraza (CEA) <marcelo.pedraza@cea.ericsson.se>
To: <vb-esp@ccc.uba.ar>
Sent: Friday, February 18, 2000 4:10 PM
Subject: vb-esp : [data} Linkear dbase con Acces por código


Buenos días listeros

Estoy trabajando con VB6 y necesito linkear ( atachar ) una tabla de dbase a una base access, pero por código . Alguno tiene ide como ?

Saludos
Marcelo Pedraza
Argentina



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com