Pesquisar na Comunidade

Bom dia, Estou utilizando um programa chamado Indusoft para criar programas supervisórios, e é a minha primeira experiência no mundo de VBScript. Eu até tenho uma certa experiência em banco de dados de access e conhecia a linguagem de VB, mas a interação entre os dois, confesso que estou tendo problemas. Vocês conhecem alguma apostila ou manual ensinando melhor essa interação? Principalmente nos comandos de Inserir, Apagar e Consultar.... Para inserir, eu até que estou conseguindo um pouco usando o $DBInsert, mas principalmente realizar a consulta tá fogo, e não acho nenhuma ajuda na internet, porque tudo relaciona a SQL e eu queria usar diretamente o Access nos programas...

Boa noite.Tenho uma consulta que tem uma expresão para me dar a idade em anos com base na data de nascimentoa expresão que apliquei é data()-[datanascimento]/365 que me retorna a idade em anos.agora queria fazer um formulario que tivesse uma textbox onde eu insiro a idade que quero e colocar um botão para me retornar para o relatorio todas as pessoas que tem o numero de idade que inserir nessa textbox desacopolada.Sei que tenho de colocar no campo da consulta onde tenho a expresão um critério para retornar para o relatório todas as pessoas da idade que inserir na textbox do formulário.Mas a minha dificuldade é que não faço a menor ideia do critério que tenho que colocar no campo da expresão para retonar apenas as pessoas com a idade colocada no textboxAlguem me pode dar uma ajuda.Obrigado

BD Access e VB.Net 2012 Como fazer que ao clicar no botão Salvar (seja executada a rotina de salvar o registro normalmente) e ao mesmo tempo exibir em uma label ou textbox a numeração atual da quantidade de registros que foram salvos, somando +1 a cada clique (quando um novo registro for salvo)? E subtrair -1 dessa mesma numeração caso seja clicado no botão Excluir Não pode ser feito com variável pois essa numeração deve permanecer gravada mesmo depois do programa ser encerrado, e ao tornar abri-lo essa numeração deve ser exibida (em espera para somar ou subtrair 1 conforme o botão que for clicado) O problema é como guardar essa numeração? Acredito que deva ser no BD onde os demais registros serão guardados também. Mas como fazer isso? Imaginando o funcionamento dessa ação teria que usar o comando Insert para salvar (do código do botão Salvar)? E a cada soma ou subtração?! Manteria o Insert ou usaria o comando Update??? Ou nada disso??? Tô completamente no escuro Código para somar/subtrair 1 Public Class Form1 Private Sub btnAcrescenta_Click(sender As Object, e As EventArgs) Handles btnAcrescenta.Click Label1.Text = Label1.Text + 1 End Sub Private Sub btnDiminui_Click(sender As Object, e As EventArgs) Handles btnDiminui.Click If (Label1.Text > 0) Then Label1.Text = Label1.Text - 1 ElseIf (Label1.Text <= 0) Then Label1.Text = Label1.Text End If End Sub End Class

Olá moçada. Preciso de um help de vocês. Tenho 2 consultas (com algumas sub-consultas cada), que adiciona registros em uma tabela. Quando eu executo a consulta diretamente pelo access, o tempo de processamento é normal (segundos), mas quando eu executo a mesma consulta por VBA (ADO, OLEDB.12.0) está demorando muito (minutos). Alguem teria uma luz? Desde já agradeço pela colaboração. Forte abraço. Junior

Boa tarde a todos. Sou iniciante em programação e dentre minhas possibilidades encontrei um determinado erro que infelizmente não consegui a solução ainda! Estou desenvolvendo um programa simples para controle de registros de documentos Dentre as funções do programa em um determinado momento eu preciso gerar um relatorio dos documentos que estão em determinados locais chamados de PDD Cada PDD é uma coluna no access! o mesmo programa foi desenvolvido em excel e funciona perfeitamente. porem de momento surgiu tal necessidade! O comando abaixo mostra o que esta sendo feito e gerando o erro! Daria certo se eu trocasse o ( rs.Open "Select *from Base where pdd='X'", db, 3, 3) por rs.Open "Select *from Base where PDD_02='X' ", db, 3, 3 porem não é viavel tendo em vista que existem 60 pontos Sub PesquisaPDD() ListView2.ListItems.Clear Dim pdd As Variant pdd = Form1.cmbpdd.Text Call ConectaDB rs.Open "Select *from Base where pdd='X'", db, 3, 3 Do Until rs.EOF Set Item = ListView2.ListItems.Add(, , rs!Codigo) Item.SubItems(1) = "" & rs(2) Item.SubItems(2) = "" & rs(3) Item.SubItems(3) = "" & rs(4) Item.SubItems(4) = "" & rs(5) rs.MoveNext Loop Call FecharDB End Sub

Ola, sou iniciante em banco de dados, estou no primeiro ano da faculdade de tecnologia da informação, estou com uma dúvida, tenho um banco de dados aqui que foi feito em access, eu consigo até exportar ele pra umas tabelas em excel, mas eu queria um sistema de gerenciamento de banco de dados, que tivesse uma interface mais amigável, alguma coisa que pudesse acessar esse banco de dados que eu tenho aqui, mas que usuários normais pudessem acessar também, porque é meio complexo ficar consultando os dados pelo access, será que o PostgreSQL permite usuários comuns acessarem este banco de dados? ou existe alguma outra ferramenta gratuita para isso? desde já agradeço a ajuda !

Bom dia tenho um sistema que faz relatório por datas, no rodapé do relatorio tem campos que fazem a soma dos valores compreendidos entre as datas, mas queria que dois dos campos apresentem apenas o ultimo campo não nulo das datas selecionadas os campos são FIA´S DISTRIBUIDAS E FIA´S EM TRATAMENTO. alguém me pode dar uma ajudinha https://drive.google.com/file/d/0B1OCsirRHL40V28zVnpOdG9SYmc/view?usp=drivesdk

Eu estou fazendo um projeto no Visual Studio integrado com o banco de dados Access. Meu objetivo é um controle de salas em que o professor que estiver dentro de algum laboratório cadastre seu nome, matéria e horário em que acessou o laboratório, dentro de cada laboratório tem 20 computadores com 20 relatórios pra cada um em que será marcado se algum micro está com problema etc, já programei todos relatórios para serem salvos no Access Vou deixar aqui a imagem de exemplo: O meu intuito era: quando o usuário clicasse no erro resolvido o programa iria limpar a tabela do banco de dados que representasse o computador 1, mas quando eu fecho o form a especificação do erro não fica salva Alguém poderia me ajudar com isso? Não sei mesmo o que fazer

Boa tarde Pessoal, gostaria de esclarecer uma dúvida no VBA, o código a baixo envia o e-mail , porém não está enviando com a imagem no corpo do e-mail! Você conseguem me ajudar? Obs: é uma banco access com uma imagem que eu pego no arquivo do computador, quando eu comecei a fazer o código a idéia seria pegar um relatório do access e colar no corpo do e-mail como imagem, mas não consegui desenvolver o código! Private Sub SeuBotao_Click() Dim rst As DAO.Recordset Dim strDestinatarios Dim strTitulo Dim strMensagemCorpoDoEmail Set rst = CurrentDb.OpenRecordset("Con_email") Do Until rst.EOF strDestinatarios = strDestinatarios & rst("e-mail") & ";" rst.MoveNext Loop strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1) strTitulo = "Faturas Wappa à vencer" strMensagemCorpoDoEmail = "www.xxx.com.br" & vbCrLf & _ "xxxxxxxx" & vbCrLf & _ strMensagemCorpoDoEmail = "<img src=cid C:\Users\xxxxx.PNG>"

Boa noite galera gostaria de uma ajuda pois sou novato em programação, estou tentando criar um site em html para consultar um cliente na base de dados que esta na mesma pasta no meu PC local em access. o site em html eu fiz mais para ele consultar o cliente quando eu digitar o código no site eu não sei como fazer. alguém pode ajudar ? <!DOCTYPE HTML > <html> <head> <title>Busca de Clientes</title> <link rel='stylesheet' type='text/css' href='estilo.css'> </head> <body> <div id = "topo" align='center'> </a> <h1 id='bb' align='center'>Busca de Clientes</h1> </div> <hr/> <h3>Informe a Código do cliente.</h3> <p align='justify'> </p> <div id='formulario'> <form> <label>Código: </label><input><br/> <br/> <button>Consultar</button> <br/> <hr/> </form> </div> <ul> <li>Código: </li> <li>Nome: </li> <li>Endereço: </li> <li>Conta: </li> <li>Valor: </li> </ul> </body> </html>

Boa noite galera gostaria de uma ajuda pois sou novato em programação, estou tentando criar um site em html para consultar um cliente na base de dados que esta na mesma pasta no meu PC local em access. o site em html eu fiz mais para ele consultar o cliente quando eu digitar o código no site eu não sei como fazer. alguém pode ajudar ? <!DOCTYPE HTML > <html> <head> <title>Busca de Clientes</title> <link rel='stylesheet' type='text/css' href='estilo.css'> </head> <body> <div id = "topo" align='center'> </a> <h1 id='bb' align='center'>Busca de Clientes</h1> </div> <hr/> <h3>Informe a Código do cliente.</h3> <p align='justify'> </p> <div id='formulario'> <form> <label>Código: </label><input><br/> <br/> <button>Consultar</button> <br/> <hr/> </form> </div> <ul> <li>Código: </li> <li>Nome: </li> <li>Endereço: </li> <li>Conta: </li> <li>Valor: </li> </ul> </body> </html>

Ola boa tarde, tenho que fazer com que dois computadores (ao mesmo tempo) usando excel cadastre informações no arquivo MDB. Porem estou tendo problema para fazer isso porque se um estiver fazendo um cadastro e o outro for fazer no mesmo momento fica dando um dizendo que planilha já está sendo usada. O que fazer? Informações: Arquivo de Excel com Macro em dois computadores (acessando informações do arquivo mdb em DAO) Defeito: Erro 3054 (arquivo já está sendo usando por outro usuário em outro computador) Tipo de Conexão.

Olá, Pessoal. Essa é a minha primeira vez aqui no fórum e também em VB .Net + Access. Eu tenho uma cadastro de funcionário onde é exibido os dados de uma tabela do banco de dados do access quando o form é carregado, até aqui tudo bem. Com OleDb.OleDbDataReader eu consegui exibir os dados nos campos do formulário e também preencher os combobox com campos da tabela. Porém não estou conseguindo adicionar, editar e excluir os dados do banco de dados. Esse é o código que preenche os campos do formulário quando o form é carregado: Private Sub IDServidor_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles IDServidor.TextChanged Dim LeituraBD As OleDb.OleDbDataReader Dim ComandoSQL As String If Len(IDServidor.Text) = 6 Then 'Armazena na variável o comando que fará a consulta SQL no BD Access ComandoSQL = "select * from TB_Servidores where IDServidor like '" & IDServidor.Text & "'" 'Chama a rotina que faz a conexão com o BD Call Conectar() 'Atribui a variável objeto de BD a execução dos comandos SQL Consulta = New OleDb.OleDbCommand(ComandoSQL, Banco) LeituraBD = Consulta.ExecuteReader LeituraBD.Read() 'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai 'On Error Resume Next 'Preenche Formulário Matrícula.Text = CNullToStr(LeituraBD.Item("Matrícula")) 'Matrícula Regime.Text = CNullToStr(LeituraBD.Item("Regime")) 'regime Nome.Text = CNullToStr(LeituraBD.Item("nome")) 'nome Cargo.Text = CNullToStr(LeituraBD.Item("cargo")) 'cargo Função.Text = CNullToStr(LeituraBD.Item("função")) 'função Unidade.Text = CNullToStr(LeituraBD.Item("unidade")) 'unidade Lotação.Text = CNullToStr(LeituraBD.Item("lotação")) 'lotação Admissão.Text = CNullToStr(LeituraBD.Item("admissão")) 'admissão Jornada.Text = CNullToStr(LeituraBD.Item("jornada")) 'jornada de trabalho CPF.Text = CNullToStr(LeituraBD.Item("cpf")) 'cpf Pasep.Text = CNullToStr(LeituraBD.Item("pis/pasep")) 'pasep Nascimento.Text = CNullToStr(LeituraBD.Item("dt nascimento")) 'nascimento Observação.Text = CNullToStr(LeituraBD.Item("Observação")) 'Observações Call Desconecta() 'Configura o Display de Registro Atual RegistroAtual.Text = IDServidor.SelectedIndex + 1 End If End Sub Essa é uma função que eu criei para converter os valores null do banco de dados para string: Function CNullToStr(ByVal Variável) As String 'Converte uma variável de banco de dados com valor NULL para uma STRING vazia On Error Resume Next If Variável Is DBNull.Value Then CNullToStr = "" Else CNullToStr = Variável End If End Function

