SQL

07/02/2003

0

Bom dia gente,

Estousedenvolvendoum sitema que antes era com tabela paradox e agora mudei para SQl, só que quando quero inserir, exluir ou atualizar da erro e nao consegui identificar qual o problema.
Acho que fiz tudo correto, alguém pode me dar uma luz?


Desde já agradeço.
Taís


Taissj

Taissj

Responder

Posts

07/02/2003

Rubensavelino

Bom dia gente, Estousedenvolvendoum sitema que antes era com tabela paradox e agora mudei para SQl, só que quando quero inserir, exluir ou atualizar da erro e nao consegui identificar qual o problema. Acho que fiz tudo correto, alguém pode me dar uma luz? Desde já agradeço. Taís



Ola poderia informar o que acontece ex : Inserir qual o erro e o codigo que esta utilizando ?



ate


Responder

07/02/2003

Taissj

O erro que dá é que naopode ser inserido valores ´´ só que nenhum campo está em branco, a linguagem é delphi.

O código de inserir é esse.... é feito na ´mão grande mais estoucomeçando...rs

procedure Tcriacao.SpeedButton3Click(Sender: TObject); // Inserir
begin

tb1.Append;

tb1.FieldByName(´Codigo´).AsInteger := StrtoInt(txtcodigo.Text);
tb1.FieldByName(´Nome´).AsString := UpperCase(txtnome.Text);
tb1.FieldByName(´Login´).AsString := LowerCase(txtlogin.Text);
tb1.FieldByName(´Senharede´).AsString:= LowerCase(txtsenharede.Text);
tb1.FieldByName(´Senhaemail´).AsString:= LowerCase (txtsenhaemail.Text);
tb1.FieldByName(´SenhaSchool´).AsString:= LowerCase(txtsenhaschool.Text);
tb1.FieldByName(´Interpretador´).AsString:= UpperCase(txtinterpretador.Text);
tb1.FieldByName(´DataCadastro´).AsString:= UpperCase(txtdatacadastro.Text);
tb1.FieldByName(´Impresso´).AsString:= UpperCase(txtimpresso.Text);
tb1.FieldByName(´CodigoDominio´).AsString:= UpperCase(txtcoddominio.Text);
tb1.FieldByName(´CodigoSetor´).AsString:= UpperCase(txtcodsetor.Text);
tb1.FieldByName(´FuncaoCodigo´).AsString:= UpperCase(txtcodfuncao.Text);
tb1.FieldByName(´Responsavel´).AsString := UpperCase(txtresponsavel.Text);
tb1.FieldByName(´Ativado´).AsString:= UpperCase (txtativado.Text);


tb1.Post;

txtnome.Text :=´´;
txtlogin.Text:= ´´;
txtsenharede.Text:=´´;
txtsenhaemail.Text:=´´;
txtsenhaschool.Text:=´´;
txtinterpretador.Text:=´´;
txtdatacadastro.Text:=´´;
txtimpresso.Text:=´´;
txtcoddominio.Text:=´´;
txtcodsetor.Text:=´´;
txtcodfuncao.Text:=´´;
txtresponsavel.Text:=´´;
txtativado.Text:= ´´;

end;


Responder

07/02/2003

Anonymous

Voce esta usando o Sql Server né ???

faça assim:

str := ´ insert into Tabela (Campo1,Campo2)VALUES ( ´ ;
str := str + ´ ´´´ + Edit1.text+ ´´´,´;
str := str + ´ ´´´ + Edit2.text + ´´´,´;
str := str + ´ ´´´ + Edit3.text + ´´´) ´;
Query.close;
Query.SQL.clear;
Query.sql.Add(str);
Query.execsql;


Responder

07/02/2003

Rubensavelino

Bom dia gente, Estousedenvolvendoum sitema que antes era com tabela paradox e agora mudei para SQl, só que quando quero inserir, exluir ou atualizar da erro e nao consegui identificar qual o problema. Acho que fiz tudo correto, alguém pode me dar uma luz? Desde já agradeço. Taís


:lol:

Que tipo de tabela esta utilizando ?


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar