Delphi开发学习一:使用ADOConnection控件连接数据库SQL
来源:互联网 发布:vendor.js 编辑:程序博客网 时间:2024/06/09 21:41
1、ADOConnection 控件对象使用:
在delphi中新建一个工程Adotest,新建一个窗体dlink,在新窗体上创建ADOConnection控件对象,并设置两个Lable和Edit控件,和两个button控件;
如下图所示:
在连接按钮的单击事件里写入以下代码完成ADOConnection控件的属性设置,完成数据库的连接。
代码如下:
procedure Tdblinkfrm.Button1Click(Sender: TObject);
begin
try //与后面的 except 构成异常处理语句
ADOConnection1.Close;
//以下设置控件 ADOConnection1 的 ConnectionString 属性
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;'
+'Integrated Security=SSPI;Persist Security Info=false;'
+'Initial Catalog='+edit2.Text+';Data Source='+edit1.Text ;
ADOConnection1.Open;
if ADOConnection1.Connected then //判断如果数据库连接上,则执行下面的程序
begin
adooperatefrm.Show;
dblinkfrm.Hide;
end;
except
application.MessageBox('数据库连接失败,请确认无误后重试!','提示:')
end;
end;
代码中ADOConnection1.Close;首先关闭原有的数据库连接。
Integrated Security=SSPI,SSPI相当于True,Integrated Security 可以设置为: True, false, yes, no ;设置Integrated Security为 True 的时候,连接语句前面的 UserID, PW 是不起作用的,即采用windows身份验证模式。
只有设置为 False 或省略该项的时候,才按照 UserID, PW 来连接。
Persist Security Info=false;是否保存安全信息,即数据库连接成功后是否保存密码信息,True为保存,False为不保存。
Initial Catalog与DataBase相同,即要连接的数据库名称,Data Source数据库服务器名。
ADOConnection1.Open;打开数据库的连接。
运行程序,在服务器名文本框和数据库名文本框中输入相应的内容就能连接上数据库。
这段连接数据库代码的重点之处在于设置控件 ADOConnection1 的 ConnectionString 属性值,
其方法是将用户输入的服务器名和数据库名作为连接数据库的信息提供给 ConnectionString。
任何控件在对象观察器中的属性值既可以直接设置,也可以通过程序代码来设置。
下面附上实例开发的源代码下载链接:
http://download.csdn.net/detail/u011846249/9029883
- Delphi开发学习一:使用ADOConnection控件连接数据库SQL
- Delphi如何用ADOconnection+Ini动态连接SQL Server2000数据库
- Delphi ADOConnection连接
- delphi 用ini配置文件来连接adoconnection控件
- ADOConnection 连接PostgreSQL数据库
- 请问DELPHI中如何用ADOCONNECTION来动态连接SQL数据库!请高手指点。。最好能给个例子看看!!
- Delphi开发学习二:使用ADOQuery控件对SQL数据库表进行操作
- AdoConnection连接池的使用
- AdoConnection连接池的使用
- 使用Delphi怎么连接SQL数据库
- adoconnection连接数据库,长时间不用,连接失败
- Delphi 7使用ADOConnection访问MySQL
- 创建SQL数据库并与C++Builder连接(ADOConnection和ADOQuery)
- Delphi控件开发浅入深出(一)
- Delphi控件开发浅入深出(一)
- Delphi控件开发浅入深出(一)
- Delphi控件开发浅入深出(一)
- delphi中使用adoconnection 的openschema的例子源代码
- 1079. Total Sales of Supply Chain (25)
- 互联网的本质是链接网吗?
- 消息队列
- 怎样解决MathType公式行间距太大的问题
- 我来咯来卅。
- Delphi开发学习一:使用ADOConnection控件连接数据库SQL
- Android Studio 视频教程地址
- unity3d摄像机碰到后面物体缩进视口
- 十大热门职位公布 高薪行业一目了然
- unity中使用FingerGestures插件3.0
- hadoop(2): 安装&使用 sqoop
- 线程间通讯
- 正则表达式
- jdk安装