UPDATE MYSQL ATUALIZANDO TODOS OS CAMPOS
PESSOAL TO COM Um probremaaaaaaa aqui criei um sistema de login tal ta funcionando blz...da forma que eu quero, mais to com uma coisa que nao consigo resolver....
O comando update ta atualizando o campo online de todos os usuarios....gostaria de que ele desse o update somente no usuario que esta sendo digitado no textbox1 alguem poderia me informa aonde que to errando e que nao to me ligando aonde.....
[ô]_____________________________________________________________________________________________[ô]
[ô]Se conseguir conexao com o banco de dados entao pesquisar o Usuario digitado
Dim myadpater As New MySqlDataAdapter
Dim sqlquery = [Ô]SELECT *FROM login Where Usuario=[ô][Ô] & Form1.TextBox1.Text & [Ô][ô]and Senha=[ô][Ô] & Form1.TextBox2.Text & [Ô][ô][Ô]
Dim mycomando As New MySqlCommand
If Form1.TextBox1.Text = [Ô][Ô] Or Form1.TextBox2.Text = [Ô][Ô] Then
My.Computer.Audio.Play(My.Resources.Sirene_Para_ERRO, AudioPlayMode.BackgroundLoop)
Form1.Hide()
Preencha_todos_os_campos.Show()
Conexao.Desconectar()
Else
mycomando.Connection = Conexao.GetConexao
mycomando.CommandText = sqlquery
myadpater.SelectCommand = mycomando
Dim myData As MySqlDataReader
myData = mycomando.ExecuteReader()
If myData.HasRows = 0 Then
My.Computer.Audio.Play(My.Resources.Sirene_Para_ERRO, AudioPlayMode.BackgroundLoop)
Form1.Hide()
Usuario_ou_Senha_Errado.Show()
Conexao.Desconectar()
Else
While myData.Read
TypLogin.Login = myData.GetString([Ô]usuario[Ô])
TypLogin.Imagem = myData.GetString([Ô]avatar[Ô])
End While
While myData.Read
TypLogin.codigo = myData.GetString([Ô]codigo[Ô])
End While
myData.Close()
[ô]_______________________________________________________________________________________________[ô]
[ô]mudar para online
Conexao.Desconectar()
Conexao.Conectar()
Dim myData3 As MySqlDataReader
Dim mycomando3 As New MySqlCommand
sqlquery = ([Ô]UPDATE online SET online=[ô]1[ô] [Ô])
mycomando.Connection = Conexao.GetConexao
mycomando.CommandText = sqlquery
myData3 = mycomando.ExecuteReader
Conexao.Desconectar()
O comando update ta atualizando o campo online de todos os usuarios....gostaria de que ele desse o update somente no usuario que esta sendo digitado no textbox1 alguem poderia me informa aonde que to errando e que nao to me ligando aonde.....
[ô]_____________________________________________________________________________________________[ô]
[ô]Se conseguir conexao com o banco de dados entao pesquisar o Usuario digitado
Dim myadpater As New MySqlDataAdapter
Dim sqlquery = [Ô]SELECT *FROM login Where Usuario=[ô][Ô] & Form1.TextBox1.Text & [Ô][ô]and Senha=[ô][Ô] & Form1.TextBox2.Text & [Ô][ô][Ô]
Dim mycomando As New MySqlCommand
If Form1.TextBox1.Text = [Ô][Ô] Or Form1.TextBox2.Text = [Ô][Ô] Then
My.Computer.Audio.Play(My.Resources.Sirene_Para_ERRO, AudioPlayMode.BackgroundLoop)
Form1.Hide()
Preencha_todos_os_campos.Show()
Conexao.Desconectar()
Else
mycomando.Connection = Conexao.GetConexao
mycomando.CommandText = sqlquery
myadpater.SelectCommand = mycomando
Dim myData As MySqlDataReader
myData = mycomando.ExecuteReader()
If myData.HasRows = 0 Then
My.Computer.Audio.Play(My.Resources.Sirene_Para_ERRO, AudioPlayMode.BackgroundLoop)
Form1.Hide()
Usuario_ou_Senha_Errado.Show()
Conexao.Desconectar()
Else
While myData.Read
TypLogin.Login = myData.GetString([Ô]usuario[Ô])
TypLogin.Imagem = myData.GetString([Ô]avatar[Ô])
End While
While myData.Read
TypLogin.codigo = myData.GetString([Ô]codigo[Ô])
End While
myData.Close()
[ô]_______________________________________________________________________________________________[ô]
[ô]mudar para online
Conexao.Desconectar()
Conexao.Conectar()
Dim myData3 As MySqlDataReader
Dim mycomando3 As New MySqlCommand
sqlquery = ([Ô]UPDATE online SET online=[ô]1[ô] [Ô])
mycomando.Connection = Conexao.GetConexao
mycomando.CommandText = sqlquery
myData3 = mycomando.ExecuteReader
Conexao.Desconectar()
Acrescente uma clausula Where na instrucao Update.
Exemplo:
Update Tabela Set Campo=Valor Where ID=1
Exemplo:
Update Tabela Set Campo=Valor Where ID=1
bom dia tecla ja entao tinha tentado esse esquema de where e que nao sei como montar voce poderia aplicar pra mim no codigo abaixo tipo quero que ele mude o campo online de 0 para 1, mais so do usuario digitado no textbox mais ele muda de todos......
[ô]mudar para online
Conexao.Desconectar()
Conexao.Conectar()
Dim myData3 As MySqlDataReader
Dim mycomando3 As New MySqlCommand
sqlquery = ([Ô]UPDATE online SET online=[ô]1[ô] [Ô])
mycomando.Connection = Conexao.GetConexao
mycomando.CommandText = sqlquery
myData3 = mycomando.ExecuteReader
Conexao.Desconectar()
[ô]mudar para online
Conexao.Desconectar()
Conexao.Conectar()
Dim myData3 As MySqlDataReader
Dim mycomando3 As New MySqlCommand
sqlquery = ([Ô]UPDATE online SET online=[ô]1[ô] [Ô])
mycomando.Connection = Conexao.GetConexao
mycomando.CommandText = sqlquery
myData3 = mycomando.ExecuteReader
Conexao.Desconectar()
alguem?
Citação::
Acrescente uma clausula Where na instrucao Update.
Exemplo:
[txt-color=#e80000]Update Tabela Set Campo=Valor Where ID=1[/txt-color]
Leia novamente o comentário acima, pois citei um exemplo pra você.
fiz da forma que voce falou nao da erro mais tambem nao atualiza....
tu ta montando a Select errada entao... a ideia ao que o tecla falou..
qual query voce esta usando ?
qual query voce esta usando ?
Outra coisa, parou de usar o server aqui da empresa ? atualiza o banco aqui que eu monto a query pra tu ?
opa e ai zero blz entao cara nao e que ele nao tava conectando ai voltei pro free de teste mais vou atualizar ainda hoje o db...
Tópico encerrado , respostas não são mais permitidas