Search the Community

Sou novato em access e vba. Estou utilizando uma textbox e gostaria de colar vários nomes na textbox e ao clicar no botão salvar gostaria que fosse inserido todos os valores na tabela, sendo cada nome como um registro, ou seja, incluir em lote ao invés de um por um. Se existir outra forma diferente da textbox também é válido. Tal propósito é devido um sistema de novos colaboradores que tenho que criar. Já criei 80%, mas está faltando essa parte, uma vez que, tentei de várias formas mas não consegui e estou precisando muito dessa ajuda. Tentei inserir a imagem do código que eu fiz, mas não foi possível devido ao tamanho. Desde já agradeço.

Boa noite pessoal, Esbarrei em um novo problema com consultas no meu sistema. Tenho um formulário no sistema que deverá apresentar todos os materiais utilizados em uma determinada Venda e seus respectivos estoques obtidos através da soma das entradas e saidas do estoque. Para isso devo buscar os dados em 3 tabelas do banco de dados sendo elas VendasProdutos, Composicao, Materiais e Estoque Eis que surge meu problema, como posso ter vários produtos na venda e alguns produtos usam os mesmos materiais, a consulta está retornando com os materiais duplicados, quando o que eu gostaria era que somasse de acordo com cada material. A query que estou usando para teste no acesso é a seguinte: SELECT Composicao.IdMaterial, materiais.descricao, Sum(Estoque.Quantidade) AS Estoque, [VendasProdutos]![Quantidade]*[Composicao]![Quantidade] AS TotalUtilizado FROM (VendasProdutos LEFT JOIN (materiais RIGHT JOIN Composicao ON materiais.ID = Composicao.IdMaterial) ON VendasProdutos.IdProduto = Composicao.IdProduto) LEFT JOIN Estoque ON materiais.ID = Estoque.IdMaterial GROUP BY Composicao.IdMaterial, materiais.descricao, [VendasProdutos]![Quantidade]*[Composicao]![Quantidade], VendasProdutos.IdVenda HAVING (((VendasProdutos.IdVenda)=1)); A consulta está retornando os dados dessa forma: E eu gostaria de que agrupasse por ex: ID Descricao Estoque TotalUtilizado 1 Capa Agenda 34 10 2 Miolo Agenda 27 5 Alguem Sabe como posso fazer isso? Desulpem pelo post gigante, mas não sabia como explicar melhor.

Boa tarde, Sou novo no fórum e tambem em programação SQL, no entanto não desisto de procurar soluções e tentar aprender cada vez mais e melhor. Venho aqui pedir ajuda sobre o seguinte assunto: Estou trabalhando com Access e a tabela em questão apresenta as operações realizadas (tempo de trabalho) no caso de ter interrupção, a interrupção tem a durabilidade desde o fim da operação até ao inicio da proxima operação Então sobre esta tabela, faço a seguinte pesquisa para saber, quantas interrupções tenho e a que horas interromperam: Dei o nome de "Inicio_interrupcoes" SELECT dbo_opr.cod_gpt, dbo_opr.cod_pt, dbo_opr.un_pt, dbo_opr.data_ini, dbo_opr.data_fim, dbo_opr.cod_interrup, * FROM dbo_opr WHERE (((dbo_opr.cod_interrup) Is Not Null)); Este comando, executa corretamente, retornando todos os registos em que cod.interrup seja não nulo. Seguindo agora o código onde preciso milagrosamente de ajuda: SELECT inicio_interrupcoes.cod_gpt, inicio_interrupcoes.cod_pt, inicio_interrupcoes.un_pt, inicio_interrupcoes.data_fim, inicio_interrupcoes.cod_interrup FROM dbo_opr INNER JOIN inicio_interrupcoes ON (dbo_opr.cod_gpt = inicio_interrupcoes.cod_gpt) AND (dbo_opr.cod_pt = inicio_interrupcoes.cod_pt) GROUP BY inicio_interrupcoes.cod_gpt, inicio_interrupcoes.cod_pt, inicio_interrupcoes.un_pt, inicio_interrupcoes.data_fim, inicio_interrupcoes.cod_interrup, dbo_opr.data_ini HAVING (((dbo_opr.data_ini)>[inicio_interrupcoes].[data_fim])); Passando agora a explicar o que preciso: Na primeira consulta "Inicio_Interrupcoes" pesquiso todas os registos que contenham o campo "cod_interrup" preenchido. Na segunda consulta respeitando os campos "cod_gpt" e "cod_pt", pretendo obter a data de inicio da proxima operação que nesta consulta representa o fim da interrupção. Segue exemplo básico: considerem linha 2 e linha 3 da imagem: Linha 2 representa produção -> Inicio = 10/01/2019 08:21:13 Fim = 10/01/2019 12:54:30 Como o registo tem "Cod_interrup" considero que "10/01/2019 12:54:30" representa o inicio da interrupcão e o proximo inicio neste caso "10/01/2019 14:04:53" será o fim da interrupção e inicio da Produção. Alguem me pode dar uma força neste assunto? Obrigado, ficarei muito grato.

