ADO.net ASP.net Как заполнить datatable?

Question

Я новичок в этом .... Как правильно заполнить этот документ? Редактору не нравится этот код, он дает мне закорючки под последнее вхождением свя и Fill

Imports System.Data.OleDb 
Imports System.Data.SqlClient 
Public Class WebForm4 
Inherits System.Web.UI.Page 

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim connstring As String 
    connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\CompanyData.mdb" 

    Dim conn As OleDbConnection 
    conn = New OleDbConnection(connstring) 

    conn.Open() 

    Dim strSql As String 
    strSql = "select * from Company" 

    Dim cmd As SqlCommand 
    cmd = New SqlCommand(strSql, conn) 

    Dim da As SqlDataAdapter 
    da = New SqlDataAdapter 
    da.SelectCommand = cmd 

    Dim dt As DataTable 
    dt = New DataTable 
    da.Fill(dt, "Company") 

End Sub 

Answer 1

Вы используете OleDb использовать базу данных MS-Access. Вы должны использовать классы OleDb для всего. Вы создаете SqlCommand и SqlDataAdapter, эти классы работают для Sql Server, но не с OleDb.

Dim connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\CompanyData.mdb" 
Dim strSql = "select * from Company" 

Using conn = New OleDbConnection(connstring) 
Using cmd = New OleDbCommand(strSql, conn) 
    conn.Open() 

    Using da = New OleDbDataAdapter 
     da.SelectCommand = cmd 
     Dim dt = New DataTable 
     da.Fill(dt, "Company") 
    End Using 
End Using 

Я немного изменился код, чтобы показать, как использовать Using Statement. Это утверждение очень важно, чтобы ваш код был чистым, поскольку он закрывает и удаляет каждый одноразовый объект, объявленный в строке using.