[VB6] adicionar 1 registo para depois aparecer na base de dados ( Access )

[skAzi^]

Boas Estou a tentar no botão 'adicionar' o seguinte: tenho nome, idade, telefone, etc . apos preencher esses campos carregar no tal botao adicionar e fazer com q o registo fike guardado na base de dados onde ja la esytão outros utilizadores.

Alguma ajuda sobre este assunto? Obrigado

 

[palmoura]

Boas Estou a tentar no botão 'adicionar' o seguinte: tenho nome, idade, telefone, etc . apos preencher esses campos carregar no tal botao adicionar e fazer com q o registo fike guardado na base de dados onde ja la esytão outros utilizadores.

Alguma ajuda sobre este assunto? Obrigado

boas,
como estas a interagir com a bd? mas a partida podes fazer isso por comando sql insert into tabela (nome,idade,telefone) values (campoNome, campoIdd, campoTelefone), ou podes recorrer ao objecto ADO para isso.

 

[skAzi^]

Humm.. talvez va pelo objecto ADO.. Qual é a opção em Project > References > ?

Poderas ajudar no inicio da programação tanbém com o uso desse objecto? è q sou assim po iniciante nesta matéria..

Eu no botão " Adicionar Utilizador " tenho a seguinte prg o qual deve estar mal =/ :

Private Sub cmdadicionar_Click()
lblnumerosocio.Caption = txt1.Text
lblbi.Caption = txt2.Text
lblnome.Caption = txt3.Text
lblmorada.Caption = txt4.Text
lbltelefone.Caption = txt5.Text
Msg = " Pretende fazer a adesão ou efectuar alguma alteração? "
resp = MsgBox(mens, vbYesNo)
If resp = vbNo Then
MsgBox (" Adesão efectuada ")
Else
MsgBox (" Faça a sua alteração ")
End If
End Sub

 

[palmoura]

Humm.. talvez va pelo objecto ADO.. Qual é a opção em Project > References > ?

Poderas ajudar no inicio da programação tanbém com o uso desse objecto? è q sou assim po iniciante nesta matéria..

Eu no botão " Adicionar Utilizador " tenho a seguinte prg o qual deve estar mal =/ :

Private Sub cmdadicionar_Click()
lblnumerosocio.Caption = txt1.Text
lblbi.Caption = txt2.Text
lblnome.Caption = txt3.Text
lblmorada.Caption = txt4.Text
lbltelefone.Caption = txt5.Text
Msg = " Pretende fazer a adesão ou efectuar alguma alteração? "
resp = MsgBox(mens, vbYesNo)
If resp = vbNo Then
MsgBox (" Adesão efectuada ")
Else
MsgBox (" Faça a sua alteração ")
End If
End Sub

pa ha muita coisa q tens de ver aí nao percebo o pque de teres

lblbi.Caption = txt2.Text
lblnome.Caption = txt3.Text
lblmorada.Caption = txt4.Text
lbltelefone.Caption = txt5.Text

vais a Project -> References e seleccionas o ultimo da lista Microsoft Activex Data Objects 2.x Library
depois ve estes exemplos http://www.macoratti.net/connect.htm

 

[skAzi^]

humm v ver entao..