Boa tarde. Estou querendo montar uma pagina de html que conect ao banco de dados do access para consultar e cadastrar coisas dentro dele. Ja pesquisei variaa maneiras de fazer isso mais não estou conseguindo. O motivo por usar banco de dados mdb é porque a empresa que trabalho não posso instalar outros programas. Mais não estou conseguindo conectar.

Bom dia meu amigos desenvolvedores, Sou desenvolvedor há alguns anos e nunca me deparei e nem imaginei trabalhar desenvolvendo scripts de automação, ou seja, sou o cara que faz o meio de campo entre um equipamento (bioquímico, hematológico, que processas diversos tipos de exames) com um sistema web. Eu acostumado a desenvolver aplicações front e back end, trabalhando com desenvolvimento totalmente diferente do que estava habituado. Programadores iniciantes, estudantes de tecnologia, se preparem pois isso é trabalhar com tecnologia. Chega de firulas, vou direto ao ponto. Preciso da ajuda de vocês, estou com um problema que hoje não sei como resolver, tenho em mãos um equipamento que processa amostras de sangue e o resultado são enviados a um banco de dados. Até aí tudo bem, muitos vão pensar, "É facil, o comando select da linguagem SQL traz os resultados do banco." Sim, seria facil se fosse uma banco open source, ou que utilizasse a linguagem sql. O Banco é o ACCESS da Microsoft e a linguagem ruby, até então, não possui nenhum conector de acesso a esse SGBD. Precisso de alguma informação sobre acesso ao BD Access na linguagem de programação RUBY. Se alguém souber de alguma informação sobre esse tópico e puder ajudar eu agradeço. Obrigado a todos! Até mais!

Boa tarde! Estou com um probleminha e não consigo resolver de forma alguma. Num script onde criptografo os dados e faço o envio da requisição por meio do CURL POST, esta ação funciona até a quantidade de 4.350 caracteres na requisição. Mas quando envio a requisição a partir de 4.499 caracteres é gerado um erro de recebimento no servidor. "You don't have permission to access / ... / on this server." Não tenho acesso ao phpinfo do servidor, então há como resolver este problema pelo .htaccess? Se não, qual configuração do phpinfo devo ajustar para que este erro seja eliminado?

