Caracteres chinos en Firebird

[guillotmarc]

Lamentablemente no conozco los IBExpress, pero utilizar dbExpress es muy sencillo (por eso lo utilizo en bastantes programas).

Como bien dices no puedes conectar directamente una grid a un SQLQuery, para hacerlo necesitas poner un ClientDataset de intermediario. NOTA: Necesitas también un DatasetProvider para actuar de intermediario entre el SQLQuery y el ClientDataset. Ambos componentes se encuentran en la pestaña "Data Access".

En definitiva el SQLQuery no hace más que leer los datos de la base de datos.

Se añade un DatasetProvider para poder pasar esos datos a un ClientDataset.

Finalmente se añade un ClientDataset que mantiene esos datos en memoria, por lo que puede hacer movimientos .Next, .Prior, .etc. ..., y por lo tanto se puede conectar a la Grid.

Es un poco engorroso puesto que tienes que añadir dos componentes más de lo normal, pero es muy útil, y al final tienes los datos en un ClientDataset que es un componente fantástico, y tiene muchas opciones para manejar tus datos en memoria (aplicar filtros, mantener campos de agregado, etc. ...).

Saludos.

[erickahr]

Muchas gracias!!! ha sido una excelente solucion... lo he realizado como me comentas y funciona del uno... probablemente mas adelante te moleste de nuevo, pero de momento ya quedo... dejo mi codigo de conexion por si a alguien le sirve de algo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
With Cnn.Params do
  begin
  Add('DriverName=Interbase');
  Add('Database=C:\CHINOFUNCA.NEW');
  Add('RoleName=RoleName');
  Add('User_Name=sysdba');
  Add('Password=masterkey');
  Add('ServerCharSet=UTF8');
  Add('SQLDialect=3');
  Add('ErrorResourceFile=');
  Add('LocaleCode=0000');
  Add('BlobSize=-1');
  Add('CommitRetain=False');
  Add('WaitOnLocks=True');
  Add('Interbase TransIsolation=ReadCommited');
  Add('Trim Char=False');
  end;
Cnn.Connected:=True;
DSet.SQLConnection:=Cnn;
DSet.CommandText:='Select * From New_Table';
DSet.Active:=True;
DSPrvdr.DataSet:=DSet;
CDst.ProviderName:='DSPrvdr';
CDst.Active:=True;
DSrc.DataSet:=CDst;
DBGrid1.DataSource:=Dsrc;
end;

* Cnn: TSQLConnection.
* DSet: TSQLDataSet.
* DSPrvd: TDataSetProvider.
* CDst: TClientDataSet.
* DSrc: TDataSource.

Nueva mente Gracias!!!