VB数据库编程实现添加、查询、修改、删除

发布时间：2020-12-17 00:01:15 所属栏目：大数据来源：网络整理

导读：Private Sub Command1_Click() Form10.Hide Form4.Show End Sub Private Sub Command10_Click() For i = 0 To 7 If Text1(i).Text "" Then Exit For End If Next i If i = 8 Then MsgBox ("不能保存空记录!") Text1(0).SetFocus Exit Sub End If If Text1(0).

Private Sub Command1_Click() Form10.Hide Form4.Show End Sub Private Sub Command10_Click() For i = 0 To 7 If Text1(i).Text <> "" Then Exit For End If Next i If i = 8 Then MsgBox ("不能保存空记录!") Text1(0).SetFocus Exit Sub End If If Text1(0).Text = "" Then MsgBox ("年级不能为空") Text1(0).SetFocus Exit Sub End If If Text1(1).Text = "" Then MsgBox ("姓名不能为空") Text1(1).SetFocus Exit Sub End If If Text1(2).Text = "" Then MsgBox ("专业不能为空") Text1(2).SetFocus Exit Sub End If If Text1(3).Text = "" Then MsgBox ("时间不能为空") Text1(3).SetFocus Exit Sub End If Adodc1.Recordset.Update Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Command10.Enabled = False Command11.Enabled = False For i = 0 To 7 Text1(i).Enabled = False Next i MsgBox ("保存成功") End Sub Private Sub Command11_Click() If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Command10.Enabled = False Command11.Enabled = False Exit Sub End If Adodc1.Recordset.CancelUpdate Adodc1.Refresh For i = 0 To 7 Text1(i).Enabled = False Next i Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Command10.Enabled = False Command11.Enabled = False End Sub Private Sub Command12_Click() Set DataGrid1.DataSource = Adodc1 DataGrid1.Visible = True End Sub Private Sub Command2_Click() If Adodc1.Recordset.RecordCount = 0 Then Exit Sub End If Adodc1.Recordset.MoveFirst Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Command10.Enabled = False Command11.Enabled = False End Sub Private Sub Command3_Click() If Adodc1.Recordset.RecordCount = 0 Then Exit Sub End If Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Command10.Enabled = False Command11.Enabled = False End Sub Private Sub Command4_Click() If Adodc1.Recordset.RecordCount = 0 Then Exit Sub End If Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Command10.Enabled = False Command11.Enabled = False End Sub Private Sub Command5_Click() If Adodc1.Recordset.RecordCount = 0 Then Exit Sub End If Adodc1.Recordset.MoveLast Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Command10.Enabled = False Command11.Enabled = False End Sub Private Sub Command6_Click() Adodc1.Recordset.AddNew For i = 0 To 7 Text1(i).Enabled = True Text1(i).Text = "" Text1(0).SetFocus Next i Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Command9.Enabled = False Command10.Enabled = True Command11.Enabled = True End Sub Private Sub Command7_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox ("没有要删除的记录") Exit Sub End If Dim str As String str = MsgBox("真的要删除此记录么？",vbYesNo) If str = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command8_Click() 'On Error Resume Next Dim str As String 'Adodc1.CursorType = adOpenDynamic str = InputBox("请输入社员年级","请查找") Adodc1.CommandType = adCmdText Adodc1.RecordSource = "SELECT * FROM 社员 WHERE 年级= '" & str & " ' " Adodc1.Refresh If Adodc1.Recordset.EOF Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = " select * from 社员 " Adodc1.Refresh MsgBox "没有此社员","查找" End If ' If 'Dim mzy As String 'mzy = InputBox("请输入年级号","请查找") 'Adodc1.CommandType = adCmdText 'Adodc1.RecordSource = "Select * From 社员 Where 年级= '" & mzy & " '" 'Adodc1.Refresh 'If Adodc1.Recordset.EOF Then 'MsgBox "无此读者号!","提示" End Sub Private Sub Command9_Click() Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Command9.Enabled = False Command10.Enabled = True Command11.Enabled = True If Adodc1.Recordset.RecordCount <> 0 Then For i = 0 To 7 Text1(i).Enabled = True Next i Else MsgBox ("没有要修改的记录") End If End Sub Private Sub Form_Load() For i = 0 To 7 Text1(i).Enabled = False Next i Command10.Enabled = False Command11.Enabled = False End Sub Private Sub Text2_Change() End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!