zoukankan      html  css  js  c++  java
  • 在Delphi中调用"数据链接属性"对话框设置ConnectionString

    项目需要使用"数据链接属性"对话框来设置ConnectionString,查阅了一些资料,解决办法如下:

    1.Delphi

    Delphi中比较简单,步骤如下:

    方法1: use ADOConED;
        ADOConED.EditConnectionString(ADOConnection1);
        这样我们就可以使用:
        ShowMessage(ADOConnection1.ConnectionString)
        查看ADOConnection1ConnectionString


    方法2: ADOConnection1.ConnectionString:=PromptDataSource(handle,'');
     或者:
        ADOConnection1.ConnectionString:=PromptDataSource(handle,ADOConnection1.ConnectionString);

    :PromptDataSource函数的代码:
    function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
    var
    DataInit: IDataInitialize;
    DBPrompt: IDBPromptInitialize;
    DataSource: IUnknown;
    InitStr: PWideChar;
    begin
    Result := InitialString;
    DataInit := CreateComObject(CLSID_DataLinks) as IDataInitialize;
    if InitialString <> '' then
    DataInit.GetDataSource(nil, CLSCTX_INPROC_SERVER,
    PWideChar(InitialString), IUnknown, DataSource);
    DBPrompt := CreateComObject(CLSID_DataLinks) as IDBPromptInitialize;
    if Succeeded(DBPrompt.PromptDataSource(nil, ParentHandle,
    DBPROMPTOPTIONS_PROPERTYSHEET, 0, nil, nil, IUnknown, DataSource)) then
    begin
    InitStr := nil;
    DataInit.GetInitializationString(DataSource, True, InitStr);
    Result := InitStr;
    end;
    end;

  • 相关阅读:
    [CTF]zip伪加密
    Node.js躬行记(5)——定时任务的调试
    不一样的资产安全 3D 可视化平台
    冬季里有温度的 3D 可视化智慧供热系统
    公路项目建设可视化进度管理
    ElementUI时间选择控件提交的时间为UTC时间
    Orcal创建触发器
    Orcal常用查询实例集合
    代码优化风格分享
    查某月的天数
  • 原文地址:https://www.cnblogs.com/jijm123/p/7445471.html
Copyright © 2011-2022 走看看