我从here下载了免费的DBX驱动程序。我已经试了两天了,没有成功。
下面是我的代码的快照:
unit uMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, SqlExpr, WideStrings, DBXDynalink, DB;
type
TMainForm = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.Button1Click(Sender: TObject);
var C: TSQLConnection;
begin
C := TSQLConnection.Create(Self);
try
C.DriverName := 'FirebirdConnection';
C.LibraryName := 'dbxfb4d12.dll';
C.VendorLib := 'fbclient.dll';
C.GetDriverFunc := 'getSQLDriverFIREBIRD';
C.Params.Add('User_Name=SYSDBA');
C.Params.Add('Password=masterkey');
C.Params.Add('Database=C:\MyDB.fdb');
C.Open;
if C.Connected then
ShowMessage('Connection is active')
finally
C.Free;
end;
end;
字符串
运行测试后,我收到错误:
无法加载fbclient.dll(错误代码22)。系统路径中可能缺少它。
在我的应用程序路径中有必需的库,甚至在System32路径中也有。我没有使用dbxdrivers.ini和dbxconnections.ini。
那么这是怎么回事呢?我有 Delphi 2009年的最新更新。
2条答案
按热度按时间qzwqbdag1#
您是否也尝试将fbclient.dll文件与可执行文件放在同一个文件夹中?
ddhy6vgd2#
有时需要将fbclient.dll重命名为gds32.dll,这可能会奏效。