vb如何向access表里插入一条数据？

Question

我这样写 错误提示为 未定义类型  adodb.Recordset  
  Dim con As adodb.Connection
                        Dim rs As adodb.Recordset  
                        Set con = New adodb.Connection                        With con
                            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\mydb.mdb;Jet OLEDB:Database Password =;Persist Security Info=False"
                            .Open
                        End With                        'con.CursorLocation = adUseClient                        strSql = "insert into gs values('" & dirName & "')"
                        Set rs = con.Execute(strSql)

Answer 1

需加上
Set rs= New Recordset

Answer 2

关键是 Dim rs As adodb.Recordset   说 adodb.recordset类型没有定义亚是不是要先引用什么？

Answer 3

工程->引用->Microsoft ActiveX Data Objects 2.X Library

Answer 4

工程->引用->Microsoft ActiveX Data Objects 2.X Library

Answer 5

说错了，引用Microsoft ActiveX Data Objects 2.X Library

Answer 6

工程->引用->Microsoft ActiveX Data Objects 2.X Library
.
.
.
set rs=new adodb.reocrdset

Answer 7

同意这个：
工程->引用->Microsoft ActiveX Data Objects 2.X Library
.
.
.
set rs=new adodb.reocrdset

Answer 8

楼上的各位都已经说的很明确了。
偶关注这个：
回复人： viena(维也纳nn-实心木头人) ( ) 信誉：1 
信誉1，怎么做到的？

Answer 9

不需要 Recordset:    Dim con As adodb.Connection
    Set con = New adodb.Connection
    With con
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\mydb.mdb;Jet OLEDB:Database Password =;Persist Security Info=False"
        .Open
        strSql = "insert into gs values('" & dirName & "')"
        .Execute strSql
        .Close
    End With
    Set con = Nothing
                        

Answer 10

我也认为直接用.Execute比用记录集打开要好！我一般在SELECT时才用记录集，在INSERT，DELETE，UPDATE时都用CON.Execute