Pequeno problema

[webrodex 0]

Queria saber qual o erro ! tipo eu clico no botao para excluir o cliente so que se eu clica em não ele exclui mesmo assim no caso so se clica-se em sim era para escluir o registro mas se clico em nao tb ta escluindo como resolver isso ?

 

 

if Application.MessageBox(PChar('Tem certeza que deseja excluir da sua lista de amigos ?' + #13#13 + (TreeView1.Selected.Text)),'Excluindo amigo',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrYes thenTreeView1.Selected.Delete;SQL.Close;SQL.SQL.Clear;SQL.Sql.Add('delete from amigos where nickname = "'+form1.nickname.text+'" AND Amigo = "'+TreeView1.Selected.Text+'"	 ');SQL.ExecSQL;

[marcio.theis 3]

Você precisa colocar seu comando dentro de uma bloco de Begin e End...

 

if Application.MessageBox(PChar('Tem certeza que deseja excluir da sua lista de amigos ?' + #13#13 + (TreeView1.Selected.Text)),'Excluindo amigo',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrYes then	begin	TreeView1.Selected.Delete;	SQL.Close;	SQL.SQL.Clear;	SQL.Sql.Add('delete from amigos where nickname = "'+form1.nickname.text+'" AND Amigo = "'+TreeView1.Selected.Text+'"	 ');	SQL.ExecSQL;	end;

[webrodex 0]

Marcio estou com 1 problema quando pesso para deletar ele nao deleta corretamente o arquivo selecionado dentro do TreeView tipo Ele deleta um outro valor nao oque você selecionou

 

 

 

if Application.MessageBox(PChar('Tem certeza que deseja excluir da sua lista de amigos ?' + #13#13 + (TreeView1.Selected.Text)),'Excluindo amigo',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrYes then	begin	TreeView1.Selected.Delete;	SQL.Close;	SQL.SQL.Clear;	SQL.Sql.Add('delete from amigos where nickname = "'+form1.nickname.text+'" AND Amigo = "'+TreeView1.Selected.Text+'"	 ');	SQL.ExecSQL;	end;

Tipo se eu tenho o valor VejoTi e Dj-TurBoMix e pesso para excluir o Dj-TurBoMix ele acaba excluindo o VejoTi teria que excluir oque selecionei

[marcio.theis 3]

Quando você emiti a mensagem mostrando TreeView1.Selected.Text é o registro correto ? Ou o seu problema é no momento de excluir do BD, quando executa a qry ?

[webrodex 0]

Quando pesso para excluir a mensagem aparece certinho so que quando confirmo a exclusão aparece assim

 

Tem certeza que deseja excluir da sua lista de amigos ?

 

Dj-TurBoMix

 

 

Ai eu coloco sim so que ai ele apaga outro registro que é VejoTi

 

O problema que ele exclui outro valor do bd e nao oque aparece quando pesso para excluir

 

 

Aconteçe isso !

[marcio.theis 3]

O comando esta correto, você não possui nenhum evento que muda o ponteiro de local e acaba selecionando um outro item ? No caso se testar com a criação de um novo projeto, colocando um botão de excluir, e deletando somente o selecionado, vai dar certo...

[webrodex 0]

Marcio eu fiz um pequeno teste e acho que descubri algo que pode tar dando erro e assim eu dexei no caso so 1 registro no myql e aparece no treeview para eu deletar so que eu pesso para ele deletar ele nao deleta do db agora se eu cadastro 3 valores tipo assimvalor1valor2valor3se eu pesso para exluir o valor 1 ele exclui o valor2 ! se pesso para excluir valor 3 ele exclui valor 2ta acontecendo isso

[marcio.theis 3]

Pelo seu comando que você passou, primeiro você remove do TreeView, e depois apaga do BD, faz ao contrário, primeiro apaga do BD e depois do TreeView, deve de solucionar...

 

if Application.MessageBox(PChar('Tem certeza que deseja excluir da sua lista de amigos ?' + #13#13 + (TreeView1.Selected.Text)),'Excluindo amigo',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrYes then	begin		SQL.Close;	SQL.SQL.Clear;	SQL.Sql.Add('delete from amigos where nickname = "'+form1.nickname.text+'" AND Amigo = "'+TreeView1.Selected.Text+'"	 ');	SQL.ExecSQL;	TreeView1.Selected.Delete;	end;

No caso você perde o foco ao excluir, e ele passa para o próximo, sendo assim exclui o debaixo.

[webrodex 0]

Marcio mas o problema nao e no Treeview e sim quando eu pesso para deletar pq se foçe problema no treeview o showmessage nao ia mostrar a mensagem corretamente concorda?

 

deve ser problema aki algo assim

 

SQL.Sql.Add('delete from amigos where nickname = "'+form1.nickname.text+'" AND Amigo = "'+TreeView1.Selected.Text+'"	 ');

 

Tipo supor no bancos de dados e assim que tá

 

Nickname Amigo

andre roger

andre natalia

andre diego

 

Entao supor quando me logo no sistema o form1 aonde a pessoa coloa o nickname no form 2 tem o botao de excluir e 1 treeview e assim que tou fazendo ele pega o nickname + o amigo que é para deletar

[marcio.theis 3]

Mas foi exatamente o que eu disse, o problema não é do TreeView, e sim a ordem em que executa as coisas, tipo, primeiro você deve excluir o registro do BD, e depois excluir o registro do TreeView...

Outra coisa, você trocou novamente as aspas simples pelas duplas...

 

SQL.Sql.Add('delete from amigos where nickname = ''' + form1.nickname.text + ''' AND Amigo = ''' + TreeView1.Selected.Text + '''');

[webrodex 0]

Deu certo a inversão ! Coisa de loco nesse caso acho que daria na mesma para min deletar 1 do treeview e depois do db. Acho que poderia ser das 2 formas mas beleza problema resolvido ...rsss

[marcio.theis 3]

No caso você usava o registro do treeview como fonte para excluir do BD, e como deletou ele antes, era perdido a referência, mas beleza... problema resolvido...

[Paulo Afonso Cordeiro 0]

você pode usar o AbsoluteIndex do TreeView aí obtém o Indice do nó selecionado.t++

[marcio.theis 3]

Interessante, essa ainda não sabia.... hehehe