ME AJUDEM A REGISTRA USUARIO NO VB VIA MYSQL

FABIO12 26/12/2013 01:21:49
#432449
Olá queria pedir a vocês um codigo de registro de usuario no vb via mysql me ajude pf já tenho a form de login e a conexão tudo feita só falta a form de registro.

Citação:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SQLComando As New MySqlCommand
SQLComando.Connection = objconn
strsql = [Ô]select usuario,Senha from usuarios where usuario=@fiel1 and senha=@fiel2[Ô]
SQLComando.CommandText = (strsql)
With SQLComando
.Parameters.Add(New MySqlParameter([Ô]@fiel1[Ô], txtusername.Text))
.Parameters.Add(New MySqlParameter([Ô]@fiel2[Ô], txtpassword.Text))
[ô].Parameters.Add([Ô]@fiel1[Ô], txtusername.Text)
[ô].Parameters.Add([Ô]@field2[Ô], txtpassword.Text)
End With
objdr = SQLComando.ExecuteReader
If (objdr.Read()) Then
MsgBox([Ô]Bem Vindo Ao X-TV[Ô], MsgBoxStyle.Information)
objdr.Close()
Form3.Show()

Else
MsgBox([Ô]Error! Usuario ou Senha incorretos![Ô], MsgBoxStyle.Critical)
End If
objdr.Close()
End Sub

End Class



o meu ta assim mais quando clico em registra ele não sai do lugar e nem registra.
OMAR2011 26/12/2013 09:36:55
#432451
Com isto pode fazer um Insert, porém está no mesmo erro.
Tem que abrir a conexão. Erro anterior.
Isto.
strsql = [Ô]select usuario,Senha from usuarios where usuario=@fiel1 and senha=@fiel2[Ô]
Mude para Insert.
Valeu.
FABIO12 26/12/2013 13:04:40
#432456
Eu mudei e agr ta assim :
Citação:

Dim txtuser As String = TextBox1.Text
Dim txtsenha As String = TextBox2.Text

If txtuser = [Ô][Ô] Then
MsgBox([Ô]erro!Preencha todos os campos,para efetuar o registro[Ô], MsgBoxStyle.Critical, Title:=[Ô]error![Ô])
Else
If txtsenha = [Ô][Ô] Then
MsgBox([Ô]Erro!Preencha todos os campos,para efetuar o registro[Ô], MsgBoxStyle.Critical, Title:=[Ô]Error![Ô])
Try
objcmd = New MySql.Data.MySqlClient.MySqlCommand([Ô]INSERT INTO usuarios(usuario,senha)VALUES(@field3,@field4)[Ô], objconn)
With objcmd
.Parameters.AddWithValue([Ô]@field3[Ô], txtuser)
.Parameters.AddWithValue([Ô]field4[Ô], txtsenha)
End With
objcmd.ExecuteNonQuery()
objcmd.Dispose()
MsgBox([Ô]Conta Criada com sucesso!Obrigado Por se Registra.[Ô], MsgBoxStyle.Information)
Form1.Show()
Me.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End If
End If
End Sub
End Class



Mais ainda n consigo cadastra,quando clico em cadastra ele não faz nada fica parecendo q o botao de registrar n tem nada,ele n aparece menssagem de erro nem de conta criada nada simplismente não sai do lugar
OMAR2011 26/12/2013 13:28:33
#432458
O Nilsontres te mostrou.
objconn = New MySqlConnection
objconn.ConnectionString = [Ô]host=nag64;user id=root;password=170863; database=nag_comercial[Ô]
Try
[txt-color=#e80000]objconn.Open()[/txt-color]

Tem que abrir a conexão.
FABIO12 26/12/2013 14:09:41
#432462
Tem como você mandar já com os codigos feito pq aqui eu não consegui colocar.

Pf
NILSONTRES 26/12/2013 14:09:54
#432463
Grande OMAR2011 !
Citação:

O Nilsontres te mostrou.
objconn = New MySqlConnection
objconn.ConnectionString = [Ô]host=nag64;user id=root;password=170863; database=nag_comercial[Ô]
Try
objconn.Open()



Inclusive FABIO, sei que vc é novo no forum, só avisando,já que vc resolveu aquela questão, o ideal é encerrar o tópico citado pelo OMAR.
FABIO12 26/12/2013 14:34:11
#432465
Ok,mais aonde eu boto o codigo ele da erro eu n sei vb tou começando agr a estudar mysql n sei aonde eu boto o codigo no outro eu soube pq mostrava e agr n mostra nada aonde eu botar me ajuda ai pf.
FABIO12 26/12/2013 16:55:29
#432469
Nilson eu já botei lá seu ponto me ajuda nesse ai eu sei q tu sabe,aonde eu boto o codigo? eu n sei aonde boto esse,pf
Tópico encerrado , respostas não são mais permitidas
Voltar