Boa tarde pessoal, bom eu tenho um software que em um form realiza o cadastro do usuário e em outro realiza o login porem quando utilizo os dados do cadastro para login o count sempre retorna com 0. private void btnEntrar_Click(object sender, EventArgs e) { OleDbConnection Conn; OleDbCommand Cmd; /* * String de conexão para conectar com o acess: * cmo encontrar string: * 1° tolls * 2° connection database Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\porta\etec\3° Ano\Técnico\PC\BancodeDados1.mdb */ String StrConn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\porta\1\etec\3° Ano\Técnico\PC\Aula 3 Login\AulaLogin.mdb"; //inicializar a conexão Conn = new OleDbConnection(StrConn); //abrir conexão Conn.Open(); String SQL = "Select count(*) From usuarios " + " Where Login Like '" + txtLogin.Text + "' and " + " Senha = '" + txtSenha.Text + "' "; Cmd = new OleDbCommand(SQL, Conn); //retorna o resultado do select count int resul = (int) Cmd.ExecuteScalar(); if (resul == 1) { //sem chaves pois possui apenas um comandi Form1 tela = new Form1(); tela.ShowDialog(); } else { MessageBox.Show("Login invalido"); txtLogin.Clear(); txtSenha.Clear(); } }

Bom, eu não estou conseguindo conectar com meu banco access. Quando eu executo ele sempre cai na mensagem "Banco de dados não encontrado", já verifiquei o php config e o odbc está habilitado. Segue o código abaixo: <?php $db = $_SERVER["DOCUMENT_ROOT"] ."/db/banco.accdb"; if (!file_exists($db)) { die("Banco de dados não encontrado."); } $dbNew = new PDO("odbc:DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=$db; Uid=; Pwd=;"); $sql = "select * from clientes"; $rs = $dbNew->query($sql); while($result = $rs->fetch()) { echo $result[0].": ".$result[1]."<br />"; } ?>

Tenho esse código abaixo para inserir no banco de dados access, mas me retorna um erro que nunca vi antes, nunca usei access e estou sendo obrigado a usar =(, se alguém puder me dar uma luz, já perdi várias horas com isso e na internet não encontro solução, o pior é que o select funciona numa boa, agora o insert com o executeUpdate não vai, isso me parece erro de permissão de usuário mas já fucei bastante no access, e na internet os tópicos com esse erro não encontro solução =( eis o erro: net.ucanaccess.jdbc.UcanaccessSQLException: UCAExc:::4.0.3 user lacks privilege or object not found: USUARIO try { ConexaoBD fab = new ConexaoBD(); fab.abrirConexao(); String sql ="insert into acordos(data,cpf,valor,produto,usuario(x),aspect,nome,supervisor,hora)" + " values('"+txtdata.getText().toString()+"','"+txtcpf.getText().toString()+"','"+valor+"','"+cbproduto.getSelectedItem().toString() +"','"+txtusuario.getText().toString()+"','"+lblaspect.getText().toString()+"','"+txtnome.getText().toString()+"','"+hora+"')"; fab.ps = fab.con.prepareStatement(sql); int rows = fab.ps.executeUpdate(); if(rows >= 1){ JOptionPane.showMessageDialog(null, "Acordo registrado com sucesso!","Mensagem do programa",JOptionPane.INFORMATION_MESSAGE); fab.ps.close(); fab.con.close(); fab.st.close(); }else{ JOptionPane.showMessageDialog(null, "ERRO!","Mensagem do programa",JOptionPane.ERROR_MESSAGE); fab.ps.close(); fab.con.close(); fab.st.close(); } } catch (ClassNotFoundException ex) { Logger.getLogger(Login.class.getName()).log(Level.SEVERE, null, ex); } catch (SQLException ex) { Logger.getLogger(Login.class.getName()).log(Level.SEVERE, null, ex); } public Connection con = null ; public PreparedStatement ps = null; public ResultSet rs = null; public Statement st = null; public void abrirConexao() throws ClassNotFoundException{ Class.forName("net.ucanaccess.jdbc.UcanaccessDriver"); String caminho = buscarCaminho(); try{ //Arquivo de caminho do banco String filename = caminho; File arquivo = new File(filename); //verifica se o caminho e arquivo existe. if(!arquivo.exists()){ JOptionPane.showMessageDialog(null, "Caminho do BD não encontrado! \n " + "veirifique se o caminho, nome e extensão estão corretos ou se o arquivo existe!\n Consulte o administrador"); return; }else{ JOptionPane.showMessageDialog(null, "Banco de dados encontrado com sucesso!"); } String database = "jdbc:ucanaccess://" + filename.trim(); //realiza conexao com banco de dados con = DriverManager.getConnection(database,"Administrador","1234"); System.out.println("Conexão obtida com sucesso"); }catch(Exception e) { JOptionPane.showMessageDialog(null,"Erro ao conectar: -> "+ e.getMessage().toString()+""); } classes de conexão e inserção

Pessoal, Boa Tarde !!! Gostaria de uma ajuda para uma solução que estou criando de forma bem amadora, pois não sou programador de profissão. Estou utilizando o MS Visual Studio para criar formulários em páginas Asp.Net com a linguagem VB.Net por estar mais familiazarizado com VBA do Excel. Já consegui fazer algumas coisas com por exemplo construir a página e os controles de validação de campos, porém preciso fazer a conexão e regras de consulta com banco de dados. Acontece que, a base de dados do sistema utilizado esta em Access, por uma série de limitações de um outro sistema que utiliza este banco. Como não sou Expert em programação, os melhores exemplos dessa ligação estão em linguagem PHP, ou conexões com outros bancos de dados. O que eu gostaria de fazer, e se possível pudesse analisar algum projeto disponível na seguinte condição; Uma solução para me conectar com o banco de dados Access via JSON e trazer estes dados para poder trabalhar com Angular ou até com as opções de controles ASp.net. Eu não estou conseguindo identificar como eu passo os dados coletados na consulta JSON para uma tabela html ou aplicar filtros na consulta, pois os melhores exemplos de gráficos, utilização de filtros, etc, são utilizando tags html e Angular. Segue anexo uma imagem de exemplo do que eu imagino. Desde já agradeço a atenção e desculpe qualquer coisa sem sentido nessa história.....rsrs Hugo Santos

Boa noite a todos eu tenho um formulário EM MICROSOFT ACCESS de acompanhamento de consumo de energia elétrica, mas eu não sei como fazer a apuração automática do consumo à medida de informe o novo valor da leitura a tabela se compoe da seguinte forma: Tabela de nome Leitura Id Historico Data Leitura Consumo 1 Leitura 30/10/2017 14309 0 2 Leitura 30/11/217 14550 241 3 Leitura 30/12/2017 14750 200 eu gostaria de o campo consumo fizesse esse cálculo automático assim que eu colocasse o valor da nova leitura Alguém pode me ajudar

Olá, tudo bem? Estou usando SQL pra setar valores em um campo dadas as condições, porém não está funcionando. UPDATE tbl_Operacao_Pendente SET tbl_Operacao_Pendente.Data_Inicio_Processo = DateValue(IIF(tbl_Operacao_Pendente.Data_Negociacao > Nz(tbl_Operacao_Pendente.Data_Boletagem, 0), tbl_Operacao_Pendente.Data_Negociacao, tbl_Operacao_Pendente.Data_Boletagem)) WHERE (((tbl_Documento_Pendente.Data_Envio_Documento) Is Null)) AND tbl_Documento.Risco_PDD = -1 AND tbl_Documento.Passivel_Bloqueio = -1; Não sou expert nem em Access nem em SQL, preciso fazer um vínculo entre as tabelas envolvidas, porém não sei como. Usando Inner Join? ou o próprio assistente do Access? Eu tentei pelo assistente mas acho que não esta correto. Imagem do assistente de vinculo do Access https://ibb.co/j2Kt25

Olá, tenho uma consulta a um banco de dados access feito com a seguinte query: "SELECT SUM(quantidade) FROM estoque WHERE codproduto=" & tb_cod.text & "" Quando não é encontrado o resultado no banco de dados referente a Clausula WHERE está me retornando NULL, porém eu uso o resultado dessa busca em alguns cálculos. Precisaria que caso o retorno fosse NULL fosse possivel usar o valor 0. Ja tentei fazer da seguinte maneira que li em outro forum mas não funcionou: "SELECT ISNULL(SUM(quantidade),0) FROM estoque WHERE codproduto=" & tb_cod.text & ""

Olá, tenho uma consulta a um banco de dados access feito com a seguinte query: "SELECT SUM(quantidade) FROM estoque WHERE codproduto=" & tb_cod.text & "" Quando não é encontrado o resultado no banco de dados referente a Clausula WHERE está me retornando NULL, porém eu uso o resultado dessa busca em alguns cálculos. Precisaria que caso o retorno fosse NULL fosse possivel usar o valor 0. Ja tentei fazer da seguinte maneira que li em outro forum mas não funcionou: "SELECT ISNULL(SUM(quantidade),0) FROM estoque WHERE codproduto=" & tb_cod.text & ""

Pessoal bom dia. Gostaria de pedir a ajuda de voces referente a um problema que estou enfrentando. Desenvolvi um sistema em VB6 e estou utilizando o banco de dados em ACCESS. Nesse banco possui varios campos e entre eles um com a data ATUAL.. Pois o sistema ele vai calculando o juros do cliente mediante a data do vencimento e a data ATUAL... O porem é que por exemplo: DATA DO VENCIMENTO: 03/04/2016 DATA DE HOJE: 04/06/2016 uma vez que eu insiro as informações ele coloca a data do dia, porém essa data fica fixa, nao se atualiza... seria possivel essa data se atualizar a cada dia que passe?.... obs: me refiro a data ja inserida...pois para os novos dados ele coloca a data certa...porem a data ja inserido no dia anterior nao se atualiza.... so falta isso para encerrar meu proojeto... Desde ja agradeço a ajuda de todos.

Criei uma api que gera imagens dinâmicas com php para que meus clientes colocarem em seus sites utlizando as tags de css e html como por exemplo a background: url() e <img>, mas estou com um problema que outras pessoas estão utilizando elas e queria saber como posso fazer pra bloquear esses acesso de fora, liberando apenas os sites que eu especificar no código.

Fórum, Bom Dia !! Sou novato em programação web, e estou diante de um desafio no qual gostaria do apoio de vocês para entender e buscar a melhor solução. Comecei a desenvolver em Asp.net, pois tenho alguma experiência em VBA para programação em excel, logo não tem sido muito complicado utilizar a linguagem VB.net com o Visual Studio. A ferramenta: Temos um banco de dados access criado na versão Office 97, atualmente utilizado em produção através de uma interface desenvolvida em Visual Basic para controle de equipamentos em manutenção. O Projeto: Criar uma interface web para consulta dos registros, situação atual, previsão de retorno, etc. para acesso Interno e Externo para clientes. Criei a interface, conexão com banco de dados, strings de consulta baseado no login de cliente, aparentemente tudo funcionando normalmente com a página hospedada em um Servidor Interno com IIS 7.5. O Desafio: Hospedar a página em um Servidor Web, mantendo a mesma estrutura com o banco de dados access loca. O que imagino: Criar um sincronismo com entre o Access e um banco de dados MYSQL criado no serviço de hospedagem, criar uma rotina local de sincronismo automático, desta forma teria as informações do Access Local sincronizadas na web. O problema é que não encontrei alternativas através das ferramentas MS Access ou no Workbench do MySql. É fácil encontrar informações sobre o sincronismo entre os dois bancos, porém pelo que entendi só funciona quando o Access é utilizado como Interface para o MySql, no caso o que preciso é ao contrário, que uma tabela já existente no Access seja sincronizada no MySql. Parei neste ponto e não consigo avançar, tenho certeza de que o vasto conhecimento agregado ao fórum poderá me dar uma Luz !! Desde já agradeço a atenção de vocês !!

Preciso primeiramente saber se o Access consegue conectar a banco MySQL. A partir dessa conexão, preciso gerar através do Access um XML que contenha os dados de uma tabela do meu banco MySQL. Posteriormente esse XML deverá ser enviado para um servidor remoto todo dia (por Webservice provavelmente). Alguém sabe se é possível?

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

Olá! Estou fazendo um teste para atualizar uma informação em um dos meus itens do banco de dados; porém houve um erro e não consigo decifra-lo. "Tipos incompatíveis" Busco as informações no banco: <%Dim caminho, conexao, rsProduto, seleciona%> <% caminho = "D:\web\LocalUser\divinho\banco\db.mdb" Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" %> <% Set rsProduto = Server.CreateObject("ADODB.Recordset") seleciona = "SELECT * from Produtos where Cod_produto = "& request("cod") rsProduto.Open seleciona, conexao Dim cod cod = request("cod") %> <FORM name="frmPrincipal" method="post" id="frmPrincipal" action="teste.asp?cod=<%=cod%>"> <input type=text name=codigo value="<%=rsProduto("Cod_produto")%>"> <input type=text name=nome value="<%=rsProduto("Nome")%>"> <input type="Submit" value="Enviar "> </form> Realizando o UPDATE <%Dim caminho, conexao%> <% caminho = "D:\web\LocalUser\divinho\banco\db.mdb" Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" %> <% Dim sql, nome, cod, executecmd nome = request.form("nome") cod = request.form("codigo") sql = "update Produtos set " sql = sql & " Nome = '" & nome & "'" sql = sql & " where Cod_produto = " & cod call executecmd(sql) Response.Redirect "teste2.asp" %> Podem testar através do link: http://divinho.com.br/teste2.asp?cod=344 Agradeço se alguém puder ajudar! :D

Boa noite galera. Minha duvida e o seguinte: Tenho uma pagina em html na qual é possivel fazer uma busca por opcao. Se eu escolho a opcao referencia, é gerado a pagiacao normal, baseado na palavra, mas quando eu clico no link da proxima pagina, é retornado todos os valores. alguem sabe como acrescentar a variavel da busca no link "proximo" . <html> <body> <img src=images/logo.png> <form action=buscando.asp method=get> Procurar por: <select name=campo> <option>referencia</option> <option>tipo</option> <option>ano</option> <option>cor</option> <br> Informe o criterio de busca <input type=text name=criterio> <input type=submit value=buscar> </form> </body> </html> ---------------------------------------------------------------------------------- <% set DB = Server.CreateObject("Adodb.Connection") DB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("bd.mdb") Set RS = Server.CreateObject("Adodb.RecordSet") sql="select * from produtos" RS.PageSize = 3 if request("campo") = "referencia" Then c=request("criterio") sql = sql & " where referencia like '%" & c & "%'" end if RS.Open sql, DB,3,3 If RS.EOF then Response.Write "Nenhum registro encontrado!" Response.End Else If Request.QueryString("pagina")="" then intpagina=1 Else If Cint(Request.QueryString("pagina"))<1 then intpagina=1 Else If Cint(Request.QueryString("pagina"))>RS.PageCount then intpagina=RS.PageCount Else intpagina=Request.QueryString("pagina") End If End if End if End if RS.AbsolutePage=intpagina intrec=0 %> Pagina <%=intpagina%> de <%=RS.PageCount%></p> </b> <div align="center"> <center> <% While intrec<RS.PageSize and not RS.EOF %> <img src="<%=RS("foto")%>"><br> <% Rs.movenext intrec=intrec+1 Wend %> </center> </div> <br> <div id="count" align="center"> <% If intpagina > 1 then Response.Write "<a href=""buscando.asp?pagina=" & intpagina-1 & """>Anterior</a>" End If For i=1 to RS.PageCount If i = Cint(intpagina) then Response.Write " " & i else 'o engraçado é que esse link funcionA caso eu faça um simples busca sem o select. Response.Write " <a href=""buscando.asp?pagina=" & i &"&criterio="&c& """>" & i & "</a>" End If Next If strcomp(intpagina,RS.PageCount)<> 0 then Response.Write " <a href=""buscando.asp?pagina=" & intpagina+1 & """>Próxima</a>" End If %> </body> </html>

Bom dia amigos, estou travado nesse problema há alguns dias, pesquisei muito e não encontrei o problema. Nesse carrinho, estava tudo ok, até que foi necessário incluir um novo campo na tabela Pedido.Item, o campo est_local. Alimento esse campo via querystring e até o primeiro INSERT tudo funciona bem. <% Set rsPedidoItem = Server.CreateObject("ADODB.Recordset") If Request.QueryString("id") <> "" Then rsPedidoItem.Open "SELECT * FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed_est") & " AND COD_Produto = " & Request.QueryString("id"), Conexao If rsPedidoItem.EOF Then Conexao.Execute "INSERT INTO Pedido_Item (cod_Pedido, cod_Produto, qtd_Pedido, VRL_Unitario, est_local) SELECT " & Session("codPed_est") & " as cod_Pedido, cod_Produto, 1 as qtd_Pedido, VRL_Unitario, '" & Request.QueryString("lo")& "' FROM Produtos WHERE COD_Produto = " & Request.QueryString("id") End If %> O problema ocorre quando é necessário fazer o recalculo do valor, o codigo deleta da tabela os itens anteriores e vai buscar os dados do form para refazer o calculo <% If Request.Form <> "" Then Conexao.Execute "DELETE FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed_est") Dim cont cont = 0 For Each field_name In Request.Form If field_name <> "" And field_name <> "B1" And Request.Form(field_name) <> "0" And Trim(Request.Form(field_name)) <> "" Then cont = cont + 1 strSQL = "INSERT INTO Pedido_Item (COD_Pedido, COD_Produto, QTD_Pedido, VRL_Unitario, est_local) SELECT "& Session("codPed_est") & ", " & field_name & ", " & Request.Form(field_name) & ", VRL_Unitario, '" & Request.Form("est_local_") & Cstr(cont) & "' FROM Produtos WHERE COD_Produto = " & field_name & " " conexao.execute strSQL End If Next End If %> Se rodo a SQL no access, funciona, agora no navegador recebo a mensagem: Microsoft OLE DB Provider for ODBC Drivers erro '80040e10' [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1. Já tentei passar esse insert de varias formas, mas nenhuma deu certo! Agradeço qualquer informação. Bom dia a todos!

Bom dia. O cenário é o seguinte. Tenho um banco de dados Produtos, tabela produtos. Outro banco, movimento, tabela movimento. (os dois em bds separados, arquivos mdb distintos) Na tabela Produtos, tenho o campo ultimaVenda, codProduto. Na tabela Movimento tenho DataVenda, codProduto. Eu preciso pegar a "Maior" DataVenda(Movimento), é dar um update no ultimaVenda(produtos) ligando pelo codProduto. na tabela movimento, existem vários registros de venda destes produtos, por isso preciso da maior. Lembrando que são bancos de dados separados ambos se encontram no C:\ Aguardo Ajuda Muito obrigado!

Como faço para abrir um relatório do access dentro do Visual Basic 6?

Olá! Bom, eu tenho duas tabelas no meu banco de dados A "Parceiro" e "Planejamento" Estou fazendo uma busca por todos os parceiros que sejam da Empresa X sql = "SELECT * FROM vw_parceiro where 1=1" if request("EmpresaNome") <> "" then sql = sql & " and EmpresaNome like '" & request("EmpresaNome") & "%'" sqlT = sqlT & " and EmpresaNome like '" & request("EmpresaNome") & "%'" end if set Aluno = GetRS(sql) E após buscar esses alunos eu quero que me mostre em uma tabela os dados de planejamento deles. sql = "SELECT * FROM planejamento where id_parceiro ="&Aluno("id_parceiro") set Planejamento = GetRS(sql) Porém quando eu peço para exibir em uma tabela, aparece apenas o planejamento de 1 aluno da minha primeira busca. <% do while not Planejamento.EOF%> <tr> <td class="cont1"> <%=Planejamento("id_planejamento")%> </td> </tr> <% Planejamento.MoveNext() loop %> Imagino que seja porque não há um loop para mudar para o próximo parceiro; então como posso proceder? Obrigado!