URGENTE, AJUDA NO VB

LEANDROPEREIRA 19/06/2015 15:56:03
#447884
Hahahaha cara não tinha visto uma página aqui,
Citação:

Filman

já havia te falado como teria que ser, analisando seu código, existe pelo meu ver algo errado, pois você antes de criar o usuário deve sim analisar se o e-mail já não está cadastrado, e caso não tiver sim criar, você analisou errado o seu código acredito eu......

Lhe recomendo:

  
    Try
            dbcon.Open()
            Dim flag As Boolean = False
            Dim cod As String = TextBox13.Text
            Dim sqll As String = String.Format([Ô]SELECT * FROM Cad_Cliente where Email =[ô]{0}[ô] [Ô], cod)
            Dim cm1 As New OleDb.OleDbCommand(sqll, dbcon)
            
            Dim dr1 As OleDb.OleDbDataReader
            dr1 = cm1.ExecuteReader()
            
            Do While dr1.Read
                flag = True
            Loop

            If flag = True Then
                MessageBox.Show([Ô]Você já está cadastrado[Ô])
            Else
              Dim sql As String
              sql = [Ô]insert into Cad_Cliente (RG,Nome,Idade,Email,Endereço,Cidade,Bairro,CEP,País,Telefone,Celular,Ano_Matric,N_Cad,Senha,Confirmar_senha) values       (@RG, @Nome,@Idade,@Email,@Endereço,@Cidade,@Bairro,@CEP,@País,@Telefone,@Celular,@Ano_Matric,@N_Cad,@Senha,@Confirmar_senha)[Ô]
            Dim cm As New OleDbCommand(sql, dbcon)
           cm.Parameters.AddWithValue([Ô]@RG[Ô], TextBox14.Text)
           cm.Parameters.AddWithValue([Ô]@Nome[Ô], TextBox6.Text)
           cm.Parameters.AddWithValue([Ô]@Idade[Ô], TextBox15.Text)
           cm.Parameters.AddWithValue([Ô]@Email[Ô], TextBox13.Text)
           cm.Parameters.AddWithValue([Ô]@Endereço[Ô], TextBox2.Text)
           cm.Parameters.AddWithValue([Ô]@Cidade[Ô], TextBox7.Text)
           cm.Parameters.AddWithValue([Ô]@Bairro[Ô], TextBox8.Text)
           cm.Parameters.AddWithValue([Ô]@CEP[Ô], TextBox11.Text)
           cm.Parameters.AddWithValue([Ô]@País[Ô], TextBox12.Text)
           cm.Parameters.AddWithValue([Ô]@Telefone[Ô], TextBox10.Text)
           cm.Parameters.AddWithValue([Ô]@Celular[Ô], TextBox9.Text)
           cm.Parameters.AddWithValue([Ô]@Ano_Matric[Ô], TextBox3.Text)
           cm.Parameters.AddWithValue([Ô]@N_Cad[Ô], TextBox1.Text)
           cm.Parameters.AddWithValue([Ô]@Senha[Ô], TextBox4.Text)
           cm.Parameters.AddWithValue([Ô]@Confirmar_senha[Ô], TextBox5.Text)
           Try
               dbcon.Open()
               cm.ExecuteNonQuery()
              dbcon.Close()
              MessageBox.Show([Ô]Usuário cadastrado[Ô])
              Button2.Visible = True
                  Catch ex As Exception
                      MessageBox.Show(ex.Message, [Ô]Erro ao cadastrar[Ô])
                   End Try
                  dbcon.Close()
            End If
            
            dbcon.Close()
            dr1.Close()
            
        Catch ex As Exception
            MessageBox.Show(ex.Message) [ô]Aqui é erro
        End Try
VINICIUS2445 19/06/2015 16:01:58
#447887
A parte do email deu certo, só que apareceu este erro agr,
VINICIUS2445 19/06/2015 16:03:49
#447888
O código até o momento está assim

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox2.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Endereço[Ô])
Me.Focus()
End If
If TextBox3.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Ano de matrícula[Ô])
Me.Focus()
End If
If TextBox4.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Digite uma senha[Ô])
Me.Focus()
End If
If TextBox5.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Confirmar senha[Ô])
Me.Focus()
End If
If TextBox6.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Nome[Ô])
Me.Focus()
End If
If TextBox7.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Cidade[Ô])
Me.Focus()
End If
If TextBox8.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Bairro[Ô])
Me.Focus()
End If
If TextBox9.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Celular[Ô])
Me.Focus()
End If
If TextBox10.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Telefone[Ô])
Me.Focus()
End If
If TextBox11.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Cep[Ô])
Me.Focus()
End If
If TextBox12.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo País[Ô])
Me.Focus()
End If
If TextBox13.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Email[Ô])
Me.Focus()
End If
If TextBox14.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Rg[Ô])
Me.Focus()
End If
If TextBox15.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Preencha o campo Idade[Ô])
Me.Focus()
End If
Try
dbcon.Open()
Dim flag As Boolean = False
Dim cod As String = TextBox13.Text
Dim sqll As String = String.Format([Ô]SELECT * FROM Cad_Cliente where Email =[ô]{0}[ô] [Ô], cod)
Dim cm1 As New OleDb.OleDbCommand(sqll, dbcon)

