vb listview连接问题。。。。谁教教我

Private Sub Form_Load()
fra1.Left = 60
fra1.Top = 0
lvw1.View = lvwReport
Dim nbdoc As ListItem
   Dim nAccessDB As New AccessDB
   Dim nSql1 As String
   Dim nsql2 As String
   Dim nsql3 As String
   Dim nstring As String
   With nAccessDB
      .ConnectToDB "192.100.110.136", "mysql", "sa", "", "0"
      '显示函数是否执行成功
      nsql = "select 部门编号 from 部门表"
    lvw1.ColumnHeaders.Add , "Name", "部门编号"
    lvw1.ColumnHeaders.Add , "Sex", "部门名称"
    '向控件添加ListItem对象。
    Dim itmX As ListItem
    '添加column1的名称。
    nSql1 = "select * 部门表 "
    nsql2 = "select * from 部门表 where 部门编号"
    nsql3 = nAccessDB.ExecuteToDB
    lvw1.Items.Add (nsql3(0))
    End With

End Sub
listview如何与sql数据库进行连接，并且实现删除 增加修改操作，在lvw1中显示表格

答案：listview只是用来显示数据  其他的操作都靠代码来实现的 

给你一段简短的代码你自己看吧
Private Sub Command1_Click()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "序列号", 600
ListView1.ColumnHeaders.Add , , "题目", 2000
ListView1.ColumnHeaders.Add , , "选项A"
ListView1.ColumnHeaders.Add , , "选项B"
ListView1.ColumnHeaders.Add , , "选项C"
ListView1.ColumnHeaders.Add , , "答案"
ListView1.ColumnHeaders.Add , , "判断", 1000
Dim r As New ADODB.Recordset
Dim SQL As String
Dim itmx As ListItem
ListView1.ListItems.Clear
'SQL = "select top " & txtTS & " * from tiku order by newid() "
SQL = "select top " & txtTS & " * from tiku where 类别='" & cmbLB & "' order by rnd(idd)"
r.Open SQL, cn
Do While Not r.EOF
    Set itmx = ListView1.ListItems.Add
        itmx.Text = Trim(r!idd & " ")
        itmx.SubItems(1) = Trim(r!题目 & " ")
        itmx.SubItems(2) = Trim(r!A & " ")
        itmx.SubItems(3) = Trim(r!b & " ")
        itmx.SubItems(4) = Trim(r!c & " ")
        itmx.Tag = UCase(Trim(r!答案 & " "))
r.MoveNext
Loop
r.Close

End Sub

上一个：VB显示系统时间的代码
下一个：VB知识，帮忙解答下