similar to title. just want an example of Oledb connection with Where clause query.
views:
154answers:
2
A:
Check this article: http://www.csharphelp.com/archives/archive70.html
klausbyskov
2009-12-02 12:19:32
A:
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
smoore
2009-12-02 12:37:59
+1 from me. Wonder who downvoted your question
klausbyskov
2009-12-02 12:44:06