Help un ejemplo Cursor Adapter con parametros( ADO - MSSql Server)...!! me queda poco tiempo

Tomado del foro en ingles:

****************************************************
* Subject: Re: CursorAdapter, ADO and parametrized queries
* From: Thierry
* Date: 19/01/2005 09:47 a.m
* Newsgroup: microsoft.public.fox.programmer.exchange
****************************************************

LOCAL o as CursorAdapter
o=NewObject("cursorAdapter")

o.DataSourceType="ADO"
o.AddProperty("oConnection",CreateObject("adodb.connection"))
o.oConnection.Open("Provider=sqloledb;Data Source=(local);user
id=sa;password=;Initial Catalog=Northwind")

o.AddProperty("oCommand",CreateObject("adodb.command"))
o.oCommand.activeConnection = o.oConnection

o.DataSource=CreateObject("adodb.recordset")
o.DataSource.ActiveConnection = o.oConnection

o.alias = "customers"
o.addproperty("customerId","")
TEXT TO o.SelectCmd NOSHOW
SELECT *
FROM customers
WHERE CustomerID = ?this.customerID
ENDTEXT

IF not o.CursorFill(,.t.,,o.oCommand)
WAIT WINDOW Message()
cancel
ENDIF

o.customerId="ALFKI"
Requery()
BROWSE

o.customerId="ANATR"
Requery()
BROWSE

Mauricio Pulla B. wrote:

Necesito hechar a andar un sitema que se basa en Cusror Adapter - ADO - MsQl
Server
Cursor Adapter parametrizado Nativo OK

No se como paramterizar un Cursor Adapter con ADO - MsQl Server
Que objetos intervienen, como alimentar el parametro, etc. si alguien me
podria dar un ejemplo me ayudaria mucho pues tengo que presentarlo el dia
Viernes y lo que me falta son los mantenimientos parametrizados...

Saludos.
Mauricio Pulla.
Cuenca-Ecuador

VFP 8.0 SP 1, W2000 Pro, SP4, MDAC 2.8

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
Mèxico

Ok Esparta.
Nuevamente gracias.

Saludos.
Mauricio Pulla.
Cuenca-Ecuador


"Esparta Palma" escribió en el
mensaje news:%23XhOjxk$

Tomado del foro en ingles:

****************************************************
* Subject: Re: CursorAdapter, ADO and parametrized queries
* From: Thierry
* Date: 19/01/2005 09:47 a.m
* Newsgroup: microsoft.public.fox.programmer.exchange
****************************************************

LOCAL o as CursorAdapter
o=NewObject("cursorAdapter")

o.DataSourceType="ADO"
o.AddProperty("oConnection",CreateObject("adodb.connection"))
o.oConnection.Open("Provider=sqloledb;Data Source=(local);user
id=sa;password=;Initial Catalog=Northwind")

o.AddProperty("oCommand",CreateObject("adodb.command"))
o.oCommand.activeConnection = o.oConnection

o.DataSource=CreateObject("adodb.recordset")
o.DataSource.ActiveConnection = o.oConnection

o.alias = "customers"
o.addproperty("customerId","")
TEXT TO o.SelectCmd NOSHOW
SELECT *
FROM customers
WHERE CustomerID = ?this.customerID
ENDTEXT

IF not o.CursorFill(,.t.,,o.oCommand)
WAIT WINDOW Message()
cancel
ENDIF

o.customerId="ALFKI"
Requery()
BROWSE

o.customerId="ANATR"
Requery()
BROWSE

Mauricio Pulla B. wrote:
> Necesito hechar a andar un sitema que se basa en Cusror Adapter - ADO -

MsQl

> Server
> Cursor Adapter parametrizado Nativo OK
>
> No se como paramterizar un Cursor Adapter con ADO - MsQl Server
> Que objetos intervienen, como alimentar el parametro, etc. si alguien me
> podria dar un ejemplo me ayudaria mucho pues tengo que presentarlo el

dia

> Viernes y lo que me falta son los mantenimientos parametrizados...
>
> Saludos.
> Mauricio Pulla.
> Cuenca-Ecuador
>
> VFP 8.0 SP 1, W2000 Pro, SP4, MDAC 2.8
>
>

¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
Mèxico