用下面的方法初始化ADO连接时
s:='Provider=SQLOLEDB.1;Password="'+c+'";Persist Security Info=True;UserID='+b+';Initial Catalog='+d+';Data Source='+a+'';
ADOConnection1.connected:=False;
ADOConnection1.Connectionstring:=''+s+'';
ADOConnection1.connected:=True;
如果连接时出错,用什么信号可以来判断有错误出现?我想用它来弹出提示框
s:='Provider=SQLOLEDB.1;Password="'+c+'";Persist Security Info=True;UserID='+b+';Initial Catalog='+d+';Data Source='+a+'';
ADOConnection1.connected:=False;
ADOConnection1.Connectionstring:=''+s+'';
ADOConnection1.connected:=True;
如果连接时出错,用什么信号可以来判断有错误出现?我想用它来弹出提示框
解决方案 »
- 开多个窗口后怎么让每个窗口都在任务栏上有个显示(就像MSN和多个人同时聊天时任务栏显示多个窗口一样)
- 如何积累代码的复用或者说以什么样的方式来保存已有的代码?
- < HELP >有个程序请高手帮忙,谢谢!
- 请问delphi编的程序在windows下控制打印时怎样去掉延时,比如点击打印时停三秒和打印机出纸时要停三秒才出(epson的针式打印机)?
- 关于日期显示的问题
- 用API函数 怎样让指定的程序只运行一个?
- 急,急,急,100大分问在delphi6中怎么连接sybase的ase????
- 麻烦各位一下,这个错在哪了?
- 请问各位:哪里有SQL Server 教程下载?
- 初学delphi 使用OleAuto 碰到的问题
- Delphi ActiveX中怎样向外部公布事件
- 用DELPHI开发与设备的数据采集系统
s:='Provider=SQLOLEDB.1;Password="'+c+'";Persist Security Info=True;UserID='+b+';Initial Catalog='+d+';Data Source='+a+'';
ADOConnection1.connected:=False;
ADOConnection1.Connectionstring:= s;
try
ADOConnection1.connected:=True;
except
on E: Exception do ShowMessage(E.Message);
end;
end;
是什么意思啊?
s:='Provider=SQLOLEDB.1;Password="'+c+'";Persist Security Info=True;UserID='+b+';Initial Catalog='+d+';Data Source='+a+'';
ADOConnection1.connected:=False;
ADOConnection1.Connectionstring:= s;
try
ADOConnection1.connected:=True;
except
on E: Exception do
E.Create('数据库连接错误');
end;
end;
try
ADOConnection1.Connected :=true;
except
showmessage('数据库连接错误');
end;