MySQL ohne Komponenten

[Tyler]

Danke für die Antwort.

Das mein ich zwar nich ganz, erklärt aber die Kompo ganz gut. Ich dachte ich brauch bloss wieder ein Grid mit der DataSource verbinden und die Daten würden angezeigt.

mfg

[Knut]

also ich mein prolem ist, dass ich eine fehlermeldung bekomme weil beii der abfrage nil in _myRes steht.
die meldung lautet wie folgt:

Delphi-Quellcode:

Commands out of sync; You can't run this command now

was bedeutet das??
hier mein code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    host, user, pass, db: PChar;
begin
   host := 'localhost';
   user := 'root';
   pass := nil;
   db := 'masternr1de_de_db';

   //jetzt wird _myCon initialisiert
   _myCon := mysql_init(nil);
   if _myCon = nil then
   begin
      ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
      Exit;
   end;
   //anschließend wird die Verbindung hergestellt
   if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
   begin
      ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' +
      mysql_error(_myCon));
      Exit;
   end;
   ShowMessage('Verbindung hergestellt');
   //zum Schluss wird die Verbindung wieder geschlossen
   mysql_close(_myCon);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   Posts: TPostEntries;
   idAuthor: String; //zum Zwischenspeichern der Verfasser-ID
   query: PChar;
   _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;
begin
   query := 'SELECT * FROM sprueche';
   mysql_real_query(_myCon, query, Length(query));

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

_myCon ist bei mir global kann es daran liegen???

:gruebel:

[Chewie]

Sorry, hab das eben erst gesehen :oops:

Ich nehm mal an, du führst zuerst Button1Click aus, dann Button2Click. Das Problem dabei ist, dass die Verbindung am Ende der Click-Routine von Button1 geschlossen wird (mysql_close(_myCon)). Dann kannst du natürlich keine Querys mehr ausführen, du musst schon eine Verbindung offen haben!

[Knut]

jo danke mir isses auch schon aufgefallen, aber ich habs vergessen hier zu posten. tut mir leid. :oops:

[MathiasH]

Hallo Leute
Also erstmal echt gutes tut, endlich mal mysql einfach wie in php und ohne den ganzen BDE/ADO/ODBC Käse

bei mir verhält sich das ding allerdings höchst seltsam. wenn ich nämlich connect und disconnect in eigene funktionen auslagere und die benötigten variablen alle global mache hängt sich das Programm mit access violations in der mysql dll auf (nicht an Adresse 000000). Setze ich jedoch meinen gesammten Mysql Quelltext in eine funktion klappt die Sache wunderbar... höchst sonderbar... hat jemand ne idee, woran das liegen kann?

MathiasH

[Huor]

Hallo,
ich wollte für select-Abfragen gerne Überschriften im StringGrid erstellen. Gibt es eine einfache Möglichkeit, diese bei einer mysql-Anfrage zu erhalten? Das Auslesen aus einem SQL-Befehl-String scheint alternativ ja recht kompliziert.
Viele Grüße
Huor

[Chewie]

Du meinst die Namen der Spalten? Versuchs mal mit mysql_fetch_fields

[Huor]

Vielen Dank Chewie für die schnelle Lösung!

Nach anfänglichen Schwierigkeiten funktioniert es jetzt. Ist ja wirklich genial. Mir kommen die ganzen Typen zwar undurchschaubar vor, aber es läuft.

Gruß
Huor

[hubertus224]

Ich finde das Tutorail echt klasse.

Ichbesitze Delphi 3 und würde es gerne auch da verwenden nur müsste da wohl etwas verändert werden gegenüber diesem Tutorial.

Könnte mir einer eine lauffähige version für delphi 3 zeigen und erklären?

veilen dank schon mal an alle

[supermuckl]

leute wie siehts mit mysql api unter kylix aus ?

da gibts ja die mysql lib .so ( dll unter linux )

wie und was muss ich da einbinden damit ich das wie ihr hier beschrieben habt unter kylix auch verwenden kann ?

da die zeos komponenten ziemlich viel ärger machen unter linux

habe kylix 3 enterprise

[Chewie]

Puh, schwer zu sagen, noch nie probiert. Aber: Die API ist MySQL-spezifisch, nicht Windows-spezifisch, deshalb wärs ein Versuch wert. Die Datei heißt dort meines Wissens libmysql.so. Also einfach mal die Dateiangaben in der mysql.pas ändern.

[mimi]

was ich schon immer mal wissen wollte ist:
wenn ich jetzt z.b. ein addressen buch schreibe und mySQL verwend und dieses AB dann weier gebe zu jemmanden der kein internet hat, läuft es da oder muss ich erst einen server installieren ????

[mirage228]

Zitat:

Zitat von mimi

was ich schon immer mal wissen wollte ist:
wenn ich jetzt z.b. ein addressen buch schreibe und mySQL verwend und dieses AB dann weier gebe zu jemmanden der kein internet hat, läuft es da oder muss ich erst einen server installieren ????

Hi,

ja, dann muss dieser MySQL lokal installiert haben.

mfG
mirage228

[mimi]

schade... also kann man nicht ebend schnell eine anwendung weiter geben ohne das MySql installiert ist !!!

[Pseudemys Nelsoni]

ich bekomme folgenden fehler wenn ich Chewie's beispiel benutze (siehe anhang)...

nur wieso? bzw was bedeutet der fehler?

[Chewie]

Hm, keine Ahnung, hab den Fehler noch nie gehabt oder gesehen. Welche Versionen der libmysql.dll und von MySQL hast du?

[Pseudemys Nelsoni]

Moin,

dll version ist: libmySQL.dll-3.23.49
MySQL version ist: 4.1

[Chewie]

Benutzt du mysql_real_connect genauso wie ich oder hast du Parameter anders gesetzt (insbesondere den letzten=? Damit mein ich natürlich nicht Host, Passwort oder Benutzername ;)

[Pseudemys Nelsoni]

moin,

ich habe exakt deine prozedur benutzt. parameter hab ich angepasst, also benutzer/pass

[Garby]

Diese Dll funktioniert nur mit Mysql Version 3.x
mfg..

[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.

[fungunner2]

Hallo
Ohman,klar habs gefunden....thx für den Wink mit dem Zaunpfahl :wall:
Vielleicht kannste mir trotzdem nochmal auf die Sprünge helfen:
Wenn ich mit MysqlFront einen 17KB grossen Text einlade ist das auch kein Problem.
Versuch ich das gleiche mit unten stehendem Code gehts ums verecken nicht.

Code:

procedure TForm1.BitBtn4Click(Sender: TObject);
var
klar:integer;
textrein : string;
begin
 begin
  host := 'localhost';
  user := 'root';
  pass := '';
  db := pchar('mails');

  _myCon := mysql_init(nil);
  if _myCon = nil then
  begin
    ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
    Exit;
  end;

  if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
  begin
    ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon));
    Exit;
  end;
//**************************Verbindung steht !

 mysql_select_db(_myCon, pchar('mails'));
 msg := SakMsgList1.items[ currentMsg]; //Hier lade ich den Text einer Mail

 dateneintrag := ''''+msg.From+''''+ ',' +''''+msg.Date+''''+ ',' +''''+msg.Subject+''''+ ',' +''''+msg.ContentType+''''+ ',' +''''+msg.Text.Text+'''' ;

//**************************Bis hierher sind die Variabeln auch korrekt bestückt !

 query := pchar('INSERT INTO popper2 (von,datum,subject,art,text) values (' + dateneintrag +')' );
 klar := mysql_real_query(_myCon, query, Length(query));

//**************************Jetzt gibt mir klar eine -1 zurück,also nicht verarbeitet !

end;

end;

Ich steig einfach nicht dahinter warum.
Wäre nett wenn Du noch einen Denkanstoss für mich hättest.

mfg
Hans

