Delphi ADO 连接数据库例子

unit TestConnectioni;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdTCPServer;

type
  TForm1 = class(TForm)
    conn: TADOConnection;
    Button: TButton;
    query: TADOQuery;
    btn1: TButton;
    tcpclient: TIdTCPClient;
    tcpserver1: TIdTCPServer;
    tcpserver: TButton;
    procedure ButtonClick(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure tcpserver1Connect(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
var
  value:string;
  count:Integer;
begin
       Self.conn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=192.168.0.82';
       conn.DefaultDatabase := 'atm';
       conn.LoginPrompt := false;
       conn.Open('sa','Pass!23');
       query.Connection := conn;

       query.Close;
       query.SQL.Clear;
       query.SQL.Add('select * from [atmhost]');
       query.Open;
       if not query.IsEmpty then
       begin
         while not query.Eof do
         begin
           value := query.FieldByName('id').AsString;
           query.Next;
         end;
        
       end;

       query.Close;
       conn.Close;
       ShowMessage('the size of  is:'+value);


end;

procedure TForm1.btn1Click(Sender: TObject);

begin

  Self.tcpclient.Host := '192.168.0.65';
  tcpclient.Port := 8555;
  tcpclient.Connect(1000);
  tcpclient.Write('delphi test');
  tcpclient.Disconnect;

end;

procedure TForm1.tcpserver1Connect(AThread: TIdPeerThread);

begin

     ShowMessage('get the connection');
end;

end.