¿Se puede con visualfox procesar datos de access?
¿Se puede con visual fox abrir un file de access y si es necesario modificar los datos desde visual fox?.
Gracias de antemano, saludos rob
Gracias de antemano, saludos rob
1 Respuesta
Respuesta de titovelo
1
Si se puede, hay 2 maneras una es exportandola otra es importando y la tercera que modifica la base de access es por ODBC, e mando un código el que debes cambiar la ubicación y el nombre de la base de datos de access, espero que te sirva
lcDataBaseName = 'DAVPHA'
lcMDBDir = 'C:'
lcMDBName = 'correo.MDB'
lnConnHandle = SQLSTRINGCONNECT('DSN=MS Access Database;DBQ='+;
lcMDBDir+'\'+lcMDBName+';DefaultDir='+;
lcMDBDir+';DriverId=25;FIL=MS Access;MaxBufferSize=2048;'+;
'PageTimeout=5;UID=admin;')
Create data (lcDataBaseName)
SQLTABLES(lnConnHandle, ['TABLE'], 'myMDB')
Select myMDB
Scan
lcSQL = 'select * from "'+trim(table_name)+'"'
lcCursor = chrtran(trim(table_name),' ','_')
lcTableName = '_'+lcCursor
SQLEXEC(lnConnHandle,lcSQL,lcCursor)
Select (lcCursor)
Copy to (lcTableName)
Add table (lcTableName)
Endscan
SQLDISCONNECT(lnConnHandle)
Modi data
Suerte
Titovelo
lcDataBaseName = 'DAVPHA'
lcMDBDir = 'C:'
lcMDBName = 'correo.MDB'
lnConnHandle = SQLSTRINGCONNECT('DSN=MS Access Database;DBQ='+;
lcMDBDir+'\'+lcMDBName+';DefaultDir='+;
lcMDBDir+';DriverId=25;FIL=MS Access;MaxBufferSize=2048;'+;
'PageTimeout=5;UID=admin;')
Create data (lcDataBaseName)
SQLTABLES(lnConnHandle, ['TABLE'], 'myMDB')
Select myMDB
Scan
lcSQL = 'select * from "'+trim(table_name)+'"'
lcCursor = chrtran(trim(table_name),' ','_')
lcTableName = '_'+lcCursor
SQLEXEC(lnConnHandle,lcSQL,lcCursor)
Select (lcCursor)
Copy to (lcTableName)
Add table (lcTableName)
Endscan
SQLDISCONNECT(lnConnHandle)
Modi data
Suerte
Titovelo
