- Fórum WMO
- → Viewing Profile: Posts: Xahuj
Community Stats
- Group Usuários
- Active Posts 18
- Profile Views 1349
- Member Title Novato no fórum
- Age 44 years old
- Birthday December 27, 1980
-
Sexo
Não informado
0
Neutral
User Tools
Friends
Xahuj hasn't added any friends yet.
Latest Visitors
-
Guest
04/11/2007, 00:56
Posts I've Made
In Topic: Ajuda Com Configuração Iis E Odbc...
18/04/2004, 19:41
Bom eu costuma fazer uma página para conexao (conexao.asp).. e na página onde desejo abrir o banco para visualizar, adicionar, alterar os dados.. eu chamo essa conexao.asp .. e abro então o objeto recordset na página onde faço as manipulações com o bd...
In Topic: Ajuda Com Configuração Iis E Odbc...
17/04/2004, 14:34
Para abrir conexão========== conexao.asp
<%
Sub AbreConexao
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("pasta/nomebd.mdb")
End sub
sub FechaConexao
conexao.Close
Set conexao = Nothing
End sub
Call AbreConexao
%>
Para abrir o recordset==========
<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit:Dim conexao,condados%>
<!--#Include file="conexao.asp"-->
<% Set condados=Server.CreateObject("ADODB.RecordSet") %>
<% condados.Open "SELECT campo FROM tabela", conexao %>
<%
Sub AbreConexao
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("pasta/nomebd.mdb")
End sub
sub FechaConexao
conexao.Close
Set conexao = Nothing
End sub
Call AbreConexao
%>
Para abrir o recordset==========
<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit:Dim conexao,condados%>
<!--#Include file="conexao.asp"-->
<% Set condados=Server.CreateObject("ADODB.RecordSet") %>
<% condados.Open "SELECT campo FROM tabela", conexao %>
In Topic: Abrir Outra Página
31/03/2004, 16:56
<a href="pagina.htm" target="_blank"> Link </a>
In Topic: Lado A Lado
15/03/2004, 21:33
nooosa vc deu um copy nesse código ou vez.. tenta arrumar kra.. o eu faço isso com tabelas tipo:
<% Do While Not condados.EOF %>
<table width="500" border="1">
<tr bgcolor="#FFCC00"><td> <% Response.Write(condados.Fields("titulo"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("resumo"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor1"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor11"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor2"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor22"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("chamada"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("data"))%> </td></tr>
</table>
<br>
<% condados.MoveNext:Loop%>
Blz!
<% Do While Not condados.EOF %>
<table width="500" border="1">
<tr bgcolor="#FFCC00"><td> <% Response.Write(condados.Fields("titulo"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("resumo"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor1"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor11"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor2"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor22"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("chamada"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("data"))%> </td></tr>
</table>
<br>
<% condados.MoveNext:Loop%>
Blz!
In Topic: To Com Um Problema Nesse Anexo
15/03/2004, 17:02
<%@Language=VBScript %>
<%Option Explicit
Dim sql%>
<HTML><HEAD><title>Conexao</title></HEAD><BODY>
<!--#INCLUDE file="INICIO.ASP"-->
<%SET cmd = Server.CreateObject("ADODB.Connection")
cmd.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("tabeladeprecos.mdb")
Set rsprodutos=Server.CreateObject("ADODB.RecordSet")
rsprodutos.Open sql, cmd
sql = "SELECT * FROM produtos WHERE tipo LIKE ? "
%>
tem que abrir a conexao com o bd e com o recordeset..
<%Option Explicit
Dim sql%>
<HTML><HEAD><title>Conexao</title></HEAD><BODY>
<!--#INCLUDE file="INICIO.ASP"-->
<%SET cmd = Server.CreateObject("ADODB.Connection")
cmd.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("tabeladeprecos.mdb")
Set rsprodutos=Server.CreateObject("ADODB.RecordSet")
rsprodutos.Open sql, cmd
sql = "SELECT * FROM produtos WHERE tipo LIKE ? "
%>
tem que abrir a conexao com o bd e com o recordeset..
- Fórum WMO
- → Viewing Profile: Posts: Xahuj
- Privacy Policy
- Regras ·