was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1548)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (116)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

17 Visitors Online


 
...einen Primärschlüssel zu einer Tabelle hinzufügen (ADO/MSSQL)?
Autor: Mathias C. Berens
[ Tip ausdrucken ]  

Tip Bewertung (30):  
     


// Erzeugt eine Tabelle mit dem Namen MYTABLENAME, mit den Spalten ID,
// MYTEXT1, MYTEXT2.
// (Der Name der ID Spalte kann natürlich frei gewählt werden.)
// ID ist der Primärschlüssel der Tabelle. Er ist ein Integer, der sich
// automatisch für jede Zeile
// der Tabelle erhöht. ID wird nie doppelt vorkommen.
// MYTEXT1 und 2 sind vom Typ String.
// Ich verwende die ADOConnection um mit Jet 4.0 auf eine Access-
// datenbank (*.mdb) zuzugreifen.
// Der Syntax ist MSSQL, wenn ihr das für PHP oder so verwenden wollt,
// muss man das ein bissel umformulieren ;)

// Creates a Table called MYTABLENAME with a unique identifier called
// "ID". ID increases with every new row automatically. MYTEXT1 and 2
// are Strings. Name the colums as you want to.
// I used the ADOConnection to access a MS-Access Database (*.mdb)
// via Jet 4.0.
// The Syntax is MSSQL, you have to transform it to use it in PHP or so.



uses AdoDB;

var 
  
q: TAdoQuery; 
  db: TAdoConnection;
begin

    
// Initialize db here

    
q := TADOQuery.Create(nil);
    q.Connection := db;
    q.Close;
    q.SQL.Clear;
    q.SQL.Add('Create Table MYTABLENAME (ID COUNTER PRIMARY KEY, MYTEXT1 String, MYTEXT2 String);');
    q.Prepared := True;
    try
      
q.ExecSQL;
    except 
end
;
    q.Free;

end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners