VB中DataGrid1控件中新增加一条记录

1.亲,您已经对代码容错了哦,

请将代码中的

    On Error Resume Next

这行注释掉

'On Error Resume Next

2.您的datasheet中主键是"编号"吗?是否有格式要求?这些核岩都会导致代码不成功.

建议将代码改为:

Private Sub Command2_Click()

    Dim conn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\bike.mdbPersist Security Info=False"神卜

    rs.CursorLocation = adUseClient

    rs.Open "select * from b1 ", conn, adOpenStatic, adLockOptimistic

    

    'Set DataGrid1.DataSource = rs

    

  游氏穗  'On Error Resume Next

    rs.AddNew

    rs.Fields("ID") = wjxm

    rs.Fields("品牌") = zumc

    rs.Fields("描述") = timex

    rs.Fields("编号") = rs.RecordCount + 1

    rs.Update

    

    rs.Close

    conn.Close

    Adodc1.Refresh

    DataGrid1.Refresh

End Sub

列数是兄渗自动的，就碰尘正是记录集的字段数

'Ctrl+t找Microsoft DataGrid Control....

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim SqlStr As String

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=111"

SqlStr = "Select * From 某个表"

rst.CursorLocation = adUseClient

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打笑悔开记录集

Set DataGrid1.DataSource = rst '给DataGrid修改数据源

---