关于数据更新的问题！

jwtingyu 2004-07-30 10:25:19

我用ADO把数据读出来显示在Listview里面！程序如下：
Private Sub Form_Load()
Dim item As ListItem
Dim conn As New ADODB.Connection
conn.open "driver={Microsoft Access driver (*.mdb)};dbq=" & App.Path & "\data.mdb"
Dim rs As New ADODB.Recordset
sql = "select * from user"
rs.open sql, conn, 1, 1
Do While Not rs.EOF
Set item = ListView1.ListItems.Add(, , rs("user_card"))
item.SubItems(1) = rs("user_name")
If Not rs("user_tel") = "" Then
item.SubItems(2) = rs("user_tel")
End If
If Not rs("user_address") = "" Then
item.SubItems(3) = rs("user_address")
End If
If Not rs("addtime") = "" Then
item.SubItems(4) = rs("addtime")
End If
rs.movenext
Loop
End Sub

可当数据库更新的时候Listview 里的还是不会吧，我在窗体中添加了一个Button 写了以下代码：
Private Sub Command2_Click()
Form1.Refresh
End Sub
还是没有，哪们高手请帮帮我！

...全文

135 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

jwtingyu 2004-07-31

打赏
举报

非常感谢各位！
不好意思打错字了！

jwtingyu 2004-07-31

打赏
举报

感觉管理各位！

RUKYO 2004-07-30

打赏
举报

当然不能更新啦，ListView并不象DataGrid、MSHFlexGird那样可以和数据库绑定的，用楼上的方法就可以了。

northwolves 2004-07-30

打赏
举报

试试写入一个过程中调用：
Private Sub Form_Load()
init
End Sub
Private Sub Command2_Click()
init
End Sub

Sub init()
ListView1.ListItems.Clear
Dim item As ListItem
Dim conn As New ADODB.Connection
conn.open "driver={Microsoft Access driver (*.mdb)};dbq=" & App.Path & "\data.mdb"
Dim rs As New ADODB.Recordset
sql = "select * from user"
rs.open sql, conn, 1, 1
Do While Not rs.EOF
Set item = ListView1.ListItems.Add(, , rs("user_card"))
item.SubItems(1) = rs("user_name")
If Not rs("user_tel") = "" Then
item.SubItems(2) = rs("user_tel")
End If
If Not rs("user_address") = "" Then
item.SubItems(3) = rs("user_address")
End If
If Not rs("addtime") = "" Then
item.SubItems(4) = rs("addtime")
End If
rs.movenext
Loop
Set rs = Nothing
Set conn = Nothing
End Sub