accesar registros de oracle desde vfp

Aqui tienes un ejemplo, con Oracle 8i, instalas el cliente de la 8i y con
este ejempo lo haces.

WITH _screen

*-- Add two new properties to the form and create the ADO Objects.
.AddProperty('ocnx',CREATEOBJECT('ADODB.Connection') )
.AddProperty('addmode',.F.)


.ocnx.Provider="OraOLEDB.Oracle"
.ocnx.ConnectionString="Data Source=CLIENTE8i;User
ID=usuario;Password=clave;"
.ocnx.mode=3
.ocnx.open

ENDWITH

cprod="'"+ALLTRIM(STR(PAFAP.papbarra,13))+"'"

_screen.oRcs.open("SELECT T1.INVENTORY_ITEM_ID,
T1.SEGMENT1||'.'||T1.SEGMENT2||'.'||T1.SEGMENT3||'.'||T1.SEGMENT4||'.'||T1.S
EGMENT5||'.'||T1.SEGMENT6 ARTICULO, " +;
"T1.SEGMENT1, T1.SEGMENT4, T1.DESCRIPTION " +;
"FROM MTL_ITEM_CATEGORIES T2,
mtl_system_items_b T1, mtl_categories_b t3 " +;
"WHERE T1.inventory_item_id t2.inventory_item_id " +;
"and t1.organization_id = t2.organization_id "
+;
"and t3.category_id = t2.category_id " +;
"and t2.category_set_id = 1 " +;
"and t1.organization_id = 84 " +;
"and t1.inventory_item_status_code='Active' "+
;
"and t1.segment1="+cProd)

Saludos.

Jesús Aceves.



"Luis G." escribió en el mensaje
news:79c601c4767e$3a378350$

Buen dia. por favor espero me puedan ayudar, ya que no he
podido accesar la db de oracle; ya lo intente por oledb,
odbc y por dsn pero nada. espero me puedan dar un
ejemplo de accesar la db de oracle y como usar los datos
de oracle en vfp 8.

gracias y que se la pasen bien.