潍坊振华商厦:关于数据库+ListView处理的问题( 提高悬赏10分)

来源：百度文库编辑：杭州交通信息网时间：2024/04/27 20:26:57

我通过DAO 将处理的数据库存到ListView中,为什么会是无效的,直接赋予字符串也是无效

Dim mydb As Database
Dim myrs As Recordset
Private Sub Form_Load()
ListView1.GridLines = True
ListView1.ColumnHeaders.Add , , "日文名", 1500
ListView1.ColumnHeaders.Add , , "中文名", 1500
ListView1.ColumnHeaders.Add , , "卡种", 1000

Dim oldPassword As String
oldPassword = ""
' Set mydb = OpenDatabase(App.Path & "\card.dat", True, False, _
' ";pwd=" + oldPassword)
Set mydb = OpenDatabase("F:\我的文档\YGO.mdb", True, False, _
";pwd=" + oldPassword)
Set myrs = mydb.OpenRecordset("Data")

If Not (myrs.EOF And myrs.BOF) Then
myrs.MoveFirst
End If
ListView1.ColumnHeaders.Clear
Dim nIdx
Dim liv As ListItem
While Not (myrs.EOF Or myrs.BOF)
nIdx = nIdx + 1
Set liv = ListView1.ListItems.Add(, myrs("卡片名称"), myrs("日文名"))
liv.SubItems(1) = myrs("卡片名称")
liv.SubItems(2) = myrs("卡片类型")
myrs.MoveNext
Wend
myrs.Close
mydb.Close
End Sub

关注中

关于数据库+ListView处理的问题( 提高悬赏10分) delphi中关于listview的问题关于sql数据库处理问题 C#语言关于listview控件应用的问题关于C# listview的一个问题，请教各位高手啦？ VB-关于一个LISTVIEW 对文件操作的问题. VB-关于一个LISTVIEW 对文件操作的问题! 读LISTVIEW时碰到的问题关于数据库的问题关于数据库的问题