¿Cómo se actualiza un oSQLQuery1?
Publicado: Lun Oct 12, 2009 6:00 pm
Tengo un formulario con un DBBrowse y un MasEdit
Con DBF lo hago asi
En el evento OnChar del DBBrowse1
if nKey == 32
if ::oDbfDataSetCC:Edit()
::oDbfDataSetCC:CAPTURA := ::oMasEdit1:Value
::oDbfDataSetCC:Update()
endif
¡¡Y funciona!!. Ahora, quiero hacer lo mismo en MySql.
Para MySql estoy haciendo lo siguiente:
En mi formulario...
Tengo mi oMySQLDataSource1
y mi oSQLQuery1 con nCursortype adLOpenStatic y nLockType
adLockOptimistic
oSQLQuery1 tiene como cSelect
::oSQLQuery1:cSelect := "select abrevia, folio, numverificador, nombre,
domicilio, colonia, ciudad, estado, cp, empresa FROM verifica where
abrevia='" + AppData:abrevia +;
"' AND verificado= ''"
Para mostrar la información en el oDBBrowse1 en su propiedad oDataSet tengo
oSQLQuery1
Hasta aquí todo bien.....
Si en el evento OnChar hago lo mismo...
if nKey == 32
::oSQLQuery1:Edit()
::oSQLQuery1:numverificador := ::oMaskEdit1:Value
::oSQLQuery1:Update()
Obtengo lo siguiente:
select abrevia, folio, numverificador, colonia, ciudad, estado, cp, empresa
FROM verifica where = 'DF' AND verificado = ''
Set de sólo lecgtura, 'Edit' no permitido [#0]
En procedimiento: TMISPENDIENTES:DBBROWSE1CHAR línea: 180
¿Cuál es la forma correcta?
Saludos
Fernando Leal
Con DBF lo hago asi
En el evento OnChar del DBBrowse1
if nKey == 32
if ::oDbfDataSetCC:Edit()
::oDbfDataSetCC:CAPTURA := ::oMasEdit1:Value
::oDbfDataSetCC:Update()
endif
¡¡Y funciona!!. Ahora, quiero hacer lo mismo en MySql.
Para MySql estoy haciendo lo siguiente:
En mi formulario...
Tengo mi oMySQLDataSource1
y mi oSQLQuery1 con nCursortype adLOpenStatic y nLockType
adLockOptimistic
oSQLQuery1 tiene como cSelect
::oSQLQuery1:cSelect := "select abrevia, folio, numverificador, nombre,
domicilio, colonia, ciudad, estado, cp, empresa FROM verifica where
abrevia='" + AppData:abrevia +;
"' AND verificado= ''"
Para mostrar la información en el oDBBrowse1 en su propiedad oDataSet tengo
oSQLQuery1
Hasta aquí todo bien.....
Si en el evento OnChar hago lo mismo...
if nKey == 32
::oSQLQuery1:Edit()
::oSQLQuery1:numverificador := ::oMaskEdit1:Value
::oSQLQuery1:Update()
Obtengo lo siguiente:
select abrevia, folio, numverificador, colonia, ciudad, estado, cp, empresa
FROM verifica where = 'DF' AND verificado = ''
Set de sólo lecgtura, 'Edit' no permitido [#0]
En procedimiento: TMISPENDIENTES:DBBROWSE1CHAR línea: 180
¿Cuál es la forma correcta?
Saludos
Fernando Leal