FoxPro/Visual FoxPro - ACERCA DE VISTA REMOTA, COMO ABRIRLA ? PLINIO MAS

HOLA BUENAS TARDES AMIGOS DE ESTE FORO,
HOY CREE UNA VISTA REMOTA, LAS TABLAS ESTAN EN ACCESS.

YA CREE LA VISTA REMOTA Y ME LOGRO CONECTAR BIEN, PERO AL MOMENTO DE DARLE UN SELECT A LA VISTA ME LANZA UN ERROR "NO SE ENCUENTRA EL ALIAS",

Y CREE UN GRID CON UNA VISTA, AL MOMENTO DE EJECUTAR EL FORMULARIO DE APARECE UN CUADRO DE DIALOGO "SELECCIONAR BASE DE DATOS", PARA BUSCAR LA DIRECCION O RUTA DONDE SE ENCUENTRA LA TABLA DE ACCESS.

LO QUE YO QUIERO ES QUE LA VISTA SE COMPORTE COMO UNA TABLA NATIVA O NORMAL DE VFP DBF, QUE NO ME VEA OBLIGADO A ENCONTRARLA CON ESE CUADRO DE DIALOGO DE ACCES.

ALGUIEN SABE COMO TRABAJAR CON VISTAS, POR FAVOR QUE ME AYUDE, SE LOS AGRADECERE MUCHO.
ES DE EMERGENCIA.

PLINIO, ERNESTO, MARIO, Y LOS DEMAS AMIGOS DE AQUI.

SALUDES
HELDER MARTINEZ

mil gracias Plinio, feliz dia amigo

existen dos manera de hacerlo
1.- como ya plinio explico
2.- lo hacer a travez de codigo

te lo explico
haz una cadena de coneccion por ejemplo
Trabajo = "DBQ=TOUR.mdb;";
+ "DefaultDir=;";
+ "Driver={Driver do Microsoft Access (*.mdb)};" ;
+ "DriverId=25;";
+ "FIL=MS Access;";
+ "MaxBufferSize=2048;";
+ "MaxScanRows=8;";
+ "PageTimeout=5;";
+ "SafeTransactions=0;";
+ "Uid=Admin;";
+ "Threads="

Haste la coneccion
JJTrabajo = SQLSTRINGCONNECT(Trabajo)
If JJTrabajo <= 0
MessageBox('Error al Conectar a la Base de Datos de Trabajo',16,'JJ-System')
ENDIF

JJtrabajo guarla donde esta la coneccion

y ahora a trabajar

la loguica k sigo es busco el procto X si no existe lo agrego si existe lo actualizo
luego inicializos las variables

IF !EMPTY(thisform.text1.Value)
IF SQLEXEC(JJTrabajo,"SELECT * FROM Producto Where Producto = ?thisform.text1.Value And Empresa = ?Wgempresa") > 0
If !EOF()
CJJTrabajo =SQLEXEC(JJTrabajo, "Update Producto Set Detalle=?A2,Valor=?A3,Status=?A4 Where Producto=?A1 And Empresa = ?Wgempresa")
Else
CJJTrabajo =SQLEXEC(JJTrabajo, "INSERT INTO Producto (Producto,Detalle,Valor,Status,Empresa) VALUES (?A1,?A2,?A3,?A4,?Wgempresa)")
EndIf
If CJJTrabajo <=0
MessageBox('Error al Conectar a la Base de Datos de Trabajo de [Productos]',16,'JJ-System')
Return
ENDIF
thisform.text1.Value = " "
thisform.text2.Value = " "
thisform.text3.Value = " "
thisform.text4.Value = " "
thisform.list1.Visible = .F.
ENDIF
EndIf

esto funciona es parte de un programa para operadores turistico k esta funcionando bien y la base de datos en access 2003

espero te sea util

MIL GRACIAS, MUY AGRADECIDO, SALUDES