2,507
社区成员
发帖
与我相关
我的任务
分享DBEXPRESS的SQLConnection1怎样用代码来连接数据库？
SQLConnection1怎样用代码实现连接数据库，请教代码，非常感谢
...全文
请发表友善的回复…
发表回复
sunseave 2007-09-04
- 打赏
- 举报
有高手知道吗？
sunseave 2007-03-27
- 打赏
- 举报
FActived 和 Result 应该怎样定义？
hongqi162 2007-03-27
- 打赏
- 举报
dbeConn:= TSQLConnection.Create(nil);
dbeConn.Params.Clear;
dbeConn.Params.Values['DriverName']:= 'MSSQL';
dbeConn.Params.Values['HostName']:= FDataSource.address;
dbeConn.Params.Values['Database']:= FDataSource.serviceName;
dbeConn.Params.Values['USER_NAME']:= FDataSource.userName;
dbeConn.Params.Values['Password']:= FDataSource.passWord;
dbeConn.Params.Values['BlobSize']:= '-1';
dbeConn.Params.Values['ErrorResourceFile']:= '';
dbeConn.Params.Values['LocaleCode']:= '0000';
dbeConn.Params.Values['MSSQL TransIsolation']:= 'ReadCommited';
dbeConn.Params.Values['OS Authentication']:= 'False';
randomize;
dbeConn.ConnectionName:= 'hwsycmss' + Trim(IntToStr(random(99999)));
dbeConn.DriverName:= 'MSSQL';
dbeConn.GetDriverFunc:= 'getSQLDriverMSSQL';
dbeConn.VendorLib:= 'oledb';
dbeConn.LibraryName:= 'dbexpmss.dll';
dbeConn.SQLHourGlass:= true;
dbeConn.KeepConnection:= false;
try
dbeConn.Open;
FActived:= true;
Result:= true;
err.SetMessage('MSSQL database Connected OK!',0);
exit;
except
On E:Exception do
begin
err.SetMessage('MSSQL Database Connected Failed!' + E.Message,8003);
FActived:= false;
Result:= false;
exit;
end;
end;
dbeConn.Params.Clear;
dbeConn.Params.Values['DriverName']:= 'MSSQL';
dbeConn.Params.Values['HostName']:= FDataSource.address;
dbeConn.Params.Values['Database']:= FDataSource.serviceName;
dbeConn.Params.Values['USER_NAME']:= FDataSource.userName;
dbeConn.Params.Values['Password']:= FDataSource.passWord;
dbeConn.Params.Values['BlobSize']:= '-1';
dbeConn.Params.Values['ErrorResourceFile']:= '';
dbeConn.Params.Values['LocaleCode']:= '0000';
dbeConn.Params.Values['MSSQL TransIsolation']:= 'ReadCommited';
dbeConn.Params.Values['OS Authentication']:= 'False';
randomize;
dbeConn.ConnectionName:= 'hwsycmss' + Trim(IntToStr(random(99999)));
dbeConn.DriverName:= 'MSSQL';
dbeConn.GetDriverFunc:= 'getSQLDriverMSSQL';
dbeConn.VendorLib:= 'oledb';
dbeConn.LibraryName:= 'dbexpmss.dll';
dbeConn.SQLHourGlass:= true;
dbeConn.KeepConnection:= false;
try
dbeConn.Open;
FActived:= true;
Result:= true;
err.SetMessage('MSSQL database Connected OK!',0);
exit;
except
On E:Exception do
begin
err.SetMessage('MSSQL Database Connected Failed!' + E.Message,8003);
FActived:= false;
Result:= false;
exit;
end;
end;
