/ 0评 / 0

ADOConnection控件连接数据库SQL

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。
任何控件在对象观察器中的属性值既可以直接设置,也可以通过程序代码来设置。
————————————————

发表评论

电子邮件地址不会被公开。