Ver Mensaje Individual
  #4  
Antiguo 11-10-2013
barakuda barakuda is offline
Miembro
 
Registrado: mar 2010
Posts: 79
Reputación: 15
barakuda Va por buen camino
Buenas de nuevo;

Primero quiero dar las gracias a Casimiro por comentar en donde y por que estaba el fallo
En segundo lugar (voy por orden), a Neftali por darme la pista por donde indagar
Ya resolví el problema y ya, por fin, me conecta les comento por si a alguien le puede servir también de ayuda.
  • Primero deben de dar de "alta" su BBDD en el Deployment Manager
  • Y luego llamarla:
Código Delphi [-]
SQLConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetSharedDocumentsPath, 'test.db');

Total de codigo:
Código Delphi [-]
procedure TForm2.connectButtonClick(Sender: TObject);
begin
   SQLConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetSharedDocumentsPath, 'test.db');
  try
    SQLConnection1.Connected := true;
    executeButton.Enabled := true;
    outputMemo.Text := 'Conexión Establecida !!!!';
  except
    on E: EDatabaseError do
      ShowMessage('Exception raised with message' + E.Message);
  end;
end;

procedure TForm2.executeButtonClick(Sender: TObject);
var
  results: TDataSet;
  query: String;
begin
  query := 'SELECT * FROM testtable;';

  try
    SQLConnection1.Execute(query, nil, results);
  except
    on E: Exception do
      outputMemo.Text := 'Exception raised with message: ' + E.Message;
  end;
  while NOT results.Eof  do
   begin
  Form2.outputMemo.Lines.Add(results.FieldByName('Name').AsString);
   results.Next;
   end;
end;

Gracias y un saludo.!!!
Responder Con Cita