SQL query

[DeddyH]

Mach Dir doch schnell ein Testprojekt, packe dort eine TADOConnection aufs Form und lass Dir den ConnectionString generieren. Evtl. funktioniert der "Microsoft OLE DB Driver for SQL Server", zumindest bei SQLExpress 2008 bekomme ich damit eine Verbindung.

[schlecki]

du kannst dir auch einfach eine leere datei erstellen, die du "Test.udl" nennst.
Dann einen Doppelklick darauf, und der Editor geht auf, in dem du ganz bequem alles einstellen kannst. Du kannst sogar diese UDL-Datei in dem Connectionstring angeben und so die Verbindung über die Datei nutzen (anstatt hard-coded)...

[value is NULL]

Hi Schlecki habs jetzt im endeffekt eh so zum testen:

Delphi-Quellcode:

begin
opt.addoption('provider','p','provider',false,true,'','Set provider path');
  try
    opt.parse;
    if paramcount = 0 then
      raise exception.Create('Parameter missing!');
   except
      on e : exception do begin
        writeln(e.message);
        writeln(opt.usage);
        halt(1);
      end;
   end;

provider := opt.getoptasstr('provider');


try
  CoInitialize(nil);
  Conn := TADOConnection.Create(nil);
  Conn.ConnectionString := 'Provider='+provider+';Password=;Persist Security Info=True;User ID=sa;Initial Catalog=EnvironmentSafe;Data Source=voxctv3';
  Conn.Connected := true;

//  Query := TADOQuery.Create(nil);
//  Query.Connection := Conn;
//  Query.SQL.Add('select count(*) from tbcall');
//  Query.Active := true;

except
  on e : exception do begin
    writeln(e.message);
    halt(1);
  end;
end;

end.

ich versuche es jetzt mal wie DeddyH gemeint hat...

[value is NULL]

Also, ich bin nun zu foldendem Teilerfolg gekommen mit folgendem Code:

Delphi-Quellcode:

var
  Conn : TADOConnection;
  Query: TADOQuery;
  provider : string;

begin
try
  CoInitialize(nil);
  Conn := TADOConnection.Create(nil);
  Conn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info = False;Initial Catalog=test;Data Source=localhost';
  Conn.Connected := true;

  Query := TADOQuery.Create(nil);
  Query.Connection := Conn;
  Writeln(Query.SQL.Add('select count(*) from tbuser'));
  Query.Active := true;

except
  on e : exception do begin
    writeln(e.message);
    halt(1);
  end;
end;

end.

Wenn ich diesen Query abschieße: Writeln(Query.SQL.Add('Select count(*) from tbuser')); bekomme ich 0 zurück ich habe jedoch 17 einträge? ist das eventuell der Fehlercode?
wenn ja wie bekomme ich den Output des Query's?

Vielen Dank im Voraus!

PS: für die MSDE wird SQLOLEDB.1 verwendet

LG

[Hansa]

Du setzt ja das active := true; auch zu spät.

[value is NULL]

und wo gehört das active hin?

[p80286]

ich würde es ungefähr so machen

Delphi-Quellcode:

query.close;
query.sql.text:='select count(*) as Meinwert from mytable';
query.open;
while not query.eof do begin
  meinWert:=query.fieldbyname('Meinwert').asinteger;
  query.next;
end;
query.close;

Ist natürlich meistens Blödsin mehrere Werte (wenn vorhanden) in eine Variable auszulesen.
Ist aber als Grundstruktur ganz brauchbar.

Gruß
K-H

[GHorn]

Wie Hansa schon schrieb:

Zitat von Hansa:

Du setzt ja das active := true; auch zu spät.

Du musst doch erst das Ergebnis einlesen bevor Du es mit WritLn() ausgeben kannst. Der active-Befehl schickt Dein
select-statement auf die Reise.

So sollte es gehen:

Delphi-Quellcode:

query.sql.text:='select count(*) as Meinwert from mytable';
query.Active := true;
WriteLn(query.FieldByName('Meinwert').AsString);

[value is NULL]

hm alles klar so funktionierst

Delphi-Quellcode:

var
  Conn : TADOConnection;
  Query: TADOQuery;
  wert : string;

begin
try
  CoInitialize(nil);
  Conn := TADOConnection.Create(nil);
  Conn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info = False;Initial Catalog=test;Data Source=localhost';
  Conn.Connected := true;

  Query := TADOQuery.Create(nil);
  Query.Connection := Conn;
  query.SQL.Text := 'select count(*) as wert from tbuser';
  query.Active := True;
  Writeln(query.FieldbyName('wert').asstring);

except
  on e : exception do begin
    writeln(e.message);
    halt(1);
  end;
end;

end.

aber das mit dem query.SQL.Text := 'select count(*) as wert from tbcall'; ist für mich irgendwie unlogisch
dh. ich setze praktisch in meinem query die variable?

LG und DANKE

[joachimd]

Zitat von schlecki:

du kannst dir auch einfach eine leere datei erstellen, die du "Test.udl" nennst.
Dann einen Doppelklick darauf, und der Editor geht auf, in dem du ganz bequem alles einstellen kannst. Du kannst sogar diese UDL-Datei in dem Connectionstring angeben und so die Verbindung über die Datei nutzen (anstatt hard-coded)...

...und auf diese Weise herausfinden, dass der provider SQLOLEDB.1 heißt