在工程中引用 Microsoft ActiveX Data Objects 2.x Library
Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\pc.mdb" Set conn = New ADODB.Connection conn.Open connstr Set rs = New ADODB.Recordset '''''''''''' ' rs.Open "SELECT * FROM 我的表格名 WHERE 我选定的字段=" & 值, conn, 3, 3 ' 以可写方式打开 表里 我选定的字段 = 值 的那个记录 ' rs ("name")就是那个记录 在 name字段的内容 ' 对此赋值后,要rs.update才能生效 '''''''' '''''''''''' ' rs.Open "SELECT * FROM 我的表格名", conn, 3, 3 ' 以可写方式打开 表里 第一个记录 ' rs.movenext 可以移动到下一个记录 ' rs ("name")就是那个记录 在 name字段的内容 ' 对此赋值后,要rs.update才能生效 '''''''' |
|