Ir para conteúdo
Fórum Script Brasil
  • 0

Urgente (access_x_asp)

Prof_Marins

Perguntado por Prof_Marins,

 Share

Pergunta

Prof_Marins

Prof_Marins

Postado
Postado

Ola pessoal,

Estou com um grande problema.

1º Dificuldade com a conexão do ASP no Access. Estou trabalhando assim:

<%

Dim aDB,db_path

db_path = "D:\Inetpub\wwwroot\BD1\Dados\AGENDA.mdb"

set aDB = Server.CreateObject("ADODB.Connection")

aDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_path

aDB.open

%>

Como tenho diversas páginas, sera que preciso no inicio delas colocar esses códigos?

2º Tenho um formulário, num dos campos estou usando CAIXA SUSPENSA. Preciso armazenar essa informação numa VAR e depois pesquizar essa VAR no meu BDAccess. Imprimir todos os registros com esta seleção. alguém pode me ajudar?

Link para o comentário
Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

  • 0
Ricardo Amancio

Ricardo Amancio

Postado
Postado

Vamos por partes como Jack

Arquivo “coneta_db.asp”

<%'CONECTA COM O BANCO

Dim MM_conecta_STRING

MM_conecta_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\Inetpub\wwwroot\BD1\Dados\AGENDA.mdb "

%>

No topo de cada página que for usar essa conexão você insere um include:

<!--#include file="conecta_db.asp" -->

e chama a conexão quando precisar:

<%’ABRE A CONEXÃO

Dim Recordset1

Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_conecta_STRING

Recordset1.Source = "INSTRUÇÃO SQL”

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<%’FECHA A CONEXÃO

Recordset1.Close()

Set Recordset1 = Nothing

%>

Me explica melhor o que você quer fazer com essa CAIXA SUSPENSA (o que você chama de caixa suspensa?)

Link para o comentário
Compartilhar em outros sites
  • 0
Prof_Marins

Prof_Marins

Postado
  • Autor
Postado

Obrigado, meu horário de trabalho foi até as 17:00hs por isso a demora da resposta.

Primeiramente obrigado aos colegas, pela resposta, certamente me ajudaram bastante. Ao sr. "racanet" me questionou quanto ao:

"- Me explica melhor o que você quer fazer com essa CAIXA SUSPENSA (o que você chama de caixa suspensa?)"

R: Bom, "caixa suspensa":

Meu código ficou assim:

<td>

<select size="1" name="turma">

<option value="1">1T</option>

<option value="2">2T</option>

<option value="3">3T</option>

<option value="4">4T</option>

</select>

</td>

Quando eu selecionar a opção 1T, gostaria de armazenar isso numa VAR1 o valor 1.

Quando eu selecionar a opção 2T, gostaria de armazenar isso numa VAR2 o valor 2.

Quando eu selecionar a opção 3T, gostaria de armazenar isso numa VAR3 o valor 3.

Quando eu selecionar a opção 4T, gostaria de armazenar isso numa VAR4 o valor 4.

Após esta seleção, deve ser consultada no meu banco AGENDA.mdb - coluna "turma", e imprimir "se possível" abaixo da seleção.

Obrigado.

Quando eu preciso fechar a conexão? Após dar os comandos ou abre e fecha?

Link para o comentário
Compartilhar em outros sites
  • 0
.Andreia.

.Andreia.

Postado
Postado

Quanto a conexao, eu faço desta forma:

arquivo conexao.asp:

<%
dim conexao

sub abre_conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=D:\Inetpub\wwwroot\BD1\Dados\AGENDA.mdb;Driver={Microsoft Access Driver (*.mdb)}"
end sub

sub fecha_conexao
Conexao.close
Set Conexao = nothing
end sub 
%>
pagina usando BD: 
<!--#include file="conexao.asp"-->
<%
' chamada da função
call abre_conexao

'exemplo de consulta ao banco, usando a função

sql = "select * from TABELA"
set tab = conexao.execute(sql)





'fechando a conexao
call fecha_conexao
%>

Link para o comentário
Compartilhar em outros sites
  • 0
Prof_Marins

Prof_Marins

Postado
  • Autor
Postado

vê se pode me ajudar mais nesta?

Gostaria de colocar informações em tabelas diferentes é possível?

<form method="POST" action="incluialuno.asp">

<h1 align=center><font face="Verdana">Novo Cadastro</font></h1>

<p align=center>&nbsp;</p>

<center>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber2" width="369">

<tr>

