[Resolvido]Pesquisar, Editar, Excluir e Novo.

[gabrieldb]

Bom dia galera eu tenho uma aplicação que salva os dadosde um formuláiro em um BD porem quero trazer essas informações de volta pra poder editar ou exlcluir do BD.

ai vai meu código pra salvar no BD

Private Sub cmdSalvar_Click()
Dim rs As New ADODB.Recordset

Call conexao

Conex.Execute ("insert into clientes values('" & txtFantasia.Text & "','" & txtEstab.Text & "','" & txtRazao.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtCep.Text & "','" & txtCnpj.Text & "','" & txtInscricao.Text & "','" & txtCcm.Text & "','" & txtDianf.Text & "','" & txtImplant.Text & "','" & txtVenc.Text & "','" & txtFone1.Text & "','" & txtFone2.Text & "','" & txtFone3.Text & "','" & txtFax.Text & "','" & txtResp.Text & "','" & txtCargo.Text & "','" & txtSite.Text & "','" & txtEmail.Text & "')")
End Sub

Alguém pode me ajudar a criar essas opções no meu sistema ?

valeu!

Editado Julho 5, 2009 por gabrieldb

[gabrieldb]

Meu botão excluir.

Private Sub cmdExcluir_Click()
Dim rs As New ADODB.Record

Call conexao
Conex.Execute ("delete from clientes where nome = '" & txtFantasia.Text & "'")
End Sub

Vou tentar fazer os outros aki.

[Fabin]

  gabrieldb disse:

Meu botão excluir.

Private Sub cmdExcluir_Click()
Dim rs As New ADODB.Record

Call conexao
Conex.Execute ("delete from clientes where nome = '" & txtFantasia.Text & "'")
End Sub

Vou tentar fazer os outros aki.

é o seguinte vou colocar aqui para voltar e ordenar por ordem de nome ok

na linha embaixo da querry de delete voce coloca

rs.close

rs.open "SELECT * FROM tabela order by nomefantasia",conexao......

txtnomefantasia.text = rs.fields("nomefantasia") e assim por diante

essa seria para carregar os dados

para voce limpar voce cria uma sub rotina para limpar os campos exemplo

private sub limaparcampos()

txtnomefantasia = empty......

e chama ela depois da querry delete tendeu??

coloca isso e se der certo post ai

abraço

t+

[gabrieldb]

Consegui resolver Fabin eu carreguei meu recordset novamente nos botões e tá tudo como eu queria....

uhul...

rsrs

Valeu pela ajuda ae brother...se surgir mais duvidas daki pra frente eu abro tópico...Pois estou apenas no começo do meu sistema...

Editado Julho 3, 2009 por gabrieldb