如果数据库联接不上反复连接!!!
procedure TForm1.Timer1Timer(Sender: TObject);
label 10;
begin
10:
begin
try
{....连接数据库语句...}
except
goto 10;
end;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
label 10;
begin
10:
begin
try
{....连接数据库语句...}
except
goto 10;
end;
end;
end;
解决方案 »
- 将IEEE-754格式的数据转换成浮点数的问题!
- 深圳睿安科技招人-进者有分散
- 使用主从表还是一个表
- 如何在执行SaveDialog对话时,出现复制的窗口?
- *****如何建立多国语支持系统*****
- 提取网页内容变了乱码?
- 这样清空table数据表,数据已清空,但为什么还跳出"table is busy"?
- DBF,怎样用DELPHI连接? 50 分
- 我的窗体上有一个ALIGN为CLIENT的IMAGE,该IMAGE上面是一个透明的PANEL,该PANEL上面方了一些其他组件。当我执行循环的时候,为什么屏幕总是闪烁。把该循环改为在一个单独的线程中执行,同样还是闪烁,应当如何解决
- 一个具体的问题,有源代码,请高手修改??
- 在我的代码中已经写了imgEdit1.zoom:=10,为什么扫出的图形还是很大呢?
- 用Indy 9 的TIdMappedPortTCP控件做代理服务器,丢数据
Timer1.inteval:=500; //0.5秒连接一次
procedure TForm1.Timer1Timer(Sender: TObject);
//label 10;
begin
//10:
begin
try
{....连接数据库语句...}
except
// goto 10;
end;
end;
end;
谢谢,两码事儿
你也不应该反复连接啊
你应该在timer中设置一个限制
如果超过一定时间后还连接不上就应该信息提示退出来了
不然哪里是尽头啊:)
repeat
try
//Connecting
Fianlly
//最好做个延时处理
end;
until Connection.Connected;
end;
begin
while not ADOConnection1.Connected do
begin
try
ADOConnection1.Connected:=true;
except
;
end;
end;
end;