AdoConnection 在AdoConnection控件中,有一个ConnectionString属性,会弹出一个设置框可以设置连接的数据库,用户名等。但我想用代码控件,点一下按钮,也可以弹出来设置但不知道怎么写啊,谁能告诉我 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses AdoConEd...........EditConnectionString(AdoConnection) 这个可以打开ado连接对话框,可以自己进行设置参数。 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AdoConEd, StdCtrls, DB, ADODB;type TForm1 = class(TForm) Button1: TButton; ADOConnection1: TADOConnection; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin EditConnectionString(ADOConnection1);end;end. 怎样得到桌面上任意一个像素点的颜色 怎么利用cxgrid的搜索结果? 初学者的悲哀 代码创建odbc连接? 只要你开发的软件和数据库打交道,统统3000元开发费用以内,单机版的超低价开发 Delphi+Aceess出现怪问题? dll使用sHUDPSocket与udpserver的问题 可以在程序运行时修改serversocket和clientsocket的port属性吗? onkeydown、onkeypress、onkeyup三个事件有什么区别? 怎样在表中加入字段? VC怎么转换成delphi,回调函数 业务日期与查询条件时间段比较
EditConnectionString(AdoConnection)
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AdoConEd, StdCtrls, DB, ADODB;type
TForm1 = class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
EditConnectionString(ADOConnection1);
end;end.