Datagrid View Question

[lorena]

I am trying to bind one of two queries to a DataGridView on my windows form. The query pulls in information from two tables (these tables have a master/detail relationship) and I cannot figure out how to make it work.

The query will pull in several fields from the master record and several fields from the first associated detail record.

Everything I have found is set up for a master/detail situation with the datagridview populated with all the detail records associated with the record from the parent table.

I created the query I need and made it part of the dataset but when I try to use that query to bind to the datagridview, it is not one of the choices listed.

I hope this is making sense.

I am sure there is a way to do this and would appreciate any help.

[lorena]

I figured out how to do what I needed to do.

Here is the code I used if anyone else runs into this:

Private Sub ReleaseReportForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Dim reportBindingSource As New BindingSource
   Dim sqlString As String
  
   Me.Text = "OPEN REPORTS FOR JOB NO " & menuForm.jobNoString
   sqlString = "SELECT TDS_RR_RECORD.RR_NO, TDS_RR_RECORD.PROG_NO, TDS_RR_RECORD.JOB_NO, TDS_RR_RECORD.QTY, " & _
                      "  TDS_RR_RECORD.INITIATOR, TDS_RR_RECORD.INITIATOR_DATE, " & _
                       " TDS_RR_RECORD.CLOSED_DATE, TDS_RR_LEVEL.PART_NO, " & _
                       " TDS_RR_LEVEL.PART_NAME " & _
                       " FROM TDS_RR_RECORD INNER JOIN  " & _
                       " TDS_RR_LEVEL ON TDS_RR_RECORD.RR_NO = TDS_RR_LEVEL.RR_NO " & _
                       " WHERE (TDS_RR_RECORD.STATUS = 'OPEN') AND (TDS_RR_LEVEL.RR_LEVEL = '1') " & _
                       " AND (TDS_RR_RECORD.JOB_NO='~') " & _
                       " ORDER BY TDS_RR_RECORD.JOB_NO"
   sqlString = Replace(sqlString, "~", menuForm.jobNoString)
   Try
     With Me.ReleaseDataGridView
       .AutoGenerateColumns = True
       reportBindingSource.DataSource = GetData(sqlString)
       .DataSource = reportBindingSource
       .AllowUserToResizeColumns = True
       .BorderStyle = BorderStyle.Fixed3D
     End With

   Catch ex As Exception
     MessageBox.Show("Error is: " & ex.Message.ToString, "ERROR")
   End Try
 End Sub

 Private Shared Function GetData(ByVal sqlCommand As String) _
   As DataTable

   Dim releaseConnectionString As String = My.Settings.ConnectionString
   Dim releaseConnection As New OracleConnection(riskReleaseConnectionString)
   Dim releaseCommand As New OracleCommand(sqlCommand, riskReleaseConnection)

   Dim releaseAdapter As New OracleDataAdapter
   releaseAdapter.SelectCommand = riskReleaseCommand

   Dim reportDataTable As New DataTable
   reportDataTable.Locale = System.Globalization.CultureInfo.InvariantCulture
   releaseAdapter.Fill(reportDataTable)

   Return reportDataTable

 End Function
                         

:D