显示从SQL服务器到listvew的数据

时间:2016-04-24 13:29:03

标签: sql-server vb.net visual-studio

我是vb.net的极客,我已经从具有ms访问数据库的应用程序中创建了vb.net。现在我需要将此应用程序用于多用户,并且我想使用SQL服务器,我使用此代码显示从访问数据库到listview的数据:

 con.ConnectionString = "provider=microsoft.ace.oledb.12.0; data source = |datadirectory|\noorapp.accdb;"
        con.Open()

Dim dt As New DataTable
        Dim ds As New DataSet
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter("select * from " & Year(Now) & " where cmonth='" & m & "' order by cdate DESC", con)
        da.Fill(dt)
        Dim myrow As DataRow
        For Each myrow In dt.Rows
            ListView1.Items.Add(myrow.Item(0)).ToString()
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(4))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(5))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(6))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(7))
        Next 

任何解决方案如何使这个工作的SQL服务器也? 感谢。

1 个答案:

答案 0 :(得分:0)

更改您的连接字符串,请参阅here。同时将OleDbConnection对象更改为SQLConnection,将OleDbDataAdapter更改为SQLDataAdapter

您的数据库必须已存在于SQL Server中才能使其正常工作