Bom Dia !!!

Ola Pessoal !! Estou precisando montar uma consulta em sql da seguinte forma :

Tenho um listview que receber varios codigos difernciados e todos esse codigo precisam ser baixados da determinada tabela como posso fazer isso !?

Obrigado .

eita...

Vc vai ter q montar a sql...

 

Dim SQL as String

Dim i as long

 

SQL = "Select * FROM Tabela where codigo IN ("

 

for i = 1 to ListView.Listcount

    IF i = ListView.ListCount then

       SQL = SQL & ListView.ListItems(i) & ")"

    ELSE

        SQL = SQL & ListView.ListItems(i) & ","

    ENDIF

next

 

SUACONEXAOADO.Execute SQL

 

tenta ae

 

t+

opa... só corrigindo a linha de consulta:

Dim RS as New ADODB.Recordset

.

.

.

SET RS = SUACONEXAOADO.Execute (SQL)

ou

RS.Activeconnection = SUACONEXAOADO

RS.OPEN SQL

 

desculpa ae

 

t+

ta ate entendi mais a questao eh que por mal explicação minha nao consegui fazer devido pegar a 5 coluna do listview para fazer isso !!!!???

Sim! óia manu:

 

 

t+

Bom dia !

As vezes fico me perguntando o que seria de nos os novatos se nao fossem voceis os profissionais ......!!!Agradeço do fundo do coração ao amigo que me passou isso e gostaria de tirar mais uma a aplicação que faço eh diferente da que vc me passou por isso vou postar da maneira que eu faço para que vc pssa ter uma ideia no fim do tunel ok !!! ai vai :

 

Dim resp As Integer
Dim valor As String
Dim var As String

 

    Set connConection = New ADODB.Connection
    Set cmdCommand = New ADODB.Command
    Set rsVendas = New ADODB.Recordset
            
        Caminho = ReadINI("Geral", "caminho", App.Path & "Config.Ini")

        connConection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Caminho & ""
       
        valor = "No"
        
       resp = MsgBox("Deseja realmente baixar este cartão!", vbQuestion + vbYesNo)
   
    If resp = vbYes Then
      
       StatusBar1.Panels(2) = "AGUARDE EFETUANDO BAIXA(S)..."
            
    With cmdCommand
        .ActiveConnection = connConection
        .CommandType = adCmdText
        '.CommandText = "SELECT * FROM Cad_Venda WHERE Cad_CodigoGeral =" & Lv.SelectedItem.SubItems(5) & " and Cad_Pago =  '" & valor & "'"
        .CommandText = "SELECT * FROM Cad_Venda WHERE Cad_CodigoCartao =" & Text_CodigoCartao.Text & " and Cad_Pago =  '" & valor & "'"
    End With
   
       rsVendas.CursorLocation = adUseClient
      
       rsVendas.Open cmdCommand, , adOpenDynamic, adLockOptimistic
       
       With rsVendas
      
       Do While Not .EOF

    'If Not rsVendas.EOF Then
       rsVendas!Cad_Pago = "Yes"
       rsVendas.Update
       .MoveNext
       Loop
       End With
    'Else
        
    'End If
   
        StatusBar1.Panels(2) = "BAIXA(S) EFETUADA(S) COM SUCESSO..."
   
    Set connConection = New ADODB.Connection
    Set cmdCommand = New ADODB.Command
    Set rsBaixa = New ADODB.Recordset
   
        Caminho = ReadINI("Geral", "caminho", App.Path & "Config.Ini")
       
        connConection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Caminho & ""
       
    With cmdCommand
         .ActiveConnection = connConection
         .CommandType = adCmdText
         .CommandText = "Select * FROM Cad_Baixa ORDER BY Cad_Codigo"
    End With

        rsBaixa.CursorLocation = adUseClient
       
        rsBaixa.Open cmdCommand, , adOpenDynamic, adLockOptimistic
       
        rsBaixa.AddNew
        rsBaixa!Cad_DataVenda = Label_DataVenda.Caption
        rsBaixa!Cad_DataBaixa = Text_Data.Text
        rsBaixa!Cad_HoraVenda = Label_HoraEntrada.Caption
        rsBaixa!Cad_HoraBaixa = Text_Hora.Text
        rsBaixa!Cad_Mesa = Text_Mesa.Text
        rsBaixa!Cad_CodigoCaixa = Text_CodigoCaixa.Text
        rsBaixa!Cad_CodigoOperador = Label_Operador.Caption
        rsBaixa!Cad_CodigoGarcon = Label_Garcon.Caption
        rsBaixa!Cad_ValorPagar = Text_ValorPagar.Text
        rsBaixa!Cad_ValorCupons = Text_TotalCupons.Text
        rsBaixa!Cad_ValorPago = Text_Pagamento.Text
        rsBaixa!Cad_ValorTroco = Text_Troco.Text
        rsBaixa.Update
    Text_Pagamento.SetFocus
    Text_Mesa.Text = ""
    Text_CodigoCaixa.Text = ""
    Combo_Caixa.Text = ""
    Label_Operador.Caption = ""
    Label11.Caption = ""
    Label_Garcon.Caption = ""
    Label13.Caption = ""
    Lv.ListItems.Clear
    Text_ValorPagar.Text = "0,00"
    Text_TotalCupons.Text = "0,00"
    Text_Pagamento.Text = "0,00"
    Text_Troco.Text = "0,00"
    Text_CodigoCartao.SetFocus
End If
End Sub

 

amigo ai ta o que faço eu faço isso hoje por motivos de nao ter conseguido baixar atraves do que vc me passou , entao optei por baixar pelo numero de cortao e nao pelo numero de lançamento, sendo o que eu realmente gostaria de fazer pois assim nao ficaria preso ao numero de cartao ...se puder mais uma vez dar uma luz no fim do tunel agradeceria sendo que ao memso tempo que dou baixa gravo os valores baixados em uma outra tabela.....valeu !!!!