1,178
社区成员
发帖
与我相关
我的任务
分享
[Code]
procedure SaveSecureKey;
var
AccessServer: Variant;
RecordAffected: Integer;
begin
try
AccessServer := CreateOleObject ('ADODB.Connection');
except
RaiseException ('Failed to create ADODB object!');
end;
AccessServer.ConnectionString := Format (
'Provider=%s;Data Source=%s%s;Persist Security Info=False;' +
'Jet OLEDB:Database Password=123456'+
'Microsoft.Jet.OLEDB.4.0'+
'J:\数据库\'+ //这里是U盘地址
'db_source.mdb');//这是数据库文件名称,但是我在bcb中的DatabaseName叫做database1,当然在控制面板中连接的也是这个database1
try
AccessServer.Open;
try
AccessServer.Execute ('DELETE * FROM dic_SysParams');
AccessServer.Execute (
Format ('INSERT INTO dic_SysParams(Sp_SecureKey)' +
'values (''%s'');', ['1234567890']));
except
RaiseException ('Failed to initialize secure key value!');
end;
finally
AccessServer.Close;
end;
end;