Adodc1.RecordSource = " select * from 表名"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("字段名") = Trim(Text1.Text)
Adodc1.Recordset.Fields("字段名") = Trim(Text2.Text)
……
Adodc1.Recordset.Update
End Sub
如果不是添加记录,则把以上代码中的ADDNEW这句删除就可以了呀,
Adodc1.RecordSource = " select * from 表名 where 字段名= "可以指定满足条件的记录
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)