title image


Smiley Re: Delphi 7 Pers ADO ACCESS
Hier mal eine ganz einfache native SQL-Abfrage, achtung es werden keinerlei Prüfungen gemacht.





uses

ADODB_TLB;



const

Connect='Provider=SQLOLEDB.1;Data Source=ServerName;Initial Catalog=DatenbankName;';



var

aCon: Connection;

aRS: Recordset;

anzahl: integer;



begin

aCon:=CoConnection.Create;

aRS:=CoRecordset.Create;

aRS.Cursorlocation:=adUseClient;

aCon.Open(Connect,'Username','Password',0);

aRS.Open('SELECT COUNT(*) FROM TabellenName',aCon,3,3,0);

anzahl:=Integer(aRS.Fields[0].Value);

aRS.Close;

aCon.Close;

aRS:=nil;

aCon:=nil;

end;






cu
Ich bin wie ich bin
Die mich kennen mögen mich
die mich nicht mögen können mich


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: