Hier mal ein Schnipsel, den man hier mit etwas Mühe auch selbst gefunden bzw daraus abgeleitet hätte.
Delphi-Quellcode:
var
connection : IDbconnection;
command : IDbCommand;
reader : IDataReader;
parameter : IDataParameter;
begin
connection := deineConnection;
command := connection.CreateCommand();
try
command.CommandText := 'SELECT X FROM Y WHERE Z = :Z';
parameter := command.CreateParameter();
command.Parameters.Add(parameter);
parameter.DbType := DbType.Int32;
parameter.Value := 1;
reader := command.ExecuteReader();
try
while reader.Read() do
irgendeinContainer.Add(new SomeClass(reader.GetInt32(0)));
finally
reader.Dispose();
end;
finally
command.Dispose();
end;
Anzahl := irgendeinContainer.Count;
// mache was mit den Daten...
Für einen einzelnen Wert würde auch das reichen:
Delphi-Quellcode:
command := connection.CreateCommand();
try
command.CommandText := 'SELECT count(X) FROM Y WHERE Z = :Z';
parameter := command.CreateParameter();
command.Parameters.Add(parameter);
parameter.DbType := DbType.Int32;
parameter.Value := 1;
Anzahl := command.ExecuteScalar() as Integer;
finally
command.Dispose();
end;
Auch das war eigentlich ziemlich offensichtlich. Schaue mal in die
SDK Doku (findest du im Start menü), da werden sie geholfen.