FoxPro/Visual FoxPro - Conectar dos bases de datos foxpro 9.0

*- Este ejemplo es usar el comando USE.

*- Una vez abres una tabla, automáticamente te abre la base de datos dbc

_OpN = 'backup\bases001\b03.dbf'

_OpN2 = 'bases001\b03.dbf'

USE c:\aperson\aromascreativos\sistemas\&_OpN IN 0 SHARED

USE c:\aperson\aromascreativos\sistemas\&_OpN2 IN 0 SHARED

lcDbc = "c:\inventarios\data\inventarios.dbc"

lcCon =" [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=" + lcDbc +

              ";Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]"

lnConexion=SQLSTRINGCONNECT(lcCon)

if lnConexion <0

   wait window nowait "Hubo un error en la conexi n......."

else

    ? SQLStringConnect( lcCon )

endif

lcDbc = "c:\fast\datos\foof.dbc"

lcCon =" [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=" + lcDbc +";Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]"    { <- TODO EN UNS SOLA LINEA ->}

lnConexion=SQLSTRINGCONNECT(lcCon)

if lnConexion <0

   wait window nowait "Hubo un error en la conexion......."

else

    ? SQLStringConnect( lcCon )

endif

lcDbc = "c:\Sistemas\TuData.DBC"

lcConnectionString = [Driver=Microsoft Visual FoxPro Driver; UID=; PWD=; SourceDB=&lcDbc; SourceType=DBC; Exclusive=No; BackgroundFetch=No; Collate=Machine; Null=Yes; Deleted=Yes;]

nMyNewHandle = SQLSTRINGCONNECT(lcConnectionString)

if nMyNewHandle <0

   wait window nowait "Hubo un error en la conexion......."

else

   wait window nowait "Conexión Exitosa."

ENDIF