Witam.
Do tego momentu nie było mi potrzebne ale teraz muszę zrobić sprawdzanie poprawności wykonanych poleceń. I wszystko było by ok gdyby nie to że tabela jest tworzona a mimo to pojawia się komunikat ShowMessage('błąd tworzenia tabeli');
Czy da się coś z tym zrobić?
Dodam jeszcze że było by dobrze żeby ta struktura albo coś w tym stylu działało, bo ten sam sposób sprawdzania np czy insert lub wyszukiwanie zostało poprawnie zrobione ... więc sprawdzanie typu select raczej odpada.
komponenty ZeosLib 6.6.6-stable
Kod w dużym uproszczeniu:
function TbLog_Tworz: Boolean;
begin
Result:= False;
if not DM.ZConnection.Connected then exit;
DM.ZQuery.Active:= False;
DM.ZQuery.SQL.Clear;
DM.ZQuery.SQL.Text:=
'CREATE TABLE IF NOT EXISTS TabelaDane ('+
'id int UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, '+
'czas char(23), tekst char(255) )';
try
DM.ZQuery.Active:= True;
Result:= True;
ShowMessage('tabela utworzona');
except
ShowMessage('błąd tworzenia tabeli');
end;
end;
poprawiłem błąd ortograficzny w tytule - bogdans