Jump to content

  2. → Viewing Profile: Posts: w@shin ! ! !

w@shin ! ! !

Member Since 22/06/2003
Offline Last Active 17/04/2007, 11:43
-----

Posts I've Made

In Topic: Sql

07/03/2006, 15:43

valeu ae pessoal, consegui... O código ficou assim:

<%
Dim objConn, rs, rs2, sql, varserie, i
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\teste.mdb;"
set rs = objConn.execute("Select distinct(serie)  from aluno")
do while rs.eof = false
  i = rs("serie")
  set rs2 = objConn.execute("Select * from aluno where serie = '"&i&"' ")
Response.write "<b>" & rs2("serie") & "</b>" & "<br>"
    do while  rs2.eof = false
     Response.Write Rs2("nome") & "<br>"
     Rs2.Movenext
    loop
 rs.movenext
loop
%>

In Topic: Sql

06/03/2006, 12:26

agora dá erro mesmo:

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (vírgula) na expressão de consulta '(codigoserie, nomes)'.
/acesso3.asp, line 9

In Topic: Sql

06/03/2006, 03:33

Olá , estou tentando com outra tabela aqui para ver se consigo,.. Tenho a tabela alunos e Séries... Não quero qea a séries se repitam. Prém não estou conseguindo
Abaixo segue o código

<%

Dim objConn, rsquery

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\teste.mdb;"

set rsquery = objConn.execute("select distinct codigoserie, nomes from aluno )

while not rsquery.eof
response.write rsquery("codigoserie") & "<br>"
response.write rsquery("nomes") & "<br>"
rsquery.movenext
wend

%>


O resultado final aparece assim:

1
Ariana
2
João
2
Washington

Note que o código da série (2) se repete

In Topic: Atualizações Dinâmicas

25/01/2006, 02:08

valeu Luis Otávio, me ajudou muitíssimo

In Topic: Atualizações Dinâmicas

24/01/2006, 19:26

opá, estou aqui de novo com dúvidas...
Essa linha:
set f = fso.CreateTextFile(Server.Mappath ("pasta" &"\" &"exemplo2.asp"), True)

essa linha de código define o nome do arquivo e em que pasta ele será criado, certo? , como faço para que no nome da pasta seja capturado de uma variável. Terei um formulário anters desta página. Nesse formulário o usuário digitará o nome da pasta(ela já existe) em que ele deseja criar o arquivo. Quero capturar (Request.Form("pasta") oq o usuário digitar e colocar nessa linha:
set f = fso.CreateTextFile(Server.Mappath ("pasta" &"\" &"exemplo2.asp"), True)

  1. Fórum WMO
  2. → Viewing Profile: Posts: w@shin ! ! !
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq