CONSULTA ENTRE TABELAS

 Tópico anterior Próximo tópico Novo tópico

CONSULTA ENTRE TABELAS

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#477757 - 10/11/2017 00:09:20

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


Pessoal e o seguinte tenho a tabela cliente e tabela parcelasvencida estou fazendo a busca pela data de vencimento passando os
respectivo id para tabbela cliente buscando os cliente conforme os id passado

    Private Sub CarregaVendas()
        Dim dr As OleDbDataReader = Nothing
        Using con As OleDbConnection = GetConnection()
            Try
                con.Open()
                Dim sql As String = ""
                dtinicio = dtpInicio.Value.ToString
                dtfim = dtpFim.Value.ToString
                sql = "SELECT CodCliente, NomeCliente, ValorParc FROM tblVendasParceladas WHERE DateValue(DataVenc) < DateValue('" & dtinicio & "') AND DateValue(DataVenc) < DateValue('" & dtfim & "')" ' AND (TIPO='A Prazo') ORDER BY ID"
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                da.Fill(dt)
                dgvTodasVencidas.DataSource = dt
                For i = 0 To dgvTodasVencidas.Rows.Count - 1
                    dgvTodasVencidas.CurrentCell = dgvTodasVencidas.Rows(i).Cells(0)
                    dgvTodasVencidas.CurrentRow.Cells(2).Value = dgvTodasVencidas.CurrentRow.Cells(2).Value
                    Dim sql1 As String = ""
                    sql1 = "SELECT CodCliente, Nome, Devedor FROM tblCliente WHERE CodCliente=" & CInt(dgvTodasVencidas.CurrentRow.Cells(0).Value)
                    Dim cmd1 As OleDbCommand = New OleDbCommand(sql1, con)
                    Dim da1 As OleDbDataAdapter = New OleDbDataAdapter(cmd1)
                    Dim dt1 As DataTable = New DataTable
                    da1.Fill(dt1)
                    DataGridView1.DataSource = dt1
                    For p = 0 To DataGridView1.Rows.Count - 1
                        dgvTodasVencidas.CurrentRow.Cells(0).Value = DataGridView1.CurrentRow.Cells(0).Value
                        dgvTodasVencidas.CurrentRow.Cells(1).Value = DataGridView1.CurrentRow.Cells(1).Value
                        dgvTodasVencidas.CurrentRow.Cells(2).Value = dgvTodasVencidas.CurrentRow.Cells(2).Value
                    Next
                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using
    End Sub



#477761 - 10/11/2017 00:31:24

JABA
CABO FRIO
Cadast. em:Agosto/2005


Qual a dúvida?



_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#477762 - 10/11/2017 00:35:29

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


não esta listando os cliente com os ids que foi passado na primeira consulta



#477764 - 10/11/2017 00:59:27

JABA
CABO FRIO
Cadast. em:Agosto/2005


Sabe depurar? Se souber, coloque um break point na primeira linha e vai depurando pra ver se acha o que não está batendo.

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por AMORIM em 17/11/2017 17:48:31