當前位置:我的異常網? VB???vb listview顯示數據庫內容,該怎么解決

vb listview顯示數據庫內容,該怎么解決

www.myexceptions.net??網友分享于：2013-03-22??瀏覽：23次

vb listview顯示數據庫內容

我想用listview顯示數據庫的內容，但執行之后，listview一片空白。

我的代碼是

Private Sub Form_Load()

Dim str As String

Set conn = New ADODB.Connection

str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dm.mdb;Persist Security Info=False"

conn.Open str

Dim rs1 As ADODB.Recordset

Set rs1 = New ADODB.Recordset

ListView1.View = lvwReport

ListView1.Gridlines = True

ListView1.FullRowSelect = True

With ListView1

.View = lvwReport

.ColumnHeaders.Add = "資產標志"

.ColumnHeaders.Add = "資產編號"

.ColumnHeaders.Add = "資產名稱"

.ColumnHeaders.Add = "品名"

.ColumnHeaders.Add = "廠家"

.ColumnHeaders.Add = "型號"

.ColumnHeaders.Add = "配置"

.ColumnHeaders.Add = "數量"

.ColumnHeaders.Add = "購進單位"

.ColumnHeaders.Add = "使用人"

.ColumnHeaders(1).Width = 1000

.ColumnHeaders(1).Width = 1500

.ColumnHeaders(1).Width = 2000

.ColumnHeaders(1).Width = 1500

.ColumnHeaders(1).Width = 1500

.ColumnHeaders(1).Width = 1500

.ColumnHeaders(1).Width = 1500

.ColumnHeaders(1).Width = 800

.ColumnHeaders(1).Width = 2500

.ColumnHeaders(1).Width = 1000

End With

Dim addlist As ListItem

Dim i As Integer

rs1.Open "select * from sbjbztb", conn, 1, 1

Do While rs1.EOF

Set addlist = ListView1.ListItems.Add(, , rs1.Fields("id").Value)

addlist.SubItems(1) = IIf(IsNull(rs1.Fields("資產編號").Value), "", rs1.Fields("資產編號").Value)

addlist.SubItems(2) = IIf(IsNull(rs1.Fields("資產編號").Value), "", rs1.Fields("資產編號").Value)

addlist.SubItems(3) = IIf(IsNull(rs1.Fields("資產名稱").Value), "", rs1.Fields("資產名稱").Value)

addlist.SubItems(4) = IIf(IsNull(rs1.Fields("品名").Value), "", rs1.Fields("品名").Value)

addlist.SubItems(5) = IIf(IsNull(rs1.Fields("廠家").Value), "", rs1.Fields("廠家").Value)

addlist.SubItems(6) = IIf(IsNull(rs1.Fields("型號").Value), "", rs1.Fields("型號").Value)

addlist.SubItems(7) = IIf(IsNull(rs1.Fields("配置").Value), "", rs1.Fields("配置").Value)

addlist.SubItems(8) = IIf(IsNull(rs1.Fields("數量").Value), "", rs1.Fields("數量").Value)

addlist.SubItems(9) = IIf(IsNull(rs1.Fields("購進單位").Value), "", rs1.Fields("購進單位").Value)

addlist.SubItems(10) = IIf(IsNull(rs1.Fields("使用人").Value), "", rs1.Fields("使用人").Value)

rs1.MoveNext

Loop

rs1.close

End Sub

請大家幫我看看，是哪里出了問題。

------解決方案--------------------

Do While rs1.EOF寫錯了

改為：Do While not rs1.EOF

文章評論

總結

以上是生活随笔為你收集整理的vb.net获取服务器中所有数据库名称显示在list,vb listview显示数据库内容,该怎么解决...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。