用VB编写的向数据库添加记录的程序

用VB编写的向数据库添加记录的程序。使用了两种方法。

方法一、

使用Recordset对象的AddNew方法。

view plain copy to clipboard print ?

1. PrivateSubCommand1_Click()

Private Sub Command1_Click()

view plain copy to clipboard print ?

1. DimcnAsADODB.Connection
2. DimrsAsADODB.Recordset
3. DimsqlAsString
4. Setcn=NewADODB.Connection
5. cn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=c:/db1.mdb;"
6. sql="selectid,namefromTest"'将SELECT语句，赋值给字符串变量sql
7. Setrs=NewADODB.Recordset
8. ‘使用rs对象变量的Open方法，执行SELECT语句，并将查询结果返回给rs
9. rs.Opensql,cn,adOpenForwardOnly,adLockOptimistic
10. rs.AddNew
11. rs(0)="001"
12. rs(1)="张三"
13. rs.update
14. rs.Close
15. cn.Close
16. Setrs=Nothing
17. Setcn=Nothing
18. EndSub
19. <PRE></PRE><PRE></PRE><PRE>方法二、</PRE><PRE>直接使用INSERT语句。</PRE><PREclass=VB.NET>PrivateSubCommand1_Click()
20. DimcnAsADODB.Connection
21. Setcn=NewADODB.Connection
22. cn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=c:/db1.mdb;"
23. '下面的语句使用了Connection对象的Execute方法执行了INSERT语句。
24. cn.Execute"INSERTINTOtest(id,name)VALUES('001','张三')"
26. MsgBox("添加数据成功！")
27. cn.Close
28. Setcn=Nothing
29. EndSub
30. </PRE>