如何选择和插入在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