Datenbank-Einsteiger-Tutorial für mySQL-Datenbanken

[Luckie]

Ich habe mich in den letzten Tagen etwas mit der Datenbankprogrammierung mit dem mySQL-DatenbankServer beschäftigt. Einen ersten Einstieg habe ich durch das Tutorial von Chewie hier in der Delphipraxis gefunden. Da ich nur eine Delphi Personal Version zur Verfügung habe, kam es mir natürlich sehr gelegen, dass eine mySQL Datenbank mit den entsprechenden Header-Übersetzungen der C-API es auch ermöglicht eine SQL-Datenbank mit Delphi Personal zu erstellen und damit dann auch zu arbeiten. Herausgekommen ist dabei ein mySQL-Tutorial und eine Demo Adresse-Datenbank. Im Gegensatz zu Chewies Tutorial werden hier weder Datenbankkenntnisse noch SQL Kenntisse vorausgesetzt.

Aus dem Inhalt:

1. Einleitung
2. Was wir brauchen - Vorbereitung
3. Datenbanken, Tabellen, SQL
4. Mit dem Server verbinden
5. Anlegen einer Datenbank
   Ausführen eines Querys
6. Anlegen einer Tabelle
   Verfügbare SQL Datentypen
   Schlüssel und Indizes
   CREATE TABLE
   Löschen einer Tabelle
7. Datensätze einfügen, editieren und löschen
   Einen Datensatz einfügen
   Einen Datensatz editieren
   Einen Datensatz löschen
8. Datensätze filtern
   ORDER BY
   WHERE

Link zum Tutorial: mySQL Datenbanken mit Delphi - Teil 1.

[fwsp]

Code:

Homepage von Michael Puff
404 Not Found

File or Directory not found.

[url]http://www.michael-puff.de[/url]
[url]http://programme.michael-puff.de[/url]
Apache/1.3.37 Server at [url]www.luckie-online.de[/url] Port 80

[mimi]

ich glaube das die units die ich da runtergealden habe für delhpi warscheinlich zu alt sind... du gibts ja diesen link an:http://www.fichtner.net/delphi/mysql.delphi.phtml
dort gibt es die units aber nur für die version: 3.23.49 aber es gibt ja inzwischen die 4.... version von mySql bzw. die 5.... version.. könnte es dran liegen und wenn kennt eine eine frei enhältliche version für DP7 PE ?

[mimi]

ich konnte eine verbinung herstellen nach langen hin und her... uns zwar mit dem "Tutorial von Chewie "

[Luckie]

Und was macht der anderes, dass es klappt?

[mimi]

der nutzt glaube ich die DLL nicht bzw. bindet die richtig ein ich weiß es leider nicht genau...
ich hänge es mal als anhang dran
die tabblen werden noch nicht gefüllt aber ich kann mich anmelden... an den mySql server !

[Luckie]

Geht wunderbar. die mysql.pas muss im Projektverzeichnis liegen und natürlich die libmysql.dll im Exe Verzeichnis. Das Passort ist übrigens standardmäßig leer.

[mimi]

geht immer noch nicht und es liegt nicht am tutrial bei den andren tutorial geht es auch nicht...

Zitat:

---------------------------
Adressdbsql
---------------------------
Zugriffsverletzung bei Adresse 00E64CD7 in Modul 'libmysql.dll'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------

[mimi]

ich habe herrausgefunden das der fehler hier lieg:

Delphi-Quellcode:

function Insert(Kontakt: TKontakt): Boolean;
var
  query: string;
  ErrorCode: Integer;
begin
  ErrorCode := mysql_select_db(Descriptor, DBNAME);

wenn das weiter hilft... ich weiß einfach nicht mehr weiter.... warscheinlich muss ich das projekt MySql + Delphi aufgeben weil es einfach nicht funktniert.... ich dachte mir schon das es schwer werden wird aber das es schon beim hinzufügen nicht klappt... ich habe mir MySQL Query Browser runtergeladen und damit rumgespielt damit geht es... d.h. es liegt an delhpi bzw. an dieser DLL.... warum ?

[mimi]

ich habe gesehen das es hier schon fehler gibt:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var
  Cols: TCols;
  Rows: TRows;
  query: string;
  i: Integer;
  s: string;
begin
  if FirstTime then
  begin
    FirstTime := False;
    Form1.Refresh;
    StringGrid1.Refresh;
    Descriptor := mysql_init(nil);
    log('Mit Datenbankserver verbinden');

    Descriptor := Connect(Descriptor, PChar(HOST), Pchar(USER), Pchar(PW), PChar(''), PORT);
    ShowMessage(mysql_error( Descriptor));

ich kann nochnicht mal auf Descriptor zugreifen....

[Luckie]

Der Fehler wäre relativ einfach zu beheben gewesen:

Delphi-Quellcode:

if ExecQuery(DBNAME, query, Cols, Rows) then // <- if eingefügt
      begin
        for i := 0 to length(Cols) - 1 do
        begin
          s := s + Cols[i];
        end;
        for i := 0 to length(Rows[0]) - 1 do
        begin
          s := s + ' ' + Rows[0, i];
        end;
      end;

Wenn man dann die DB und die Tabelle erzeugt, geht alles wunderbar.