|
|
Postada em 17/05/2011 09:19 hs
Meus amigos muito obrigado pela ajuda!
Jesus vive e reina, volte pra Ele logo!
|
|
|
|
|
|
|
|
Postada em 17/05/2011 14:27 hs
Galera obrigado pela ajuda! Devido não consegui achar na web nada semelhante, disponibilizei no fórum o Project com os códigos. Conhecimento nunca é demais!
Jesus abençoe!
|
|
|
|
|
|
Postada em 17/05/2011 17:13 hs
caraca fui mal tinha colocado no topico errado:
For i = 1 To ListView1.ListItems.Count
' aqui vc faz o insert into para cada linha no listview
'esse codigo aqui é so para os selecionados no listviiew, é opcional se é todos desconsidere estas linhas:
If ListView1.ListItems(i).Selected = True Then
' grava os selecionados
End If
Next i
|
|
TÓPICO EDITADO
|
|
|
|
morpheustrixxp
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/07/2013 22:13 hs
Ola, como posso salvar um registro usando ADO ?
|
|
|
|
Carlos_H
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2013 14:00 hs
Se eu entendi bem isto pode ajudá-lo.
'1° - Definimos variáveis que serão usadas.
Dim cnnString As String 'Para conexão com o banco de dados
Dim i As Integer 'Para contar os registros no Listview
'2° - Setamos a conexão em uma abreviatura para facilitar o código
Set cn = New ADODB.Connection
'3° - Definimos o caminho do banco de dados e o modo de conexão.
cnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Banco_de_Dados.mdb"
'4° - Abrimos o banco de dados
cn.ConnectionString = cnnString
cn.Open
'5° - Setamos o modo de acesso no banco (neste caso Recordset)
Set rs = New ADODB.Recordset
'6° - Abrimos a tabela especifica para inclusão dos dados
rs.Open "Tabela_do_seu_Banco", cn, adOpenKeyset, adLockOptimistic, adCmdTable
'7° - Geramos um laço que percorrerá todo o Listview
For i = 1 To Form_com_Listview.ListView1.ListItems.Count
'8° - Usamos o Recordset para incluir os registros sequencialmente de cima para baixo que esta no Listview
With rs
.AddNew
.Fields("Coluna_no_Banco_A") = Form_com_Listview.ListView1.ListItems.Item(i)
.Fields("Coluna_no_Banco_B ") = Form_com_Listview.ListView1.ListItems.Item(i).SubItems(1)
.Fields("Coluna_no_Banco_C ") = Form_com_Listview.ListView1.ListItems.Item(i).SubItems(2)
.Fields("Coluna_no_Banco_D ") = Form_com_Listview.ListView1.ListItems.Item(i).SubItems(3)
.Fields("Coluna_no_Banco_E ") = Form_com_Listview.ListView1.ListItems.Item(i).SubItems(4)
.Fields("Coluna_no_Banco_F ") = Form_com_Listview.ListView1.ListItems.Item(i).SubItems(5)
.Update
End With
Next i
'9° - Fechamos a conexão com o banco
Set rs = Nothing
cn.Close
Set cn = Nothing
Carlos Henrique
São Paulo-SP | Brasil
|
|
|
|
