Jerso
|
CUIABÁ
MT - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/09/2008 13:46 hs
O problema esta no meu botão que salva o cadastro.
Percebi que ele nao esta salvando os campos digitados.
Os campos na tabela do banco de dados ficam em branco.
Olha o codigo do botão salvar
Private Sub cmdsalva_Click()
condb.UpdateRecord
MsgBox "Cadastro Realizado com Sucesso", vbInformation, "Cadastro"
End Sub
|
|
|
|
|
|
|
|
Postada em 26/09/2008 16:04 hs
vc usa ado ou dao? vc executou o addnew antes ? |
|
|
|
Jerso
|
CUIABÁ
MT - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/09/2008 18:02 hs
Bom, eu sou novo em programação em VB mas usei sim o comando addnew no botão novo que he clicado para inserir um novo registro no banco de dados.
Vou postar o codigo do batão novo e do botão salvar.
Botão novo(inserir)
Private Sub cmdnovo_Click()
condb.Recordset.AddNew
rcbnome.SetFocus
End Sub
Botão salvar
Private Sub cmdsalva_Click()
condb.UpdateRecord
MsgBox "Cadastro Realizado com Sucesso", vbInformation, "Cadastro"
End Sub
Agora sobre ado ou dao, nao utilizei nenhum eu acho.
Desde já agradeço a ajuda.
|
|
|
|
|
|
Postada em 27/09/2008 08:22 hs
Meu amigo Jerso,
eu gosto e acho que fica mais facil fazer o seguinte:
Crie uma label (visible=False);
Ao clicar no botao novo mande para a label.caption = "Novo"
Ao clicar no botao Editar mande para a label.caption = "Edit"
No botao salva vc faz assim:
if label.caption="Novo" then condb.recordset.addnew
if label.caption="Edit" then condb.recordset.edit
condb.recordset("nome") = txtTome '(o nome da textbox que recebe nome, por exemplo)
condb.recordset("Telefone") = txtTelefone
condb.recordset("Email") = txtEmail
condb.recordset.update
txtnome="": txtTelefone="": txtEmail=""
Ja era meu querido
pega firme ai que essa para de programar é Show de bola
fuiii
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 27/09/2008 10:14 hs
Tenta assim Jerso Botão novo(inserir)
Private Sub cmdnovo_Click()
condb.Recordset.AddNew
rcbnome.SetFocus
End Sub
Botão salvar
Private Sub cmdsalva_Click()
condb.Recordset.Edit MsgBox "Cadastro Realizado com Sucesso", vbInformation, "Cadastro"
End Sub
|
|
|
|
