0

类似于标题。只想要一个带有 Where 子句查询的 Oledb 连接示例。

4

1 回答 1

0
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
于 2009-12-02T12:37:59.793 回答