2,497
社区成员
发帖
与我相关
我的任务
分享
with SQLConnection1 do
begin
Close;
LibraryName:=ExtractFilePath(ParamStr(0))+'dbexpdb2.dll';
VendorLib:=ExtractFilePath(ParamStr(0))+'db2cli.dll';
Params.Values['DriverName']:='DB2';
Params.Values['Database']:=Trim(Edit1.Text);
Params.Values['User_Name']:=Trim(Edit2.Text);
Params.Values['Password']:=Trim(Edit3.Text);
Params.Values['BlobSize']:='-1';
Params.Values['ErrorResourceFile']:='';
Params.Values['LocaleCode']:='0000';
Params.Values['TransIsolation']:='ReadCommited';
LoginPrompt:=False;
try
Connected:=True;
Memo1.Lines.Add('Successed!');
except
Memo1.Lines.Add('Failed!');
end;
end;