如何用VB调用ACCESS里的数据库？

Question

用ACCESS做的数据库，在VB中如何用程序调用（如：触发COMMAND_CLICK,就调用ACCESS里的数据库）请详细写明，谢谢！

Answer 1

就是用ACCESS做了一个数据库，用VB怎么打开

Answer 2

引用microsoft activex data object2.5 Library
Dim cn as New adodb.connection
dim rs as new adodb.recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb"
rs.open "select * from table1",cn
do while not rs.eof
 debug.print rs.fields(0)
 rs.movenext
loop
rs.close
cn.close
set rs=nothing
set cn=nothing

Answer 3

dim ac_tmp as new adodb.connection
dim ar_tmp as new adodb.recordset
with ac_tmp
    If ac_Print.State = adStateOpen Then ac_Print.Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称.mdb;Mode=ReadWrite;Persist Security Info=False"
    .Open
end with
If ar_tmp.State = adstateopen Then ar_tmp.Close
ar_tmp.Open "select * from 表名", ac_tmp, adOpenKeyset, adLockReadOnly
set mshflexgrid.datasource=ar_tmp
set ar_tmp=nothing
set ac_tmp=nothing

Answer 4

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs
    Set MSHFlexGrid1.DataSource = Rs

Answer 5

楼上的是用ADO，在VB里打开ACCESS，用VBA，access.appliction这个对象，就可以操作ACCESS数据库了。

Answer 6

     '若是用ODBC连接数据库的方式，则可如下：
 
     Dim MyADO AS NEW ADODB.Connection
     Dim MyStr as string
     Dim MyRecord as ReocrdSet
  
     MyStr="DSN=MyDataBase"        'ODBC中的数据库别名
     MyADO.Open MyStr
     
     Set MyRecord=MyADO.Excute("Select * from 数据表 where 选择条件")
     MsgBox "字段1的值为： "&MyRecord("字段1").Value
     MyADO.close

Answer 7

怎么没人用DAO的方法呢？有时候还是DAO快些
DAO method:
引用"microsoft DAO 3.51 Object Library"dim dbs as dao.database
dim rst as dao.recordset
set dbs=opendatabase("c:\abc.mdb")
set rst=dbs.openrecordset("select * from tablename",dbopensnapshot)
debug.print rst.field("fieldname")
rst.close
dbs.close

Answer 8

用Data控件：
data1.databasename="C:\abc.mdb"
data1.recordsource="Select * From TableName"
Data1.Refresh

Answer 9

可以用data控件和access的数据库建立连接
   步骤如下：
　　　１：在窗体上添加一个data控件
　　　２：在属性窗口的connect 属性上设为access
　　　３：在属性窗口的databasename　属性上设为数据库所在的路径
　　这样你就与你所建的数据库建立了连接。
　　
　　连接具体的表，再在recordsource　属性上设为具体的表名　　　这位仁兄，没必要用 command_click 动态连接数据库，倒是数据库里的表，是很有必要的。
　　　　例如：
　　　　１：　　在窗体上放一个data 控件和flexgrid 控件（如果工具箱里没有，可以在“工程->部件”选择micrsoft flexgrid control,确定后，就可在具箱上找到）
　　　　２：　　data的属性按上面的步骤1,2,3设置
　　　　３：　data的recordsource属性用代码来实现
　　　　　　　　　　data1.recordsource="select * form ＋数据库表的名称"
　　　　　　　　　　data1.refresh
                   flexgrid1.datasource=data1

Answer 10

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\test.mdb;Persist Security Info=False"
cn.Open
其他的操作就没有什么的
比如说
rs.movefist
rs.movenext等之类的都可以的。

Answer 11

adob  控件连接。。connection  recordset..