'新增记录用:conn.execute " insert into tablename(...) values(...) " '修改记录用:conn.execute " update tablenaem set ... where ..." '删除记录用:conn.execute " delete from talbename where ... "
book的例子This example uses the Book and Filter properties to create a limited view of the Recordset. Only records referenced by the array of books are accessible.Public Sub BOFX2()Dim rs As New ADODB.Recordset Dim bmk(10)rs.CursorLocation = adUseClient rs.ActiveConnection = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;" rs.Open "select * from authors", , adOpenStatic, adLockBatchOptimistic Debug.Print "Number of records before filtering: ", rs.RecordCountii = 0 While rs.EOF <> True And ii < 11 bmk(ii) = rs.Book ii = ii + 1 rs.Move 2 Wend rs.Filter = bmk Debug.Print "Number of records after filtering: ", rs.RecordCountrs.MoveFirst While rs.EOF <> True Debug.Print rs.AbsolutePosition, rs("au_lname") rs.MoveNext Wend
'修改记录用:conn.execute " update tablenaem set ... where ..."
'删除记录用:conn.execute " delete from talbename where ... "
Dim bmk(10)rs.CursorLocation = adUseClient
rs.ActiveConnection = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;" rs.Open "select * from authors", , adOpenStatic, adLockBatchOptimistic
Debug.Print "Number of records before filtering: ", rs.RecordCountii = 0
While rs.EOF <> True And ii < 11
bmk(ii) = rs.Book
ii = ii + 1
rs.Move 2
Wend
rs.Filter = bmk
Debug.Print "Number of records after filtering: ", rs.RecordCountrs.MoveFirst
While rs.EOF <> True
Debug.Print rs.AbsolutePosition, rs("au_lname")
rs.MoveNext
Wend
End Sub