ADOConnection连接的问题。(50分)

边城过客 · 2008-09-23

现象：如果连接字符串正确，提示成功；如果连接字符串不对，就没出跳出连接失败的提示，在运行到“ADOConnection1.Open;”的时候直接出现： Project Project1.exe raised exception class EOLeException with message '用户'sa'登陆失败。'Process stoped.Use Step or Run to continue. 源代码如下： begin   try     try       Screen.Cursor := crHourGlass;       Button2Click(nil);       if ADOConnection1.Connected then ADOConnection1.Close;       ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=' + strDataBaseName;       if Trim(strServerName) <> '' then         ADOConnection1.ConnectionString := ADOConnection1.ConnectionString + ';Data Source=' + strServerName;       ADOConnection1.ConnectionString := ADOConnection1.ConnectionString + ';Password=' + strPassword + ';User ID=' + strUserName;       ADOConnection1.Open;       Application.MessageBox('连接成功        ', '提示信息', MB_ICONINFORMATION);       ADOConnection1.Close;     except       Application.MessageBox('连接失败', '提示信息', MB_ICONERROR);     end;   finally     ADOConnection1.Close;     Screen.Cursor := crDefault;   end; end;

hhjjhhjj · 2008-09-23

给你一个比较通用的。 Function TForm1.ContoSQL(svr, uid, pwd, db: String): Boolean; Const   constr='Provider=SQLOLEDB.1;Password=%s;'+   'Persist Security Info=True;'+   'User ID=%s;Initial Catalog=%s;Data Source=%s'; Begin   Result := False;   try     With ADOConnection1 Do     Begin       Connected := False;       ConnectionString := Format(constr,[pwd, uid, db, svr]);       LoginPrompt := False;       Connected := true;       Connected := False;     End;     Result := True;   except On E: Exception Do     Application.MessageBox(PChar(E.Message),'连接数据库失败！',16);   end; End; procedure TForm1.BitBtn1Click(Sender: TObject); begin   If ContoSQL('127.0.0.1', 'sa', 'sa', 'Northwind') Then   Application.MessageBox(PChar('ok'),'系统提示',64); end;

李翔鹏 · 2008-09-23

你直接运行程序就行了阿，连接不上数据时提示连接失败不就行了吗/

边城过客 · 2008-09-23

直接运行程序，按道理当连接不上时提示连接失败，返回程序。 但现在是不提示连接失败，直接报错，然后中止了程序。

guqiu · 2008-09-23

你是单独运行程序，还是在Delphi环境下运行啊? 还有，为啥要写下面的语句？ finally     ADOConnection1.Close;

luoyanqing119 · 2008-09-24

ADOConnection1.Close;     except       Application.MessageBox('连接失败', '提示信息', MB_ICONERROR);     end;   finally     ADOConnection1.Close;     Screen.Cursor := crDefault;   end; ---------------------------------------连接成功后最好不要CLOSE 这种问题一般是连接时数据库名或密码不正确,你自己最好先用可视连接,测试成功后再把连接字符中的动态配置的东西加进去.

々飞翔鸟々 · 2008-09-24

编译后双击生成的exe文件就会提示'连接失败'， 你用delphi直接运行肯定就没出跳出连接失败的提示，在运行到“ADOConnection1.Open;”的时候直接出现： Project Project1.exe raised exception class EOLeException with message '用户'sa'登陆失败。'Process stoped.Use Step or Run to continue.

边城过客 · 2008-09-24

接受答案了.

ADOConnection连接的问题。(50分)

边城过客

Unregistered / Unconfirmed

hhjjhhjj

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

边城过客

Unregistered / Unconfirmed

guqiu

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

々飞翔鸟々

Unregistered / Unconfirmed

边城过客

Unregistered / Unconfirmed

Similar threads