Как просмотреть все основные таблицы данных указанного столбца c из другой таблицы столбца, в которой есть связь в базе данных доступа с использованием vb. net 2019 - PullRequest
0 голосов
/ 29 января 2020

Вот моя проблема в запросе SQL, результат был успешным для загрузки данных в сетку данных, например SL_No (2,4,5), но некоторые данные отсутствуют в таблице Pairing, как (1,2,3,4) , 5,6) если данные таблицы отношений недоступны, например (1,3,6) в таблице Receipt.

Private Sub BtnView_Click(sender As Object, e As EventArgs) Handles btnView.Click

    Dim Sql as String = "Select Pairing.Ledger_Index, Pairing.Fr_Customer_no, Pairing.Fr_Customer_nm, Receipt.Dt_Entry, Receipt.Price from Pairing INNER JOIN Receipt ON Pairing.Fr_Customer_no = Receipt.Sub_No WHERE (((Pairing.Ledger_Address)='" & cmbList.Text & "'))""

    If RdoLedger.Checked=True Then
       DatagridView_Load("sql",DatagridView1)
    End If

End Sub

Public Function DatagridView_Load(ByVal Sql As String, ByVal Model As DataGridView)
    Try
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        Model.DataSource = Nothing
        Dim da As New OleDbDataAdapter(Sql, con)
        Dim dt As New DataTable
        dt.Clear()
        da.Fill(dt)
        If IsDBNull(dt) = False Then
            Model.DataSource = (dt)
            con.Close()
        Else
            Model.DataSource = Nothing
            con.Close()
        End If

    Catch ex As Exception
        MsgBox("ERROR : " & ex.Message.ToString)
    End Try
    Return True
End Function

1 Ответ

1 голос
/ 29 января 2020

Спасибо, Тело не отвечай Мне, потому что я не пойму, на этот вопрос отвечу. Это простой ответ. здесь я хотел, чтобы все записи 1-й таблицы. таким образом, мой запрос должен быть = из парного соединения ВНУТРЕННЯЯ ПОДПИСКА изменен на из парного соединения осталось ПРИСОЕДИНИТЬСЯ к квитанции его получить мой результат успешно

...