vb.net获取服务器中所有数据库名称显示在list,VB listview 如何显示SQL 数据库?谢谢!...

满意答案

blljfn

2013.10.06

采纳率：49%    等级：12

已帮助：4512人

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 报告明细.放入时间

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

00分享举报