MySQL ohne Komponenten

[MPirnstill]

Hi!

Wollte nur mal fragen, gibt es so etwas auch für Firebird bzw. würde sich dies darauf anwenden lassen?

Gruß

[Chewie]

Das ist die API für MySQl. Andere Datenbanken besitzen andere APIs.
U.a. aus diesem Grund gibt es Abstraktions-Layer ;)

[Chiara87]

Hallo
Ich habe eine Problem.
Ich habe die Unit mysql.pas heruntergeladen und alles gemacht was im Tutorials stand aber wenn ich die Unit compiliere bringt folgende fehler:
Undefinierter Bezeichner: longword, pLongword und Int64.
liegt es daran an das ich Delphi 3 benutze.
Bitte um eine Antwort

[Chiara87]

Problem gelöst?
er war wie ich es vermuten habe.
ich hab mit delphi7 probiert und läuft wunderbar.

[mimi]

also ich habe mir jetzt nicht alle 9 seiten durchlesen aber ich habe einee frage zu deine tutorial:
ich habe nun folgenden qullcode:

Delphi-Quellcode:

procedure MakeTables(_myCon: PMySQL);
var
  query: PChar;
begin
  mysql_select_db(_myCon, 'APITest');     //zu Datenbank "APITest" wechseln
  query:='CREATE TABLE posts(id int, author int, date datetime, entry text)';
  mysql_real_query(_myCon, 'CREATE TABLE posts(id int, author int, date datetime, entry text)', Length(query));
  query:='CREATE TABLE users(id int, name varchar(50), pass varchar(50))';

  mysql_real_query(_myCon, 'CREATE TABLE users(id int, name varchar(50), pass varchar(50))', Length(query));
end;

procedure CreateDB;
var
  Posts: TPostEntries; 
  _myCon: PMySQL;       //unseren Verbindungsdeskriptor
  host, user, pass, db: PChar;       //die Anmeldedaten
  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;
  idAuthor: String; 
begin
  //wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
  //bestimmte Datenbank auszuwählen
  host := 'localhost';
  user := 'root';
  pass := 'test';
  db := nil;
 
  //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');

  query := 'CREATE DATABASE APITest';
  mysql_real_query(_myCon, query, Length(query));

  MakeTables(_myCon);


  query := 'SELECT * FROM posts ORDER BY id';
  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;
  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].id := Integer(_myRow[0]);  //ID des Posts ist erstes Feld im Datensatz
    Posts[i].time := _myRow[2];          //Zeitpunkt ist drittes Feld
    Posts[i].text := _myRow[3];          //Text ist viertes Feld
   
    idAuthor := _myRow[1];
    query := PChar('SELECT name FROM users WHERE id=' + idAuthor);
    mysql_real_query(_myCon, query, Length(query));
    _mySubRes := mysql_store_result(_myCon);
    _mySubRow := mysql_fetch_row(_mySubRes);
    Posts[i].author := _mySubRow[0];
   
    mysql_free_result(_mySubRes);        //Ergebnissatz löschen 
  end;
 
  mysql_free_result(_myRes);             //Ergebnissätze löschen
 
  {...}
  {Verbindung schließen oder etwas anderes machen}

//  for i:=0 to
  mysql_close(_myCon);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateDB;
end;

aber leider bleibt der Array Posts immer leer wie kann ich ihn füllen ?

[Chewie]

Klar, dass es leer bleibt, es befinden sich ja keine Einträge in den Tabellen!
Die Tabellen werden ja nur erzeugt, nicht befüllt! Dies müsstest du dann selbst mit entsprechenden INSERT-Statements machen.

[mimi]

ich habe jetzt ein insert befehl hinzugefügt, doch sie bleibt immer noch leer:

Delphi-Quellcode:

procedure MakeTables(_myCon: PMySQL);
var
  query: PChar;
begin
  mysql_select_db(_myCon, 'APITest');     //zu Datenbank "APITest" wechseln
  query:='CREATE TABLE posts(id int, author int, date datetime, entry text)';
  mysql_real_query(_myCon, 'CREATE TABLE posts(id int, author int, date datetime, entry text)', Length(query));
  query:='CREATE TABLE users(id int, name varchar(50), pass varchar(50))';

  mysql_real_query(_myCon, 'CREATE TABLE users(id int, name varchar(50), pass varchar(50))', Length(query));
end;
.....
  query := 'CREATE DATABASE APITest';
  mysql_real_query(_myCon, query, Length(query));


  MakeTables(_myCon);

  query := 'SELECT * FROM posts ORDER BY id';
  mysql_real_query(_myCon, query, Length(query));

  // ich bin sicher das muss hier hin doch die db bleibt immer noch leer warum ?
  query:='INSERT INTO posts (id, author, date, entry) VALUES (001, Michael Springwald, 10.10.2006, Dies ist ein test';
  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;
  SetLength(Posts, mysql_num_rows(_myRes));  //Posts-Array-Größe auf Anzahl der Datensätze setzen
  ShowMessage(IntToStr(High(Posts)));

