AUTO PREENCHIMENTO
Ola amigos
Estou a desenvolver um programa em VBA e estou com a seguinte duvida:
Quando faço login para entrar no programa, no form principal é preenchida uma label com o ID do utilizador.
A partir dessa ID eu queria que fossem preenchidos automaticamente outras labels como o nome do utilizador, a categoria dele, a foto, etc
como faço isso?
Estou a desenvolver um programa em VBA e estou com a seguinte duvida:
Quando faço login para entrar no programa, no form principal é preenchida uma label com o ID do utilizador.
A partir dessa ID eu queria que fossem preenchidos automaticamente outras labels como o nome do utilizador, a categoria dele, a foto, etc
como faço isso?
Qual a base de dados?
Tem conhecimento em execução de expressões SQL em alguma base de dados?
Tem conhecimento em execução de expressões SQL em alguma base de dados?
A base de dados está em Acess!
Simples.
De um select com o filtro igual a este ID.
Select [campo1],[campo2],[campo3],... from [TabelaDados] where [CampoID] = Label
De um select com o filtro igual a este ID.
Select [campo1],[campo2],[campo3],... from [TabelaDados] where [CampoID] = Label
VELDRAME dê-me o seu email para lhe enviar um print do meu form!
Eu já tentei fazer isso mas não consegui
Agora a minha base de dados está em SQl
O objectivo é este:
1.º O utilizador faz login
2.º o valor que introduzir no username é automaticamente inserido no label1 do form principal
3.º após esse valor ser inserido, as labels 2,3,4,5 serão preenchidas com os dados do utilizador da tabela utilizadores.
Eu já tentei fazer isso mas não consegui
Agora a minha base de dados está em SQl
O objectivo é este:
1.º O utilizador faz login
2.º o valor que introduzir no username é automaticamente inserido no label1 do form principal
3.º após esse valor ser inserido, as labels 2,3,4,5 serão preenchidas com os dados do utilizador da tabela utilizadores.
Eu coloco esse codigo no botao entrar do formulario login
Dim cnSQL As SqlConnection
Dim cmSQL As SqlCommand
Dim drSQL As SqlDataReader
Dim strSQL As String
Try
[ô]// Cria a instrução SELECT para consulta
strSQL = [Ô]SELECT NOME, SENHA, USUARIO_ID FROM USUARIO WHERE NOME = [ô][Ô] & Me.TNome.Text.ToUpper & [Ô][ô] AND SENHA = [ô][Ô] & Me.TSenha.Text & [Ô][ô][Ô]
cnSQL = New SqlConnection(strConn)
cnSQL.Open()
cmSQL = New SqlCommand(strSQL, cnSQL)
drSQL = cmSQL.ExecuteReader(CommandBehavior.SingleRow Or CommandBehavior.CloseConnection)
With drSQL
[ô]//verifica se há linhas no datareader
If .HasRows Then
[ô]//inicia a leitura
.Read()
My.Forms.FrmMenu.label1.text = .GetString(0) [ô]// Nome Usuario
[ô]// Aqui é so adicionando o que precisar
End If
[ô]//Fecha o DataReader e a conexao
.Close()
Else
MsgBox([Ô]Usuário/Senha Inválidos! Tente Novamente ...[Ô], MsgBoxStyle.Information, [Ô]Informação:[Ô])
End If
End With
[ô]// fecha e limpa objetos
cnSQL.Close()
cmSQL.Dispose()
cnSQL.Dispose()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro:[Ô])
Exit Sub
End Try
Se precisar de mais ajuda add msn suporte.intech@gmail.com
Dim cnSQL As SqlConnection
Dim cmSQL As SqlCommand
Dim drSQL As SqlDataReader
Dim strSQL As String
Try
[ô]// Cria a instrução SELECT para consulta
strSQL = [Ô]SELECT NOME, SENHA, USUARIO_ID FROM USUARIO WHERE NOME = [ô][Ô] & Me.TNome.Text.ToUpper & [Ô][ô] AND SENHA = [ô][Ô] & Me.TSenha.Text & [Ô][ô][Ô]
cnSQL = New SqlConnection(strConn)
cnSQL.Open()
cmSQL = New SqlCommand(strSQL, cnSQL)
drSQL = cmSQL.ExecuteReader(CommandBehavior.SingleRow Or CommandBehavior.CloseConnection)
With drSQL
[ô]//verifica se há linhas no datareader
If .HasRows Then
[ô]//inicia a leitura
.Read()
My.Forms.FrmMenu.label1.text = .GetString(0) [ô]// Nome Usuario
[ô]// Aqui é so adicionando o que precisar
End If
[ô]//Fecha o DataReader e a conexao
.Close()
Else
MsgBox([Ô]Usuário/Senha Inválidos! Tente Novamente ...[Ô], MsgBoxStyle.Information, [Ô]Informação:[Ô])
End If
End With
[ô]// fecha e limpa objetos
cnSQL.Close()
cmSQL.Dispose()
cnSQL.Dispose()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro:[Ô])
Exit Sub
End Try
Se precisar de mais ajuda add msn suporte.intech@gmail.com
Segue.
eric.beltrame@gmail.com
eric.beltrame@gmail.com
Ola amigos
bem após alguma pesquisa consegui escrever o seguinte codig:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conexao As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sqlstr As String
conexao.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Sandro Maia\Desktop\Database31.accdb[Ô]
conexao.Open()
sqlstr = [Ô]SELECT utilizador, nome FROM utilizadores WHERE id_utilizador = [ô] [Ô] & TextBox2.Text & [Ô] [ô][Ô]
da = New OleDb.OleDbDataAdapter(sqlstr, conexao)
da.Fill(ds, [Ô]utilizadores[Ô])
If ds.Tables([Ô]utilizadores[Ô]).Rows.Count > 0 Then
Label11.Text = ds.Tables([Ô]utilizadores[Ô]).Rows(0).Item(2)
Label14.Text = ds.Tables([Ô]utilizadores[Ô]).Rows(0).Item(3)
Else
MsgBox([Ô]Utilizador não cadastrado[Ô])
End If
conexao.Close()
End Sub
mas quando clico no botao surge a seguinte mensagem em da.Fill(ds, [Ô]utilizadores[Ô]).: [txt-color=#e80000]Tipo de dados incompatÃvel na expressão de critério.[/txt-color]
O que está errado? vejam o ficheiro em anexo
Obrigado
bem após alguma pesquisa consegui escrever o seguinte codig:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conexao As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sqlstr As String
conexao.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Sandro Maia\Desktop\Database31.accdb[Ô]
conexao.Open()
sqlstr = [Ô]SELECT utilizador, nome FROM utilizadores WHERE id_utilizador = [ô] [Ô] & TextBox2.Text & [Ô] [ô][Ô]
da = New OleDb.OleDbDataAdapter(sqlstr, conexao)
da.Fill(ds, [Ô]utilizadores[Ô])
If ds.Tables([Ô]utilizadores[Ô]).Rows.Count > 0 Then
Label11.Text = ds.Tables([Ô]utilizadores[Ô]).Rows(0).Item(2)
Label14.Text = ds.Tables([Ô]utilizadores[Ô]).Rows(0).Item(3)
Else
MsgBox([Ô]Utilizador não cadastrado[Ô])
End If
conexao.Close()
End Sub
mas quando clico no botao surge a seguinte mensagem em da.Fill(ds, [Ô]utilizadores[Ô]).: [txt-color=#e80000]Tipo de dados incompatÃvel na expressão de critério.[/txt-color]
O que está errado? vejam o ficheiro em anexo
Obrigado
Tópico encerrado , respostas não são mais permitidas