Dim dr1 As OleDb.OleDbDataReader
dr1 = cm1.ExecuteReader()

Do While dr1.Read
flag = True
Loop

If flag = True Then
MessageBox.Show([Ô]Você já está cadastrado[Ô])
Else
Dim sql As String
sql = [Ô]insert into Cad_Cliente (RG,Nome,Idade,Email,Endereço,Cidade,Bairro,CEP,País,Telefone,Celular,Ano_Matric,N_Cad,Senha,Confirmar_senha) values (@RG, @Nome,@Idade,@Email,@Endereço,@Cidade,@Bairro,@CEP,@País,@Telefone,@Celular,@Ano_Matric,@N_Cad,@Senha,@Confirmar_senha)[Ô]
Dim cm As New OleDbCommand(sql, dbcon)
cm.Parameters.AddWithValue([Ô]@RG[Ô], TextBox14.Text)
cm.Parameters.AddWithValue([Ô]@Nome[Ô], TextBox6.Text)
cm.Parameters.AddWithValue([Ô]@Idade[Ô], TextBox15.Text)
cm.Parameters.AddWithValue([Ô]@Email[Ô], TextBox13.Text)
cm.Parameters.AddWithValue([Ô]@Endereço[Ô], TextBox2.Text)
cm.Parameters.AddWithValue([Ô]@Cidade[Ô], TextBox7.Text)
cm.Parameters.AddWithValue([Ô]@Bairro[Ô], TextBox8.Text)
cm.Parameters.AddWithValue([Ô]@CEP[Ô], TextBox11.Text)
cm.Parameters.AddWithValue([Ô]@País[Ô], TextBox12.Text)
cm.Parameters.AddWithValue([Ô]@Telefone[Ô], TextBox10.Text)
cm.Parameters.AddWithValue([Ô]@Celular[Ô], TextBox9.Text)
cm.Parameters.AddWithValue([Ô]@Ano_Matric[Ô], TextBox3.Text)
cm.Parameters.AddWithValue([Ô]@N_Cad[Ô], TextBox1.Text)
cm.Parameters.AddWithValue([Ô]@Senha[Ô], TextBox4.Text)
cm.Parameters.AddWithValue([Ô]@Confirmar_senha[Ô], TextBox5.Text)
Try
dbcon.Open()
cm.ExecuteNonQuery()
dbcon.Close()
MessageBox.Show([Ô]Usuário cadastrado[Ô])
Button2.Visible = True
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Erro ao cadastrar[Ô])
End Try
dbcon.Close()
End If

dbcon.Close()
dr1.Close()

Catch ex As Exception
MessageBox.Show(ex.Message) [ô]Aqui é erro
End Try
End Sub
LEANDROPEREIRA 19/06/2015 16:08:45
#447889
testa nesta parte que está assim:
     cm.Parameters.AddWithValue([Ô]@Confirmar_senha[Ô], TextBox5.Text)
                Try
                    dbcon.Open()
                    cm.ExecuteNonQuery()

Faz assim:
     cm.Parameters.AddWithValue([Ô]@Confirmar_senha[Ô], TextBox5.Text)
                Try
                   
                    cm.ExecuteNonQuery()
VINICIUS2445 19/06/2015 16:16:21
#447890
Foi, muito obrigado mesmo, agr só falta resolver mais 2 egocinhos e meu projeto está pronto, gostaria que você pasa-sse seu facebook para nos falarmos melhor e mais rapidamente por favor
VINICIUS2445 19/06/2015 16:19:31
#447891
pois se conseguir me ajudar com esses 2 negocinhos melhor ainda rsrs
LEANDROPEREIRA 19/06/2015 16:21:48
#447892
Cara não me leva a mal mas ajudo só por aqui mesmo, pois já me ajudaram muito por aqui, vida profissional é diferente da particular. Flw abraço.
VINICIUS2445 19/06/2015 16:22:47
#447893
Poderia me ajudar mais em algumas coisa então por favor?
VINICIUS2445 19/06/2015 16:26:12
#447896
* Mais algumas
LEANDROPEREIRA 19/06/2015 16:38:35
#447897
Se tiver ao alcance....
Página 5 de 6 [56 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar