如何读取udl文件(ADO配置文件) (200分)

  • 主题发起人 主题发起人 eire
  • 开始时间 开始时间
E

eire

Unregistered / Unconfirmed
GUEST, unregistred user!
如何读取udl文件(ADO配置文件)
 
贴出来看看,让我们也学习学习
 
同意楼上建议,楼主兄弟可否贴出来共享一下!
 
TPARENTCLASS(SELF.OWNER).XXMethod
 
upupupupupupupupupupupupupup
 
如何读取udl文件(ADO配置文件)

它是个文本文件呀,
也可以用读取INI文件的方式读取
 
楼上说的错,
UDL文件本身就可以用记事本打开
例如一个连接SQLServer数据库的例子
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Land_LR;Data Source=LAND05


 
来晚了,
udl本身是个文本文件,你可以在程序中把这个文件的内容读出来(就是处理文本文件),
怎么样处理文本文件,就怎么样处理udl文件即可
 
你可以直接使用“FILE NAME=路径+文件名”来使用这个udl
 
MEMO1.LOADFROMFILE('C:/ABC.UDL');
 
不能用读取INI方式读取.
怎么使用UDL我知道的,只是想把UDL文件中各项的值显示在FORM上并让用户可以修改.
 
请参照Delphi自带的ADO例子:ADOTest,内有详细介绍。
 
建议改造delphi自带的一个窗体,完成你需要的功能
文件名称 AdoConEd.pas,自己查找吧。另外还要一段代码
function TMainForm.EditConnectionString(AComponent: TComponent): Boolean;
var
PropInfo: PPropInfo;
NewConnStr,
InitialConnStr: WideString;
begin
Result := False;
with TConnEditForm.Create(Application) do
try
caption := 'dsfasdfasdfasdf';
PropInfo := GetPropInfo(AComponent.ClassInfo, 'ConnectionString');
InitialConnStr := GetStrProp(AComponent, PropInfo);
NewConnStr := Edit(InitialConnStr);
if NewConnStr <> InitialConnStr then
begin
SetStrProp(AComponent, PropInfo, NewConnStr);
Result := True;
end;
finally
Free;
end;
end;

 
安装ExpressQuantumGrid 4 Suite的后,启动DELPHI6的时候提示"无法定位程序入口@variant@...@findVarData@.....@variant",进入后,发现ExpressQuantumGrid 4 Suite并没有安装成功,这是为什么? 请求指教
 
!如何读取udl文件(ADO配置文件) !
 
能用读取INI方式读取.
怎么使用UDL我知道的,只是想把UDL文件中各项的值显示在FORM上并让用户可以修改.
 

Similar threads

后退
顶部