Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb"
cn.Open
rs.Open "select * from 表名", cn
rs.Fields("字段名").Value = 值
rs.MoveFirst '将游标移至第一条
rs.MoveLast '将游标移至最后一条
rs.MoveNext '下一条
rs.MovePrevious '上一条
rs.Delete adAffectCurrent '删除当前记录
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb"
cn.Open
rs.Open "select * from 表名", cn
rs.Fields("字段名").Value = 值
rs.MoveFirst '将游标移至第一条
rs.MoveLast '将游标移至最后一条
rs.MoveNext '下一条
rs.MovePrevious '上一条
rs.Delete adAffectCurrent '删除当前记录
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货