Check om tabel eksisterer for oprettelse - SQL

Hvorfor ikke bare:
  SELECT FROM dintabel
og test paa fejl?

Ellers proev:

SELECT name FROM MSysObjects WHERE type=1 AND flags=0

"Det er et 100% must at det er ren SQL statements .."

Why not just try and create and catch any error, nothing at all wrong in doing that.

terry: Arne_v already suggested that (in Danish).

Knowing this is used in a Delphi-application it is very easy to try-catch if table already exists. Had it just been SQL-server where the answer lay in the system-tables. With Access you'll have to catch the exceptions.

so, in Delphi:

:o)
Arne suggested selecting, I suggested creating only which only requires one operation

terry: You are right. No need to peek. Just try to create a table if needed. That would work fine (the Access way)

I'm lazy :o)

inspireret af:
http://msdn.microsoft.com/en-us/library/aa165325(office.10).aspx

i vbscript: (erstat mdb path)


Set cat = createobject("adox.Catalog")
cat.ActiveConnection ="provider=microsoft.jet.oledb.4.0;data source=<path to .mdb fil>"
For Each tblList In cat.Tables
      If tblList.Type = "TABLE" or tblList.type="LINK" Then
        lst = lst & tblList.Name & vbTab & vbcrlf
      End If
Next
Set cat = Nothing
MsgBox lst,,"Tables"

Min Delphi kode ser sådan her ud for nuværende
Det er UniDAC UnifiedSQL script der bruges så jeg kan klare alle de databasetyper jeg skulle komme ud for. Problemet nu er at fejlen i Execute ikke bliver fanget.

Procedure DB_Create_Table(aTable : String);
  Var
    CreateTable            : TUniScript;
Begin
  CreateTable := TUniScript.Create(Nil);
  CreateTable.Connection := frmDataConnection.conDBserver;
  Try
    With CreateTable Do
      Begin
        SQL.Clear;
        SQL.Add( ' {IF ACCESS} ');
        SQL.Add( ' CREATE TABLE ' + aTable );
        SQL.Add( ' {ELSE} ');
        SQL.Add( ' CREATE TABLE IF NOT EXISTS ' + aTable );
        SQL.Add(' {ENDIF}');
        SQL.Add(' (ID INTEGER NOT NULL PRIMARY KEY)');
        SQL.Add( ' {IF MYSQL} ');
        SQL.Add(' (ENGINE=InnoDB DEFAULT CHARSET=latin1');
        SQL.Add(' {ENDIF}');
        Try
          Execute
        Except
          On E:Exception Do
            Begin
              Log_Error(E.Message);
            End
        End;
      End;
  Finally
    CreateTable.Free;
  End;
End;

Hi Hugo
Maybe you have a better chance of getting an answer to your Delphi code in that category

Returnerer Execute en status værdi ?

Ellers kan det jo være at du bliver nødt til at teste om tabellen eksisterer.

Desværre er Execute en procedure uden parametre og returnerer derfor ikke noget resultat.
Efter lang tid søgen fandt jeg ud af at hvis jeg smed den visuelle part af UniScript på min dataconnection form, så fik jeg lige pludselig en OnError event jeg kan bruge til noget.
(jeg kan ikke lige gennemskue om den kan bruges som jeg startede)

Men da der er kommet mange gode input fra arne_v, terry og hrc, synes jeg at i skal smide et svar.

HRC> jeg studser lidt over Query.SQL.Add(format('from %s',[aTablename]));
Hvorfor format?

svar fra mig

hugo: Fordi jeg ikke kan lade være med at bruge Format. Det er hyppig kilde til fejl.

OK - ja fejl er aldrig godt.

Afventer svar fra HRC & Terry

hrc og terry !!!!

arne_v>  da hrc og terry ikke har reageret får du hele puljen som forsinket julegave :-)

Oops, sorry for my absence, actually don't think I received any mails concerning this Q!

Anyway I see Arne doesn't need so many more point to get past the 1 million so lets support him there.