如何在VB6.0数据库中修改某项数据

ADO+DataGrid1例子先点击DataGrid1要修改的数据项,调用DataGrid1_click事件，把点击该项数据在Textbox中显示出来（运行状态下）DataGrild_click()Text2

=

Adodc1.Recordset(7)

Text3

=

Adodc1.Recordset(9)

Text4

=

Adodc1.Recordset(10)

Text5

=

Adodc1.Recordset(3)然后在Textbox中修改数据后，点击"保存"按扭

执行保存command_save

click()Adodc1.Recordset(11)

=

DTPicker1.Value

Adodc1.Recordset(1)

=

Text1.Text

Adodc1.Recordset(6)

=

DTPicker2.Value

Adodc1.Recordset(7)

=

Text2.Text

Adodc1.Recordset(8)

=

Text_taobiao.Text

Adodc1.Recordset(9)

=

Text3.Text

Adodc1.Recordset.UpdateBatch

adAffectAllChapters添加new_click()Adodc1.Recordset.AddNew

Adodc1.Recordset(0)

=

Combo1.Text

Adodc1.Recordset(1)

=

Text_name.Text

Adodc1.Recordset(2)

=

Combo__kh_name.Text

Adodc1.Recordset(3)

=

Combo_xd.Text

Adodc1.Recordset(4)

=

Combo_tel.TextAdodc1.Recordset.UpdateBatch

Dim conn As Object

Set conn = CreateObject("adodb.connection")

conn.Open "provider=Microsoft.Jet.OLEDB.4.0 Data Source=" & App.Path & "\成绩.mdb"

conn.Execute "update [高二学生] set [数学成绩]=90 where [姓名]='李明'"

conn.Close

Set conn = Nothing

MsgBox "数据已修改！"

一、改变颜色

在VB6的ListView控件中，可以改变项目及其子项的前景色、背景色。实现方法如下

（1）在窗体上布置一个ListView控件

（2）窗体代码如下

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

Option

Explicit

Private

Sub

Form_Load()

Dim

itemX

As

ListItem

With

ListView1

.View

=

lvwReport

.ColumnHeaders.Add

,

,

"类别"

.ColumnHeaders.Add

,

,

"品名1"

.ColumnHeaders.Add

,

,

"品名2"

Set

itemX

=

.ListItems.Add(,

,

"水果")

itemX.SubItems(1)

=

"苹果"

itemX.SubItems(2)

=

"香蕉"

---