2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
begin
try
with adoconnection1 do
begin
connected := false;
connectionstring := 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=ZHANGXF';
connected := true;
end;
showmessage('ok');
except
showmessage('error');
end;
end;