一个用VB制作的简单查询系统,无法实现,请VB高手指教.

[guoxinhu]

Private Sub Command1_Click()
'添加
Text1(0).SetFocus
Data1.Recordset.AddNew
End Sub

'删除
Private Sub Command2_Click()
s = MsgBox(" 是否要删除记录？", vbYesNo + vbQuestion, "删除")
If s = vbYes Then
Data1.ReadOnly = False
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
End Sub

'退出
Private Sub Command5_Click()
End
End Sub

Private Sub Data1_Reposition()
Data1.Caption = "第" & Data1.Recordset.AbsolutePosition + 1 & "记录"
End Sub

Private Sub Picture1_Click()
Picture1.Picture = Clipboard.GetData
End Sub

'查找
Private Sub Command4_Click()
a = InputBox(" 请输入完整姓名", "查找")
Data1.Recordset.Index = "姓名"
Data1.Recordset.Seek "=", a
If Data1.Recordset.NoMatch Then
b = MsgBox("没有发现要找的记录", "sorry")
Data1.Recordset.MoveFirst
End If

End Sub

[wufang]

添加，删除后要用Data1.UpdateRecord 才有效

[foolishtiger]

Private Sub Command1_Click()
'添加
Text1(0).SetFocus
Data1.Recordset.AddNew
End Sub

这段代码根本没有向数据库写数据啊.