B
baby2321
Unregistered / Unconfirmed
GUEST, unregistred user!
各位 新年好
我现在正在为 数据库客户端 连接发愁 我的数据库是SQL SERVER2000 连接方式是ADO 其ConnectionString是 Provider=SQLOLEDB.1;
Integrated Security=SSPI;
Persist Security Info=False;
Initial Catalog=book
采用 Windows NT 集成安全设置 目前我在服务器端连接是正常的 在客户端连接数据 我想应该是调整ConnectionString
我把SQL数据库 转化成一个文件形式 在发布的时候会打包进去 客户端通过连接相应数据库文件 实现数据导入 导出和保存
以下是我的数据库备份和恢复代码
procedure TForm1.Button1Click(Sender: TObject);// backup
begin
if savedialog1.Execute then
adocommand1.CommandText:='backup database book to disk='+chr(39)+SaveDialog1.FileName+chr(39)+' ';
adocommand1.Execute;
end;
procedure TForm1.Button2click(sender:TObject);// restore
begin
if opendialog1.Execute then
adocommand1.CommandText:='use master';
adocommand1.Execute;
adocommand1.CommandText:='restore database book from disk='+chr(39)+openDialog1.FileName+chr(39)+' ';
adocommand1.Execute;
end;
end.
以上的代码在服务器端执行是OK 的 但希望在客户端执行 于是我把代码改为
procedure TForm1.Button2click(sender:TObject);// restore
begin
if opendialog1.Execute then
begin
if ADOConnection1.Connected then
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;Integrated Security=SSPI;Data Source='+chr(39)+OpenDialog1.FileName+chr(39)+';Persist Security Info=False;User ID='''';Password='''' ';
ADOConnection1.Connected := True;
adocommand1.CommandText:='use master';
adocommand1.Execute;
adocommand1.CommandText:='restore database book from disk='+chr(39)+openDialog1.FileName+chr(39)+' ';
adocommand1.Execute;
end;
end;
end.
这样后 提示'[DBNETLIB][ConnectionOpen(ParseConnectParams()).]无效的连接'
我接触DELPHI时间不长 目前主要方向是在数据库 能否请各位帮我看一下 感激不尽
谢谢
我现在正在为 数据库客户端 连接发愁 我的数据库是SQL SERVER2000 连接方式是ADO 其ConnectionString是 Provider=SQLOLEDB.1;
Integrated Security=SSPI;
Persist Security Info=False;
Initial Catalog=book
采用 Windows NT 集成安全设置 目前我在服务器端连接是正常的 在客户端连接数据 我想应该是调整ConnectionString
我把SQL数据库 转化成一个文件形式 在发布的时候会打包进去 客户端通过连接相应数据库文件 实现数据导入 导出和保存
以下是我的数据库备份和恢复代码
procedure TForm1.Button1Click(Sender: TObject);// backup
begin
if savedialog1.Execute then
adocommand1.CommandText:='backup database book to disk='+chr(39)+SaveDialog1.FileName+chr(39)+' ';
adocommand1.Execute;
end;
procedure TForm1.Button2click(sender:TObject);// restore
begin
if opendialog1.Execute then
adocommand1.CommandText:='use master';
adocommand1.Execute;
adocommand1.CommandText:='restore database book from disk='+chr(39)+openDialog1.FileName+chr(39)+' ';
adocommand1.Execute;
end;
end.
以上的代码在服务器端执行是OK 的 但希望在客户端执行 于是我把代码改为
procedure TForm1.Button2click(sender:TObject);// restore
begin
if opendialog1.Execute then
begin
if ADOConnection1.Connected then
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;Integrated Security=SSPI;Data Source='+chr(39)+OpenDialog1.FileName+chr(39)+';Persist Security Info=False;User ID='''';Password='''' ';
ADOConnection1.Connected := True;
adocommand1.CommandText:='use master';
adocommand1.Execute;
adocommand1.CommandText:='restore database book from disk='+chr(39)+openDialog1.FileName+chr(39)+' ';
adocommand1.Execute;
end;
end;
end.
这样后 提示'[DBNETLIB][ConnectionOpen(ParseConnectParams()).]无效的连接'
我接触DELPHI时间不长 目前主要方向是在数据库 能否请各位帮我看一下 感激不尽
谢谢