Fórum Duvida sobre SQL Server 2000 #226416

16/04/2004

0

Delphi

Olá eu tenho um edit onde eu coloquei no Onchange o seguinte código para realizar uma busca enquanto o usuario digita no edit.

Segue abaixo o código

procedure TFiltroCracha.Edit1Change(Sender: TObject);
var a,b,c: String;
begin
datamodule1.SQLConexao.SQL.Clear;
a:=´Select * From etiqueta ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Nome´;
datamodule1.SQLConexao.SQL.Add(a+b+c);
datamodule1.SQLConexao.Params[0].AsString;
datamodule1.SQLConexao.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
datamodule1.SQLConexao.Close;
datamodule1.SQLConexao.Open

Só que a linha quando eu estou tentando compilar.. da erro 

datamodule1.SQLConexao.Params[0].AsString;
datamodule1.SQLConexao.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;


O componente que estou usando é ADO.
como fazer isso???????


Danielvbhp

Danielvbhp

Responder

Posts

16/04/2004

Tathianam

Daniel,

Vc precisa filtrar ou somente localizar? Se for só para localizar fica mais fácil assim:
dsCadastro.DataSet.Locate(<NomeCampo>,<Edit>,[loPartialKey, loCaseInsensitive]);


Agora, se vc precisa filtrar eu faria assim:
datamodule1.SQLConexao.Close; datamodule1.SQLConexao.SQL.Clear; datamodule1.SQLConexao.SQL.Add(´Select * From etiqueta ´); datamodule1.SQLConexao.SQL.Add(´Where Nome Like ´+chr(39)+´¬´+Edit1.Text+´¬´+chr(39)); datamodule1.SQLConexao.SQL.Add(´Order By Nome´); datamodule1.SQLConexao.Open


Só sugestão...


Responder

Gostei + 0

16/04/2004

Danielvbhp

Olá cara. deu certo... o código que voce me passou mais tenho mais um problema

é o seguinte, eu tento gravar um registro novo.

segue abaixo o código

begin
 if DBEdit1.Text=´´ then begin
   Application.MessageBox(´Por favor, preencha o campo Nome´,´Campo Vazio.´,MB_OK+MB_ICONINFORMATION);
   DBEdit1.SetFocus;
   exit;
   end;
{Para Salvar Alterações}
DataModule1.SQLConexao.Post;
Showmessage(´Cadastro inserido com Sucesso...´);


Mais ele me retorna a seguinte mensagem...

Cannot insert the value NULL into Column COD table master.dbo.etiqueta Coumn does not allow nulls INSERT FAILS.... O que fazer neste caso



Responder

Gostei + 0

16/04/2004

Tathianam

Bom colega, a mensagem está mais do que clara: existem campos que não podem ser nulos.

Preencha os campos texto com ´´, numéricos com 0, etc...


Responder

Gostei + 0

16/04/2004

Danielvbhp

Cara Realmente esta clara a mensagem, mais é o seguinte não posso fazer o campo ficar nulo, por quando eu vou excluir o cadastro, eu pego pelo campo COD como sendo 112, se eu deixar este campo igual a nulo, ele ira deletar todos os meus registros entende...???

por isso coloquei a mensagem aqui...


Responder

Gostei + 0

16/04/2004

Danielvbhp

?????


Responder

Gostei + 0

16/04/2004

Danielvbhp

Socorrooooo

Alguém poderia me ajudar com isso?????

:? :roll: :cry: :?:


Responder

Gostei + 0

16/04/2004

Rsballoussier

Instruções corrigidas:
datamodule1.SQLConexao.Close;
datamodule1.SQLConexao.SQL.Clear;
datamodule1.SQLConexao.SQL.Add(´Select * From etiqueta ´);
datamodule1.SQLConexao.SQL.Add(´Where Nome Like :Consulta ´);
datamodule1.SQLConexao.SQL.Add(´Order By Nome´);
datamodule1.SQLConexao.Params[0].Value := ´¬´ + Edit1.Text + ´¬´;
datamodule1.SQLConexao.Open;

Amigo, [b:ea96847adb]preste bem atenção[/b:ea96847adb] o que escreveu instruções erradas.

Até mais.


Responder

Gostei + 0

19/04/2004

Danielvbhp

cara ainda esta dando erro na seguinte linha quando grava... 

datamodule1.SQLConexao.Params[0].Value := ´¬´ + Edit1.Text + ´¬´;


o erro é o seguinte.

Undelcared identifier : Params.
Undelcared identifier : Edit1

Poar que será que esta dando este tipo de erro?????


Responder

Gostei + 0

19/04/2004

Danielvbhp

??????????????


Responder

Gostei + 0

19/04/2004

Danielvbhp

Olá... estou precisando saber como eu faço para cadastrar um novo registro... depois que é feito o cadastro nos Dbedit... com SQL Server.. ??


Alguém saberia onde eu posso achar... alguma apostila de deplhi com SQL server.. para eu estar estudando ...????

Obrigado pela compreensão .. .
mais se alguém tiver.. um código pronto que esteja funcionando para gravar em banco do SQL Server... postar aqui eu agradeço...


Responder

Gostei + 0

20/04/2004

Danielvbhp

Alguém saberia onde eu posso achar... alguma apostila de deplhi com SQL server.. para eu estar estudando ...????


Responder

Gostei + 0

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

Aceitar