CONSULTA ENTRE DATAS SQL

PROGRAMADORVB6 11/02/2012 13:16:57
#394487
Olá Amigo Foxman
Sim é verdade, é uma óptima dica.
Obrigado.
PROGRAMADORVB6 12/02/2012 16:05:27
#394533
Tentei adicionar este código para preencher a grelha , mas sem sucesso.
 For Each DR In DT.Rows
                        If Not DR Is DBNull.Value Then
                            ListItem = F.Grelha.Items.Add(DR([Ô]Data[Ô]))
                            ListItem.SubItems.Add(DR([Ô]Nome[Ô]).ToString())
                            ListItem.SubItems.Add(DR([Ô]Entrada[Ô]).ToString())
                            ListItem.SubItems.Add(DR([Ô]Saida[Ô]).ToString())
                            ListItem.SubItems.Add(DR([Ô]Empresa[Ô]).ToString())
                            If Cor = 0 Then Cor += 1 : ListItem.BackColor = Color.White Else Cor = 0 : ListItem.BackColor = Color.LemonChiffon
                        End If
                    Next
PEGUDO 14/02/2012 09:03:43
#394649
Cara,
Dá uma olhadinha neste exemplo que fiz, a partir do código que você postou.

Tá meio zoneado, mas é um exemplo.
Se te servir. dê uma limpeza nele e veja o que pode fazer.

No BD eu coloquei duas empresas Empresa 1 e Empresa 2, com seus respectivos dados.
Espero que te ajude.
PROGRAMADORVB6 14/02/2012 09:21:13
#394654
Olá Pegudo.
Desde já quero agradecer a vossa ajuda e paciiência.
é de enaltecer a vossa colaboração em ajudar o próximo!
é Lamentávem que em meu país não existam pessoas humildes e que nos ajudem realmente e só se limitem a preencher o seu ego com a sua sabedoria.
Mais uma vez Obrigado a todos os que colaboraram.
Atentamente.
Programadorvb6

 Public Sub Procura_Especifica(ByVal Codigo_Sql As String, F As RegistoH)
        Dim Cor As Byte = 0
        Dim Liga_BD As String = ConString.ToString
        Dim ObjCommandoP As New OleDbCommand

        ObjCommandoP.Connection = New OleDbConnection(Liga_BD)
        ObjCommandoP.CommandText = Codigo_Sql.ToString
        ObjCommandoP.Connection.Open()
        F.Grelha.Items.Clear() [ô]Limpando o ListView

        Dim ObjLerDados As OleDbDataReader = ObjCommandoP.ExecuteReader()
        If Codigo_Sql.ToString <> Nothing Then
            Try
                If ObjLerDados.HasRows Then
                    Do While ObjLerDados.Read()
                        [ô]Adicionando Itens ao ListView
                        Dim Item As ListViewItem = F.Grelha.Items.Add(ObjLerDados(0))
                        Item.SubItems.Add(ObjLerDados(1))
                        Item.SubItems.Add(ObjLerDados(4))
                        Item.SubItems.Add(ObjLerDados(5))
                        Item.SubItems.Add(ObjLerDados(6))
                        If F.Grelha.Items.Count = 1 AndAlso F.Grelha.Items.Count = 1 Then
                            F.DateTimePicker1.Value = Convert.ToString(ObjLerDados([Ô]Data[Ô]))
                            F.Caixa_Nome.Text = Convert.ToString(ObjLerDados([Ô]Nome[Ô]))
                            F.Caixa_Empresa.Text = Convert.ToString(ObjLerDados([Ô]Empresa[Ô]))
                            F.Caixa_Razao.Text = Convert.ToString(ObjLerDados([Ô]Razao[Ô]))
                            F.Caixa_Piso.Text = Convert.ToString(ObjLerDados([Ô]Piso[Ô]))
                            F.Caixa_Entrada.Text = Convert.ToString(ObjLerDados([Ô]Entrada[Ô]))
                            F.Caixa_Saida.Text = Convert.ToString(ObjLerDados([Ô]Saida[Ô]))
                        End If
                        If Cor = 0 Then Cor += 1 : Item.BackColor = Color.White Else Cor = 0 : Item.BackColor = Color.LemonChiffon
                    Loop
                Else
                    MessageBox.Show([Ô]Valores não encontrados. [Ô], [Ô]Atenção[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Call ObjProcedimentos.LimpaCampos(F, Procedimentos.Limpa_Controle.Todos)
                End If
                ObjLerDados.Close()
                ObjLerDados.Dispose()
            Catch ex As Exception
                MessageBox.Show([Ô]Erro descrição : [Ô] & vbCrLf & ex.Message & vbCrLf, [Ô]Atenção[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar