Pessoal,

               Estou querendo copiar os registros que estão selecionados em um listview e não está dando certo, o código que estou usando é esse:(só que não copia e não dá mensagem de erro)

 

Att.

Marcelo

 

Private Sub copiar_Click()

        Set cn = New ADODB.Connection
        With cn
           .Provider = "Microsoft.JET.OLEDB.4.0"
           .ConnectionString = App.Path & "simob.mdb"
           .Open
       End With

           Dim SQL As String

Dim flag As Byte
flag = 0
For I = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(I).Checked Then
        'código de copiar registro
 
 SQL = "INSERT INTO apartamentos ("

              SQL = SQL & "Endereço, " '2
              SQL = SQL & "Complemento, " '3
              SQL = SQL & "Bairro, " '4
              SQL = SQL & "Setor, " '5
              SQL = SQL & "Município, " '6
              SQL = SQL & "[Tipo de Negócio], " '7
              SQL = SQL & "Origem, " '8
              SQL = SQL & "Valor, " '9
              SQL = SQL & "Informante, " '10
              SQL = SQL & "Telefone, " '11
              SQL = SQL & "Data, " '12
              SQL = SQL & "Imóvel, " '13
              SQL = SQL & "[Nº de Vagas cobertas], " '14
              SQL = SQL & "[Nº de Vagas Descobertas], " '15
              SQL = SQL & "[Área Privativa], " '16
              SQL = SQL & "[Área Total], " '17
              SQL = SQL & "[Área Garagem], " '18
              SQL = SQL & "Quartos, " '19
              SQL = SQL & "Suítes, " '20
              SQL = SQL & "Sanitários, " '21
              SQL = SQL & "[Área Serviço], " '22
              SQL = SQL & "[WC Empreg], " '23
              SQL = SQL & "[Quarto Empreg], " '24
              SQL = SQL & "Sacadas, " '25
              SQL = SQL & "Interfone, " '26
              SQL = SQL & "Armários, " '27
              SQL = SQL & "Inserção, " '28
              SQL = SQL & "[Idade Aparente], " '29
              SQL = SQL & "[Acessos sociais], " '30
              SQL = SQL & "Pavimentos, " '31
              SQL = SQL & "[Unid Por Pavimento], " '32
              SQL = SQL & "Elevadores, " '33
              SQL = SQL & "[Unidades do Prédio], " '34
              SQL = SQL & "Portaria, " '35
              SQL = SQL & "[Salão de Festas], " '36
              SQL = SQL & "[Piscinas Adulto], " '37
              SQL = SQL & "[Piscinas Infantil], " '38
              SQL = SQL & "[Play Ground], " '39
              SQL = SQL & "[Quadra Esportiva], " '40
              SQL = SQL & "Churrasqueira, " '41
              SQL = SQL & "Sauna, " '42
              SQL = SQL & "[Salão de Jogos], " '42
              SQL = SQL & "Pilotis, " '42
              SQL = SQL & "[Padrão Fachada], " '42
              SQL = SQL & "[Padrão Ambiente], " '42
              SQL = SQL & "[Conservação Fachada], " '42
              SQL = SQL & "[Conservação Ambiente], " '42
              SQL = SQL & "Observação, " '42
              SQL = SQL & "[Imóvel Vistoriado], " '42
              SQL = SQL & "Responsável, " '42
              SQL = SQL & "foto) values (" '43

        flag = 1
  
    End If
Next
MsgBox "Registro(s) Copiado com Sucesso!"

If flag = 0 Then MsgBox "selecione um item ao menos"

End Sub

 

 

O que vc faz aí é se o item do listview está com "check"  a string "SQL" é preenchida mas não executa nada mais que isso... e a SQL de Insert está faltando os valores...

 

coloque os valores na string SQL depois para executar:

 

 

falows!

Ghost,

           Obrigado por responder. Mas fiz isso e dá dando a mensagem:

"run time error '-2147217900(80040e14)'

erro de sintaxe na instrução INSERT INTO"

 

o que pode ser?

 

 

Ghost,

           Não sei se pode ser isso,

mas no LynxGrid1 depois da instrução SQl colocava isso:

 

SQL = SQL & "'" & Me.LynxGrid1.CellText(I - 1, 1) & "', "

 

mas no listview não tem a função celltext; você sabe ou alguém a função que substitua ela?

 

 

 

 

 

para obter o texto no listview vc usa a propriedade text (ou não):

 

