Hvordan udskriver jeg et dynamisk sql kald?

objRs(1)

obRs(2)

//>Rune

Og hvad betyder det?

Altså at du kan istedet for at skrive objRs("kolonnenavn") behandle data'erne som i et Array!

Første kolonne i række i din tabel vil ha' ID nr. 0 så du henter den fx. sådan her:

Response.Write(objRs(0))

//>Rune

nu ved jeg ikke hvad du skal bruge det til. men du har vel overvejet at nogle kunne finde på at skrive dumme ting?

rune -> hvordan finder jeg så ud af når jeg er nået til den sidste?

Skal jeg bare skrive:

do while objRs(i)
...
...
i = i + 1
loop

eller hvad?

Og når jeg så skal skrive indholdet af rækken ud, hvordan så?

Jeg skal jo både have kolonnenavne og data ud.


squashguy -> det har jeg tænkt på, men i og med det kun er mig(admin) der kan se siden og at ordet "select" ikke kan fjernes, regner jeg med at det er sikkert nok. :)

Hvis det har noget at sige, vil det også være rart, hvis jeg kunne f.eks. skrive "select tabel1.id, tabel2.id from tabel1, tabel2".

Ville det være svært at lave?

Når du har et array kan du bruge ubound(objRS) ville jeg mene...

så kan du skrive for
for i=1 to ubound(objRS)
...
next

Her er mit forsøg(virker ikke):

<% 
saetning = request("saetning")
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conne = Server.CreateObject("ADODB.Connection")
Conne.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../database/database.mdb") & ";UID=admin;PWD=;"
    if not saetning="" then
        Set rse = Server.CreateObject("ADODB.RecordSet")
        strSQLe = "Select " & saetning
        rse.Open strSQLe, Conne, adOpenKeyset, adLockOptimistic
    end if
%>
                 
<p><b>Vedligehold hjemmesiden</b></p>

<FORM METHOD="POST" ACTION="portal.asp?page=sqltest.asp">
<table cellpadding=4 cellspacing=1 border=0>
<tr>
  <td colspan=2><font face="arial,helvetica" size="1" color="#FFFFFF"><b>Lav sætning</b></font></td>
</tr>
<tr>
  <td><font face="arial,helvetica" size="2">Sætning</font></td>
  <td width=350><input type="text" name="saetning" size=40></td>
</tr>
<tr>
  <td colspan=2 align="center">
    <input type="submit" value="Udfør sætning" size=20>
    <input type="Reset" value="Slet Alt" name="Reset">
  </td>

</tr>
</table>
</form>

<%
if not saetning="" then
    response.write strSQLe
%>
<table>
<%
    for i=1 to ubound(objRS)
        response.write "<tr><td>" & objRS(i) & "</td></tr>" & vbcrlf
    next
%>

</table>
<% end if %>

Der kommer denne fejl:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'ubound'

/admin/sqltest.asp, line 48

linie 48:
for i=1 to ubound(objRS)

Prøv noget ala:
<% If Not Objrs.EOF Then %>
    <TABLE BORDER="1" HEIGHT="100%">
        <TR BGCOLOR="#CCCCCC">
    <% For Each Item in Objrs.Fields %>
            <TD>
                <% = Item.Name %>
            </TD>           
<%
        ATmp = ATmp + 1
    Next
    Objrs.MoveFirst
%>
    <% Do While Not Objrs.EOF %>
        </TR>
            <% For a = 0 To ATmp - 1 %>
            <TD VALIGN="TOP">
            <% = Replace(Objrs(A) &" ",VbCrLf,"<BR>") %>&nbsp;
            </TD>
            <% Next %>
        <TR>
<%
        Objrs.MoveNext
    Loop
Else
%>
    <STRONG><% = err.Description %></STRONG>
<% End If %>

Så kommer denne fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/sqltest.asp, line 42


linie 42:
<% If Not Objrs.EOF Then %>

Du kan vel skifte et objekt variabelnavn ud med det du bruger.
Du bruger rse og eksemplet bruger Objrs

Bare ret objrs til rse igennem hele mit eksempel, så er der måske bonus. Hvis du vil have kodet hele siden, kan jeg da godt gøre det for dig, men det er ikke gratis *S

Heheh, det bliver ikke nødvendigt.

Jeg er bare lidt søvning idag. ;)

Jeg prøver!

Stort!! Det virker!!

Tak!!!! :D