大家好,请帮忙看以下面的代码哪有错,为什么不edit1.text错误时不提示连接数据库错误?(100分)

conn:=TADOConnection.Create(self);
conn.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ylqx;Data Source='+edit1.Text;
conn.LoginPrompt:=false;
try
conn.Connected:=true;
except
application.MessageBox('连接数据库错误,请检查服务器名称或IP是否输入正确！','警告',64+0);
application.Terminate ;

用户名和口令呢？ loginprompt为false 就在连接字符串中加入用户和口令。

var
Extname,Fname,path:string;
CreateAccess:OleVariant;
begin
//动态建立数据库。(uses ComObj).
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/WINDOWS/Temp/db.mdb');
path := ExtractFilePath('C:/WINDOWS/Temp/'); //程序路径
ADOConnection1.Connected := False;
try
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
path + 'db.mdb' + ';Persist Security Info=False';
ADOConnection1.Connected := true;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('create table tb ( ID autoincrement not null,CX OLEOBJECT not null)');
adoquery1.ExecSQL;
except
MessageBox(GetActiveWindow(), '系统错误!', '警告', MB_OK + MB_ICONWARNING);
application.Terminate;
end;// 数据库建立结束。
end;

你的代码没有错!

请把你的 TADOConnection 控件的 Connected 属性设为 False
一定OK

给分吧!

Source='+edit1.Text;改
Source='''+edit1.Text+'''';