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

guoxinhu 2001-11-29 10:00:37
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
...全文
112 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
foolishtiger 2001-11-30
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
'添加
Text1(0).SetFocus
Data1.Recordset.AddNew
End Sub

这段代码根本没有向数据库写数据啊.
wufang 2001-11-29
  • 打赏
  • 举报
回复
添加,删除后要用Data1.UpdateRecord 才有效

7,755

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