使用ADO连接access数据库

时　间:2007-11-03 14:19:08
作　者:刘贵平整理   ID：14  城市：长沙
摘　要:使用ADO连接ACCESS数据库
正　文:

实现过程:

    1新建一个数据库(ACCESS),新建一个窗体,默认属性为FORM1

   2\引用ADO对象.和平台引用是一样的.引用MICROSOFT ACTIVEX DATA OBJECTS2.5LIBRY.此时,ADO对象中的CONNECTION,RECORDSET,COMMAND和FIELDS等对象成为程序可以引用的对象.

   3\在窗体上添加一个COMMANDBUTTON控件,设置CAPTION属性为"退出"

    4\在窗体上添加一个MSHFLEXGRID控件,用于显示ACCESS数据表中的数据,此控件属于ACTIVEX控件,在使用前应先添加到工具箱中.

5\主要程序代码如下:

Private Sub Form_Load()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB"
  rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic
  Set MSHFlexGrid1.DataSource = rs
  MSHFlexGrid1.ColWidth(0) = 100
End Sub
Private Sub Command1_Click()
  End
End Sub

6\清注意此代码只提供参考作用,同时请高手多指教!