whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

28 Visitors Online


 
...create a table including an AutoInc field (ADO/MSSQL)?
Autor: Mathias C. Berens
[ Print tip ]  

Tip Rating (34):  
     


// 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;


 

Rate this tip:

poor
very good


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