SQL

Delphi

07/02/2003

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

Curtidas 0

Respostas

Rubensavelino

Rubensavelino

07/02/2003

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


GOSTEI 0
Taissj

Taissj

07/02/2003

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;


GOSTEI 0
Anonymous

Anonymous

07/02/2003

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;


GOSTEI 0
Rubensavelino

Rubensavelino

07/02/2003

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 ?


GOSTEI 0
POSTAR