我想做个测试连接数据库的函数,程序提示 dbexpress error 但是总是捕捉不到这个错误,var
MyConn: TSQLConnection;
begin
......
......try
MyConn.open;
except
showmessage('连接失败');
end;end;
MyConn: TSQLConnection;
begin
......
......try
MyConn.open;
except
showmessage('连接失败');
end;end;
解决方案 »
- 怎样根据combobox的下拉列表中的值作判断来打开我要的数据表。
- odac怎么安装
- 哪里可以找到delphi2.0的安装包??急用啊!!!不胜感激!!
- 如何用神龙XCARD 播放MPEG4的歌曲?能否把代码贴出来,或发EMAIL [email protected]?
- 软件的界面的设计与动态创建图片组以及相应事件的处理问题,对此感兴趣的也进来看看!
- 动态创建access数据表的问题30
- (连续发问)问题二:觅好的ToolBar控件或方法
- ******做交通系统的请进!常识性问题*******
- 問一個FORM 之間傳全局变量的問題 , 全局变量為什麼不可見呢??
- DELPHI 真的好难
- MDI 子窗体打开MDI 子窗体
- 拷贝文件夹出错!!!!!!!!!!!!!!
var
MyConn: TSQLConnection;
begin dbuser :='User_Name=' + dbuser;
dbpwd :='Password=' + dbpwd;
dbdatabase :='Database=' + dbdatabase;
dbhost :='HostName=' + dbhost; MyConn := TSQLConnection.Create(nil);
MyConn.DriverName := 'dbxmysql';
MyConn.GetDriverFunc := 'getSQLDriverMYSQL50';
MyConn.LibraryName :='dbxopenmysql50.dll';
MyConn.VendorLib :='libmysql.dll';
MyConn.Params.Append(dbdatabase);
MyConn.Params.Append(dbuser);
MyConn.Params.Append(dbpwd);
MyConn.Params.Append(dbhost);
MyConn.Open;
try
// result :=true;
showmessage('OK'); except showmessage('false');
// result :=false; end;
end;
end.