(Resolvido) Aplicativo VB-6 + Banco SQL...deletar item da tabela

[Danleonhart]

Pessoal,

Meu aplicativo VB-6 faz conexão com uma tabela do SQL...

Como deleto um ítem de uma coluna da tabela ?

Tipo assim:

Em uma caixa de texto coloco o nome (banana), ao clicar em um botão ele executa uma busca na coluna(fruta) da tabela, se encontrado ele o deleta, se não, ele retorna uma mensagem: "Não encontrado".

Tenho este script para banco em Access, mas não tá funfando com o SQL:

Private Sub Deleta_Click()
Dim Frt, Valor As String
Dim existe As Boolean
Frt = "Fruta"
txt1.Text = Valor

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "select * from tab3", con

Do While rs.EOF = False

If rs(Frt) = Valor Then
existe = True
If MsgBox("Deseja realmente excluir o Ítem?" & vbCrLf & rs("Fruta"), vbQuestion + vbYesNo, "Exclusão") = vbYes Then
apaga = "delete from tab3 where '& Frt &' = '& Valor &'"
con.Execute apaga
End If
End If

rs.MoveNext
Loop

If existe = False Then
MsgBox "Não encontrado."

End If
End Sub

Tentei o mesmo com o banco SQL mas simplesmente não deleta...quando recarrego a tabela, o ítem ainda está lá... <_<

Editado Dezembro 25, 2010 por Danleonhart

[Matheus-vb6]

Pela lógica eu faria

dim existe as boolean
existe=false
Do while rsdados.eof=false and existe=false
if txt...=rsdados("..") then
existe=true
else
rsdados.movenext
end if
loop
if existe=true
'codigo de excluir
elseif existe=false and rsdados.eof=true then
msgbox "cadastro não encontrado"
end if

Achei seu código meio complicado, sugestão... Use variavel boleana apenas para verificar, a condição acho que é melhor fora de contadores :)

Fica a dica cara, se n der certo posta ai

Abraços

[Danleonhart]

:) Obrigado Matheus !

Encontrei também uma maneira mais prática e sem precisar de colocar mensagem dizendo "Não Encontrado!"

Private Sub Deleta()
Dim Nm As String
Nm = txt3.Text
abb
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
apaga = "delete from table1 where Nome='" & Nm & "'"
con.Execute apaga
End Sub

Só colocar no botão pra chamar a sub Deleta ^_^

Valeu !