GRAVANDO CONTEUDO DE LISTBOX NO BD
Galera,
tenho noções de visual basic, mas ainda não consigo gravar o conteúdo de um listbox no banco de dados.
Eu gostaria de salvar os itens deixando cada um como um registro no bando, usando ADO.
Se alguém puder dar uma luz, desde já agradeço!
Obs.: fiz uma breve pesquisa antes, mas não encontrei nenhum assunto que pudesse parecer com o q preciso...
tenho noções de visual basic, mas ainda não consigo gravar o conteúdo de um listbox no banco de dados.
Eu gostaria de salvar os itens deixando cada um como um registro no bando, usando ADO.
Se alguém puder dar uma luz, desde já agradeço!
Obs.: fiz uma breve pesquisa antes, mas não encontrei nenhum assunto que pudesse parecer com o q preciso...
Cara tambem estou apredendo agora mas posso arriscar a responder,
Creio que vc tenha criado um banco de dados com dois campos:1o. AutoNumeração; 2o. Texto.
Ae, você vai no Project|References e selecione o item Microsoft Activex Data Objectes 2.X Library.
Agora criar a conexão e a tabela
Muito bem, a conexao está OK, assim como a tabela, agora basta ir gravando os dados
OK?
Creio que vc tenha criado um banco de dados com dois campos:1o. AutoNumeração; 2o. Texto.
Ae, você vai no Project|References e selecione o item Microsoft Activex Data Objectes 2.X Library.
Agora criar a conexão e a tabela
Dim Conexao As ADODB.Connection
Dim Tabela As ADODB.RecordSet
'Aqui vc carrega os dados
Set Conexao = New ADODB.Connection
Conexao.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\db1.mdb;"
Set Tabela = New.ADODB.RecordSet
Tabela.Open "Select * From SuaTabela"
Muito bem, a conexao está OK, assim como a tabela, agora basta ir gravando os dados
Dim i As Integer
For i = 0 to List1.ListCount - 1
Tabela.AddNew
Tabela("SeuCampo") = List1.List(i)
Tabela.Update
Next i
OK?
Valeu André!
vou tentar adaptar pro meu projeto, obrigado.
vou tentar adaptar pro meu projeto, obrigado.
Tópico encerrado , respostas não são mais permitidas