Cursor Adapter ADO parametrizable? (SQl Server)

14/01/2005 - 14:11 por Mauricio Pulla B. | Informe spam
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

Preguntas similare

Leer las respuestas

#1 José G. Samper
14/01/2005 - 22:33 | Informe spam
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


Respuesta Responder a este mensaje
#2 Mauricio Pulla B.
14/01/2005 - 23:31 | Informe spam
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
>
>


Respuesta Responder a este mensaje
#3 José G. Samper
15/01/2005 - 00:29 | Informe spam
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
>
>






Respuesta Responder a este mensaje
#4 Mauricio Pulla B.
17/01/2005 - 15:33 | Informe spam
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
>> >
>> >
>>
>>
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida