Professor, uma dúvida. como posso colocar uma senha antes de editar dados após o filtro, ex: eu faço um filtro entre datas e seleciono uma linha pra excluir, nesse ponto como adicionar uma senha de administrador?
Bom dia, pode colocar um if simples mesmo utilizando uma mensagem de inputbox: Dim Senha as String Senha = InputBox("Informe sua senha!", "SENHA") If Senha "123" Then Msgbox "Senha incorreta!",vbcritical, "SENHA" Exit sub End if
Bom dia, não consegui fazer meu banco de dados. No meu banco de dados queria fazer com que cada cliente tenha vários produtos/serviço, porém esses serviços eles são cadastrados na hora que o cliente vem por isso não tenho como cadastrar o serviço. Gostaria de saber como fazer esse banco de dados. Selecionando o cliente e inserindo os serviços e preços no manualmente
Boa Tarde Professor. Criei um formulário de cadastro para uma loja de informática e salvo os dados em tabela do access. Tenho um formulário que registra o histórico de consertos para cada cliente e salveis em uma tabela chamada historico no access. Criei um codigo para carregar os dados da tabela para o form mas só aparece a primeira linha da tabela. Gostaria se possivel uma video aula para ensinar como criar botões de navegação para visualizar o restante das linhas. Aguardo seu retorno e desde já agradeço sua atenção.
@@CanalSGP Certo, o filtro eu já usei mas gostaria de aprender a codificar os botões de navegação e acho que outras pessoas também aproveitariam. Segue a sugestão para essa video aula.
Luan, como faz a pesquisa para trazer o ID do último registro inserido no BD? No seu exemplo, quero que traga o ID 30 (último), sem que eu informe qualquer outra chave.
@@CanalSGP achei a solução na sua aula 25. Muito obrigado. Só não entendi um detalhe. Fiz a procura do máximo valor da coluna 2 do Access (minha ID) e consigo trazer o valor do máximo dessa coluna com rs(0). Esse rs(0) não seria o ID do Access? Se coloco rs(1) dá erro.
Boa noite, se refere a posição das colunas que retornou no SQL. Se o retorno é apenas uma coluna vai ser posição zero mesmo. Não tem relação direta com as colunas do Access, mas sim com os dados de retorno do recordset.
Mais uma Dúvida, estou tentando buscar pelo ultimo registro mas sempre da erro ja refiz varias varias vezes. olha só da uma olhadinha. Sub Pesquisar_conteiner() '\\\Pesquisar Conteiner/// 'On Error GoTo Erro Set rs = New ADODB.Recordset Módulo1.ConectarBD rs.Open "SELECT TOP 1 * FROM Conteiner WHERE RG=" & Cadastro.txt_RG.Text & " ORDER BY RG ASC", Conexao, adOpenKeyset, adLockReadOnly If rs.RecordCount = "1" Then
Cadastro.txt_nome.Text = rs!NOME Cadastro.CBo_transportadora.Text = rs!TRANSPORTADORA Cadastro.txt_veiculo_conteiner.Text = rs!PLACA Cadastro.txt_carreta1_conteiner.Text = rs!CARRETA1 Cadastro.txt_carreta2_conteiner.Text = rs!CARRETA2 'Cadastro.txt_conteiner1.Text = rs!CONTÊINER1 'Cadastro.txt_lacre1.Text = rs!LACRE1 'Cadastro.txt_conteiner2.Text = rs!CONTÊINER2 'Cadastro.txt_lacre2.Text = rs!LACRE2 End If If rs.RecordCount = "0" Then MsgBox "Não encontrado!", vbInformation, "PESQUISA" End If If rs.RecordCount > "1" Then MsgBox "Encontrado mais de um registro!", vbInformation, "PESQUISA" End If If Not rs Is Nothing Then rs.Clone Set rs = Nothing End If Módulo1.DesconectarBD Exit Sub Erro: MsgBox "Erro!", vbCritical, "ERRO" End Sub
Boa tarde, verifique se a coluna na tabela do Access está definida como tipo de dados sendo texto ou número. Porque pelo seu código vai pesquisar se estiver como número.
Parabens!!!!!! seus códigos são otimos, aprendo muito com suas aulas
Muito obrigado
Ótima Aula!!
Obrigado
Mais uma dúvida como seria o precedimento para clicar en uma linha da listbox e os dados carregarem nas textbox professor?
Boa tarde, acredito que já tenha encontrado outro vídeo sobre o tema.
Professor, uma dúvida. como posso colocar uma senha antes de editar dados após o filtro, ex: eu faço um filtro entre datas e seleciono uma linha pra excluir, nesse ponto como adicionar uma senha de administrador?
Bom dia, pode colocar um if simples mesmo utilizando uma mensagem de inputbox:
Dim Senha as String
Senha = InputBox("Informe sua senha!", "SENHA")
If Senha "123" Then
Msgbox "Senha incorreta!",vbcritical, "SENHA"
Exit sub
End if
@@CanalSGP SHOW!!!
Bom dia, não consegui fazer meu banco de dados. No meu banco de dados queria fazer com que cada cliente tenha vários produtos/serviço, porém esses serviços eles são cadastrados na hora que o cliente vem por isso não tenho como cadastrar o serviço.
Gostaria de saber como fazer esse banco de dados. Selecionando o cliente e inserindo os serviços e preços no manualmente
Bom dia, talvez trabalhar apenas com caixas de texto, mas cada serviço vai ser uma linha de cadastro.
Olá, tudo bem? vamos la mais uma dúvida, gostaria de carregar a listbox, mas para aparecer no topo da lista meu ultimo registro, é possivel?
Bom dia, acredito que com order by ID DESC consiga. No caso ordenando pelo ID dos registros.
@@CanalSGP vou tentar Obrigado professor
Boa Tarde Professor. Criei um formulário de cadastro para uma loja de informática e salvo os dados em tabela do access. Tenho um formulário que registra o histórico de consertos para cada cliente e salveis em uma tabela chamada historico no access. Criei um codigo para carregar os dados da tabela para o form mas só aparece a primeira linha da tabela. Gostaria se possivel uma video aula para ensinar como criar botões de navegação para visualizar o restante das linhas. Aguardo seu retorno e desde já agradeço sua atenção.
Boa noite, para este caso acredito que seja melhor trabalhar com um filtro, pesquisa é somente para critério exato.
@@CanalSGP Certo, o filtro eu já usei mas gostaria de aprender a codificar os botões de navegação e acho que outras pessoas também aproveitariam. Segue a sugestão para essa video aula.
ok
Luan, como faz a pesquisa para trazer o ID do último registro inserido no BD? No seu exemplo, quero que traga o ID 30 (último), sem que eu informe qualquer outra chave.
Boa tarde, acredito que o código SQL vai ser o mesmo.
@@CanalSGP achei a solução na sua aula 25. Muito obrigado. Só não entendi um detalhe. Fiz a procura do máximo valor da coluna 2 do Access (minha ID) e consigo trazer o valor do máximo dessa coluna com rs(0). Esse rs(0) não seria o ID do Access? Se coloco rs(1) dá erro.
Boa noite, se refere a posição das colunas que retornou no SQL. Se o retorno é apenas uma coluna vai ser posição zero mesmo. Não tem relação direta com as colunas do Access, mas sim com os dados de retorno do recordset.
@@CanalSGP shoooooow! Muito obrigadoooooo.
De nada
Mais uma Dúvida, estou tentando buscar pelo ultimo registro mas sempre da erro ja refiz varias varias vezes. olha só da uma olhadinha.
Sub Pesquisar_conteiner() '\\\Pesquisar Conteiner///
'On Error GoTo Erro
Set rs = New ADODB.Recordset
Módulo1.ConectarBD
rs.Open "SELECT TOP 1 * FROM Conteiner WHERE RG=" & Cadastro.txt_RG.Text & " ORDER BY RG ASC", Conexao, adOpenKeyset, adLockReadOnly
If rs.RecordCount = "1" Then
Cadastro.txt_nome.Text = rs!NOME
Cadastro.CBo_transportadora.Text = rs!TRANSPORTADORA
Cadastro.txt_veiculo_conteiner.Text = rs!PLACA
Cadastro.txt_carreta1_conteiner.Text = rs!CARRETA1
Cadastro.txt_carreta2_conteiner.Text = rs!CARRETA2
'Cadastro.txt_conteiner1.Text = rs!CONTÊINER1
'Cadastro.txt_lacre1.Text = rs!LACRE1
'Cadastro.txt_conteiner2.Text = rs!CONTÊINER2
'Cadastro.txt_lacre2.Text = rs!LACRE2
End If
If rs.RecordCount = "0" Then
MsgBox "Não encontrado!", vbInformation, "PESQUISA"
End If
If rs.RecordCount > "1" Then
MsgBox "Encontrado mais de um registro!", vbInformation, "PESQUISA"
End If
If Not rs Is Nothing Then
rs.Clone
Set rs = Nothing
End If
Módulo1.DesconectarBD
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub
Boa tarde, verifique se a coluna na tabela do Access está definida como tipo de dados sendo texto ou número. Porque pelo seu código vai pesquisar se estiver como número.
@@CanalSGP blz...
certo, minha coluna de pesquisa é pelo RG, alterei para formato de número, porem agora a resposta é que tem mais de um registro.
Bom dia, altere o código para texto e a coluna do Access também.
@@CanalSGP ficou espetacular!! Muito Obrigado!