Question

关于VB调用access，不用adodc控件可以向数据库中添加记录么？（我说的是不用adodc控件）

Private Sub Query(strInput As String)Dim Cn As New ADODB.ConnectionDim Rst As New ADODB.RecordsetCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False"Rst.CursorLocation = adUseClientRst.Open strInput, Cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集Set DataGrid1.DataSource = Rst '给DataGrid修改数据源 End SubPrivate Sub Command1_Click()Dim SqlStr As StringSqlStr = "Select * From 表1"Query (SqlStr)End Sub
这段程序是我已将所有表1内容显示datagrid1中，我想向datagrid1中添加一条新记录。如果用adodc控件我会写，但是不用这个控件可以添加记录么？
程序代码怎么写呢？？？？可以详细点吗？谢谢！！1
Private Sub Command4_Click()AddNew？？？.Fields("姓名").Value = "小红"？？？？？？End Sub？？？
http://zhidao.baidu.com/question/936474263649369892.html
可以帮我看下这个问题么？
谢谢！

Answer 1

可以。
'连接数据库
Public conn As New ADODB.Connection

conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False"

其它的代码差不多一样了。。
Private Sub Command4_Click()
dim rs As New ADODB.Recordset
with rs
.Open"select........................................",conn,1,3
.AddNew
.Fields("姓名").Value = "小红"
.update
.close
set rs=nothing
end with
End Sub