Ver Mensaje Individual
  #5  
Antiguo 01-04-2010
Avatar de erickahr
erickahr erickahr is offline
Miembro
 
Registrado: feb 2010
Posts: 94
Reputación: 15
erickahr Va por buen camino
Talking Excelente!

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!!!
__________________
Nadie puede separar su fe de sus actos, o sus creencias de sus afanes
Responder Con Cita