GRAVAR ARQUIVO EM TXT
Baixei um programinha aqui no Vbmania mesmo que grava as informações digitadas (banco de dados) em um documento de texto mesmo, sem usar access e achei bem interessante. Testei o programa e tá tudo funcionando. Ele grava as informações em um documento de texto e depois mostra tudo no programa em um listview (lst) e dá pra vc editar, incluir, etc...
Agora acrescentei mais um campo no programa, só pra testar e ver como ele funciona. Ele já tá salvando essa novas informações no banco de dados, porém não tá mostrando no listview. Alguém sabe o que faço pra atualizar? O código de gravar é:
Sub Gravar()
On Error GoTo erro
Open Dados For Append As 1
With frmCad
Print #1, .txtNome.Text & [Ô]//[Ô] & .txtTel.Text & [Ô]//[Ô] & .txtIdade.Text
End With
Close #1
Unload frmCad
Me.Atualiza_Acoes
MsgBox [Ô]Registro gravado com sucesso![Ô], vbInformation, [Ô]Informação[Ô]
Exit Sub
erro:
MsgBox [Ô]Erro ao gravar registro! [Ô] & Err.Description, vbCritical, [Ô]Erro n.º [Ô] & Err.Number
End Sub
Esse txtIdade é o que eu acrescentei e já tá salvando no banco de dados, porém não tá mostrando no listview.
Agora acrescentei mais um campo no programa, só pra testar e ver como ele funciona. Ele já tá salvando essa novas informações no banco de dados, porém não tá mostrando no listview. Alguém sabe o que faço pra atualizar? O código de gravar é:
Sub Gravar()
On Error GoTo erro
Open Dados For Append As 1
With frmCad
Print #1, .txtNome.Text & [Ô]//[Ô] & .txtTel.Text & [Ô]//[Ô] & .txtIdade.Text
End With
Close #1
Unload frmCad
Me.Atualiza_Acoes
MsgBox [Ô]Registro gravado com sucesso![Ô], vbInformation, [Ô]Informação[Ô]
Exit Sub
erro:
MsgBox [Ô]Erro ao gravar registro! [Ô] & Err.Description, vbCritical, [Ô]Erro n.º [Ô] & Err.Number
End Sub
Esse txtIdade é o que eu acrescentei e já tá salvando no banco de dados, porém não tá mostrando no listview.
Primeiro voce tem de acrescentar uma coluna headers ao seu ListView
depois na class clsData em mostrar voce tem de acrescentar
abarixo de
Set ls = .lst.ListItems.Add(, Ch & [Ô]chave[Ô], Texto(0))
ls.SubItems(1) = Texto(1)
[ô]isto
ls.SubItems(2) = Texto(2)
se ja tiver dados em seu banco voce tem de atualizar ou tratar o erro
antes.
esta dica resolve somente a sua reclamação quanto não mostrar os dados.
é logico que voce tem alterar mais algumas coisas para ficar perfeito e que voce é capaz.
depois na class clsData em mostrar voce tem de acrescentar
abarixo de
Set ls = .lst.ListItems.Add(, Ch & [Ô]chave[Ô], Texto(0))
ls.SubItems(1) = Texto(1)
[ô]isto
ls.SubItems(2) = Texto(2)
se ja tiver dados em seu banco voce tem de atualizar ou tratar o erro
antes.
esta dica resolve somente a sua reclamação quanto não mostrar os dados.
é logico que voce tem alterar mais algumas coisas para ficar perfeito e que voce é capaz.
Tópico encerrado , respostas não são mais permitidas