Necesito un ejemplo
necesito un ejemplo de conexion remota, sabiendo que la base de datos esta en VFoxpro, qué sentencias debo añadir en el caso que se quiera añadir registros y a la vez otro usuario esta usando la misma tabla.
Desafortunadamente No tengo el autor de este codigo.
Conexion ODBC directamente desde VFP
DECLARE Integer SQLConfigDataSource IN odbccp32.dll;
Integer, Short, String @, String @
ODBC_ADD_SYS_DSN = 1
lc_driver = "Microsoft Visual FoxPro Driver" + CHR(0)
lc_dsn = "dsn=Bases Bodega1" + CHR(0) + "BackgroundFetch=Yes" + CHR(0) +;
"Description=descripcion de la conexion" + CHR(0) + "Exclusive=No" + CHR(0)+;
"SourceDb=uta.dbc" + CHR(0) + "Sourcetype=DBC"
IF SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, @lc_driver, @lc_dsn) = 1
RETURN .T. && OK
ENDIF
RETURN .F. && error
*.- lc_driver = Drive de Visual FoxPro
*.- lc_dsn = dsn = Nombre de la Conexion
*.- BackgroudFetch = Busqueda de datos secundarios Valores Yes o No
*.- Description = Descripcion de de la conexion
*.- SourceDb = Mapeo o direccion de la tabla o base de datos a conectar
*.- SourceType = tipo de conexion valores DBC o DBF si fuera tabla libre
Conexion ODBC directamente desde VFP
DECLARE Integer SQLConfigDataSource IN odbccp32.dll;
Integer, Short, String @, String @
ODBC_ADD_SYS_DSN = 1
lc_driver = "Microsoft Visual FoxPro Driver" + CHR(0)
lc_dsn = "dsn=Bases Bodega1" + CHR(0) + "BackgroundFetch=Yes" + CHR(0) +;
"Description=descripcion de la conexion" + CHR(0) + "Exclusive=No" + CHR(0)+;
"SourceDb=uta.dbc" + CHR(0) + "Sourcetype=DBC"
IF SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, @lc_driver, @lc_dsn) = 1
RETURN .T. && OK
ENDIF
RETURN .F. && error
*.- lc_driver = Drive de Visual FoxPro
*.- lc_dsn = dsn = Nombre de la Conexion
*.- BackgroudFetch = Busqueda de datos secundarios Valores Yes o No
*.- Description = Descripcion de de la conexion
*.- SourceDb = Mapeo o direccion de la tabla o base de datos a conectar
*.- SourceType = tipo de conexion valores DBC o DBF si fuera tabla libre
