Error - Cannot create a child list
I am getting 2 error with the code below. First error is "Syntax error in From Clause". Second error is "Cannot create a child list for field Received". Please help......Thanks
Imports System.Data
Imports System.Data.OleDb
Public Class rptReport
Inherits System.Windows.Forms.Form
Private Sub rptReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myConnection As OleDbConnection = New _
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=G:\IDC\Received Dispensed Deleted.mdb;User Id=admin;Password=;")
Dim myDataAdapter As New OleDbDataAdapter
Dim myDataSet As DataSet = New DataSet
'Set the SelectCommand properties...
myDataAdapter.SelectCommand = New OleDbCommand
myDataAdapter.SelectCommand.Connection = myConnection
myDataAdapter.SelectCommand.CommandText = "SELECT ReceivedDrug, Dispensed, Destroyed " & _
"FROM Received " & _
"JOIN Dispensed ON Received.ReceivedDrug = Dispensed.Dispensed " & _
"JOIN Destroyed ON Received.ReceivedDrug = Destroyed.Destroyed " & _
"ORDER BY ReceivedDrug"
myDataAdapter.SelectCommand.CommandType = CommandType.Text
myConnection.Open()
Try
myDataAdapter.SelectCommand.ExecuteNonQuery()
'Fill the DataSet object with data
myDataAdapter.Fill(myDataSet, "Received")
Catch err As OleDbException
MessageBox.Show(err.Message)
Finally
myConnection.Close()
End Try
'set the DataGrid properties to bind it to our data.....
grdReport.DataSource = myDataSet
grdReport.DataMember = "Received"
End Sub
End Class
|
