PROBLEMA COM FILL
Prezados,
Uso o SQL 2016 e o VB2015. A partir da internet, comecei a desenvolver um programinha em VB. Logo no começo me deparei com um problema que não consigo resolver.
Parece simples, mas já tentei algumas alternativas sem sucesso e peço a ajuda de vocês.
A fonte de onde peguei o programa usou VB2015 e SQL 2012 (não sei se existe diferença na sintaxe ou compatibilidade.
Enfim, vamos ao problema.
Na conexão uso o seguinte:
Module conexao
Public conectar As SqlConnection
Public comando As SqlCommand
Public local As DataSet
Public adaptar As SqlDataAdapter
Public sql As String
Public resultado As Integer
Public registro As DataRow
Public dt As DataSet
Public cnn As String = [Ô]Data Source=Fox;Initial Catalog=Sistema;User Id=sa;Password=********;[Ô]
Public vnivel As String
Public contador As Integer
End Module
Quando rodo a seguinte rotina:
Private Sub TB_Senha_Validated(sender As Object, e As EventArgs)
If TB_Usuario.Text = [Ô][Ô] Or TB_Senha.Text = [Ô][Ô] Then
LB_Login.Text = [Ô]Insira um usário e uma senha[Ô]
TB_Usuario.Focus()
Exit Sub
End If
sql = [Ô]select * login when usuario=[Ô]
sql += [Ô][ô][Ô] & TB_Usuario.Text & [Ô][ô] and senha=[Ô]
sql += [Ô][ô][Ô] & TB_Senha.Text & [Ô][ô][Ô]
conectar.Open()
adaptar = New SqlDataAdapter(sql, conectar)
local = New DataSet
conectar.Close()
adaptar.Fill(local, [Ô]login[Ô])
resultado = local.Tables([Ô]login[Ô]).Rows.Count
If resultado > 0 Then
registro = local.Tables([Ô]login[Ô]).Rows(0)
vnivel = registro([Ô]nivel[Ô])
BTN_Login.Enabled = True
BTN_Login.Focus()
ElseIf resultado = 0 Then
BTN_Login.Enabled = False
BTN_Sair.Focus()
End If
End Sub
Ele apresenta erro no que marquei em negrito. Informa que:
Ocorreu uma exceção sem tratamento do tipo [Ô]System.Data.SqlClient.SqlException[Ô] em System.Data.dll
Informações adicionais: Sintaxe incorreta próxima a [ô]login[ô].
No SQL está tudo certinho.... Onde estou errando????
Abs
Fox
Uso o SQL 2016 e o VB2015. A partir da internet, comecei a desenvolver um programinha em VB. Logo no começo me deparei com um problema que não consigo resolver.
Parece simples, mas já tentei algumas alternativas sem sucesso e peço a ajuda de vocês.
A fonte de onde peguei o programa usou VB2015 e SQL 2012 (não sei se existe diferença na sintaxe ou compatibilidade.
Enfim, vamos ao problema.
Na conexão uso o seguinte:
Module conexao
Public conectar As SqlConnection
Public comando As SqlCommand
Public local As DataSet
Public adaptar As SqlDataAdapter
Public sql As String
Public resultado As Integer
Public registro As DataRow
Public dt As DataSet
Public cnn As String = [Ô]Data Source=Fox;Initial Catalog=Sistema;User Id=sa;Password=********;[Ô]
Public vnivel As String
Public contador As Integer
End Module
Quando rodo a seguinte rotina:
Private Sub TB_Senha_Validated(sender As Object, e As EventArgs)
If TB_Usuario.Text = [Ô][Ô] Or TB_Senha.Text = [Ô][Ô] Then
LB_Login.Text = [Ô]Insira um usário e uma senha[Ô]
TB_Usuario.Focus()
Exit Sub
End If
sql = [Ô]select * login when usuario=[Ô]
sql += [Ô][ô][Ô] & TB_Usuario.Text & [Ô][ô] and senha=[Ô]
sql += [Ô][ô][Ô] & TB_Senha.Text & [Ô][ô][Ô]
conectar.Open()
adaptar = New SqlDataAdapter(sql, conectar)
local = New DataSet
conectar.Close()
adaptar.Fill(local, [Ô]login[Ô])
resultado = local.Tables([Ô]login[Ô]).Rows.Count
If resultado > 0 Then
registro = local.Tables([Ô]login[Ô]).Rows(0)
vnivel = registro([Ô]nivel[Ô])
BTN_Login.Enabled = True
BTN_Login.Focus()
ElseIf resultado = 0 Then
BTN_Login.Enabled = False
BTN_Sair.Focus()
End If
End Sub
Ele apresenta erro no que marquei em negrito. Informa que:
Ocorreu uma exceção sem tratamento do tipo [Ô]System.Data.SqlClient.SqlException[Ô] em System.Data.dll
Informações adicionais: Sintaxe incorreta próxima a [ô]login[ô].
No SQL está tudo certinho.... Onde estou errando????
Abs
Fox
Olhe essa linha:
sql = [Ô]select * login when usuario=[Ô]
O certo seria:
Select * [b]FROM login where usuario[/b]....
sql = [Ô]select * login when usuario=[Ô]
O certo seria:
Select * [b]FROM login where usuario[/b]....
DS2T.... SHOW.... li e reli e não vi....
Brigadão... problema resolvido..... Valeu
Brigadão... problema resolvido..... Valeu
Tópico encerrado , respostas não são mais permitidas