[Chewie]

Lass dir im Fehlerfalle doch einfach mal mysql_error() ausgeben, da kriegst du die Fehlermeldung von der DB.

[fungunner2]

Hallo
Ich habs :thumb:
Im übergebenen Text scheiterte die Übergabe an einem " ' " (Hochkommata) im Delphi String.
Dadurch erhielt der Mysql Befehl eine falsche Syntax.
Jetzt weiss ich wenigstens worans lag.
Danke für die Hilfe !

mfg
Hans

[Luckie]

Zitat:

Zitat von Chewie

Delphi-Quellcode:

  if _myCon = nil then
  begin
    ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
    Exit;
  end;

Das finde ich etwas unbefriedigend. Ich fange auch mal an und gucke mir SQL Datenbanken an und das ist mir gleich aufgefallen. Gibt es nicht so was wie GetLastSQLError und SQLErrorCodeToStr?

[Luckie]

Folgender Code aus dem Tutorial:

Delphi-Quellcode:

var
  query: PChar;
  _myCon: PMySQL;
begin
  query := 'CREATE DATABASE APITest';
  mysql_real_query(_myCon, query, Length(query));
end;

Wie kann man überprüfen, ob die Datenbank schon besteht und wie kann ich Fehler im Query auswerten? Oder anders ausgedrückt, woher weiß ich, ob der Query erfolgreich ausgeführt wurde und wenn nicht, woran es lag (keine DB, keine Tabelle, Syntaxfehler, ...)?

Selbst rausgefunden:
0: alles hat geklappt
1: hier: Datenbank gibt es schon

Wenn ich den obigen Code ausführe, ohne mich vorher mit dem Server verbunden zu haben, dann bekomme ich eine Exception. Ist das richtig?

[Chewie]

Zitat:

Zitat von Luckie

Zitat:

Zitat von Chewie

Delphi-Quellcode:

  if _myCon = nil then
  begin
    ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
    Exit;
  end;

Das finde ich etwas unbefriedigend. Ich fange auch mal an und gucke mir SQL Datenbanken an und das ist mir gleich aufgefallen. Gibt es nicht so was wie GetLastSQLError und SQLErrorCodeToStr?

Dein GetLastSQLError heißt mysql_errno und dein SQLErrorCodeToStr mysql_error.

[Luckie]

Perfekt. :thumb: Danke.

[Smeagol]

Hallo, ich bin neu hier.
Ich habe mal ein wenig mit der MySql Unit herumprobiert. Ich habe nun folgendes Problem: wenn ich als Host 'localhost' verwende, ist alles OK, aber wenn ich einen Host verwenden will, der eine Domäne ist (z.B. 'dbxxx.1und1.de') bekomme ich die Fehlermeldung "Unknown MySQL Server Host". Muss ich irgendwo eine Einstellung vornehmen???

[emsländer]

Zitat:

Zitat von Smeagol

Hallo, ich bin neu hier.
Ich habe mal ein wenig mit der MySql Unit herumprobiert. Ich habe nun folgendes Problem: wenn ich als Host 'localhost' verwende, ist alles OK, aber wenn ich einen Host verwenden will, der eine Domäne ist (z.B. 'dbxxx.1und1.de') bekomme ich die Fehlermeldung "Unknown MySQL Server Host". Muss ich irgendwo eine Einstellung vornehmen???

Wie wäre es denn erst einmal mit dem Check der Firewall? Denn die lässt ja den MYSQL-Port nach aussen nicht durch. Und wie ist es bei 1und1? Haben die den Port nach aussen offen?


Gruss

EL

[Sharky]

Zitat:

Zitat von Smeagol

..., aber wenn ich einen Host verwenden will, der eine Domäne ist...

Viele Anbieter verbieten den Zugriff auf den mySQL-Server von aussen. Sprich der Benutzer hat nur lokalen Zugriff auf den Server.
Frage am besten deinen Provider ob es möglich ist von aussen auf den mySQL zugreifen zu können.