NAO CONSIGO GRAVAR,ALTERAR E EXCLUIR USANDO SQL...

MOREIRA 25/08/2006 14:29:34
#167311
boa tarde a todos... !!!
estou quebranco a cuca...pra aprender gravar, alterar e excluir usando sql..
bom pra ficar mais fácil e claro o meu entendimento, estou anexando em exmplo..
fico grato....

sujestõs são bem-vidas

bd access
conexao ADO
CAIO.IN.DUST 25/08/2006 14:49:30
#167317 Resposta escolhida
Fera a sua linha de gravação estava meia que errada, use assim:

Cnn.Execute "Insert into tblProposta (codigo, nome, matricula,cpf, Ncontrato, data) VALUES ('" + txtCodigo + "','" + txtnome + "','" + txtmatricula + "','" + txtcpf + "','" + txtnContrato + "','" + txtdata + "')" ' tenho mais uns 20 campos pra adicionar

Sem esse conjunto de caracter "Select ...[txt-color=#0000ff]'"+ objeto +"'"[/txt-color] essa parte pega o conteudo do objeto e concatena com espressão sql, sem isso ele passa o no do objeto com string ao inves de mandar seu conteudo
MOREIRA 25/08/2006 15:10:52
#167333
ok amigo caio, deu certinho.. agora pra alterar,exluir...como devo
proceder..?
em qual lugar devo colocar a msg de:"CADASTRO EFETUADO COM SUCESSO!)
"CADASTRO ALTERADO COM SUCESSO")
outra coisa....
bem no esse projeto tem uns 28 campos.. qual comando uso pra quebrar a linha.. do cmdGravar...
por favor,!!!
agradeço sua atenção "!!!
CAIO.IN.DUST 25/08/2006 15:21:15
#167340
Fera pra excluir:

Private Sub cmdExcluir_Click()
Cnn.Execute "DELETE TblProposta FROM TblProposta WHERE (((TblProposta.Codigo)='" + txtCodigo + "'))"
End Sub


Pra quebra a linha utilize _

Private Sub cmdgravar_Click()
Cnn.Execute "Insert into tblProposta (codigo, nome, matricula,cpf, Ncontrato, data) VALUES ('"_
            + txtCodigo + "','" + txtnome + "','" + txtmatricula + "','" + txtcpf + "','" + txtnContrato + "','" + txtdata + "')"       ' tenho mais uns 20 campos pra adicionar
End Sub



Private Sub cmdAlterar_Click()
SQL = "UPDATE TblProposta SET TblProposta.Nome = '" + txtnome + "', TblProposta.CPF = '" + txtcpf + "', TblProposta.Matricula = '" + txtmatricula + "', TblProposta.Ncontrato = '" + txtNContrato + "', TblProposta.Data = '" + txtdata + "' WHERE (((TblProposta.Codigo)='" + txtCodigo + "'))" ' tenho mais uns 20 campos pra adicionar
Cnn.Execute SQL
End Sub
MOREIRA 25/08/2006 15:37:43
#167347
ok Caio, deu certinho... brigadão.. vcs são feras mesmo.. um dia... quem sabe, eu chego lá!!!!!!!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar