RETORNA VALOR
ola pessoal, como faço para retorna um valor de um campo na minha base de dados em sql, coloquei da seguinte forma, mas tenho um duvida que esta em destaque:
Private Sub Usuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
[txt-color=#007100][ô]verifica autorização do usuário[/txt-color]
Dim sqlConnectString As String = [Ô]DataSource=.\SQLEXPRESS;AttachDbFilename=E:\PRGTIAL\TIAL\TIAL\BDTial.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
[txt-color=#007100] [ô] Inicia uma ligação à base de dados [/txt-color]
Using connection As New SqlConnection(sqlConnectString)
connection.StatisticsEnabled = True
[txt-color=#007100] [ô] Select Statement que irá mostrar todos os vendedores activos,
[ô] excepto o vendedor que será definido no parâmetro [/txt-color]
Dim SQLusuario As String = [Ô]SELECT * FROM TBusuario[Ô]
[ô] Define o DataAdapter e os parâmetros. O DataAdapter guarda a ligação, não
[ô] sendo necessário abrir com o comando connection.Open()
Dim dausuario As New SqlDataAdapter(SQLusuario, connection)
Dim dtusuario As New DataTable()
[ô] Preenche o Dataset com os valores da base de dados
dausuario.Fill(dtusuario)
Dim temp = TbUsuarioTableAdapter1.Autorizacao(usuariologado)
If temp Is Nothing Then
MsgBox([Ô]Utilizador não autorizado, favor verificar com o administrador[Ô], vbInformation, [Ô]Negado...[Ô])
[txt-color=#e80000] else
incluir = resultado do campo incluir da base de dados
salvar = resultado do campo salvar da base de dados
End If[/txt-color] End Using
Catch ex As Exception
MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Usuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
[txt-color=#007100][ô]verifica autorização do usuário[/txt-color]
Dim sqlConnectString As String = [Ô]DataSource=.\SQLEXPRESS;AttachDbFilename=E:\PRGTIAL\TIAL\TIAL\BDTial.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
[txt-color=#007100] [ô] Inicia uma ligação à base de dados [/txt-color]
Using connection As New SqlConnection(sqlConnectString)
connection.StatisticsEnabled = True
[txt-color=#007100] [ô] Select Statement que irá mostrar todos os vendedores activos,
[ô] excepto o vendedor que será definido no parâmetro [/txt-color]
Dim SQLusuario As String = [Ô]SELECT * FROM TBusuario[Ô]
[ô] Define o DataAdapter e os parâmetros. O DataAdapter guarda a ligação, não
[ô] sendo necessário abrir com o comando connection.Open()
Dim dausuario As New SqlDataAdapter(SQLusuario, connection)
Dim dtusuario As New DataTable()
[ô] Preenche o Dataset com os valores da base de dados
dausuario.Fill(dtusuario)
Dim temp = TbUsuarioTableAdapter1.Autorizacao(usuariologado)
If temp Is Nothing Then
MsgBox([Ô]Utilizador não autorizado, favor verificar com o administrador[Ô], vbInformation, [Ô]Negado...[Ô])
[txt-color=#e80000] else
incluir = resultado do campo incluir da base de dados
salvar = resultado do campo salvar da base de dados
End If[/txt-color] End Using
Catch ex As Exception
MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Você não deixou claro o trecho...
...pois até o momento, não sabemos o que o método Autorizacao retorna.
Dim temp = TbUsuarioTableAdapter1.Autorizacao(usuariologado)...pois até o momento, não sabemos o que o método Autorizacao retorna.
não sei dizer, pois esse é um modelo que peguei aqui no vbmania, esse usuariologado é um campo onde digito o nome do utilizador e essa autorizacao é uma query que fiz no bd, não sei se isso ajuda
vou tentar explicar diferente pode ser que ajude, esqueça o exemplo acima que coloquei, o que quero é o seguinte:
tenho 4 textbox
-nome
-endereço
-telefone
-ativo
gostaria que ao digitar o nome e pressionar enter fosse exibido nos campos abaixo os dados, que estão na bd em sql
tenho 4 textbox
-nome
-endereço
-telefone
-ativo
gostaria que ao digitar o nome e pressionar enter fosse exibido nos campos abaixo os dados, que estão na bd em sql
Veja se te ajuda
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = [Ô]SELECT * FROM SUA_TABELA WHERE Nome = [ô][Ô] & txtNome.Text & [Ô][ô][Ô]
cmd = New SqlClient.SqlCommand
Dim leitor As SqlClient.SqlDataReader = cmd.ExecuteReader
If leitor.Read = True Then
txtEndereco.Text = leitor.Item([Ô]CAMPO_DA_SUA_TABELA[Ô]).ToString
txtAtivo.Text = leitor.Item([Ô]CAMPO_DA_SUA_TABELA[Ô]).ToString
txtTelefone.Text = leitor.Item([Ô]CAMPO_DA_SUA_TABELA[Ô]).ToString
End If
leitor.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = [Ô]SELECT * FROM SUA_TABELA WHERE Nome = [ô][Ô] & txtNome.Text & [Ô][ô][Ô]
cmd = New SqlClient.SqlCommand
Dim leitor As SqlClient.SqlDataReader = cmd.ExecuteReader
If leitor.Read = True Then
txtEndereco.Text = leitor.Item([Ô]CAMPO_DA_SUA_TABELA[Ô]).ToString
txtAtivo.Text = leitor.Item([Ô]CAMPO_DA_SUA_TABELA[Ô]).ToString
txtTelefone.Text = leitor.Item([Ô]CAMPO_DA_SUA_TABELA[Ô]).ToString
End If
leitor.Close()
End Sub
preciso fazer mais alguma coisa, é que fiz como disse, mas esta a dar varios erros.
Sql = [Ô]SELECT * FROM TBUusuario WHERE Nome = [ô][Ô] & usuariologado & [Ô][ô][Ô]
cmd = New SqlClient.SqlCommand
Dim leitor As SqlClient.SqlDataReader = cmd.ExecuteReader
If leitor.Read = True Then
txtusuario = leitor.Item([Ô]Nome[Ô]).ToString
txtsenha.Text = leitor.Item([Ô]senha[Ô]).ToString
txtconfsenha.Text = leitor.Item([Ô]confsenha[Ô]).ToString
End If
leitor.Close()
Sql = [Ô]SELECT * FROM TBUusuario WHERE Nome = [ô][Ô] & usuariologado & [Ô][ô][Ô]
cmd = New SqlClient.SqlCommand
Dim leitor As SqlClient.SqlDataReader = cmd.ExecuteReader
If leitor.Read = True Then
txtusuario = leitor.Item([Ô]Nome[Ô]).ToString
txtsenha.Text = leitor.Item([Ô]senha[Ô]).ToString
txtconfsenha.Text = leitor.Item([Ô]confsenha[Ô]).ToString
End If
leitor.Close()
Quais os erros?
Error 1 [ô]System.Data.Sql[ô] is a namespace and cannot be used as an expression. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 52 13 TIAL
Error 2 [ô]cmd[ô] is not declared. It may be inaccessible due to its protection level. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 53 13 TIAL
Error 3 [ô]cmd[ô] is not declared. It may be inaccessible due to its protection level. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 54 53 TIAL
Error 4 Value of type [ô]String[ô] cannot be converted to [ô]System.Windows.Forms.TextBox[ô]. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 57 30 TIAL
são esses, desculpe é que sou novo em programação, espero que possa me ajudar
Error 2 [ô]cmd[ô] is not declared. It may be inaccessible due to its protection level. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 53 13 TIAL
Error 3 [ô]cmd[ô] is not declared. It may be inaccessible due to its protection level. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 54 53 TIAL
Error 4 Value of type [ô]String[ô] cannot be converted to [ô]System.Windows.Forms.TextBox[ô]. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 57 30 TIAL
são esses, desculpe é que sou novo em programação, espero que possa me ajudar
Coloca embaixo do Public Class SEU_FORMULARIO
Private sql As String
Private cmd As SqlClient.SqlCommand
tenta aÃ
Private sql As String
Private cmd As SqlClient.SqlCommand
tenta aÃ
agora dá somente um
Error 1 Value of type [ô]String[ô] cannot be converted to [ô]System.Windows.Forms.TextBox[ô]. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 62 30 TIAL
Error 1 Value of type [ô]String[ô] cannot be converted to [ô]System.Windows.Forms.TextBox[ô]. E:\PRGTIAL\TIAL\TIAL\Usuario.vb 62 30 TIAL
também esta a dar o seguinte erro:
executereader: connection property has not been initialized
executereader: connection property has not been initialized
Tópico encerrado , respostas não são mais permitidas