Fox_110106

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

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 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