tabelle anlegen

[yoshie]

hi Leute ich leg wie folgt eine Tabelle in miner database an

Delphi-Quellcode:

procedure TAdministration.anlegenClick(Sender: TObject);
begin
  hauptfenster.dbMain.Hostname:=host.Text;  //Server
  hauptfenster.dbMain.user:=user.Text;  //Benutzername
  hauptfenster.dbMain.Password:=passwort.Text;  //Passwort
  hauptfenster.dbMain.Database:=database.Text;  //Name der Datenbank
  hauptfenster.dbMain.Connected:=True;  //Verbindung herstellen
  try
      hauptfenster.qrMain.SQL.Text:='CREATE TABLE `'''+etabelle.text+'''` ('+
                   '`id` INT NOT NULL AUTO_INCREMENT PRIMARY KEY,'+
                   '`Haus` char(2) NOT NULL,'+
                   '`Etage` char(25) NOT NULL,'+
                   '`ZNr` char(4) NOT NULL,'+
                   '`TA` char(255) NOT NULL,'+
                   '`ZBe` char(255) NOT NULL,'+
                   '`AA` char(255) NOT NULL'+
                   ');';
  hauptfenster.qrMain.ExecSql;

finally
    hauptfenster.dbMain.Connected:=False;
  end;

end;

end.

Das Problem ist, das er wenn er diese dann in der db anlegt, so schreibt 'Tabelle' , also in Anführungszeichen und danach kann ich die Datensätze nicht merh ändern, weil er dann die Abfragen so schreibt. z.B.

select * from 'Tabelle'' also hinten 2 Anführungszeichen, ich weiß nur nicht wie ich diese Dinger wegbekomme wenn man normal eine Tabelle anlegt über phpmyadmin oder so, dann schreibt er ja auch nuur Tabelle und nciht `Tabelle` , Ich verstehe es nciht.


vielleicht könn IHr mir ja helfen wäre toll

cu yoshie

[Memo]

Alt

Delphi-Quellcode:

                                            
      hauptfenster.qrMain.SQL.Text:='CREATE TABLE `'''+etabelle.text+'''` ('+

Neu
      hauptfenster.qrMain.SQL.Text:='CREATE TABLE '+etabelle.text+'('+

[yoshie]

vielen dank, hat funktioniert

schönen abend noch

yosh