数据表增删改代码 你试试这样做,引用ado Dim Con As ADODB.Connection Dim rs As ADODB.Recordset Set Con = New ADODB.Connection strCon = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=MyDB;Data Source=." Con.Open strCon Set rs = New ADODB.Recordset '添加记录 strsql="select * from table" rs.Open strsql, Con, adOpenKeyset, adLockOptimistic rs.addnew rs!字段1=text1.text rs!字段2=text2.text ........ rs.update rs.close set rs=nothing '修改记录 strsql="select * from table where id=1" rs.Open strsql, Con, adOpenKeyset, adLockOptimistic rs!字段1=text1.text rs!字段2=text2.text ........ rs.update rs.close set rs=nothing
'删除记录 strsql="delete from table where id=1" rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
Set cnn = New Connection
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=MyDB;Data Source=."
删除表中的数据
cnn.Execute "delete tablename where ..."
删除表
cnn.Execute "drop table tablename"
这样删除整张表
你试试这样做,引用ado
Dim Con As ADODB.Connection
Dim rs As ADODB.Recordset
Set Con = New ADODB.Connection
strCon = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=MyDB;Data Source=."
Con.Open strCon
Set rs = New ADODB.Recordset
'添加记录
strsql="select * from table"
rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
rs.addnew
rs!字段1=text1.text
rs!字段2=text2.text
........
rs.update
rs.close
set rs=nothing
'修改记录
strsql="select * from table where id=1"
rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
rs!字段1=text1.text
rs!字段2=text2.text
........
rs.update
rs.close
set rs=nothing
'删除记录
strsql="delete from table where id=1"
rs.Open strsql, Con, adOpenKeyset, adLockOptimistic