说了的都有分!
解决方案 »
- DELPHI 如何来取得数据是否真正的有打印
- 如何扫描获得网络(域,局域网)上所有电脑已经安装的软件。
- 紧急求救,求求大家!求求大家!求求大家!求求大家
- delphi 怎么把类似‘Dětmarovice’的西文转化为‘Dětmarovice’这样的?
- 求酒店软件一套,流程图加设计方案,我的QQ:57959940,在线,
- 如何把 动态创建控件及其子倥件都流化到一个文件里,然后下次读出来动态创建?
- 这个SQL语句怎么写
- 这么统计某一段程序运行时间?
- 那里有VISIO下载
- 在Sql Server7中能否实现全文搜索?
- 如何让 数据库中的memo类型 字段 显示在 dbgrid 里面
- 请教小问题,谁知道这段代码中$的含义
连一下
showmessage('noproblem');
except
showmessage('wrong');
end;
try
ADOConnection.Open;
ShowMessage('数据库连接成功');
except
ShowMessage('无法连接到数据库');
end;
ADOConnection1.Open;
shoemessage('连接成功');
except on EDataBaseError do
showmessage('连接失败');
end;
sConn:string;
begin
sConn := 'Provider=OraOLEDB.Oracle.1;Password=user02;Persist Security
Info=True;User ID=user02;Data Source=demo';//我用的数据库是Oracle
if DataModule1.connOracle.Connected then
DataModule1.connOracle.Close;
DataModule1.connOracle.ConnectionString := sConn;
DataModule1.connOracle.LoginPrompt := False;
try
DataModule1.connOracle.Open;
except
application.MessageBox('连接数据库出错','提示',mb_ok);
application.Terminate ;
end;
end;
希望对你有用啊