#ajuda - erro sql [ vb.net ]

[waggneer2 11]

OLA ALGUEM PODERIA ME INFORMAR PORQUE ACONTECE O ERRO DO PRINT ABAIXO ?

 

 

se alguem tiver a solução muito obrigado :)

:dormindo: :droga: :pensando: :bocejo: :suando: :mad: :malvado: :ironico: :festa: :indiferente:

[AnonymousKesha 12]

Você ta tentando fazer o que? É mas fácil você mostrar a Source

[waggneer2 11]

e um sistem de login com banco de dados .. :3

[AnonymousKesha 12]

e um sistem de login com banco de dados .. :3

 

Tenta esse:

Imports MySql.Data.MySqlClient

 

Dim MySQLConnection As MySqlConnection

MySQLConnection = New MySqlConnection

MySQLConnection.ConnectionString = "server=localhost; User ID=root; password=SUA SENHA; database=BASE DE DADOS"

MySQLConnection.Open()

Dim MyAdapter As New MySqlDataAdapter

Dim SqlQuary = "SELECT * From tadlogin WHERE Nome='" & txtUSER.Text & "' AND Senha= '" & txtPASS.Text & "';"

Dim Command As New MySqlCommand

Command.Connection = MySQLConnection

Command.CommandText = SqlQuary

MyAdapter.SelectCommand = Command

Dim Mydata As MySqlDataReader

Mydata = Command.ExecuteReader

If Mydata.HasRows = 0 Then

MsgBox("Usuario ou senha incorretos")

Else

MsgBox("Acesso permitido")

End If

[waggneer2 11]

bom sou iniciante , e nao entendi , esse é o codigo que eu estou usando

 

imports system.data.sqlclient

public class frmchangepassword

dim rdr as sqldatareader = nothing

 

dim con as sqlconnection = nothing

 

dim cmd as sqlcommand = nothing

private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click

try

dim rowsaffected as integer = 0

if len(trim(username.text)) = 0 then

messagebox.show("porfavor informe seu usuario", "input error", messageboxbuttons.ok, messageboxicon.error)

username.focus()

exit sub

end if

if len(trim(oldpassword.text)) = 0 then

messagebox.show("porfavor informe a senha antiga", "input error", messageboxbuttons.ok, messageboxicon.error)

oldpassword.focus()

exit sub

end if

if len(trim(newpassword.text)) = 0 then

messagebox.show("porfavor informe a nova senha ", "input error", messageboxbuttons.ok, messageboxicon.error)

newpassword.focus()

exit sub

end if

if len(trim(confirmpassword.text)) = 0 then

messagebox.show("porfavor confirme a nova senha !", "input error", messageboxbuttons.ok, messageboxicon.error)

confirmpassword.focus()

exit sub

end if

if newpassword.textlength < 5 then

messagebox.show("a nova senha deve conter pelo menos 5 caracteres", "input error", messageboxbuttons.ok, messageboxicon.error)

newpassword.text = ""

confirmpassword.text = ""

newpassword.focus()

exit sub

elseif newpassword.text <> confirmpassword.text then

messagebox.show("senhas não combinam", "input error", messageboxbuttons.ok, messageboxicon.error)

newpassword.text = ""

oldpassword.text = ""

confirmpassword.text = ""

oldpassword.focus()

exit sub

elseif oldpassword.text = newpassword.text then

messagebox.show("você não pode alterar sua senha para a mesma !", "input error", messageboxbuttons.ok, messageboxicon.error)

newpassword.text = ""

confirmpassword.text = ""

newpassword.focus()

exit sub

end if

 

dim ck as string = "data source=.\sqlexpress; integrated security=true; attachdbfilename=|datadirectory|\productmanagerdb.mdf; user instance=true;"

 

con = new sqlconnection(ck)

 

con.open()

 

dim co as string = "atualizar usuários definir senha = '" & newpassword.text & "'where username='" & username.text & "' and password = '" & oldpassword.text & "'"

'

 

cmd = new sqlcommand(co)

 

cmd.connection = con

rowsaffected = cmd.executenonquery()

if rowsaffected > 0 then

 

messagebox.show("alterada com sucesso", "password", messageboxbuttons.ok, messageboxicon.information)

me.hide()

username.text = ""

newpassword.text = ""

oldpassword.text = ""

confirmpassword.text = ""

 

frmlogin.show()

frmlogin.username.text = ""

frmlogin.password.text = ""

 

 

frmlogin.username.focus()

else

 

messagebox.show("usuario ou senha incorretos", "input error", messageboxbuttons.ok, messageboxicon.error)

username.text = ""

newpassword.text = ""

oldpassword.text = ""

confirmpassword.text = ""

username.focus()

end if

 

 

 

 

 

 

 

 

if con.state = connectionstate.open then

 

con.close()

 

end if

con.close()

 

 

catch ex as exception

messagebox.show(ex.message, "error", messageboxbuttons.ok, messageboxicon.error)

end try

 

end sub

 

private sub changepassword_formclosing(byval sender as object, byval e as system.windows.forms.formclosingeventargs) handles me.formclosing

me.hide()

frmlogin.show()

frmlogin.username.text = ""

frmlogin.password.text = ""

 

frmlogin.username.focus()

end sub

 

 

 

 

 

private sub frmchangepassword_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load

 

end sub

end class

 

:/

[Propeus 1]

bom sou iniciante , e nao entendi , esse é o codigo que eu estou usando [/color][/b]

 

 

 

:/

 

Essa source ai é para Fazer renovação de senha ou seja seria para a função "Esqueci minha senha" como vc não possui esse dado que que está tentando renovar vai dar esse erro.

 

Use a Source do AnonymousKesha pois é o mais completo e o mais resumido.

[AnonymousKesha 12]

bom sou iniciante , e nao entendi , esse é o codigo que eu estou usando [/color][/b]

 

 

 

:/

 

Tenta esse: Mysql

Esse eu usei o xampp.