delphi里面在console application中如何存取sql server数据库？

Question

下面是有问题的代码，请各位大虾指教，谢谢
   try
     Query1:=TADOQuery.Create(nil);
     Query1.ConnectionString:='Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=127.0.0.1';
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('select top 1 * from ivr_cdr');
     Query1.open;
     writein(Query1.fieldbyname('caller').Value);
     except
     end;

Answer 1

writeln(Query1.fieldbyname('caller').Value);

Answer 2

这个没有关系的吧！delphi不区分大小写的啊！

Answer 3

不好意思，这个是偶不小心打错了，错误不在这里，
program Project2;{$APPTYPE CONSOLE}uses
  SysUtils;begin
try
     Query1:=TADOQuery.Create(nil);
     Query1.ConnectionString:='Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=127.0.0.1';
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('select top 1 * from ivr_cdr');
     Query1.open;
     writeln(Query1.fieldbyname('caller').Value);
     except
     end;
end.这样子还是不对的。

Answer 4

//对了~~~~
program Project1;{$APPTYPE CONSOLE}uses
  SysUtils, AdoDb, activex;
var
  Query1: TADOQuery;
begin
  try
    coinitialize(nil);
    Query1 := TADOQuery.Create(nil);
    Query1.ConnectionString:='Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=127.0.0.1';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select top 1 * from orders');
    Query1.open;
    writeln(Query1.fieldbyname('orderid').Value);
    readln;
    CoUninitialize;
  except
  end;
end.

Answer 5

创建了Query1就要释放
program Project1;{$APPTYPE CONSOLE}uses
  SysUtils, AdoDb, activex;
var
  Query1: TADOQuery;
begin
  try
    coinitialize(nil);
    Query1 := TADOQuery.Create(nil);
    Query1.ConnectionString:='Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=127.0.0.1';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select top 1 * from orders');
    Query1.open;
    writeln(Query1.fieldbyname('orderid').Value);
    readln;
    CoUninitialize;
  except
  end;
  Freeandnil(Query1);
end.

Answer 6

>>创建了Query1就要释放忘了:(