2016-04-24 6 views
0

私はvb.netでgeekです。私はすでにmsアクセスデータベースを持つアプリケーションからvb.netを作成しています。今私は、マルチユーザーのために、このアプリケーションを使用する必要があると私はSQLサーバーを使用したい、私はリストビューへのアクセスデータベースからデータを表示するには、このコードを使用します。SQLサーバーのデータをlistvewに表示

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 Serverのこの作業を行う方法への解決策?ありがとう。

答えて

0

接続文字列を変更してくださいhereを参照してください。また、OleDbConnectionオブジェクトをSQLConnectionに変更し、OleDbDataAdapterをSQLDataAdapterに変更します。

データベースがSQL Serverに既に存在している必要があります。