Problem mit MySQL-Verbindung (MySQL ODBC 3.51 Driver)

[mirko2000]

Hallo!

Ich versuche gerade auf die MySQL-Datenbank (Version 4.20d) mit dem ODBC Treiber (MySQL ODBC 3.51 Driver) zuzugreifen.

Kann mir jemand sagen, warum keine Daten angezeigt werden können? Die Attributnamen werden ausgegeben es werden nur keine Daten ausgegeben obwohl 3 Datensätze in der Tabelle vorhanden sind!?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  con : Connection;
  rst : Recordset;
  fld : Field;
  r, x, y, i : Integer;
begin
  con := CoConnection.Create;
  rst := CoRecordset.Create;

  con.Open('bl', 'BENUTZER', 'PASSWORT', -1);

  rst.Open('SELECT * FROM abteilung', con, adOpenStatic, adLockOptimistic, adCmdText);

  x := rst.Fields.Count-1;
  y := rst.RecordCount;

  StringGrid1.ColCount := x+1;
  StringGrid1.RowCount := y+1;

  For i := 0 to x do
  begin
    StringGrid1.Cells[i, 0] := rst.fields[i].Name;
  end;

  r := 1;
  rst.MoveFirst;

  while not rst.EOF do
  begin
    For i := 0 to x do
    begin
      fld := rst.Fields[i];
      StringGrid1.Cells[i, r] := fld.Value;
    end;

    r := r + 1;
    rst.MoveNext;
  end;

  rst.Close;
  rst := nil;
  con.Close;
  con := nil;
end;