Preciso importar vários arquivos de excel para o access usando o vba, sou novo na ferramenta e não sei como programar. Já consultei vários foruns e todas as soluções que tento dão problema alguém pode me ajudar? preciso que vários arquivos de diversos meses sejam colocados dentro de uma tabela que se chama "consolidada" dentro de um banco de dados chamado "rec.accdb". Gostaria de uma macro que pudesse puxar todos os arquivos. eles tem a mesma estrutura e campos.

Preciso fazer uma consulta inusitada, tenho duas tabelas com a seguinte relação (anexo). O select da minha consulta está assim: SELECT complementar.Condutor, condutores.Nome, complementar.Condutor_2, condutores.Nome FROM condutores INNER JOIN complementar ON (condutores.Matricula=complementar.Condutor) AND (condutores.Matricula=complementar.Condutor_2); Na verdade tenho duas entradas na tabela complementar para condutor, e quero que na consulta ele mostre o nome de ambos, como faço isso?

Pessoal, Bom Dia ! Sou novo aqui no Fórum, ultimamente tenho trabalhado bastante com demandas de automatização em planilhas de Excel. Estou com o seguinte problema: Criei uma planilha com uma interface simples onde os valores de algumas células serão atualizadas como novos registros em um Banco de Dados Access, porém ao verificar os valores das variáveis, os valores estão aparecendo como 0, ou 00:00:00 horas e 30/12/1899 para datas, sendo que os registros nas células do excel estão preenchidas corretamente e devidamente formatadas. A única variável que traz corretamente é a informação do usuário que eu pego ObjNetwork.UserName, todas as demais vindas do Excel, vem com valores zerados. Aparentemente o conexão com o Banco de Dados esta funcionando corretamente, pois os valores estão sendo registrados. Utilizo o seguinte código para associar as informações; Dim vdata As Date Dim vOR As Integer vOR = Sheets("Formulario").Range(D5).Value vdata = Sheets("Formulario").Range(D3).Value ........ objRecordSet.AddNew objRecordSet("OR") = vOR objRecordSet("Data") = vdata Se alguém tiver uma luz para me ajudar !!! Obrigado Hugo Santos

Bom dia, Criei uma aplicação em access 64bits, porém gostaria de instalar e utilizar em um notebook 32bits. Existe alguma maneira? Estou pesquisando porém não encontro alternativas.

Pessoal, alguém pode me ajudar, estou desenvolvendo um BD em Access, e preciso abrir um formulário "B" a partir do Formulário "A", porém deve o formulário "B" posicionar o mesmo registro do formulário "A". Usei o código abaixo, porem o Access retorna uma mensagem da seguinte maneira "TIPO DE DADOS INCOMPATÍVEL NA EXPRESSÃO DE CRITÉRIO" Private Sub Bt_ContasPagar_Click() On Error GoTo Err_ContasPagar_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Frm_Cont_ContasPagar" stLinkCriteria = "[NrMovimento]=" & Me![NrMovimento] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_ContasPagar_Click: Exit Sub Err_ContasPagar_Click: MsgBox Err.Description Resume Exit_ContasPagar_Click End Sub Haja vista que o campo "NrMovimento" em ambos os formulários são da mesma tabela. Grato.

Bom dia Pessoal, Estou precisando criar uma aplicação que trabalha com 3 tabelas: Permissões: Nesta tabela tem as permissões de "cadastrar cliente, editar cliente, excluir cliente, cadastrar usuário, editar usuário, excluir usuário" Grupos: Aqui tem os grupos "Administrador, Usuário" Usuários: Nesta tabela ficam o cadastros dos usuários, com login, senha e afins Eu pesquisei e até agora não consegui fazer um tipo de relação da seguinte forma: 1- Na tabela de permissões, são listadas aquelas acima 2- Na Tabela Grupos, em cada grupo ele lista as permissões informadas e inclui uma checkbox, para informar se ela está ativa ou não para aquele grupo 3- Na tabela usuários, se relacionará com a Tabela grupo. Ou seja, sempre um usuário admin poderá fazer tudo, enquanto um normal apenas pode cadastrar e tal Poderiam me ajudar por favor?

