vblistview資料庫

『壹』 VB-怎麼讓資料庫中的內容在listview中顯示

給你一個我寫的例子：

『初始化ListView，追加列標題
Private Sub lsInitListView()

Dim oHeader As ColumnHeader
Dim oItem As ListItem
Dim oSubItem As ListSubItem

With lvwLot
.View = lvwReport
.SmallIcons = ilsIco
.FullRowSelect = True
.MultiSelect = True
.Checkboxes = True
.LabelEdit = lvwManual
End With

'lvwColumnLeft,lvwColumnRight ,lvwColumnCenter
Set oHeader = lvwLot.ColumnHeaders.Add(, , "列1", 700, lvwColumnLeft)
Set oHeader = lvwLot.ColumnHeaders.Add(, , "列2", 900, lvwColumnCenter)
' Clear
Call lvwLot.ListItems.Clear

' 描畫
lvwLot.View = lvwReport

End Sub
』數據邦定
Private Sub lsSetListView()

' Clear
Call lvwLot.ListItems.Clear

Dim oItem As ListItem

Dim lngcnt As Long
dim i as long
for i = 0 to 最大記錄條數
With lvwLot.ListItems(lngcnt).ListSubItems
.Add , , 數據
.Add , , 數據
End With
lngcnt = lngcnt + 1
End If
Next

end sub

『貳』 VB.NET從ListView中添加數據到資料庫

('" + Trim(Label4.Text) + "','" + Trim(ListView1.SelectedItems.Item(0).Text) + "','" + Trim(ListView1.SelectedItems.Item(1).Text) + "' 這個裡面每個變數多了個單引號吧。。。 注意檢查下。。。。語法。。。SQL的

『叄』 vb中listview如何顯示資料庫內容

第一步：添加列頭
可在form_load里邊添加，如下：
'初始化
ListView1.FullRowSelect
=
True
'（允許整行選擇）
listview1.gridlines=true
'(顯示網格)
listview1.checkboxs=true
'顯示checkboxs框
listview1.view=3
'以報表形式顯示
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add
1,
,
"姓名",
1000
ListView1.ColumnHeaders.Add
2,
,
"性別",
500
ListView1.ColumnHeaders.Add
3,
,
"職稱",
1500
ListView1.ColumnHeaders.Add
4,
,
"電話",
1000
第二步，添加數據
Dim
itmX
As
ListItem
Set
itmX
=
lvw.ListItems.Add(參數，參數，參數，……)
'這些參數都可以為空，具體你可以看看msdn
itmX.text="李四"
itmX.SubItems(1)
=
"雄性"
itmX.SubItems(2)
=
"大將軍"
itmX.SubItems(3)
=
"10086"
第三步，取得行數據
Private
Sub
ListView1_ItemClick(ByVal
Item
As
MSComctlLib.ListItem)
Text1
=
Item.Text
Text2
=
Item.SubItems(1)
Text3
=
Item.SubItems(2)
Text4
=
Item.SubItems(3)
End
Sub
試一試就能知道怎麼用了，快去試試吧

『肆』 VB listview 如何顯示SQL 資料庫謝謝！

不用ADO 那就用RDO DAO也可
反正總要調用個資料庫引擎 你才能使用裡面的資料庫
給你一段用ADO的代碼 希望你能看懂

Dim r As New ADODB.Recordset
Dim SQL As String
Dim itmx As ListItem
ListView1.ListItems.Clear
SQL = "SELECT 報告.idd, 報告.ID, 報告.姓名, 報告.性別, 報告.年齡, 報告.放入日期, "
SQL = SQL & " 報告.結論, 報告.結論日期, 報告明細.reidd, 報告明細.名稱, 報告明細.條碼,"
SQL = SQL & "報告明細.放入時間, 報告明細.放入人員, 報告明細.取出時間, 報告明細.取出人員, 報告明細.時間間隔, 報告明細.結果, 報告明細.說明, 報告明細.位置 "
SQL = SQL & "FROM 報告, 報告明細 where 報告.idd = 報告明細.reidd "
SQL = SQL & " and 報告明細.放入時間>=#" & Format(RQ1, "yyyy-MM-dd") & "# "
SQL = SQL & " and 報告明細.放入時間<#" & Format(RQ2 + 1, "yyyy-MM-dd") & "# "
r.Open SQL, cn
Do While Not r.EOF
Set itmx = ListView1.ListItems.Add
itmx.Text = Trim(r!idd & " ")
itmx.SubItems(1) = Trim(r!id & " ")
itmx.SubItems(2) = Trim(r!姓名 & " ")
itmx.SubItems(3) = Trim(r!性別 & " ")
itmx.SubItems(4) = Trim(r!年齡 & " ")
itmx.SubItems(5) = Format(r!放入日期, "yyyy-MM-dd")
itmx.SubItems(6) = Trim(r!名稱 & " ")
itmx.SubItems(7) = Trim(r!條碼 & " ")
itmx.SubItems(8) = Format(r!放入時間, "yyyy-MM-dd hh:mm:ss")
itmx.SubItems(9) = Trim(r!放入人員 & " ")
itmx.SubItems(10) = Format(r!取出時間, "yyyy-MM-dd hh:mm:ss")
itmx.SubItems(11) = Trim(r!取出人員 & " ")
itmx.SubItems(12) = Format(r!時間間隔 / 24, "0.0")
itmx.SubItems(13) = Trim(r!結果 & " ") & Trim(r!說明 & " ")
itmx.SubItems(14) = Trim(r!位置 & " ")
r.MoveNext
Loop
r.Close

『伍』 VB listview 資料庫問題

順著昨天的工程模板寫了一個例子 添加的方法還是比較多的Private Sub Form_Load()'////////////////////////////////不用添加控制項ado，引用了一個庫Microsoft activeX Date...來處理access//////////////////////////////////////////On Error Resume Next
Dim xItem As ListItem
ListView1.View = lvwReport
For I = 1 To 2 '添加列數 根據你的數據決定i
ListView1.ColumnHeaders.Add , , "" & I & ""
Next '創建Connection對象cnn，關鍵New用於創建新對象
Dim cnn As New ADODB.Connection
'創建Recordset對象rs1
Dim rs1 As New ADODB.Recordset
'設置查詢記錄集的SQL語句，從表data中讀取記錄
Dim varSource As String
varSource = "select * from bb" '寫入條件

If Dir("E:\" + "\data.mdb") <> "" Then
'設置連接字元串ConnectionString屬性.mdb的 access文件必須用Microsoft.Jet.OLEDB.4.0 ，Access 97為3.51
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
+ " Data Source=E:\data.mdb; "
'打開到資料庫的連接
cnn.Open
'設置rs1的ActiveConnection屬性，指定與其關聯的資料庫連接
Set rs1.ActiveConnection = cnn
'設置游標類型
rs1.CursorType = adOpenStatic
'打開記錄集，將從表data中讀取的結果集保存到記錄集rs1中
rs1.Open varSource '顯示記錄
If rs1.RecordCount <> 0 Then

rs1.MoveFirst Do While Not rs1.EOF '判斷EOF標記屬性（Endoffile） Set xItem = ListView1.ListItems.Add(, , rs1!id) 『第一列
xItem.SubItems(1) = rs1!Name 』第二列 '以此類推。。。。 rs1.MoveNext '將游標指針移到下一條記錄

Loop
Else
MsgBox "查詢不到結果"
End If
'關閉記錄集
rs1.Close
'關閉cnn對象
cnn.Close
Else
MsgBox ("找不到資料庫")
End IfEnd Sub結果如下所用測試資料庫data表bb結構