Einzelnen Beitrag anzeigen

SparrowSX

Registriert seit: 31. Mai 2008
Ort: Wilhelmshaven
7 Beiträge
 
RAD-Studio 2009 Arc
 
#2

Re: MySQL Direct abfrage. Daten in String Speichern

  Alt 31. Mai 2008, 17:27
Is doch alles OK...

In dem Tutorial wird aber kurz vorher auch folgende procedure erklärt:

Delphi-Quellcode:
procedure TForm1.Button16Click(Sender: TObject);
var q: string;
    ex: boolean;
begin
  if assigned(FResult) then begin
    if FMysql.Status<>MYSQL_STATUS_READY then
      ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
      FreeAndNil(FResult);
  end;
  q := InputBox('Geben Sie eine Abfrage ein',
  'Welche Abfrage durchgeführt werden soll','');
  FResult := FMysql.query(q, true, ex);
  if assigned(FResult) then
    ShowMessage('Query: OK - Ergebnis gespeichert')
  else
    if ex then
      ShowMessage('Query: OK - ausgeführt')
    else
      ShowMessage('Query fehlgeschlagen: '+FMysql.LastError);
end;
In diese Inputbox gibst du dann den MySQL Befehl ein... (z.B.: select * from tabelle_x)
MySQL-Befehle findest du hier: MySQL.com

Dadurch bekommt deine procedure (tablecontent) die Informationen die sie braucht um den Inhalt von "tabelle_x" anzuzeigen.

Außerdem würde ich dir empfehlen wirklich alles so zu machen wie es im Tutorial steht... (also auch jede procedure übernehmen...)
Christian
  Mit Zitat antworten Zitat