for i=1 to ListView.ListItems.Count

 

   debug.print ListView.ListItems(i).text '1ª coluna

   debug.print ListView.ListItems(i).SubItems(1) '2ª coluna

 

next i

 

qq problema é só postar!!!

 

at+

Ghost,

        estou fazendo conforme abaixo, mas dá dando erro de sintaxe na instrução insert into. o que devo estar fazendo de errado?

 

Marcelo

 

Private Sub copiar_Click()

        Set cn = New ADODB.Connection
        With cn
           .Provider = "Microsoft.JET.OLEDB.4.0"
           .ConnectionString = App.Path & "simob.mdb"
           .Open
       End With

           Dim SQL As String

Dim flag As Byte
flag = 0
For I = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(I).Checked Then
        'código de copiar registro
 
 SQL = "INSERT INTO apartamentos ("
              SQL = SQL & "CÓDIGO, " '1
              SQL = SQL & "Endereço, " '2
              SQL = SQL & "Complemento, " '3
              SQL = SQL & "Bairro, " '4
              SQL = SQL & "Setor, " '5
              SQL = SQL & "Município, " '6
              SQL = SQL & "[Tipo de Negócio], " '7
              SQL = SQL & "Origem, " '8
              SQL = SQL & "Valor, " '9
              SQL = SQL & "Informante, " '10
              SQL = SQL & "Telefone, " '11
              SQL = SQL & "Data, " '12
              SQL = SQL & "Imóvel, " '13
              SQL = SQL & "[Nº de Vagas cobertas], " '14
              SQL = SQL & "[Nº de Vagas Descobertas], " '15
              SQL = SQL & "[Área Privativa], " '16
              SQL = SQL & "[Área Total], " '17
              SQL = SQL & "[Área Garagem], " '18
              SQL = SQL & "Quartos, " '19
              SQL = SQL & "Suítes, " '20
              SQL = SQL & "Sanitários, " '21
              SQL = SQL & "[Área Serviço], " '22
              SQL = SQL & "[WC Empreg], " '23
              SQL = SQL & "[Quarto Empreg], " '24
              SQL = SQL & "Sacadas, " '25
              SQL = SQL & "Interfone, " '26
              SQL = SQL & "Armários, " '27
              SQL = SQL & "Inserção, " '28
              SQL = SQL & "[Idade Aparente], " '29
              SQL = SQL & "[Acessos sociais], " '30
              SQL = SQL & "Pavimentos, " '31
              SQL = SQL & "[Unid Por Pavimento], " '32
              SQL = SQL & "Elevadores, " '33
              SQL = SQL & "[Unidades do Prédio], " '34
              SQL = SQL & "Portaria, " '35
              SQL = SQL & "[Salão de Festas], " '36
              SQL = SQL & "[Piscinas Adulto], " '37
              SQL = SQL & "[Piscinas Infantil], " '38
              SQL = SQL & "[Play Ground], " '39
              SQL = SQL & "[Quadra Esportiva], " '40
              SQL = SQL & "Churrasqueira, " '41
              SQL = SQL & "Sauna, " '42
              SQL = SQL & "[Salão de Jogos], " '43
              SQL = SQL & "Pilotis, " '44
              SQL = SQL & "[Padrão Fachada], " '45
              SQL = SQL & "[Padrão Ambiente], " '46
              SQL = SQL & "[Conservação Fachada], " '47
              SQL = SQL & "[Conservação Ambiente], " '48
              SQL = SQL & "Observação, " '49
              SQL = SQL & "[Imóvel Vistoriado], " '50
              SQL = SQL & "Responsável, " '51
              SQL = SQL & "foto) values (" '52

For M = 1 To ListView1.ListItems.Count
 
    Debug.Print ListView1.ListItems(M).Text '1ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(1) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(2) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(3) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(4) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(5) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(6) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(7) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(8) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(9) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(10) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(11) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(12) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(13) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(14) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(15) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(16) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(17) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(18) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(19) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(20) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(21) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(22) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(23) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(23) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(24) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(25) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(26) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(27) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(28) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(29) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(30) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(31) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(32) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(33) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(34) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(35) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(36) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(37) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(38) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(39) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(40) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(42) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(43) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(44) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(45) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(46) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(47) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(48) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(49) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(50) '2ª coluna
    Debug.Print ListView1.ListItems(M).SubItems(51) '2ª coluna
 
Next M

cn.Execute (SQL)

        flag = 1
 
    End If
Next I
MsgBox "Registro(s) Copiado com Sucesso!"

If flag = 0 Then MsgBox "selecione um item ao menos"

End Sub