Cursor Adapter ADO parametrizable? (SQl Server)

Hola como estas, prueba de esta manera
mivar=This.Idkey
SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
IEMPLEADOID = ?mivar

Saludos;

José G. Samper
MCAD/MCSD/MCDBA
http://www.foxynet.net/

"Mauricio Pulla B." escribió en el mensaje
news:eChKJpj%

Hola.
En la propiedad SelectCmd de CAD.
SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
IEMPLEADOID = ? This.Idkey

Al hacer CursorFill()
No me genera el cursor pero si
SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
IEMPLEADOID = 1
me genera el cursor.

Como hago para poder hacer actualizable mi cursor adapter.

Utilizo VFP 8.0 SP 1, Windows 2000 Pro SpP4, Sql Server, mdac2.8
Mauricio Pulla.
Cuenca - Ecuador

Hola Jose.
Lo intente pero no funciona, alguna otra idea.

Por favor puedes decirme por que no entra al catch no me actualiza el
registro, todo esta configurado pero no me actualiza ni entra al catch

_Screen.oDbcTalk.oCnn.Open() &&Connexion Ado
.oCadEmpleado.DataSource.ActiveConnection = _Screen.oDbcTalk.oCnn
TRY
llAnswer = TABLEUPDATE(.T., .F., ThisForm.cViewheadername)
Go (RECNO(ThisForm.cViewheadername))
CATCH TO loException
llAnswer = .F.
=MESSAGEBOX(TRANSFORM(loException.ErrorNo) + ':' + loException.Message)
FINALLY
IF _Screen.oDbcTalk.oCnn.State > 0
_Screen.oDbcTalk.oCnn.Close()
ENDIF
ENDTRY

saludos.
Mauricio Pulla.
Cuenca-Ecuador

"José G. Samper" escribió en el mensaje
news:%23kP4DEo%

Hola como estas, prueba de esta manera
mivar=This.Idkey
SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
IEMPLEADOID = ?mivar

Saludos;

José G. Samper
MCAD/MCSD/MCDBA
http://www.foxynet.net/

"Mauricio Pulla B." escribió en el mensaje
news:eChKJpj%
> Hola.
> En la propiedad SelectCmd de CAD.
> SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
> IEMPLEADOID = ? This.Idkey
>
> Al hacer CursorFill()
> No me genera el cursor pero si
> SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
> IEMPLEADOID = 1
> me genera el cursor.
>
> Como hago para poder hacer actualizable mi cursor adapter.
>
> Utilizo VFP 8.0 SP 1, Windows 2000 Pro SpP4, Sql Server, mdac2.8
> Mauricio Pulla.
> Cuenca - Ecuador
>
>

Hola como estas, en el mensaje anterior se me olvido preguntarte si le
agregaste el objeto command, ejemplo

This.oADOConnection= PoADOConnection

If Vartype(This.oADORecordset) <> "O"

This.oADORecordset = Createobject("ADODB.Recordset")

Endif

If Vartype(This.locommand) <> "O"

This.locommand = Createobject("ADODB.Command")

This.locommand.ActiveConnection = This.oADOConnection

With This.oADORecordset

.CursorLocation = 3

.LockType = 3

.ActiveConnection = This.oADOConnection

Endwith

Endif

This.Datasource = This.oADORecordset


This.CursorFill(This.lSchema, .F.,-1, This.locommand)


Saludos


________________________
José G. Samper C.
MCAD/MCSD/MCDBA
http://www.FoxyNet.Net


"Mauricio Pulla B." escribió en el mensaje
news:OViaCio%

Hola Jose.
Lo intente pero no funciona, alguna otra idea.

Por favor puedes decirme por que no entra al catch no me actualiza el
registro, todo esta configurado pero no me actualiza ni entra al catch

_Screen.oDbcTalk.oCnn.Open() &&Connexion Ado
.oCadEmpleado.DataSource.ActiveConnection = _Screen.oDbcTalk.oCnn
TRY
llAnswer = TABLEUPDATE(.T., .F., ThisForm.cViewheadername)
Go (RECNO(ThisForm.cViewheadername))
CATCH TO loException
llAnswer = .F.
=MESSAGEBOX(TRANSFORM(loException.ErrorNo) + ':' +
loException.Message)
FINALLY
IF _Screen.oDbcTalk.oCnn.State > 0
_Screen.oDbcTalk.oCnn.Close()
ENDIF
ENDTRY

saludos.
Mauricio Pulla.
Cuenca-Ecuador

"José G. Samper" escribió en el mensaje
news:%23kP4DEo%

Hola como estas, prueba de esta manera
mivar=This.Idkey
SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
IEMPLEADOID = ?mivar

Saludos;

José G. Samper
MCAD/MCSD/MCDBA
http://www.foxynet.net/

"Mauricio Pulla B." escribió en el mensaje
news:eChKJpj%
> Hola.
> En la propiedad SelectCmd de CAD.
> SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
> IEMPLEADOID = ? This.Idkey
>
> Al hacer CursorFill()
> No me genera el cursor pero si
> SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
> IEMPLEADOID = 1
> me genera el cursor.
>
> Como hago para poder hacer actualizable mi cursor adapter.
>
> Utilizo VFP 8.0 SP 1, Windows 2000 Pro SpP4, Sql Server, mdac2.8
> Mauricio Pulla.
> Cuenca - Ecuador
>
>

hola José
No agrege el objeto command pruebo tu recomendacion

Gracias
Saludos.

"José G. Samper" escribió en el mensaje
news:eqdH4Dp%

Hola como estas, en el mensaje anterior se me olvido preguntarte si le
agregaste el objeto command, ejemplo

This.oADOConnection= PoADOConnection

If Vartype(This.oADORecordset) <> "O"

This.oADORecordset = Createobject("ADODB.Recordset")

Endif

If Vartype(This.locommand) <> "O"

This.locommand = Createobject("ADODB.Command")

This.locommand.ActiveConnection = This.oADOConnection

With This.oADORecordset

.CursorLocation = 3

.LockType = 3

.ActiveConnection = This.oADOConnection

Endwith

Endif

This.Datasource = This.oADORecordset


This.CursorFill(This.lSchema, .F.,-1, This.locommand)


Saludos


________________________
José G. Samper C.
MCAD/MCSD/MCDBA
http://www.FoxyNet.Net


"Mauricio Pulla B." escribió en el mensaje
news:OViaCio%
> Hola Jose.
> Lo intente pero no funciona, alguna otra idea.
>
> Por favor puedes decirme por que no entra al catch no me actualiza el
> registro, todo esta configurado pero no me actualiza ni entra al catch
>
> _Screen.oDbcTalk.oCnn.Open() &&Connexion Ado
> .oCadEmpleado.DataSource.ActiveConnection = _Screen.oDbcTalk.oCnn
> TRY
> llAnswer = TABLEUPDATE(.T., .F., ThisForm.cViewheadername)
> Go (RECNO(ThisForm.cViewheadername))
> CATCH TO loException
> llAnswer = .F.
> =MESSAGEBOX(TRANSFORM(loException.ErrorNo) + ':' +
> loException.Message)
> FINALLY
> IF _Screen.oDbcTalk.oCnn.State > 0
> _Screen.oDbcTalk.oCnn.Close()
> ENDIF
> ENDTRY
>
> saludos.
> Mauricio Pulla.
> Cuenca-Ecuador
>
> "José G. Samper" escribió en el mensaje
> news:%23kP4DEo%
>> Hola como estas, prueba de esta manera
>> mivar=This.Idkey
>> SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado WHERE
>> IEMPLEADOID = ?mivar
>>
>> Saludos;
>>
>> José G. Samper
>> MCAD/MCSD/MCDBA
>> http://www.foxynet.net/
>>
>> "Mauricio Pulla B." escribió en el mensaje
>> news:eChKJpj%
>> > Hola.
>> > En la propiedad SelectCmd de CAD.
>> > SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado

WHERE

>> > IEMPLEADOID = ? This.Idkey
>> >
>> > Al hacer CursorFill()
>> > No me genera el cursor pero si
>> > SelectCmd = Empleado.CAPELLIDOS, Empleado.CNOMBRES FROM Empleado

WHERE

>> > IEMPLEADOID = 1
>> > me genera el cursor.
>> >
>> > Como hago para poder hacer actualizable mi cursor adapter.
>> >
>> > Utilizo VFP 8.0 SP 1, Windows 2000 Pro SpP4, Sql Server, mdac2.8
>> > Mauricio Pulla.
>> > Cuenca - Ecuador
>> >
>> >
>>
>>
>
>