示例包含C＃中的MSACCESS數據庫連接的cluase查詢

Question

類似於標題。 只是想要使用Where子句查詢的Oledb連接的示例。

Answer 1

Private Function SendQueryToOLE() As DataSet 
    Dim rdrDataReader As OleDb.OleDbDataReader 
    Dim cmdCommand As OleDb.OleDbCommand 
    Dim dtsData As New DataSet 
    Dim dtbTable As New DataTable 
    Dim i As Integer 
    Dim SQLStatement As String 
    Dim oleConnection As OleDb.OleDbConnection 

     oleConnection.ConnectionString = YourConnectionString 

     SQLStatement = "SELECT * FROM Table WHERE Field=1" 

     oleConnection.Open() 

     cmdCommand = New OleDb.OleDbCommand(SQLStatement, moleConnection) 

     rdrDataReader = cmdCommand.ExecuteReader() 

     For i = 0 To (rdrDataReader.FieldCount - 1) 
      dtbTable.Columns.Add(rdrDataReader.GetName(i), rdrDataReader.GetFieldType(i)) 
     Next 
     dtbTable.BeginLoadData() 

     Dim values(rdrDataReader.FieldCount - 1) As Object 

     While rdrDataReader.Read 
      rdrDataReader.GetValues(values) 
      dtbTable.LoadDataRow(values, True) 
     End While 
     dtbTable.EndLoadData() 

     dtsData.Tables.Add(dtbTable) 

     moleConnection.Close() 

     Return dtsData 

End Function