[Chewie]

Lass dir mal den Fehlertext zurückgeben (mysql_error()) und lies dir die Dokumentation durch, dann wirst du hoffentlich erkennen, dass String-Literale in Hochkommata eingefasst werden müssen.

Tipp: Besorg dir ein Tool wie z.B. phpMyAdmin und teste dort erstmal, ob die Queries an sich richtig sind und versuche sie erst dann, in der Anwendung auszuführen.

[mimi]

es kommt folgende fehlermeldung:

Zitat:

---------------------------
codelib
---------------------------
Commands out of sync; you can't run this command now
---------------------------
OK
---------------------------

ich habe den string so gesetzt:

Delphi-Quellcode:

  query:='INSERT INTO posts (id,author,date,entry) VALUES (001, 5, 10.10.2005 10:35, ''Dies ist ein test'')';

und noch eine kurzte frage wie kann ich die bestehene db abspeichern in eine datei ??? es das Datum bzw. die uhrzeit falschangeben ?

[mimi]

habes hinbekommen(fast):

Delphi-Quellcode:

  MakeTables(_myCon);
                                                                  
  // ich bin sicher das muss hier hin doch die db bleibt immer noch leer warum ?
  query:=PChar('INSERT INTO posts(id,author,date,entry) VALUES(1,Mimi,10-10-2005,''Dies ist ein test'')');
  mysql_real_query(_myCon, query, Length(query));


  query := 'SELECT * FROM posts ORDER BY id';
  mysql_real_query(_myCon, query, Length(query));

es gibt in der forschleife aus deinem tutor nur noch eine fehlermeldung:

Zitat:

---------------------------
codelib
---------------------------
Zugriffsverletzung bei Adresse 00457362 in Modul 'codelib.exe'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------

und noch eine frage wo wird diese db abgespeichert ??? weil der zähler wird immer erhöt bei jedem hinzufügen und beim programm ende !

[Chewie]

Du musste alle Strings und auch Datums-Werte in Hochkommata einfassen:

SQL-Code:

INSERT INTO posts(id,author,date,entry) VALUES(1,'Mimi','10-10-2005','Dies ist ein test')

Und soweit ich weiß muss man Datums-Werte im Format YYYY-MM-DD angeben, also

SQL-Code:

INSERT INTO posts(id,author,date,entry) VALUES(1,'Mimi','2005-10-10','Dies ist ein test')

Kann aber sein, dass das im Server konfigurierbar ist.

Den Rest der Frage versteh ich nicht so ganz. :?

[mimi]

der fehler kommt in der forschleife bei den zugrief auf Posts[i].author := _mySubRow[0];

warum ?
die anweisung sieht jetzt so aus:

Delphi-Quellcode:

  MakeTables(_myCon);
  query:=PChar('DELETE FROM posts');
  mysql_real_query(_myCon, query, Length(query));

  query:=PChar('INSERT INTO posts(id,author,date,entry) VALUES(''1'',''1'',''2005-10-10'',''Dies ist ein test'')');
  mysql_real_query(_myCon, query, Length(query));

  query := 'SELECT * FROM posts ORDER BY id';
  mysql_real_query(_myCon, query, Length(query));

[Chewie]

Naja, abgesehen davon, dass du nur die String-Argumente in Hochkommata einfassen solltest und nicht die Integers, kuck dir doch mal die Queries an: In der Schleife wird ja zu zu jedem Post der Name des entsprechenden Benutzers abgerufen. Wenn du aber nur dieses Insert stehen hast, gibt es aber doch gar keine Zeilen in der Tabelle users!

Die Grundlagen, wie du Queries an die Datenbank absetzt, scheinst du ja soweit verstanden zu haben, experimentiere doch mal mit eigenen Tabellen und eigenene Abfragen.

Und Sinn dieses Tutorials ist es keineswegs, die SQL-Syntax von MySQL näherzubringen, sondern einzig und allein der Zugriff über die API. Wenn du Schwierigkeiten mit SQL grundsätzlicher Natur hast, so bietet es sich an, erstmal dort irgendwelche Tutorials oder Bücher durchzuarbeiten, bevor du dich daran machst, eine Datenbankverbindung in deine Anwendung zu integrieren.

[mimi]

naja ich wollte letzendlich nur ersteinaml schauen wie aufwendig es währe mySql unter delphi nutzbar zu machen, doch wie bei allen openSoruce projekten(aus eigener erfahrung) weiß ich jetzt es ist doch nicht so einfach....
ich habe ja ein tutorial parat und zwar das von DelphiForum das beschreibt wie das gehen sollte und im Querybrowser geht es ja aber nicht in delphi :(

[mimi]

jetzt geht ja luckie beispiel aber dafür geht dein noch nicht und zwar nur wegen einer zeile:
Posts[i].author := _mySubRow[0];
nehme ich diese rauß geht es.... der code sieht so aus:

Delphi-Quellcode:

procedure MakeTables(_myCon: PMySQL);
var
  query: PChar;
begin
  mysql_select_db(_myCon, 'APITest');     //zu Datenbank "APITest" wechseln
  query:='CREATE TABLE posts(id integer, author integer, date datetime, entry text)';
  mysql_real_query(_myCon,query , Length(query));
  query:='CREATE TABLE users(id integer, name varchar(50), pass varchar(50))';
  mysql_real_query(_myCon, query, Length(query));
end;

procedure CreateDB;
var
  Posts: TPostEntries; 
  _myCon: PMySQL;       //unseren Verbindungsdeskriptor
  host, user, pass, db: PChar;       //die Anmeldedaten
  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;
  idAuthor: String; 
begin
  //wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
  //bestimmte Datenbank auszuwählen
  host := 'localhost';
  user := 'root';
  pass := '';
  db := nil;
 
  //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');

  query := 'CREATE DATABASE APITest';
  mysql_real_query(_myCon, query, Length(query));


  MakeTables(_myCon);
  query:=PChar('DELETE FROM posts');
  mysql_real_query(_myCon, query, Length(query));

  query:=PChar('INSERT INTO posts(id,author,date,entry) VALUES(1,2,2005-10-10,''Dies ist ein test'')');
  mysql_real_query(_myCon, query, Length(query));

  query := 'SELECT * FROM posts ORDER BY id';
  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 konntenkeine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(_myCon));
    Exit;                              
  end;
  SetLength(Posts, mysql_num_rows(_myRes));  //Posts-Array-Grö´ße auf Anzahl der Datensätze setzen
 // ShowMessage(IntToStr(High(Posts)));
  for i := 0 to High(Posts) do
  begin

    _myRow := mysql_fetch_row(_myRes);   //Datensatz abholen
    Posts[i].id := StrToInt(_myRow[0]);  //ID des Posts ist erstes Feld im Datensatz
    Posts[i].time := _myRow[2];          //Zeitpunkt ist drittes Feld
    Posts[i].text := _myRow[3];          //Text ist viertes Feld
    idAuthor := _myRow[1];
    query := PChar('SELECT name FROM users WHERE id=' + idAuthor);
    mysql_real_query(_myCon, query, Length(query));
    _mySubRes := mysql_store_result(_myCon);
    _mySubRow := mysql_fetch_row(_mySubRes);

    Posts[i].author := _mySubRow[0];

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

  {...}
  {Verbindung schließen oder etwas anderes machen}

//  for i:=0 to
  //mysql_close(_myCon);
end;

[Chewie]

Ich denke, du solltest dir erstmal den Quellcode als gesamtes durchlesen und verstehen, auch und insbesondere die SQL-Queries! Dann wirst du sehen, dass in die Tabelle users gar nichts eingetragen wird, ergo kann auch nichts daraus ausgelesen werden!

Es ist eben nur ein Tutorial und kein unter allen Umständen lauffähiges Programm.

[mimi]

sowas habe ich mir auch schon gedacht... ich dachte halt das das programm soweit funktioniert was im tutrial beschrieben wurden ist....

[Chewie]

Sofern die richtigen Daten in der Datenbank stehen, funktioniert das auch ;)

[Lich]

hi leute,

hab noch mal ne Frage, und zwar hab ich in meiner Anwendung auf Datensätze zugreifen, wo die id = einer Variable ist, nur gibt mir der Compiler immer die Fehlermeldung: You have an error in your SQL Syntax near " at line 1. Mein Quellcode sieht folgendermaßen aus:

Zitat:

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

mysql_real_connect(_myCon, unit1.host, unit1.user, unit1.pass, unit1.db, 3306, nil, 0);
query := PChar('SELECT * FROM posts WHERE id =' + IntToStr(g_id));
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;

[Chewie]

Lass dir am besten mal den erzeugten Query ausgeben und lass ihn von einem Programm wie z.B. phpMyAdmin ausführen. Erst wenn er dort funktioniert, soltest du ihn in dein eigenes Programm einbauen.

[Lich]

Meine query zeigt : 'SELECT * FROM posts WHERE id = 1'

Und dieser Befehl müsste SQL technisch gesehen, doch eigentlich völlig in Ordnung sein, oder?

[Chewie]

Hm ja, eigentlich schon :?

Was passiert denn, wenn du dir einfach alle Datensätze geben lässt (also ohne WHERE). Klappts dann?

