try with query1 do
begin
close;
sql.Clear;
sql.Add('select * from administrator where sname=:q1');
params[0].AsString:=edit2.Text;
open;
end; except
application.MessageBox('服务器名称,口令不对或未开启,请检查!!','信息技术考试系统',16);
if registertemp.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
registertemp.DeleteValue('swg');
registertemp.CloseKey;
if registertemp.OpenKey('Software\ODBC\ODBC.INI',True) then
registertemp.Deletekey('swg');
registertemp.CloseKey;
edit1.Text:='';
edit2.Text:='';
edit3.text:='';
edit1.SetFocus;
end;当服务器不存在的时候,就不会存在这样的表administrator,因此会出现数据库不能连的错误,我想通过except来处理,但是却没有起到效果,是什么原因呢?
begin
close;
sql.Clear;
sql.Add('select * from administrator where sname=:q1');
params[0].AsString:=edit2.Text;
open;
end; except
application.MessageBox('服务器名称,口令不对或未开启,请检查!!','信息技术考试系统',16);
if registertemp.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
registertemp.DeleteValue('swg');
registertemp.CloseKey;
if registertemp.OpenKey('Software\ODBC\ODBC.INI',True) then
registertemp.Deletekey('swg');
registertemp.CloseKey;
edit1.Text:='';
edit2.Text:='';
edit3.text:='';
edit1.SetFocus;
end;当服务器不存在的时候,就不会存在这样的表administrator,因此会出现数据库不能连的错误,我想通过except来处理,但是却没有起到效果,是什么原因呢?
如果赋值了,应该可以。
但最好不要这样做,建议所有的TQuery,TTable都合用一个TDatabase控件.