<td width="75"><b><font face="Verdana" size="1">Nome:</font></b></td>

<td width="294" colspan="3">

<font face="Verdana" size="1" color="#C0C0C0"><b>

<input name="nome" size="40" style="float: left"></b></font></td>

</tr>

<tr>

<td width="75"><b><font face="Verdana" size="1">Número:</font></b></td>

<td width="294" colspan="3">

<font face="Verdana" size="1" color="#C0C0C0"><b>

<select size="1" name="numero">

<option>01</option>

<option>02</option>

<option>03</option>

<option>04</option>

<option>05</option>

<option>06</option>

<option>07</option>

<option>08</option>

<option>09</option>

<option>10</option>

<option>11</option>

<option>12</option>

<option>13</option>

<option>14</option>

<option>15</option>

<option>16</option>

<option>17</option>

<option>18</option>

<option>19</option>

<option>20</option>

<option>21</option>

<option>22</option>

<option>23</option>

<option>24</option>

<option>25</option>

<option>26</option>

<option>27</option>

<option>28</option>

<option>29</option>

<option>30</option>

<option>31</option>

<option>32</option>

</select></b></font></td>

</tr>

<tr>

<td width="75"><b><font face="Verdana" size="1">Curso:</font></b></td>

<td width="294" colspan="3">

<font face="Verdana" size="1" color="#C0C0C0"><b>

<select size="1" name="curso">

<option selected value="1">Técnico em Automação Industrial</option>

</select></b></font></td>

</tr>

<tr>

<td width="75"><b><font face="Verdana" size="1">Turma:</font></b></td>

<td width="294" colspan="3">

<font face="Verdana" size="1" color="#C0C0C0"><b>

<select size="1" name="turma">

<option value="1">1TA</option>

<option value="2">2TA</option>

<option value="3">3TA</option>

<option value="4">4TA</option>

</select></b></font></td>

</tr>

<tr>

<td width="75"><b><font face="Verdana" size="1">Professor:</font></b></td>

<td width="294" colspan="3"><font face="Verdana" size="1" color="#C0C0C0">

<b><input name="professor" type="text" size="31"></b></font></td>

</tr>

<tr>

<td width="75"><b><font face="Verdana" size="1">Matéria:</font></b></td>

<td width="294" colspan="3">

<font face="Verdana" size="1" color="#C0C0C0"><b>

<input type="text" name="materia" size="20"></b></font></td>

</tr>

<tr>

<td width="75"><b><font face="Verdana" size="1">Período:</font></b></td>

<td width="294" colspan="3">

<font size="1" face="Verdana" color="#C0C0C0"><b>

<input type="radio" name="periodo" value="M"></b></font><b><font face="Verdana" size="1">

Manhã&nbsp;&nbsp;&nbsp;&nbsp; </font></b><font size="1" face="Verdana">

<font color="#C0C0C0"><b>

<input type="radio" name="periodo" value="T"></b></font><b><font face="Verdana"> Tarde&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

</font></b><font color="#C0C0C0"><b>

<input type="radio" name="periodo" value="N"></b></font><b><font face="Verdana"> Noite

</font></b></font> </td>

</tr>

<tr>

<td width="75"><b><font face="Verdana" size="1">Nota:</font></b></td>

<td width="116">

<font face="Verdana" size="1" color="#C0C0C0"><b>

<input name="nota" size="5" style="float: left"></b></font></td>

<td width="77"><b><font face="Verdana" size="1">Faltas:</font></b></td>

<td width="101">

<font face="Verdana" size="1" color="#C0C0C0"><b>

<input name="falta" size="5" style="float: left"></b></font></td>

</tr>

</table>

<p><input type="submit"></p>

<p>&nbsp;</p>

</form>

Link para o comentário
Compartilhar em outros sites
  • 0
Prof_Marins

Prof_Marins

Postado
  • Autor
Postado

Opa... Então kuroi

Estou criando um simples formulário...

Tipo

campo Nome (tabela - aluno)

campo Turma (tabela - turma)

campo Professor (tabela - professor)

campo Curso (tabela - curso)

Estou trabalhando com tabelas separadas dentro do meu .mdb

Quando eu inserir os dados através do post eles alimentariam as tabelas é possível?

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

tente assim:

<%
dim conexao

sub abre_conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=" & Server.MapPath("\BD1\Dados\AGENDA.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
end sub

sub fecha_conexao
Conexao.close
Set Conexao = nothing
end sub 
%>[/code]
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...