数据库连接怎么不行呢？

Question

代码如下，谢谢指教！procedure TC_data.Button1Click(Sender: TObject);
var se,na,ps:string;
begin
se:=edit1.Text;
na:=edit2.Text;
ps:=edit3.Text;
form1.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;'+
'Persist Security Info=False;User ID=na;Initial Catalog=UFSystem;'+
'Data Source=se;Use Procedure for Prepare=1;'+
'Auto Translate=True;Packet Size=4096;Workstation ID=JASON;'+
'Use Encryption for Data=False;'+
'Tag with column collation when possible=False';
if form1.Adoconnection1.Connected:=false then
begin
showmessage('对不起，数据库连不上！');
exit;
end;end;

Answer 1

请问那里有delphi7.0完整版下载？

Answer 2

有个明显的问题：
if form1.Adoconnection1.Connected:=false then//不应该是附值运算
//应该是if form1.Adoconnection1.Connected = false then
begin
showmessage('对不起，数据库连不上！');
exit;

Answer 3

你这句跑出来的话我就服你了
showmessage('对不起，数据库连不上！');

Answer 4

使用
try 
  连接...
except
  失败提示...
end;

Answer 5

楼主调试过木有啊？你的ConnectionString里都是写死的，要edit1 2 3有何用啊？语句到是没有什么错的说……试试我改的看看：
constr:string;
    constr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=';
    constr:=constr+edit1.text;//此处填数据库登陆用户名
    constr:=constr+';PASSWORD=';
    constr:=constr+edit2.text;//此处填数据库登陆密码
    constr:=constr+';Initial Catalog=';
    constr:=constr+edit3.text;//此处填要连接的数据库名
    constr:=constr+';Data Source='
    constr:=constr+edit4.text;//此处填数据源 name或ip
    form1.ADOConnection1.ConnectionString:=constr;
    try
        Form1.ADOConnection1.Connected:=True;
    except on E:exception do
    begin
        showmessage(E.message);
    end;
    end