Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

luiztmf

conexao com banco de dados access

Por , em ASP Clássico

Recommended Posts

luiztmf    0

luiztmf
Postado

Olá pessoal,

 

estou com uma problema, estou tentando conectar a um banco de dados access(mdb) e fazendo um select, pesso para que o banco de dados faça uma consulta (strSql = "select Tbform * from OP where " & struser) de acordo com o meu login nas tabelas, porem nao me mostra o erro... so fala que tem erro de programação,

 

segue o codigo. para quem poder ajudar.

 

<%
dim strOp, strMatricula, strServidor, strCargo, strData_Adm, strForma_Nom, strPer_Aval, strAusencias
dim strEfetivo_Exerc, strApuracao
Dim struser
struser=Session("ssusuario") 
dim objconn, objRS, strconn, strsql, caminho_banco
strop=request.QueryString("strop")
  set objconn = server.CreateObject("ADODB.Connection") 'Cria o objeto da conexão
  caminho_banco = Server.MapPath("/teste/Dados.mdb")
  'strConn = "Provider=SQLOLEDB; Data Source=LAB405MICRO16; Initial Catalog=db_loja; UID=sa; PWD=etecpj;"
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco
    'response.Write strsql: response.End
  objconn.open strconn 'Abre a conexão com o Banco de Dados
  objConn.CursorLocation=3
  <strong> <em>strSql = "select Tbform * from OP where " & struser</em></strong>
  set objRS = objConn.Execute(Strsql)
if not objRS.eof then
  strop = objRS("OP")
  strMatr = objRS("Matricula")
  strServidor = objRS("Servidor")
  strCargo = objRS("Cargo")
  strData_Adm = objRS("Data_Adm")
  strForma_Nom = objRS("Forma_Nom")
  strPer_aval = objRS("per_aval")
  strAusencias = objRS("Ausencias")
  strEfetivo_Exerc = objRS("Efetivo_Exerc")
  strApuracao = objRS("Apuracao")
end if 
%>
<html>
<head><title>Formulário de Cadastro de Produto</title></head>
<body>
  <center>Formulário de Cadastro de Produto</center>
<form name=form1 action="Grava_alteracao_Produto.asp" method="post">
  Codigo: <input type=text name=txtprocod size=10 maxlength=10
  value="<%=intprocod%>" readonly ><br>
  OP: <input type=text name=txtop size=50 maxlength=50 value="<%=intop%>" ><br>
  Matricula: <input type=text name=txtmatricula size=50 maxlength=10 value="<%=strMatricula%>" ><br>
  Servidor: <input type=text name=txtservidor size=50 maxlength=10 value="<%=strServidor%>" ><br>
  Emprego Público: <input type=text name=txtCargo size=100 maxlength=250 value="<%=strCargo%>" ><br>
  Data Admissão: <input type=text name=txtdata_adm size=50 maxlength=10 value="<%=strData_Adm%>" ><br>
  Froma Nomeação: <input type=text name=txtForm_nom size=10 maxlength=10 value="<%=strForma_nom%>" ><br>
  Periodo de Avaliação: <input type=text name=txtper_aval size=10 maxlength=10 value="<%=strPer_aval%>" ><br>
  Ausência: <input type=text name=txtausencia size=10 maxlength=10 value="<%=strausencia%>" ><br>
  Dias de Efetivo Exercício: <input type=text name=txtEfetivo_Exerc size=10 maxlength=10 value="<%=strEfetivo_Exerc%>" ><br>
  Apuração: <input type=text name=txtavalicao size=50 maxlength=10 value="<%=strapuracao%>" ><br>
   <br />
  <input type=submit value=Alterar />  
  <input type=button value=Excluir
  onclick="document.form1.action='grava_exclusao_produto.asp';
       document.form1.submit();" />  
  <input type=button value=Voltar onclick="history.back();"/></form>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum número de erro ???

verifique se a opção de exibir mensagens de erro HTTP amigáveis , esta habilitado no browser

Compartilhar este post

Link para o post
Compartilhar em outros sites

luiztmf    0

luiztmf
Postado

ele gera algum número de erro ???

verifique se a opção de exibir mensagens de erro HTTP amigáveis , esta habilitado no browser

 

ai que ta o meu problema, não mostra o erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você desabilitou a opção de exibir mensagens de erro HTTP amigáveis no browser

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito