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

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

使用Recordset对象的AddNew方法。

view plaincopy to clipboardprint?

Private Sub Command1_Click()

Private Sub Command1_Click()

view plaincopy to clipboardprint?

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim sql As String

Set cn = New ADODB.Connection

cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db1.mdb;"

sql = "select id,name from Test" '将SELECT语句，赋值给字符串变量sql

Set rs = New ADODB.Recordset

‘使用rs对象变量的Open方法，执行SELECT语句，并将查询结果返回给rs

rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic

rs.AddNew

rs(0)="001"

rs(1)="张三"

rs.update

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

End Sub

<PRE> </PRE><PRE> </PRE><PRE>方法二、</PRE><PRE>直接使用INSERT语句。</PRE><PRE class=VB.NET>Private Sub Command1_Click()

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db1.mdb;"

' 下面的语句使用了Connection对象的Execute方法执行了INSERT语句。

cn.Execute "INSERT INTO test(id,name) VALUES ('001','张三') "

MsgBox ("添加数据成功！")

cn.Close

Set cn = Nothing

End Sub

</PRE>