Hallo,
arbeite mit den Komponenten von
MySQL Access.
Möchte über eine Checkbox prüfen, ob die Table in der Datenbank vorhanden ist.
Wenn nicht, soll die Table in die
DB geschrieben werden.
Das prüfen geht soweit ganz gut!
Habe das Problem eine Table anzulegen.
Delphi-Quellcode:
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked = true then
begin
MetaDataBosMon.MetaDataKind := 'Tables';
MetaDataBosMon.Restrictions.Values['TABLE_NAME'] := 'telegramstorage1';
MetaDataBosMon.Open;
if not MetaDataBosMon.Eof then begin
ShowMessage('Tabellenschema prüfung (BosMon) existed!');
mysqlbosmon.Active := true;
refresh_bosmon.Enabled := true;
BitBtn2.Enabled := true;
BitBtn3.Enabled := true;
BitBtn4.Enabled := true;
BitBtn5.Enabled := true;
BitBtn6.Enabled := true;
CheckBox3.Enabled := false;
end else begin
refresh_bosmon.Enabled := false;
mysqlbosmon.Active := false;
BitBtn2.Enabled := false;
BitBtn3.Enabled := false;
BitBtn4.Enabled := false;
BitBtn5.Enabled := false;
BitBtn6.Enabled := false;
CheckBox3.Enabled := true;
ShowMessage('Tabellenschema prüfung (BosMon) failed!');
CheckBox3.Checked := false;
script_bosmon.SQL.Text := CREATE TABLE `users` ( // also ab hier habe ich ein Problem! Was ist falsch an "Create Table" ??
`id` int(3) NOT NULL auto_increment,
`login` varchar(8) default NULL,
`password` varchar(8) default NULL,
PRIMARY KEY (`id`)
) TYPE=MyISAM AUTO_INCREMENT=3 ;
script_bosmon.Execute;
end;
end;
end;