unit1.pas

简单连接数据库 简单连接数据库 简单连接数据库

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TFrmConn = class(TForm)
    connDate: TADOConnection;
    BtnConn: TButton;
    ADOQuery1: TADOQuery;
    btnSQLText: TButton;
    Button1: TButton;
    Memo1: TMemo;
    procedure BtnConnClick(Sender: TObject);
  private
    { Private declarations }
  public
   
  aConStr :string;{ Public declarations }
  end;

var
  FrmConn: TFrmConn;

implementation

{$R *.dfm}

procedure TFrmConn.BtnConnClick(Sender: TObject);

begin


  aConStr := PromptDataSource(Application.Handle ,'');
  connDate.connectionString:=aConStr;
  connDate.Connected:=true;

end;

end.