增加记录是件很简单的事情,其实例代码如下:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnStr
rs.open "update set name='王三'"
rs.cose.
conn.cose
set rs=nothing
set conn=nothin
删除记录也不困难
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.Open "select name,pw,userlevel from user where name='王三 ' ", conn, adOpenStatic, adLockOptimistic
rs.delete
rs.close
conn.close
set rs=nothing
set conn=nothing
对数据库的操作最好做成函数,可以使减少代码冗余, 提高执行效率,也方便查看代码本身.
注意,对数据库的操作完成后,最好将其释放,否则因为过多的打开与关闭库,可能会在conn.close的情况下再去rs.open.