listview怎样连接数据库并显示表中的内容?

listview怎样连接数据库并显示表中的内容?
所属分类:.NET技术 VB.NET
----------------------------------------------------------------------

listview怎样连接数据库并显示表中的内容?
急呀,谢谢

----------------------------------------------------------------------

Data binding a listview 
http://www.codeproject.com/cs/miscctrl/ListView_DataBinding.asp

--------------------------------------------------------

我想这个应该对你有用,我就是这么写的
sql = "select * from tb_cookbook"
        Dim struser As String = "tb_cookbook"
       executesql(sql, struser)
       Dim i As Integer
       If mytable.Rows.Count >= 1 Then
            For i = 0 To mytable.Rows.Count - 1
                lvcookname.Items.Add(mytable.Rows(i).Item(0).ToString.Trim)
                lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(1)))
                lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(2)))
                lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(3)))
            Next
        End If

 Shared Function executesql(ByVal strsql As String, ByVal sqltable As String) As Short

        Dim strconn As String = "server=(local);database=hotel;integrated security=sspi"

        Adapter = New SqlDataAdapter(strsql, strconn)

        ds = New DataSet
        Try
            Adapter.Fill(ds, sqltable)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        mytable = ds.Tables.Item(0)
        rownumberind = 0
        If mytable.Rows.Count = 0 Then
            Exit Function
        Else
            myrow = mytable.Rows.Item(rownumberind)
        End If

    End Function 
 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
你可以使用 Delphi 的数据库组件来连接数据库并查询表数据,然后将查询结果显示ListView 控件。以下是一个简单的示例代码: ```delphi uses Data.DB, Data.Win.ADODB, Vcl.ComCtrls; procedure LoadDataToListView(ListView: TListView); var Connection: TADOConnection; Query: TADOQuery; I: Integer; begin ListView.Items.Clear; // 创建数据库连接组件 Connection := TADOConnection.Create(nil); try Connection.ConnectionString := 'Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword'; Connection.Open; // 创建查询组件 Query := TADOQuery.Create(nil); try Query.Connection := Connection; Query.SQL.Text := 'SELECT * FROM YourTable'; // 执行查询 Query.Open; try // 将查询结果添加到 ListView while not Query.Eof do begin with ListView.Items.Add do begin Caption := Query.FieldByName('Column1').AsString; SubItems.Add(Query.FieldByName('Column2').AsString); // 添加更多列... end; Query.Next; end; finally Query.Close; end; finally Query.Free; end; finally Connection.Free; end; end; ``` 在上面的代码,你需要替换 `YourServer`、`YourDatabase`、`YourUsername`、`YourPassword` 和 `YourTable` 分别为你的数据库服务器、数据库名称、用户名、密码和表名。你还可以根据需要添加更多的列。 调用 `LoadDataToListView` 函数并传入要显示数据ListView 控件,即可将数据库表中数据加载到 ListView 。 希望这可以帮助到你!如果你有任何进一步的问题,请随时提问。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值