Olá a todos, Estou a começar na manipulação de BD em SQL, conheço o básico para me ir desenrascando, no entanto tenho uma BD com muitas (cerca de 500) tabelas e tenho que saber em que tabelas estão registos que pretendo eliminar. Tenho registos que foram inseridos, erradamente pelo operador, através de um formulário do MS ACCESS. Pretendo apagar esses registos através da BD para não aparecerem quando é consultado o programa. Não sei onde estão os campos... Há forma de descobrir???? Agradeço desde já a atenção que possam disponibilizar à minha questão. Bem hajam! Cmpts, Maria Catita

eu possuo um banco de dados em access com duas tabelas uma chamada TB_Data_Producao onde eu armazeno todos os dados de produção referentes ao tempo (intervalos. data, turno e afins) e outra tabela chamada Producao onde eu recebo a chave estrangeira de TB_Data_Producao segue o codigo: sCommand = "INSERT INTO [Producao] (Att, Producao, Acumulada, Nome_Do_Produto, Data_Producao ) VALUES (""" & ATT & """,""" & Producao & """,""" & Acumulada & """,""" & NomeProd & """, '(SELECT RegistraDia FROM TB_Data_Producao WHERE Data = """ & Data & """ AND Intervalo_De_Tempo = """ & Intervalo & """)"")" eu pretendo pegar esta chave estrangeira dando match na data e no intervalo de tempo, ambos vem nas seguintes formataçoes Data (date) dd/mm/aaaa , Intervalo (string) "hh : mm - hh : mm " e eu recebo o seguinte erro: erro de sintaxe na sequencia de caracteres na expressao de consulta '(SELECT RegistraDia FROM TB_Data_Producao WHERE Data = "23/07/2015" AND Intervalo_De_tempo = "10 : 00 - 11 : 00" )")" , já tentei trocar virgulas já tentei tirar campos , já tentei deixar sem os parenteses, já tentei por o nome da tabela.campo já tentei por colchetes nos campos mas sempre aparece o mesmo erro

Olá, Preciso fazer um ''formulário'' ou alguma do gênero que eu posso criar um link para abrir um registro de um formulário. tipo uma tabela que posso clicar e abrir um formulário no registro da linha. tem como fazer isso no access? Estou montando um sistema de laudo eletrônico para empresa e quero melhorar a parte de pesquisa para abrir os fomulários. Muito obrigado pela ajuda.

Boa Tarde a todos (as)! Estamos querendo fazer um questionário para os colegas da empresa responderem e assim termos informações pessoais de cada um para um planejamento às homenagens ou eventos de comemoração. São perguntas pessoais sobre família, preferencias, etc. Por exemplo: é aniversário da filha de um dos colegas. Mandar uma mensagem ao colega felicitando. Teria que ser algo que somente o empregado visualizasse seu questionário, não os demais, para melhor privacidade. que ao acessar o aplicativo, abrisse uma caixa de texto para digitar sua matricula e após isso iniciasse a visualização do questionário e digitação das respostas. De fácil manuseio com relação às respostas para que possamos tabulá-las e podermos trabalhar com essas informações, como uma planilha do excel. Solicito ajuda para quem conhecer ou tiver um aplicativo com estas características, sendo este um dbe para que eu possa fazer as adequações necessárias. A ideia é semelhante há um QUIZ... Obrigado

Como posso fazer no access a seguinte função do SQL? CASE WHEN DT.data_AAAAMMDD IN ('20150416','20150521','20150618','20150716','20150820','20150917','20151015','20151119','20151217') THEN 'DIA AÇÃO' ELSE 'DIA NORMAL' END OBRIGADA

Boa tarde povo do Fórum. estou com o seguinte problema. Quando eu coloco meus formulários para abrir em pop-up eles não estão abrindo e a tela está ficando em branco. Alguém sabe o que poderia ser? Obrigado.