Delphi-Quellcode:
procedure TVocabularyBook.TableExists(mTable: String);
begin
Q.SQL.Text := 'SHOW TABLE STATUS LIKE `'+mTable+'`;';
Q.Open;
//wenn ein Ergebnis kommt, steht es nun auf dem ersten Datensatz, ansonsten ist EOF true
while not Q.EOF do
begin
//soll den Wert des ersten Feldes des aktuellen Datensatzes ausgeben
ShowMessage(Q.Fields[0].AsString);
//nächster Datensatz
Q.Next;
end;
Q.Close;
end;
Jetzt meckert er beim Q.Open aber das er ZDbcSqLiteUtils.pas nicht findet. Ich hab auch schon nachgeschaut, ich hab zwar eine ZDbcSqLiteUtils.dcu aber keine ZDbcSqLiteUtils.pas
Ich benutze übrigens Delphi 2010 mit zeos 7.0.0 alpha.