MySQL ohne Komponenten

[Gigant02]

also bei mir geht alles soweit

außer, wie bekomme ich die daten wieder aus der Datenbank raus ???

und in einen String rein

nehmen wir mal ich habe eine abfrage
SELECT Entry FROM Buch
WHERE entry = 'bla'

und will das ergebnis in einen strig haben wenn es nur ein feld ist

oder halt in ein array wenn es eine ganze liste ist

wie mache ich sowas ???

lg, Ciam

[Chewie]

Steht hier drin.

[Takeshi]

Hi

Vielen Dank für das Tut! Ich hatte die MySQL Driect Units mal in eine DLL compiliert, weil die Units unter Delphi 4 in der Schule nicht liefen, aber direkt mit der libmySQL.dll ist das natürlich viel sauberer und schöner :)

Allerdings hab ich ein Problem, zumindest ne Frage. Ich führe ein Query aus und möchte dann die Namen/Überschriften der Felder auslesen. Habe das so versucht:

Delphi-Quellcode:

[...]
_myFields := mysql_fetch_fields(_myRes);
for i:= 0 to mysql_num_fields(_myRes)-1 do
  ShowMessage('fieldname '+IntToStr(i)+#13+_myFields[i].name);
[...]

Das funktioniert so nicht - OK, ist vereinfacht und Deklarationen weggelassen, aber daran liegts nicht, denn so zB. funktionert es:

Delphi-Quellcode:

[...]
for i:= 0 to mysql_num_fields(_myRes)-1 do begin
  _myField := mysql_fetch_field_direct(_myRes,i);
  ShowMessage('fieldname '+IntToStr(i)+#13+_myField.name);
  end;
[...]

Mache ich etwas falsch ?

Danke jedenfalls schonmal und Grüße, Christoph

[Chewie]

Hm, ich kann darin keinen Fehler entdecken. Geh vielleicht mal im Einzelschrittmodus durch und betrachte, wie sich der Inhalt des Field-Arraysy entwickelt.

[Takeshi]

Einzelschrittmodus :?
Nun, durch das ShowMessage bleibt das Programm ja bei jedem Schleifendurchgang stehen. Beim Ersten Durchgang wird das noch richtig ausgegeben. ('fieldname 0 id'). Beim zweiten Durchgang erscheint ein leerer Name ('fieldname 1 ') Und beim dritten Durchlauf erscheint eine Fehlermeldung 'Access violation...'

[Chewie]

Hm, das könnte ich mir eigentlich nur erklären, wenn du mysql_fetch_fields nicht außerhalb, sondern innerhalb der Schleife aufgerufen hättest. Aber hast du ja nicht :?

[Gigant02]

hallo

also nun hab ich zeit gefunden und wieder mit mit der sql anbindung rumversucht
also es geht alles super blos ich bekomm die daten nicht aus der Datenbank raus !!!!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);

  type
    TPostEntry = record
    laufendenummer       : Integer;
    firma                : String[255];
    ansprechpartner      : String[255];
    c_telefon            : String;
  end;
  TPostEntries = Array of TPostEntry;

var cNeuPfad       : string;
    cFile          : string;
    c_inhalt       : string;
    n_FileHandle   : integer;
    Posts          : TPostEntries;
    idAuthor       : String;   //zum Zwischenspeichern der Verfasser-ID
    query          : PChar;
    _myCon         : PMySQL;
    _myRes         : PMySQL_Res;  //hier wird der gesamte Ergebnissatz gespeichert
    _mySubRes      : PMySQL_Res;  //benötigt, um Autor zu ermmitteln
    _myRow         : PMySQL_Row;  //enthält den aktuellen Datensatz
    _mySubRow      : PMySQL_Row;  //benötigt, um Autor zu ermmitteln
    i              : Integer;
    host           : PChar;
    user           : PChar;
    pass           : PChar;
    db             : PChar;
    _myCont        : PMySQL;

begin
//---(verbindung hergestellen)

   host := 'localhost';
   user := 'root';
   pass := '';
   db   := 'bewerbung';

   _myCont := mysql_init(nil);

   if mysql_real_connect(_myCont, host, user, pass, db, 3306, nil, 0)
   = nil then
    begin
//      ShowMessage('verbung fehlgerschlagen');
    end;

//  Showmessage('verbunden');


  query := 'SELECT * FROM adressen';
  mysql_real_query(_myCont, query, Length(query));

  _myRes := mysql_store_result(_myCont);  //alle Datensätze vom Server anfordern
  if _myRes = nil then
  begin
    ShowMessage('Es konnten keine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(_myCont));
    Exit;
  end;

  SetLength(Posts, mysql_num_rows(_myRes));  //Posts-Array-Größe auf Anzahl der Datensätze setzen

  for i := 0 to High(Posts) do
  begin
    _myRow                     := mysql_fetch_row(_myRes);   //Datensatz abholen
   Posts[i].laufendenummer     := inttostr(_myRow[0]);       //ID ist erstes Feld im Datensatz
    Posts[i].firma             := _myRow[1];                 //Zeitpunkt ist zweites Feld
    Posts[i].telefonnummer     := _myRow[2];                 //Text ist drittest Feld
    query                      := PChar('SELECT name FROM users WHERE id=' + idAuthor);
    _mySubRes                  := mysql_store_result(_myCont);
    _mySubRow                  := mysql_fetch_row(_mySubRes);

    mysql_free_result(_mySubRes);        //Ergebnissatz löschen
    ShowMessage(Posts[i].firma);
  end;

  mysql_free_result(_myRes);             //Ergebnissätze löschen

end;

wie bekomme ich die daten von denn Datenbank Feld firma und telefonnummer in einen Tring ??? ich will das dan in einer Textdatei speichern das soll nicht das problem sein also mit der text datei aber ich bekomme die daten einfach nicht in einen String wie mache ich das an besten ???

lg, Ciam

[emsländer]

Hallo zusammen,


prodecure schleim
begin
showmessage('Ich finde dieses Tutorial erste Klasse! Dank an allen, die hier mitarbeiten.');
end;

Habe heute viel geschafft. - Dank der Kollegen hier. Ich werde bei Gelegenheit (sobald ich etwas Luft habe) auch noch was zupacken.

Gruss und Danke

EL

[fungunner2]

Hallo zusammen
Klasse TUT hier !
Möchte aber mal anfragen, obs da ein Limit gibt,
wieviel Text ich in eine Zelle schicken kann, welche ich als longtext deklariert habe ?


mfg
Hans

[Chewie]

Die maximalen Größen für Longtext und die anderen Spaltentypen stehen in der MySQL-Doku.