VB6.0使用ADO对象连接数据库

If

DBconnect.State

=

adStateOpen

And

Not

IsEmpty(adStateOpen)

Then

DBconnect.Close

这一句该会出问题。我也曾经试过判断过。后来我改用如下在判断语句:

if

DBConnect.State

=

1

then

DBConnect.Close

正确添加了ADO控件后,设置ADO控件的Connectionstring属性,它指出了ADO控件和数据库连接的字符串,打开这个属性的属性页,可以通过三种方式设置连接方式,常设置为OLEDB方式:

Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0Data Source=你的数据库路径"

然后设置RecordSource属性指出可以 *** 作的数据库的来源(即结果字符串,可以是SQL查询产生的).

在设置好后,可以用文本框(textbox)等绑定数据表中的字段进行显示.

---