Open en MDOQuery

[Delfino]

tengo este caso con un MDOQuery.

Usa en su lugar el MDODataset q es igual q un query pero puede hacerse Live si es necesario..

[[Lepe]]

LLevo usando los MDO algunos meses, MDODataset, MDOQuery, MDOSql y el monitor de sql, no he visto jamás ese fallo que comentas.

El problema con las comillas dobles no debe dar problemas, ya que el MDOCustomDataset tiene una propiedad de "doublequote identifiers", lo he probado y funciona a las mil maravillas.

El problema más bien lo veo de SQL, puede que una udf, palabra reservada de SQL, etc se llame igual que tu tabla Users, y por ahí empiezan los problemas. No sabe identificar si es una tabla o una función.

Yo le cambiaría el nombre a la tabla si estuviese a tiempo.

Tampoco lo cambiaría por un TMDODataset, ya que este último está pensado para actualizar, y no tiene sentido si solo vas a consultar. Incluso si no necesitas moverte por los registros hacia atrás, puedes usar un TMDOSql, el cual es un componente más liviano todavía que el MDOQUERY.

Saludos

[Delfino]

Tampoco lo cambiaría por un TMDODataset

El MDOQuery es solo para compatibilidad con el componente TQuery del BDE, el MDODataset sirve para actualizar solo si le asigna SQL a sus InsertSQL, DeleteSQL etc. En caso contrario es igual q un MDOQuery.

La preferencia del MDODataset es cuando no se sabe si la query va ser actualizable o no, se pone al principio solo con el SelectSQL y cuando se quiere hacerla modificable se configuran las otras, ademas uno puede borrar la unidad MDOQuery de la uses y ahorrar unos bits

[[Lepe]]

Realmente no lo había mirado, pero ahora sip:

En total son unas 40 lineas de código para:

Código Delphi [-]
constructor TMDOCustomDataSet.Create(AOwner: TComponent);
...
  FQDelete := TMDOSQL.Create(Self);
  FQDelete.OnSQLChanging := SQLChanging;
  FQDelete.GoToFirstRecordOnExecute := False;
  FQInsert := TMDOSQL.Create(Self);
  FQInsert.OnSQLChanging := SQLChanging;
  FQInsert.GoToFirstRecordOnExecute := False;
  FQRefresh := TMDOSQL.Create(Self);
  FQRefresh.OnSQLChanging := SQLChanging;
  FQRefresh.GoToFirstRecordOnExecute := False;
  FQSelect := TMDOSQL.Create(Self);
  FQSelect.OnSQLChanging := SQLChanging;
  FQSelect.GoToFirstRecordOnExecute := False;
  FQModify := TMDOSQL.Create(Self);
  FQModify.OnSQLChanging := SQLChanging;
  FQModify.GoToFirstRecordOnExecute := False;
...

Sobre el Tquery, muestro el constructor completo:

Código Delphi [-]
constructor TMDOQuery.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FSQL := TStringList.Create;
  TStringList(SQL).OnChange := QueryChanged;
  FParams := TParams.Create(Self);
  ParamCheck := True;
  FGenerateParamNames := False;
  FRowsAffected := -1;
end;

Aunque TMDOQuery deriva de TMDOCustomDataset, hace un override del constructor.

Por cierto, gracias por hacerme mirar el código, seguiré usando TQuerys cuando solo vaya a consultar datos

Saludos

[[mlara]]

Muy interesantes sus apreciaciones. Por lo que a mí respecta, pues usaré el MDOQuery, ya que trabajo en la migración de un sistema, y necesito trabajar con componentes compatibles a los usados anteriormente.

Con respecto a lo del mensaje 'Range check error', he seguido haciendo pruebas y al parecer lo que tengo es un conflicto con componentes Hash, que uso para cifrar las contraseñas y compararlas. Pero por fortuna, he logrado hacer correr mi aplicación. Ya voy más adelante.