rs.fields, recordcount=0 e order by não funcionam
Boas pessoal, estou com algumas duvidas neste novo projecto e gostaria de saber se alguem percebe o porque destes erros.
1) Num formulário eu tenho um campo chamado data_nasc e eu dou três selects dia,mês e ano, eu gostava que os 3 valores aparececem separados por - no campo data_nasc
esta é a minha ideia mas deve estar algo mal.
rs.fields("data_nasc")=request.form("Date_Birth_day")&"-"&request.form("Date_Birth_month")&"-"&request.form("Date_Birth_year")
2) Nesta situação a bd nao da nada apesar de eu ter la uns 16 users.
podem ver o resultado do codigo em baixo aqui:Clique aqui
set conn = CreateObject ("ADODB.Connection")
conn.Provider = "microsoft.jet.oledb.4.0"
conn.Open Server.MapPath ("db/12345678.mdb")
set rs = Server.CreateObject ("ADODB.Recordset")
instotal = "SELECT * FROM usuários WHERE '" & tbl & "' LIKE '" & tbl1 & "'"
rs.open instotal, conn, 1
Response.Write "(" & instotal & ")"
%> <br>% <
Response.Write "(" & rs.RecordCount & ")"
3) De modo a poder ordenar alfabeticamente fiz isto:
Username<a href="viewuser.asp?tbl2=username&dir=ASC"><img src="images/up.jpg"></a>
<a href="viewuser.asp?tbl2=username&dir=DESC"><img src="images/down.jpg"></a>
A conexao esta feita assim e apesar de aparecerem os campos ele nao faz nada.
Podem ver aqui:Clique aqui
<%
Dim tbl
Dim dir
tbl2= request.queryString("tbl2")
dir= request.queryString("dir")
set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.Oledb.4.0"
conn.Open Server.MapPath("db/12345678.mdb")
set rs=server.createobject("adodb.recordset")
instotal = "select * from users ORDER BY '" & tbl& " " & dir& "' "
rs.open instotal,conn,3,3
Response.Write "("&rs.recordCount&")"
if rs.recordcount > 0 then
%>
Peço desculpa pelo longo post e por abordar 3 questões mas penso que seria melhor que estar a abrir 3 post de uma vez.
Obrigado
Discussão (29)
Carregando comentários...