AJUDA COM CORRECAO CODIGO DELETE MYSQL

KURTGU 04/05/2011 07:50:17
#373160
Pessoal to com probreemaaaa aqui em um modulo tipo ele ta achando normalmente o que eu quero mais apos ele achar ele teria que abrir a form e deletar o numero do onvite ultilizado ele acha normalmente mais na parte do delete ele nao funciona.....

Conexao.Conectar()
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = [Ô]SELECT * FROM convites WHERE convites=[ô][Ô] + Checar_Convite.TextBox1.Text + [Ô][ô][Ô]
Dim myCommand As New MySqlCommand
myCommand.Connection = Conexao.GetConexao
myCommand.CommandText = sqlquery
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
[txt-color=#007100] [ô]_____________________________________________________________________________________________________[Ô]
[ô]Procurar Convite no banco de Dados[/txt-color]
If myData.HasRows = 0 Then
Conexao.Desconectar()
Convite_Errado.Show()

Else
[ô]_____________________________________________________________________________________________________[Ô]
Cadastro.Show()
Checar_Convite.Close()
Form1.Hide()
[txt-color=#007100] [ô]_____________________________________________________________________________________________________[Ô]
[ô]Convite Achado e Excluido do Banco de Dados[/txt-color]
Conexao.Desconectar()
Conexao.Conectar()
Dim myData2 As MySqlDataReader
Dim mycomando2 As New MySqlCommand
Dim sqlquery2 = ([Ô]DELETE from convites where convites= [ô][Ô] + Checar_Convite.TextBox1.Text + [Ô][ô][Ô])
mycomando2.Connection = Conexao.GetConexao
mycomando2.CommandText = sqlquery2
myData2 = mycomando2.ExecuteReader
Conexao.Desconectar()
MsgBox([Ô]Convite Apagado[Ô])
End If

[ô]_____________________________________________________________________________________________________[Ô]
End Sub
End Module
JONATHANSTECKER 04/05/2011 08:40:12
#373166 Resposta escolhida
Citação:

mais na parte do delete ele nao funciona.....


O que não funciona? Chega a ocorrer algum erro?
O valor de [Ô]Checar_Convite.TextBox1.Text[Ô] está nulo? Eu faria a passagem desse convite por parâmetro, muito mais seguro!
Passe mais detalhes KURTGU, com um simples NÃO FUNCIONA ninguém vai conseguir te ajudar.
KURTGU 04/05/2011 08:43:39
#373168
simplesmente nao da erro ele localiza o convite mais nao da o delete....

o select esta certo mais a parte do delete nao esta funcionando seria mais assim o funcionamento...


form1>>>digitar convite>>>>se achar deletar o convite >>>abrir cadastro
KURTGU 04/05/2011 08:46:09
#373169
jhonatan vc podeira arrumar esse modulo pra mim pra funcionar dessa forma que eu falei e deixar mais seguro....?como vc mesmo disse
JONATHANSTECKER 04/05/2011 09:10:51
#373171
Eu faria mais ou menos dessa forma...

Criaria uma classe para o convite com o método Deletar
Public Class clsConvite

    [ô] Aqui eu passo o parâmetro pConvite, que ao instanciar esse método você terá que informá-lo
    Friend Sub Deletar(ByVal pConvite As String)
        Conexao.Conectar()
        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = [Ô]SELECT * FROM convites WHERE convites=[ô][Ô] + pConvite + [Ô][ô][Ô]
        Dim myCommand As New MySqlCommand
        myCommand.Connection = Conexao.GetConexao
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader()
        [ô]_____________________________________________________________________________________________________[Ô]
        [ô]Procurar Convite no banco de Dados
        If myData.HasRows = 0 Then
            Conexao.Desconectar()
            Convite_Errado.Show()

        Else
            [ô]_____________________________________________________________________________________________________[Ô]
            Cadastro.Show()
            Checar_Convite.Close()
            Form1.Hide()
            [ô]_____________________________________________________________________________________________________[Ô]
            [ô]Convite Achado e Excluido do Banco de Dados
            Conexao.Desconectar()
            Conexao.Conectar()
            Dim myData2 As MySqlDataReader
            Dim mycomando2 As New MySqlCommand
            Dim sqlquery2 = ([Ô]DELETE from convites where convites= [ô][Ô] + pConvite + [Ô][ô][Ô])
            mycomando2.Connection = Conexao.GetConexao
            mycomando2.CommandText = sqlquery2
            myData2 = mycomando2.ExecuteReader
            Conexao.Desconectar()
            MsgBox([Ô]Convite Apagado[Ô])
        End If

        [ô]_____________________________________________________________________________________________________[Ô]
    End Sub

End Class

E para chamar basta instanciar a classe passando o parâmetro,
Veja.:
    [ô] Este é um botão dentro do formulário [Ô]Checar_Convite[Ô]
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oConvite As clsConvite
        oConvite.Deletar(Me.TextBox1.Text)
    End Sub
KURTGU 04/05/2011 09:22:20
#373174
Jonathan to tendo um erro com essa informacao abaixo....

Referência de objeto não definida para uma instância de um objeto.
RODRIGOFERRO 04/05/2011 09:27:03
#373175 
Dim oConvite As new clsConvite

em que linha ocorre o erro ?
nessa ?

lembre-se que dando certo pontue o JONATHANSTECKER !

Abraços
KURTGU 04/05/2011 09:29:32
#373177
e ai zero bom dia velho blz

entao o erro e nessa linha
pConvite.Deletar(Me.TextBox1.Text)
KURTGU 04/05/2011 09:31:12
#373178
desculpa nessa linha
oConvite.Deletar(Me.TextBox1.Text)
JONATHANSTECKER 04/05/2011 09:31:40
#373179 
Dim oConvite As New clsConvite


é isso mesmo que faltou KURTGU, elaborei este exemplo sem efetuar testes...
ZEROCAL, obrigado pelo complemento.
JONATHANSTECKER 04/05/2011 09:33:07
#373180
Citação:

:
e ai zero bom dia velho blz

entao o erro e nessa linha
pConvite.Deletar(Me.TextBox1.Text)


Altere a linha conforme o ZEROCAL indicou e retorne se o erro permanece..
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar