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

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

方法一、

使用Recordset对象的AddNew方法。

view plain copy to clipboard print ?

1. Private Sub Command1_Click()  

Private Sub Command1_Click()

view plain copy to clipboard print ?

1.     Dim cn As ADODB.Connection   
2.     Dim rs As ADODB.Recordset     
3.     Dim sql As String                    
4.     Set cn = New ADODB.Connection   
5.     cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db1.mdb;"  
6.         sql = "select id,name from Test"      '将SELECT语句，赋值给字符串变量sql   
7.         Set rs = New ADODB.Recordset   
8.      ‘使用rs对象变量的Open方法，执行SELECT语句，并将查询结果返回给rs   
9.             rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic    
10.             rs.AddNew   
11.             rs(0)="001"  
12.             rs(1)="张三"  
13.             rs.update   
14.             rs.Close   
15.     cn.Close   
16.     Set rs = Nothing  
17.     Set cn = Nothing  
18. End Sub  
19. <PRE> </PRE><PRE> </PRE><PRE>方法二、</PRE><PRE>直接使用INSERT语句。</PRE><PRE class=VB.NET>Private Sub Command1_Click()   
20.     Dim cn As ADODB.Connection   
21.     Set cn = New ADODB.Connection   
22.     cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db1.mdb;"  
23.     ' 下面的语句使用了Connection对象的Execute方法执行了INSERT语句。   
24.     cn.Execute "INSERT INTO test(id,name) VALUES ('001','张三') "  
25.   
26.     MsgBox ("添加数据成功！")   
27.     cn.Close   
28.     Set cn = Nothing  
29. End Sub  
30. </PRE>