SELECT primi 12 campi dal Db

**betto** · 23-04-2007, 11:10

Ciao a Tutti,
volevo chiedere:

Ho una tabella t_sal di 44 campi,
devo estrarre i primi 12 campi,
con la funzione SELECT ho usato questa sintassi che va benissimo,
pero' mi pongo la domanda: e' possibile in maniera automatica estrarre i primi 12 campi senza dover digitare per forza il nome di ciascuno, tipo SELECT from campo1 to 12 ...

Grazie mille !!
Angelo

<%@ Language=VBScript %>
<% Option Explicit
Dim count_rec, iLoop, objConn, objRS, strSQL, var
%>

<BODY>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=sal.dsn"
objConn.Open
'
strSQL = "SELECT Num, Month_Year, Project, Start, End, Status, Client, Country, Project_Leader, Activity_Code, Description, Summary FROM t_sal ORDER BY " & var
Set objRS = objConn.Execute(strSQL)
'
Do While Not objRS.EOF
count_rec = count_rec + 1
If count_rec = 1 Then
Response.Write "<TABLE border=1><TR>"
For iLoop = 0 to objRS.Fields.Count - 1
Response.Write "<TD BGCOLOR=FFFFCC ALIGN=CENTER><FONT SIZE=2><A style='color: #006600' class='plain' HREF='http://enws01157389/sgef_sal/response.asp?var=" _
& objRS.Fields(iLoop).Name & "'>" _
& objRS.Fields(iLoop).Name & "</A></FONT></TD>"
Next
Response.Write "</TR>"
ElseIf count_rec > 1 Then
Response.Write "<TR>"
For iLoop = 0 to objRS.Fields.Count - 1
Response.Write "<TD BGCOLOR=white ALIGN=CENTER><FONT SIZE=2 COLOR=brown>" & objRS.Fields(iLoop).Value & "</FONT></TD>"
Next
Response.Write "</TR>"
objRS.MoveNext
End If
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "</TABLE>"
%>

</BODY>
</HTML>

**DarioN1** · 23-04-2007, 11:13

select top 12 * from tabella . . .

**betto** · 23-04-2007, 11:30

Grazie,
pero' intendevo non i primi 12 record, ma i primi 12 campi del DB...

**DarioN1** · 23-04-2007, 11:38

ahhhh ops . . .

Non si può allora . . .

**optime** · 23-04-2007, 13:19

potresti fare una SELECT * e poi usare i campi da objrs(0) a objrs(11)

**betto** · 23-04-2007, 14:29

Ho fatto cosi' e funziona bene, Grazie !!
Ho messo in rosso i valori cambiati...
Mi viene una curiosita': se di questi 12 campi avessi voluto skippare il 3, 5, 8 campo, usanso sempre la strada del ciclo for e di objRS.Fields(iLoop).Name, ci sarebbe un modo elegante per scriverlo ??

<%@ Language=VBScript %>
<% Option Explicit
Dim count_rec, iLoop, objConn, objRS, strSQL, var %>

<HTML>
<BODY>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=sal.dsn"
objConn.Open
'
strSQL = "SELECT * FROM t_sal ORDER BY " & var
Set objRS = objConn.Execute(strSQL)
'
Do While Not objRS.EOF
count_rec = count_rec + 1
If count_rec = 1 Then
Response.Write "<TABLE border=1><TR>"
For iLoop = 0 to objRS.Fields.Count - 34
Response.Write "<TD BGCOLOR=FFFFCC ALIGN=CENTER><FONT SIZE=2><A style='color: #006600' class='plain' HREF='http://enws01157389/sgef_sal/response.asp?var=" _
& objRS.Fields(iLoop).Name & "'>" _
& objRS.Fields(iLoop).Name & "</A></FONT></TD>"
Next
Response.Write "</TR>"
ElseIf count_rec > 1 Then
Response.Write "<TR>"
For iLoop = 0 to objRS.Fields.Count - 34
Response.Write "<TD BGCOLOR=white ALIGN=CENTER><FONT SIZE=2 COLOR=brown>" & objRS.Fields(iLoop).Value & "</FONT></TD>"
Next
Response.Write "</TR>"
objRS.MoveNext
End If
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "</TABLE>"
%>

</BODY>
</HTML>

**optime** · 23-04-2007, 14:47

con una if

Discussione: SELECT primi 12 campi dal Db

Strumenti discussione

Ricerca discussione

Visualizza

SELECT primi 12 campi dal Db

Permessi di invio