请教连接并操作access库的非ado,dao方法

Question

是这样的，
Dim app As New Access.Application我现在要在vb中用access 9.0 object libray的对象与方法连接access（中有两个子表），并插入数据（表的路径为m_sLocalPath）注：要求如此，郁闷中（Excel可以，但access的我不会）

Answer 1

access不是用DAO的吗？非ado,dao方法，可以直接用ODBC、oledb

Answer 2

看看access中有没有关于连接数据库的函数及连接表的函数或者sql语句

Answer 3

sorry,    dao 还不懂，
更改一下，是要非ado的方法
我的思路是想仿照vb中对excel的操作，
比如Dim app As New Excel.Application
    Dim wb As Excel.Workbook
    Set wb = app.Workbooks.Open(m_sLocalPath)
    
    wb.Worksheets(1).Cells(4, 2).Value = m_sBeginDate但access我就不会了

Answer 4

有Access为什么不能用DAO，呵呵，BT

Answer 5

我还是引用了dao3.51
Private mobjAccess As New Access.Application
Private mobj As ObjectPrivate Sub Form_Load()
mobjAccess.OpenCurrentDatabase App.Path & "\db1.mdb"
Set mobj = mobjAccess.DBEngine.Workspaces(0).Databases(0).OpenRecordset("select * from Expenses")
mobj.MoveFirst
Call GetRecordset(mobj)
End SubPrivate Sub GetRecordset(recExp As Recordset)    With recExp
        Text1.Text = 0 + !ExpenseID
    End With    
End Sub

Answer 6

使用ACCESS对象的方法是需要安装ACCESS才可以的，但如果使用DAO,ADO等可以不安装ACCESS就可以的！楼主的需求真的很特殊！使用ACCESS对象的方法和使用EXCEL的方法差不多，会使用ACCESS里的VBA就可以实现你的要求了！online(龙卷风(白学了,重新充电中)) 的例子很好。

Answer 7

我试用excel的方法套，但是总不对，能教教我吗
还有，楼上的那个例子我找不到，能把连接贴出来吗，谢谢

Answer 8

哦，看到了，呵呵，sorry

Answer 9

执行excute (insert ....) 之后，表中数据不变，是为什么啊

Answer 10

我是这样弄的
Dim app As New Access.Application
app.OpenCurrentDatabase (m_sLocalPath)
app.CurrentDb.Execute (insertsql)
app.Quit但表中始终没有数据,不知为什么

Answer 11

经过测试
Private Sub Form_Load()
mobjAccess.OpenCurrentDatabase App.Path & "\db1.mdb"
Set mobj = mobjAccess.DBEngine.Workspaces(0).Databases(0).OpenRecordset("select * from sample")
str1 = "insert into sample(mc) values('sss')"
mobjAccess.DBEngine.Workspaces(0).Databases(0).Execute (str1)
mobj.MoveFirst
Call GetRecordset(mobj)
'mobjAccess.DBEngine.Workspaces(0).Databases(0). _
 '               QueryDefs("ExpForOneEmployee").Parameters("EmpToFind"). _
  '              Value = mvarstrEmpToQuery
   ' Set mobjRecSetExpense = mobjAccess.DBEngine.Workspaces(0). _
    '            Databases(0).QueryDefs("ExpForOneEmployee"). _
     '           OpenRecordset()
    'mblnQueryOpen = True
End Sub