建议：学生信息不要“删除”。就算开出学生，但信息业要保留至是在响应字段注明开除的代码就好了。
添加数据的代码写出来，大家帮你看看。

[quote]我的不给分?[/quote]


你在兜售程序。，，

[quote]建议：学生信息不要“删除”。就算开出学生，但信息业要保留至是在响应字段注明开除的代码就好了。
添加数据的代码写出来，大家帮你看看。[/quote]

我现在做的差不多了。不过似乎还是重点部分出问题。。

不过都是东拼西凑做出来的。。能谷歌百度的都去了。。。自己做下来才发现 很多东西书里也没写的。。


按照别人说的用了adodc+data grid做的。。有添加 删除 

Private Sub Command1_Click(Index As Integer)
Dim dmin As Integer
Rs.Open "select max(编号) as [dmin] from 学生信息", db, adOpenKeyset, adLockOptimistic
    dmin = Val(Rs(0).Value)
      Adodc1.Recordset.AddNew
    Rs.Close
    
    'Adodc1.Recordset.AddNew
    
    Adodc1.Recordset.Fields("编号") = dmin + 1
    Adodc1.Recordset.Fields("姓名") = Val(Text1.Text)
    Adodc1.Recordset.Fields("性别") = Val(Text2.Text)
    Adodc1.Recordset.Fields("年龄") = Val(Text3.Text)
    Adodc1.Recordset.Fields("学号") = Val(Text4.Text)
    Adodc1.Recordset.Fields("学科") = Val(Text5.Text)
    Adodc1.Recordset.Fields("联系电话") = Val(Text6.Text)
    Adodc1.Recordset.Update
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Refresh
    DataGrid1.Refresh
    Call Command3_Click
End Sub


Private Sub Command2_Click()
    'db.Execute "alter table 学生信息 add no int(2)"     '这一句有问题
    'db.Execute "delete from table where No=r"     '这一句也有问题
    'db.Execute "update table set r=r-1 where r> r"
    'db.Close

    Adodc1.Recordset.Delete
    Rs.Open "update biao set 编号=编号-1 where 编号>" & r, db, adOpenKeyset, adLockOptimistic
    Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
    Form1.Refresh
    Adodc1.Refresh
    DataGrid1.Refresh
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast

End Sub
Private Sub Form_Load()
    Timer1.Interval = 1000   '间隔1秒
    Timer1.Enabled = False
    Command3.Visible = False
    Set db = New ADODB.Connection
    Set Rs = New ADODB.Recordset
  
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\学生信息.mdb;Persist Security Info=False;"
    Adodc1.Recordset.MoveLast

End Sub


Private Sub Timer1_Timer()
Timer1.Enabled = False
Call Command3_Click
End Sub

这个是我那一个实现功能的版面代码。
删除还是做了。。怕到时老师还嫌内容太少。。其实要做到什么程度也没说。下学期开始就拿去给老师检查了

[quote]db.Execute "alter table 学生信息 add no int(2)" [/quote]是给数据库db的tabl表添加一列数据列名为no数据类型为int（2）
我想这么一说你应该看出来错误在什么地方了
[quote]db.Execute "delete from table where No=r" [/quote] 是删除db数据库中标明为table的表中no列数据等于变量r的所有记录

因为你没有说错误的类型，也没有传上来你的工程，我就先说这些。再多的我觉得用计算机来运行要比人脑去运行代码可靠些、也省力些。

[quote][quote]db.Execute "alter table 学生信息 add no int(2)" [/quote]是给数据库db的tabl表添加一列数据列名为no数据类型为int（2）
我想这么一说你应该看出来错误在什么地方了
[quote]db.Execute "delete from table where No=r" [/quote] 是删除db数据库中标明为table的表中no列数据等于变量r的所有记录

因为你没有说错误的类型，也没有传上来你的工程，我就先说这些。再多的我觉得用计算机来运行要比人脑去运行代码可靠些、也省力些。[/quote]


where [No]=r"  是应该这样吗？



工程要发给你吗？  现在编译后  还没提示道这两个地方出错。

现在提示着一块错
Private Sub Form_Load()
    Timer1.Interval = 1000   '间隔1秒
    Timer1.Enabled = False
    Command3.Visible = False
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
  
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\学生信息.mdb;Persist Security Info=False;"
 Adodc1.Recordset.MoveLast

End Sub

上面那一块的  Adodc1.Recordset.MoveLast 这段编码

可惜我不写论文,我想自己构建数据库系统,然后再实现数据库操作

[quote][quote]db.Execute "alter table 学生信息 add no int(2)" [/quote]是给数据库db的tabl表添加一列数据列名为no数据类型为int（2）
我想这么一说你应该看出来错误在什么地方了
[quote]db.Execute "delete from table where No=r" [/quote] 是删除db数据库中标明为table的表中no列数据等于变量r的所有记录

因为你没有说错误的类型，也没有传上来你的工程，我就先说这些。再多的我觉得用计算机来运行要比人脑去运行代码可靠些、也省力些。[/quote]


这里看书上一般设置了No=r的设置成这样[NO]。。加括号。
现在之前那问题解决了。是因为没用到adodc 4.0驱动。DATAGRID能显示数据了 不过就到添加和删除记录那出问题。。

删除是可以删除不过会弹一个框 实时错误3001  参数类型不正确 或不在可以接受的范围之内。或与其他参数有冲突。。

不过还是能删除掉。。

添加也是显示。。 参数类型不正确 或不在可以接受的范围之内。或与其他参数有冲突。。

rs.Open "select max(编号) as [dmin] from 学生信息", db, adOpenKeyset, adLockOptimistic

rs.Open "update 学生信息 set 编号=编号-1 where 编号>" & r, db, adOpenKeyset, adLockOptimistic

两种方法：
一、彻底搞清真相。你仔细研究参数设置，应该还是有问题的。
二、使用错误屏蔽语句：on error……直接到下一句。就不会报告错误了。

[quote]两种方法：
一、彻底搞清真相。你仔细研究参数设置，应该还是有问题的。
二、使用错误屏蔽语句：on error……直接到下一句。就不会报告错误了。[/quote]


那不报告错误的话。。但错误还存在啊。。

那你就选一啊