Search the Community
Showing results for tags 'access'.
Found 22 results
-
Vb 2012 - Conexão via código (Ado e Dao) do banco de dados access.
aluizs100 posted a topic in Visual Basic
Olá. Estou tentando localizar um código para conectar um banco de dados access utilizando o Visual Studio 12, porém só encontrei a com conexão direta via programa e eu queria fazer esta conexão via código. alguém poderia me auxiliar em enviando esta rotina ou me indicando o local onde encontro. Obrigado. -
Como salvar dados de formulário de página html em arquivo access.mdb com instrução SQL
thiago009 posted a topic in SQL Server
Sou novato na área, estou criando um site para praticar, o meu problema está na página contatos. O objetivo é que ele salve os dados do formulário num arquivo do access. Sei que não é o ideal, como estou começando na área, acho que é melhor aprender assim para depois estudar outras formas.Criei um comando no SQL que intitulei de "grava", o nome do meu arquivo do access é "banco" e o html é contato.Tentei também validar os campos com java, mas não deu certo e exclui os códigos que tinha colocado no início do html, se alguém puder me ajudar a fazer a validação.Isso não é um trabalho, estou fazendo para aprender.Segue link com os arquivos: https://etecspgov-my.sharepoint.com/:f:/g/personal/thiago_cunha35_etec_sp_gov_br/EioK0B6ZHaNNlJ6zZWSXSfUB7PwxWfp-R5ulmqZOr1Hlpg?e=v51d7i Agradeço quem puder ajudar, Muito Obrigado. -
Fiz um site simples, contém um formulário de contato com o objetivo de salvar os dados preenchidos num banco do access, como estou aprendendo falaram que era melhor começar criando um banco no access, mas não consegui fazer com que o formulário salve lá. Criei um código ASP para salvar os dados do formulário mas preciso de ajuda para conseguir Coloquei o print dos códigos. Alguém pode me ajudar a resolver esse problema? <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="utf-8"> <meta charset="iso-8859-1" /> <link rel="stylesheet" type="text/css" href="css/estiloscontato.css"> <title>História da Informática</title> </head> <div class="menu"> <div class="collapse navbar-collapse navbar-right" id="myNavbar"> <ul class="nav navbar-nav"> <a href="index.html" target="principal">Home</a> <a href="historia.html" target="principal">História</a> <a href="evolucao.html" target="principal">Evolução</a> <a href="desvantagens.html" target="principal">Desvantagens</a> <a href="educacao.html" target="principal">Na educação</a> <a href="contato.html" target="principal">Contato</a> </ul> </div> </div> <div class="texto"> <body class="bg-color"> <!-- Estilos específicos de Seção --> <div id="conteudo" class="grupo" align=center> <p id="negrito"> <h1>Contato</h1> </p> <br> <p id="negrito">Entre em contato preenchendo o formulário abaixo:</p> <p name="contato"> <form name="f1" action="Contato" method="post"> <br> <fieldset> <br> <div class="campo"> <label for="nome">Nome</label> <input type="text" name="nome" id="nome"> </div> <br> <div class="campo"> <label for="email">E-mail</label> <input type="text" name="email" id="email"> <div> <br> <br><br> <!-- A PARTIR DESSA LINHA SÃO OS ""RADIO BUTTON"" --> <label>Departamento:</label> <label class="radio"> <input type="radio" name="departamento" value="suporte"> Suporte </label> <label class="radio"> <input type="radio" name="departamento" value="comercial"> Comercial </label> <label class="radio"> <input type="radio" name="departamento" value="conteudo"> Conteúdo </label> <div class="campo"> <p id="negrito"> </p> </div> <br> <!-- A PARTIR DESSA LINHA É O ""COMBO BOX"" --> <div class="assunto"> <p id="negrito"> <label for="assunto">Assunto<abbr title=!preenchimento obrigatório">*</abbr></label> <br> <select name="assunto"> <option>-- Selecione -- </option> <option value="duvidas">Dúvidas</option> <option value="solicitacoes">Solicitações</option> <option value="informacoes">Informações</option> <option value="outros">Outros</option> </select> </p> </div> <br><br> <!-- A PARTIR DESSA LINHA É O ""TEXTAREA"" --> <!-- <p id="negrito"> --> <div class="mensagem"> <p id="negrito"> <label id= "texto">Mensagem<abbr title=!preenchimento obrigatório">*</abbr></label> </p> <textarea name= "mensagem" rows="15" cols="80"></textarea> </div> <br> <br> <div class="botao"> <INPUT TYPE=SUBMIT VALUE="Enviar" align="center"> <INPUT TYPE=RESET VALUE="Apagar" align="center"> </div> </div> </p> </form> </body> <div class="bg-color"> </div> <br> </fieldset> </form> <footer class="rodape"> <small>Copyright © 2020</small> </footer> </body> </html> ESSE É O CÓDIGO ASP <% Dim objConn, strCaminho, nome, email, departamento, assunto, mensagem nome = Request.Form("nome") email = Request.Form("email") departamento = Request.Form("departamento") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") strCaminho = Server.MapPath("banco.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";" objConn.execute("Insert Into contato (nome, email, departamento, assunto, mensagem) Values ('"&nome, email, departamento, assunto, mensagem&"')") response.Write("Cadastrado com sucesso") objConn.Close %>
-
Pessoal, tudo bem? Eu infelizmente sou uma pessoa muito newbie no Access, e extremamente enferrujada no VBA, e eu tenho que criar um banco de dados para importar várias planilhas de Mês/Ano (Ex.: 012018; 022018) sempre do mesmo modelo/molde/afins, e no fim, gerar um relatório com as informações importadas. O modelo relatório e o modelo tabela estão prontos, entretanto, não sei como criar o formulário que faça: 1º: Clicar no botão procurar arquivo; 2º: Solicite o Mes/Ano do arquivo que será importado; 3º: Abra a API do Windows de localizar arquivo; 4º: Ao selecionar e importar o arquivo, dê baixa na tabela definida. A tabela e o arquivo tem todos as mesmas colunas, entretanto, eu inseri a coluna MesAno na tabela que deverá ser inserida conforme a pergunta que foi solicitada no formulário. Pois o relatório será gerado de acordo com essa coluna.
-
Olá! Tenho uma pequena aplicação em Access rodando com 8 usuários simultâneos, alguns acessam via VPN outros, localmente. Acontece as vezes de dar erro na VPN de alguns usuários, então eles lançam os dados localmente em suas máquinas, como faço pra agrupar os dados via VBA nestes banco? Minha ideia é criar um botão na tela principal onde o usuário clicaria, daí o código solicita o local de destino, e o usuário seleciona o banco para a atualização dos dados.
-
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!
-
Recebimento de Requisição com muitos dados Negada (You don't have permission to access ... on this server)
Ericsson Berg posted a topic in PHP
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
-
SUBTRAIR VALOR DE COLUNA VALOR ATUAL MENOS VALOR ANTERIOR COMO FAZER ISSO?
raije.web posted a question in Perguntas e respostas rápidas
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.
-
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
