AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Tutorials Delphi MySQL ohne Komponenten
Tutorial durchsuchen
Ansicht
Themen-Optionen

MySQL ohne Komponenten

Ein Tutorial von Chewie · begonnen am 14. Jul 2003 · letzter Beitrag vom 30. Mär 2020
Antwort Antwort
Gigant02

Registriert seit: 3. Nov 2004
Ort: Helgoland
341 Beiträge
 
Delphi 7 Professional
 
#1

Re: MySQL ohne Komponenten

  Alt 11. Dez 2004, 13:55
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
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz