1、ADOConnection1.Connected本身就可判断
if ADOConnection1.Connected then 连接成功2、可以编写一个连函数,试着连接数据库某个表的数据,返回连接成功值。3、代码如下:var Con:boolean;
try
DataModule1.ADOCon.Connected:=False;
DataModule1.ADOCon.ConnectionString:=ConnectionString;
DataModule1.ADOCon.Connected:=True;
Con:=True;
StatusBar1.Panels[0].Text:=' 数据连接成功!';
except
Con:=False;
StatusBar1.Panels[0].Text:=' 连接数据失败......';
end;
(1)通过Con判断是否连接
(2)StatusBar1显示是否连接成功。
if ADOConnection1.Connected then 连接成功2、可以编写一个连函数,试着连接数据库某个表的数据,返回连接成功值。3、代码如下:var Con:boolean;
try
DataModule1.ADOCon.Connected:=False;
DataModule1.ADOCon.ConnectionString:=ConnectionString;
DataModule1.ADOCon.Connected:=True;
Con:=True;
StatusBar1.Panels[0].Text:=' 数据连接成功!';
except
Con:=False;
StatusBar1.Panels[0].Text:=' 连接数据失败......';
end;
(1)通过Con判断是否连接
(2)StatusBar1显示是否连接成功。
解决方案 »
- 谁能帮帮我将下面的代码翻译成Delphi的代码,谢谢
- << 征集 : 屏幕传输最快的代码 >> 大家一起讨论提高
- 条码扫描问题
- fastreport變量賦值請教
- 关于Delphi对Excel操作的资料,很不错的,如果觉得好,给我点分啊,我都没分问问题了
- 高手进来捡分,如何使用鼠标平滑移动图像?
- 请问各位大侠如何在指定显示文字
- 请教?哪位老兄使用过delphi\demos\experts下的例程?
- 小数点是#几?
- 请问:在Delphi6中系统当前日期的前一天如何表示
- Delphi 获取动态创建的Image与Scrollbox的相对位置,找了好久找不到有用资料.谢谢各位.
- Delphi新手sql数据库简单问题?
ADOConnection1.Open;
except
end;
if ADOConnection1.Connected then
//连接成功
else
//连接失败;
用DataModule1只不过是好习惯而已吧?不用它是不是没啥区别
用DataModule1只不过是好习惯而已吧?不用它是不是没啥区别
区别到是没什么,不过一个好习惯也是码农的必备的,想想每个Form上N个数据库控件,看起来就头疼啊,不如都放在DataModule1内,找起来也方便。