[Lich]

Ja das klappt alles

[Lich]

Ist gut hat sich erledigt, hatte ein Leerzeichen in der SQL Anweisung vergessen :wall:

[Lich]

Hab mal ne Frage: Wie führe ich nen UPDATE Befehl für meine posts Tabelle aus?

Und zwar lautet mein SQL Befehl: UPDATE posts SET id = 2, author = blub, ptext = blub WHERE id = 2

Nur klappt das irgentwie nicht. Die Werte blub lese ich aus einfachen Textfeldern heraus...

[Chewie]

String-Literale in SQL müssen in einfache Hochkammata (') eingeschlossen werden.

[Lich]

Kann mir mal jemand ein Quellcodebeispiel zeigen, wie man in einen INSERT Befehl Editfelder mit einbezieht?

[Lich]

Also ich möchte es nochmal erklären und zwar möchte ich in die Tabelle posts in die Spalten id, author, ptext Werte aus drei Editfeldern einfügen.

Jetzt hab ich nur das Problem, wie ich das ganze im Quellcode schreiben soll, damit der Befehl korrekt ausgeführt wird. Momentan sieht das ganze bei mir so aus:

Zitat:

query := PChar('INSERT INTO posts (id, author, ptext) VALUES (' + TF_id.text + ', ' + TF_author.text + ', ' + TF_text.text + ')')

[Chewie]

Ich verwende da gerne Format-Strings, macht das ganze etwas übersichtlicher:

Delphi-Quellcode:

var
  query: String;
begin
  query := Format('INSERT INTO posts(author, date, entry) VALUES(%d, ''%s'',''%s'')', [authorId, dateFld.Text, entryFld.Text]);
  mysql_real_query(PChar(query));
  //...
end;

Als Alternative nimmst du ganz einfache String-Konkatenation, das einzige, worauf du achten musst sind halt die doppelten Hochkommata (einfache werden ja als Stringbegrenzer interpretiert).

[Lich]

Kannst du mir mal zeigen, was du mit String-Konkatenation meinst?

[Chewie]

Delphi-Quellcode:

s := s1 + s2;

:zwinker:

[Lich]

Also müsste mein Befehl so aussehen:

s := s1 + ''' + s2 + ''' + ', ' + ''' + s3 + ''' + ')';

s1 := ''INSERT INTO posts (id, author, ptext) VALUES ('
s2 := tf_author.text;
s3 := tf_text.text;

[Lich]

Damit liege ich aber auch völlig falsch.

Wie schreibe ich das, wenn ich das ganze ohne Umwege machen möchte:
Also einfach meine Edit Felder in den INSERT Befehl mit einbeziehen.

Ich brauche unbedingt Hilfe

[Matze]

Zitat:

Zitat von Lich

Ich brauche unbedingt Hilfe

Das ist kein Grund ständig zu pushen. Hilfe wollen viele.

Chewie hat es doch geschrieben:

Zitat:

Zitat von Chewie

String-Literale in SQL müssen in einfache Hochkammata (') eingeschlossen werden.

Aber das ganze gehört eigentlich überhaupt nicht in dieses Thema und lässt Chewies Tutorial völlig untergehen. Für SQL gibt es sehr gute Referenzen.

[Lich]

Gibt es eine Möglichkeit meine ausgewählten Tabellen mit der query Komponete nutzen?

EDIT: Tut mir leid wegen des pushens, aber ich wollte kein neues Thema deswegen eröffnen

[Chewie]

Was meinst du? Die Komponente TQuery? Klar geht das, aber halt nicht mit dieser API, dafür gibts spezielle Komponenten.

[Lich]

Also ich würd gerne die ausgewählten Tabelle an eine Query Komponete übergeben ohne eine andere Komponente zu nutzen.

Kannst du mir das ganze vielleicht per Quellcode erklären, ich bin da noch nicht so ganz durchgestiegen...

[Chewie]

Datenbankzugriff mit TQuery & Co ist ein ganz anderes Thema, da kenn ich mich selbst nicht aus.

Such mal im Forum nach TQuery MySQL, da wirst du was finden.

[Lich]

Ich habe ein Programm, welches auf eine Access DB zugreift mit Hilfe von Query und Database Komponeten. Und ich möchte das Alles durch MySQL ersetzen und natürlich alles ohne Komponenten. Nur hab ich jetzt ein Problem mit folgendem Befehl:

Zitat:

vartype(form1.query1.fields[col].value)

Und zwar wird hier der Variablentyp aus dem, Feld herausgelesen.

Wie kann ich das ganze nun mit MySQL lösen?

[Chewie]

Das gleiche (wenn auch in anderen Worten) hast du doch in der PN gefragt. Und ich hab dir die Antwort gegeben :roll: