AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Create Table über die Komponente MySQL Access

Create Table über die Komponente MySQL Access

Ein Thema von Alterauge · begonnen am 6. Dez 2013 · letzter Beitrag vom 7. Dez 2013
Antwort Antwort
Alterauge

Registriert seit: 4. Mär 2011
306 Beiträge
 
Delphi 2010 Professional
 
#1

Create Table über die Komponente MySQL Access

  Alt 6. Dez 2013, 18:12
Datenbank: MySQL • Version: 5.1 • Zugriff über: MyConnection
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;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.709 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Create Table über die Komponente MySQL Access

  Alt 6. Dez 2013, 18:39
// also ab hier habe ich ein Problem! Was ist falsch an "Create Table" ??
Was sagt denn der Compiler?


Wenn dein Quellcode genau so aussieht, wie du es gepostet hast,
dann überlege mal, was du da eigentlich an SQL.Text zuweisen willst.
(string )
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.628 Beiträge
 
Delphi 2007 Enterprise
 
#3

AW: Create Table über die Komponente MySQL Access

  Alt 7. Dez 2013, 02:31
Kleiner Tipp am Rande: TCheckbox.Checked := True // oder False löst TCheckbox.OnClick aus.
Riesen VCL-Bullshit, das gehört eigentlich in ein OnChange. Aber die Dinge sind nun mal wie sie sind.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.286 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Create Table über die Komponente MySQL Access

  Alt 7. Dez 2013, 15:19
Ich vestehe nicht ganz, wozu den ganzen Aufriss, MySQL hat doch da eine bestimmte Sytnax:
SQL-Code:
CREATE TABLE IF NOT EXISTS `users` (
   `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;
Damit wird die Tabelle nur dann angelegt, wenn sie noch nicht existiert.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
2.964 Beiträge
 
Delphi 2010 Enterprise
 
#5

AW: Create Table über die Komponente MySQL Access

  Alt 7. Dez 2013, 18:24
Es geht hier vermutlich um den Aufbau des 'Strings', fehlendes Hochkomma.
Außerdem müsste es glaub ich 'Engine' statt 'Type' heißen, aber ist vielleicht versionsabhängig. Wenn, dann wäre es auch bei der Variante mit Exists ein Fehler.
Gruß, Jo
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf