1

我正在尝试以编程方式为 Microsoft Paradox 驱动程序 (ODBC) 添加系统 DSN，但我找不到任何关于需要传递 SQLConfigDataSource 的属性参数的键的文档。我可以成功地添加一个 MS Access 系统 DSN，但那是因为那里有许多包含密钥的示例（例如 DBQ）。我的代码（Delphi）不起作用，如下所示。

我尝试了很多不同的密钥，但都没有成功。例如，我检查了注册表中 HKEY_LOCAL_MACHINE\Software\Wow6432Node\ODBC\ODBC.INI（32 位 ODBC）下出现的名称/值对，但这并没有解决问题。

有谁知道我需要在 SQLConfigDataSource 的 lpszAttributes 参数中传递哪些键才能以编程方式创建 Paradox 系统 DSN？

function SQLConfigDataSource (
    hwndParent:     SQLHWnd;
    fRequest:       WORD;
    lpszDriver:     PChar;
    lpszAttributes: PChar
  ): SQLBOOL; {$IFDEF MSWINDOWS} stdcall {$ELSE} cdecl {$ENDIF};
  external 'odbccp32.dll' name 'SQLConfigDataSourceW';

procedure TForm1.Button1Click(Sender: TObject);
var
  Attributes: string;
  RetVal: Boolean;
begin
  Attributes := 'DSN=' + 'Paradox Data#0;
  Attributes := Attributes + 'DESCRIPTION=Paradox DSN for sample data'#0;
  Attributes := Attributes + 'DEFAULTDIR=c:\Users\Public\Documents\RAD Studio\12.0\Samples\Data'#0#0;
  RetVal := SqlConfigDataSource(0, ODBC_ADD_SYS_DSN, 'Microsoft Paradox Driver (*.db)', PChar(Attributes));
  if not RetVal then
    ShowMessage('Could not add DSN');
end;

我最初在这里报告了答案，但是 warrenp 和 crefird 都建议我回答我自己的问题（即使归功于 crefird）。你会在下面找到我的答案。

4

1 回答 1

2

已找到解决方案。crefird 在对这个问题的第一条评论中发布了一个指向 Paradox ODBC 驱动程序连接字符串的链接，并且使用在那里找到的名称我能够创建 ODBC 系统 DSN（数据源名称）。

我最初的尝试很接近，但你不会相信缺少了什么。我没有完全正确的驱动程序名称。在我上面的代码中，我输入了驱动程序名称

'Microsoft Paradox Driver (*.db)'

正确的驱动名称是这个

'Microsoft Paradox Driver (*.db )'

是的，关闭括号之前的额外空间实际上是正确的驱动程序名称。哇！

以下是我最终编写的两个用于动态创建 DSN 的例程：

implementation

uses Registry,  Winapi.Windows, System.SysUtils;

const
  ODBC_ADD_SYS_DSN    = 4;  // add a system DSN

function SQLConfigDataSource( hwndParent: LongWord ; fRequest: Word ;
  lpszDriver: PChar ; lpszAttributes: pchar ): boolean;
  stdcall; external 'ODBCCP32.DLL' name 'SQLConfigDataSourceW';

procedure CreateParadoxDSN(DataSourceName: string; DataDirectory: string);
var
  Attributes: string;
  RetVal: Boolean;
  DriverName: PChar;
  DirName: string;
begin
  DriverName := 'Microsoft Paradox Driver (*.db )';
  Attributes := 'DSN=' + DataSourceName + #0;
  Attributes := Attributes + 'DefaultDir=' + DataDirectory + #0;
  Attributes := Attributes + 'Dbq=' + DataDirectory + #0;
  Attributes := Attributes + 'UID='#0;
  Attributes := Attributes + 'Fil=Paradox 5.0'#0#0;
  Attributes := Attributes + 'DESCRIPTION=' + DataSourceName + #0#0;
  RetVal := SqlConfigDataSource(0, ODBC_ADD_SYS_DSN, DriverName,
                                PChar(Attributes));
  if not RetVal then
  begin
    Exception.Create('Failed to create data source name. Cannot continue');
  end;
end;

function ParadoxDSNExists(DataSourceName: string): Boolean;
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    Result := Registry.KeyExists('Software\Wow6432Node\ODBC\ODBC.INI\' +
                              DataSourceName);
  finally
    Registry.Free;
  end;
end;
于 2014-08-12T20:41:40.570 回答