Fox_110106
-
Total de itens
3 -
Registro em
-
Última visita
Posts postados por Fox_110106
-
-
Problema resolvido.... achei o erro....
sql = "select * FROM login WHERE usuario="
-
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 ModuleQuando 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 Ifsql = "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.CountIf 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 SubEle 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
multiline x textbox
em Visual Basic
Postado
Prezados,
A dúvida é até certo ponto boba, mas como estou aprendendo, não custa apresentá-la.
Instalei o Visual Studio 2015 e tudo funcionava perfeitamente. Nas TextBox aparecia uma pequena seta, onde podia optar por multiline ou não.
De repente, não sei o que fiz e a tal seta sumiu. Ainda posso alterar o tipo via propriedades, mas gostaria de saber qual a besteira que fiz.
Alguém já passou por isto.
Obrigado
Fox_Rj