虽然没分!但是你不进来肯定后悔!

Question

Option Explicit
Dim cnn As ADODB.Connection
Dim rs  As ADODB.RecordsetPrivate Sub Cmdcancel_Click()
 rs.CancelUpdate
 display
End SubPrivate Sub Cmddelete_Click()
Dim i As String
i = MsgBox("你确定要删除此记录吗?", vbYesNo + vbInformation, "删除记录")
If i = vbYes Then
rs.Delete
rs.MovePrevious
If rs.BOF Then rs.MoveFirst
display
End If
End SubPrivate Sub Cmdexit_Click()
Unload Me
End SubPrivate Sub cmdfind_Click()
Dim cnn2 As ADODB.Connection
Dim rs2 As ADODB.Recordset
Dim s As String
Set cnn2 = New ADODB.Connection
s = "select * from data_1 where id='" & Txtid.Text & "' ;"
cnn2.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn2.Open "D:\VB98\学生信息\data.mdb"
Set rs2 = New ADODB.Recordset
rs2.Open s, cnn2, adOpenDynamic
If rs2.EOF Or rs2.BOF Then MsgBox "无效ID号": Exit Sub
 Do While Not rs2.EOF
  If s = rs2!id Then
  Txtid = rs2!id
   txtname = rs2!Name
    Txtadd = rs2!Add
    Exit Do
    End If
    rs2.MoveNext
    Loop
    If rs2.EOF Then
    Txtid = ""
    txtname = ""
    Txtadd = ""
    MsgBox "没找到!" End If
End SubPrivate Sub Txtqdd_Change()End SubPrivate Sub Cmdsave_Click()
rs.AddNew
rs!id = Txtid
rs!Name = txtname
rs!Add = Txtadd
rs.Update
End SubPrivate Sub Codadd_Click() rs.AddNew
Txtid = ""
txtname = ""
Txtadd = ""
Txtid.SetFocus
End SubPrivate Sub Command1_Click()
rs.MoveFirst
display
End SubPrivate Sub Command2_Click()
rs.MovePrevious
If rs.BOF Then
MsgBox "到第一条记录"
rs.MoveFirst
End If
display
End SubPrivate Sub Command3_Click()
rs.MoveNext
If rs.EOF Then
MsgBox "到最后一条记录"
rs.MoveLast
End If
display
End SubPrivate Sub Command4_Click()
rs.MoveLast
display
End Sub
'激活窗口
Private Sub Form_Activate()
display
End Sub
'加载窗口
Private Sub Form_Load()
Dim addFlag As Boolean
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open "D:\VB98\学生信息\data.mdb"
rs.Open "data_1", cnn, adOpenDynamic, adLockBatchOptimistic, adCmdTable
addFlag = False
End Sub
'显示记录
Private Sub display()
 Txtid = rs!id
 txtname = rs!Name
 Txtadd = rs!Add 
End Sub
'卸载窗体
Private Sub form_unload(cancel As Integer)
cnn.Close
End Sub
这个程序中~find和save是错误的`
请教高手`
这两个错在哪`

Answer 1

你越是搞这种标题 越是没有人会帮你，我是专程进来骂你的。
鄙视你这种人。

Answer 2

楼主不该这样做。
这样没人会帮你的。

Answer 3

谁还在乎你这点分...
  
   应该诚恳,没分也会帮你的... ^^

Answer 4

太吝啬了！而且你不说是哪条代码有错，哪么，要别人每条都看，很废时间的

Answer 5

B4!!玩花也不看在什么地方!大家都后悔,也包括你吧!

Answer 6

大大大大大大大大大大大大大大大大大大大大大大大大大大大

Answer 7

跟着后悔
坚决不帮
。。

Answer 8

我進來了，現在后悔的應該是樓主了。

Answer 9

这个是代码？我看怎么像乱码。