客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
一。udl文件关联程序是OLE DB CORE SERVICE，所以双击会弹出DATA LINK PROPERTIES对话框，可以有记事本打开， 记录了数据库联接的相关信息。 IDataInitialize它是OLEDB单元提供的一个接口， 通过它可以创建读写数据库连接的初始信息到指定的UDL文件。 示例：
implementation
uses oledb,ActiveX,ComObj; //引入单元 {$R *.dfm} { TForm1 } procedure TForm1.Btn1Click(Sender: TObject); var fileName,serName:String; begin fileName:=ExtractFilepath((Application.ExeName))+'sql.UDL'; Init_ConnectionString(fileName,serName); mmo1.Lines.Add(serName); //serName为：Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False; //Initial Catalog=Northwind;Data Source=34F6596280EA4B5\sql2000 try
Con1.Open; mmo1.Lines.Add(BoolToStr(Con1.Connected)); //-1 except mmo1.Lines.Add('异常了'); mmo1.Lines.Add(BoolToStr(Con1.Connected)); //0 end; end; procedure TForm1.Init_ConnectionString(FileName: string; var ConString: string); //ConString用了传址方式 var DataInit:IDataInitialize; //定义接口 fname,s:POleStr; tmp:widestring; begin tmp:= filename; //注意必须经过widString转化，否则得不到值 fname:=POleStr(tmp); DataInit:=CreateComobject(CLSID_DATALINKS) as IDataInitialize; //创建接口 DataInit.LoadStringFromStorage(fname,s); mmo1.Lines.Add(s); ConString:=s; DataInit:=nil; //释放 end; end. |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论