SQLCONNECTION 连接数据库问题

[thumb0422]

SQLCONNECTION
在SQLCONNECTION 控件上 直接 填写 内容 以及PARAMS里的内容,是可以连接到数据库的内容,但是用代码控制 一直提示错误

Exception class EAccessViolation with message 'Access violation at address 01011244 in module 'dbxfb.dll'. Read of address 0013D76F'. Process Project1.exe (2300)


代码 如下:

  with SQLFB do
  begin
  Connected:=False;
  DriverName:='Firebird';
  GetDriverFunc:='getSQLDriverINTERBASE';
  LibraryName:='dbexpint.dll';
  VendorLib:='fbclient.dll';

  Params.Values['User_Name']:='sysdba';
  Params.Values['Password']:='masterkey';
  Params.Values['SQLDialect']:='3';
  Params.Values['Interbase TransIsolation']:='ReadCommited';
  Params.Values['Database']:='192.168.11.9:D:\HC.fdb';

  try

  Connected:=True;
  Caption:='Connect OK';
  except
  MessageDlg('Connect Error',mtError,[mbyes],0);
  end;
  end;

[Oraclers]

SQLCONNECTION这个控件是否放到了窗体？没有看到你代码中有这个控件的Create语句。

[thumb0422]

[Quote=引用 1 楼 的回复:]

SQLCONNECTION这个控件是否放到了窗体？没有看到你代码中有这个控件的Create语句。
[/Quote]

有的。界面上有放了一个。
在界面上的SQLCONNECTION控件里 配置信息 可以连接成功。
但是用代码配置 就出问题

[广州佬]

  with SQLFB do begin
    Connected:=False;
    GetDriverFunc:='getSQLDriverINTERBASE';
    LibraryName:='dbexpint.dll';
    VendorLib:='fbclient.dll';
    Params.Append('drivername=Firebird');
    Params.Append('user_name=sysdba');
    Params.Append('password=masterkey');
    Params.Append('sqldialect=3');
    Params.Append('interbase transisolation=readcommited');
    Params.Append('database=192.168.11.9:D:\HC.fdb');
    try
      Connected:=True;
      Caption:='Connect OK';
    except
      MessageDlg('Connect Error',mtError,[mbyes],0);
    end;
  end;

[广州佬]

  with SQLFB do begin
    Connected:=False;
    DriverName:='Firebird';//这行不能写到参数里
    GetDriverFunc:='getSQLDriverINTERBASE';
    LibraryName:='dbexpint.dll';
    VendorLib:='fbclient.dll';
    Params.Append('user_name=sysdba');
    Params.Append('password=masterkey');
    Params.Append('sqldialect=3');
    Params.Append('interbase transisolation=readcommited');
    Params.Append('database=192.168.11.9:D:\HC.fdb');
    try
      Connected:=True;
      Caption:='Connect OK';
    except
      MessageDlg('Connect Error',mtError,[mbyes],0);
    end;
  end;

[广州佬]

  with SQLFB do begin
    Connected:=False;
    DriverName:='Firebird';//这行不能写到参数里
    GetDriverFunc:='getSQLDriverINTERBASE';
    LibraryName:='dbxfb.dll';//关键可能是原来这里错写为'dbexpint.dll'，我刚才都忽略了
    VendorLib:='fbclient.dll';
    Params.Append('user_name=sysdba');
    Params.Append('password=masterkey');
    Params.Append('sqldialect=3');
    Params.Append('interbase transisolation=readcommited');
    Params.Append('database=192.168.11.9:D:\HC.fdb');
    try
      Connected:=True;
      Caption:='Connect OK';
    except
      MessageDlg('Connect Error',mtError,[mbyes],0);
    end;
  end;

[thumb0422]

[Quote=引用 5 楼 的回复:]

Delphi(Pascal) code

with SQLFB do begin
Connected:=False;
DriverName:='Firebird';//这行不能写到参数里
GetDriverFunc:='getSQLDriverINTERBASE';
LibraryName:='dbxfb.dll';//关键可能是原来这里错写为'dbexpi……
[/Quote]

问题还是依旧。。
XE版本是UPDATE1。

[thumb0422]

不好意思 是我搞错了。
我在调试阶段一直 是 提示以上的错误。
但是直接运行EXE 却没有错误。