vb 用adodc控件查询和修改access数据库中的表信息

显示全部楼层 · 2010-1-5 09:56:04

Private Sub Command3_Click() Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox "已经是第一条"End If End SubPrivate Sub Command5_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox "已经是最后一条"End IfEnd SubPrivate Sub Command6_Click()
Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command1_Click() If Text14.Text"" Then Adodc1.Recordset.Find "学号=" & Text14.Text & "", 0, adSearchForward, adBookmarkFirst
Else
MsgBox "条件不能为空，请输入查询条件！"End IfText14 = ""Text14.SetFocusEnd SubPrivate Sub Command2_Click()EndEnd Sub 修改.查询.更新的程序Dim xx As StringPrivate Sub Command1_Click()Adodc2.Recordset.MoveFirst'Adodc2.Recordset.MoveFirstAdodc1.RecordSource = "select * from 学生与课程表 where 学号='" & Text1.Text & "'"Adodc1.RefreshEnd SubPrivate Sub Command10_Click()Adodc1.Recordset.Fields("课程号") = DataCombo1.TextAdodc1.Recordset.Fields("课程名称") = DataCombo2.TextAdodc1.Recordset.Fields("学号") = Text1.TextAdodc1.Recordset.Fields("成绩") = Text14.TextAdodc1.Recordset.Fields("备注") = Text15.TextAdodc1.Recordset.UpdateEnd SubPrivate Sub Command11_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.UpdateEnd SubPrivate Sub Command12_Click()EndEnd SubPrivate Sub Command2_Click()Adodc2.Recordset.MovePrevious'Adodc2.Recordset.MovePreviousIf Adodc2.Recordset.BOF ThenAdodc2.Recordset.MoveFirstMsgBox "已经到第一条！"End IfAdodc1.RecordSource = "select * from 学生与课程表 where 学号='" & Text1.Text & "'"Adodc1.Refresh'If Adodc2.Recordset.BOF Then'Adodc2.Recordset.MoveFirst'MsgBox "已经到第一条！"'End IfEnd SubPrivate Sub Command3_Click()Adodc2.Recordset.MoveNext'Adodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF ThenAdodc2.Recordset.MoveLastMsgBox "已经到最后一条！"End IfAdodc1.RecordSource = "select * from 学生与课程表 where 学号='" & Text1.Text & "'"Adodc1.Refresh'If Adodc2.Recordset.EOF Then'Adodc2.Recordset.MoveLast'MsgBox "已经到最后一条！"'End IfEnd SubPrivate Sub Command4_Click()Adodc2.Recordset.MoveLast'Adodc2.Recordset.MoveLastAdodc1.RecordSource = "select * from 学生与课程表 where 学号='" & Text1.Text & "'"Adodc1.RefreshEnd SubPrivate Sub Command5_Click()Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueText10.Enabled = TrueText11.Enabled = TrueText12.Enabled = TrueText13.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = Falsexx = Text1.TextEnd SubPrivate Sub Command6_Click()Adodc2.Recordset.UpdateAdodc1.RecordSource = "select * from 学生与课程表 where 学号='" & xx & "'"Adodc1.Recordset.Fields("学号") = Text1Adodc1.Recordset.UpdateAdodc1.RecordSource = "select * from 学生与课程表 where 学号='" & Text1 & "'"MsgBox "修改成功！！"Adodc1.Refresh Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text13.Enabled = FalseEnd SubPrivate Sub Command7_Click()Adodc2.Recordset.CancelUpdate Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text13.Enabled = FalseEnd SubPrivate Sub Command8_Click()Adodc2.Recordset.DeleteAdodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF ThenAdodc2.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command9_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields("课程号") = DataCombo1.TextAdodc1.Recordset.Fields("课程名称") = DataCombo2.TextAdodc1.Recordset.Fields("学号") = Text1.TextAdodc1.Recordset.Fields("成绩") = Text14.TextAdodc1.Recordset.Fields("备注") = Text15.TextAdodc1.Recordset.UpdateEnd SubPrivate Sub DataCombo1_Click(Area As Integer)DataCombo2.Text = DataCombo1.BoundTextEnd SubPrivate Sub DataCombo2_Click(Area As Integer)DataCombo1.Text = DataCombo2.BoundTextEnd SubPrivate Sub Form_Load()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseText10.Enabled = FalseText11.Enabled = FalseText12.Enabled = FalseText13.Enabled = FalseText14.Text = ""Text15.Text = ""DataCombo1.Text = ""DataCombo2.Text = ""Adodc1.RecordSource = "select * from 学生与课程表 where 学号='" & Trim$(Text1.Text) & "'"Adodc1.Refresh'Text14.Enabled = False'Text15.Enabled = False'Text16.Enabled = False'Text17.Enabled = FalseEnd SubPrivate Sub Text14_Change()If Val(Trim$(Text14.Text)) = 60 And Val(Trim$(Text14.Text)) = 70 And Val(Trim$(Text14.Text)) = 80 And Val(Trim$(Text14.Text)) = 90 ThenText15.Text = "优异"End IfEnd IfEnd IfEnd IfEnd IfEnd Sub

千问 · 2010-1-5 09:56:04

借用cang_2009Adodc1.RecordSource ="SELECT * FROM MSysObjects WHERE ((Left([name],4)'MSys') AND ((MSysObjects.Type)=1)) ORDER BY MSysObjects.Name"