使用FireDac(Delphi)在Firebird中创建数据库

2023年9月3日 433次阅读

我最近从AnyDac改为FireDac(8.0.5.3365).我们正在运行Delphi 2006.

当我使用此组件的AnyDac版本时,我可以通过执行以下操作来创建新数据库.

设置我的连接

fConnection.LoginPrompt := false;
fConnection.ResourceOptions.SilentMode := true;

fConnection.Params.Clear;
fConnection.Params.Add(Format('DriverID=%s',          ['IB']));
fConnection.Params.Add(Format('Database=%s',          [fConnectionInfo.xDatabase]));
fConnection.Params.Add(Format('CharacterSet=%s',      ['UTF8']));
fConnection.Params.Add(Format('user_name=%s',         [fConnectionInfo.xUserName]));
fConnection.Params.Add(Format('password=%s',          [fConnectionInfo.xPassword]));
fConnection.Params.Add(Format('ExtendedMetadata=%s',  ['True']));
fConnection.Params.Add(Format('CreateDatabase=%s',    ['Yes']));
fConnection.Params.Add(Format('Protocol=%s',          ['Local']))

//database path = C:\Users\LoginName\AppData\Local\AppName\TestDB.FDB

打开和关闭连接

fConnection.Open;
fConnection.Close;

然后我可以在现有数据库上运行我的create table sql脚本.

但是现在当我使用FireDac版本执行此操作时,Open命令会引发fbe_unavailable错误,就像我没有指定CreateDatabase参数一样.

我应该以不同的方式做这件事吗？

谢谢你的时间.

科里.

最佳答案 你在这里有一个完整的例子
http://docwiki.embarcadero.com/RADStudio/XE5/en/Executing_SQL_Scripts_%28FireDAC%29

例如,以下Firebird脚本创建数据库,可以使用TFDScript执行：

SET SQL DIALECT 3;
SET NAMES UTF8;
SET CLIENTLIB 'C:\fb25\bin\fbclient.dll';
CREATE DATABASE 'E:\Test2.ib'
  USER 'sysdba' PASSWORD 'masterkey'
  PAGE_SIZE 16384
  DEFAULT CHARACTER SET NONE;

SET TERM ^ ;

CREATE PROCEDURE MY_PROC RETURNS (aParam INTEGER) AS
BEGIN
  aParam = 10;
END^

您应该使用CreateDatabase = Yes连接定义参数
除了其他必要参数：
http://docwiki.embarcadero.com/RADStudio/XE5/en/Connect_to_Firebird_(FireDAC)

点赞