如何選擇和插入在ASP.NET中的Microsoft Access數據庫（accdb）VB

Question

嘿大家我是新來的asp.net，我想從數據庫中選擇數據並將數據存儲在VB中的DataTable而不是C＃ ，但我似乎無法理解如何連接。任何人都可以幫助我嘗試連接到訪問數據庫？我很失落，已經有好幾天了。如果不是它的話。

謝謝您的閱讀。

布倫特

Public Function CheckUser(ByVal p_strUserNAME As String, ByVal p_Password As String) As Boolean 
    Dim blnAdminUser As Boolean = False 

    Dim SQLQuery As String = "SELECT Username, Password FROM HomelessUsers WHERE Username = " & p_strUserNAME & " AND Password = " & p_Password 

    Dim MDBConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\HomelessCapstone\HomelessCapstone\HomelessCapstone\APP_Data\Homeless.accdb;Persist Security Info=True" 
    Dim ds As New DataSet 
    Dim cnn As OleDbConnection = New OleDbConnection(MDBConnectionString) 

    cnn.Open() 

    Dim cmd As New OleDbCommand(SQLQuery, cnn) 
    Dim da As New OleDbDataAdapter(cmd) 
    da.Fill(ds, "HomelessUsers") 
    cnn.Close() 


    'Dim DatatableTest As DataTable = ds.Tables("HomelessUsers") 
    'Dim Row As DataRow = Nothing 
    'Dim Item(2) As String 


    'For Each Row In DatatableTest.Rows 
    'item() 
    ' Next 



    Return blnAdminUser 
End Function 

Answer 1

基本上有兩種方法可以去了解它。 一個是使用ADO（訪問數據庫對象），它有一個無意的嚮導，它可以幫助你將你的訪問數據庫連接到你的程序併爲你的控件設置數據源，或者你可以使用System.Data.OLEDb（我更喜歡它給我更多的控制我的系統）

Dim accessconn As New _ 
System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & pathofAccessFile) 
    Try 
     accessconn.Open() 
     MsgBox("Access succesfully connected") 
     accessconn.Close() 
     Return 0 
    Catch ex As Exception 
     accessconn.Close() 
     MsgBox("There is something wrong with the path provided.") 
    Return 1 


    End Try 

雖然你將需要了解使用OLEDB類，所以這裏有一些東西可以幫助你。 http://msdn.microsoft.com/en-us/library/System.Data.OleDb(v=vs.110).aspx

拿筆記的OleDbCommand的（執行SQL字符串），OleDbDataAdapter的（從DB轉換數據的DataGridView）和OLEDbDataReader（我用這個從數據庫中選擇數據）。

也許是爲了幫助您更瞭解與你的問題，這裏是我如何使用的DataReader類的例子：

Public Sub AccesstoGridd(ByVal utos As String, ByVal pathh As String, ByVal gridd As DataGridView, ByVal ngalan As String) 
    Dim accessconn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & pathh) 
    Try 


     Dim sqlutos As New System.Data.OleDb.OleDbCommand(utos, accessconn) 
     Dim idcounter As Integer = 0 

     accessconn.Open() 
     Dim reader As System.Data.OleDb.OleDbDataReader 
     reader = sqlutos.ExecuteReader 
     While reader.Read 
      idcounter = idcounter + 1 
      gridd.Rows.Add(idcounter, reader(0), reader(1), reader(2), reader(3), reader(4), reader(5), ngalan) 
     End While 
     reader.Close() 


     accessconn.Close() 
    Catch ex As Exception 
     accessconn.Close() 
     MsgBox("There is something wrong with the Access file selected." & vbNewLine & ex.ToString, MsgBoxStyle.Exclamation, "MDB file unrecognized.") 
    End Try 

End Sub