Question

VB listview 如何显示SQL 数据库？谢谢！

不用ADO，只用VB中的LISTVIEW显示数据库SQL的数据，请问如何实现呢？谢谢！（要用代码实现。）

Answer 1

不用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

Answer 2

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

Answer 3

Public Function addLst() As Boolean
lstUser.Clear()
mySql = "select * from sqlusers"
rs = myRs(mySql, sqlIP, 1)
lstUser.View = View.Details
Dim i As Integer
If rs.Fields.Count > 0 Then
'添加列表框列标题项目
For i = 1 To rs.Fields.Count
lstUser.Columns.Add(rs.Fields.Item(i - 1).Name)
Next
'添加列表框数据内容
If rs.RecordCount > 0 Then
rs.MoveFirst()
For i = 1 To rs.RecordCount
lstUser.Items.Add(rs("用户名").Value)
lstUser.Items.Item(i - 1).SubItems.Add(rs("密码").Value)
lstUser.Items.Item(i - 1).SubItems.Add(rs("用户类型").Value)
rs.MoveNext()
Next
End If
End Function

Answer 4

亚历山大啊