excel - SELECT'e to RANGE'er??

Det haster sådan set lidt...jeg SKAL bruge det imorgen...

Er der virkerlig ingen der kan hjælpe mig???

Jeg er villig til at sætte 200 points på højkant for en løsning, der spiller 100%!!!!

Skal du have koden skrevet i ASP?

:)

Ja, tak.

Kan du lave det??

Jeg prøver! Hvordan skal den valgte kunde vises?

Kan jeg se på regnearket?

Det skal du ikke bekymre dig om. :)

Den del har jeg lavet...

Jeg ved slet ikke hvor jeg skal starte. Det vil hjælpe en hel del, hvis jeg kunne se arket. Kan ikke lave en dummy?

Om igen: Kan du ikke lave en dummy-ark med fiktive data?

er dette godt nok?

          januar                    februar
kunder  forecast  budget      forecast  budget
data      data      data          data    data
...      ....      ....          ....    ....
...      ....      ....          ....    ....

Er der kun to måneder? Jan og feb?

det er bare en test ting.

der er naturligvis 12 måneder på den rigtige

Hvorfor bruger du ikke en database i stedet? Det er en hel del nemmere?

:)

I det endelige regneark er der RIGTIG mange ting - firma budget....

Jeg synes også at database er MEGET nemmere, men det hjælper ikke meget....

Det er ikke mig der bestemme det... desværre...:)

Den bli'r hård at knække!

ja, tror du det ville hjælpe hvis du så min kode?

Kom med den.

<%
'Indsæt denne kode på alle de sider der skal beskyttes...
If Session("Valid") = "" Then
  Response.redirect "index.asp?page=bpassword.asp"
End If
if session("bnavn") <> request.querystring("bnavn") then
    response.redirect "index.asp?page=bpassword.asp&fejl=2"
end if
%>
<html>
<head>
<LINK rel="stylesheet" type="text/css" href="21_pc_ie.css">

<%
id=request.Querystring("id")
bnavn=request.Querystring("bnavn")
response.write "<font class=norm> Hej " & bnavn

vis = request.form("mode")
alle = request.form("alle")


set oConn = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.recordset")
set oRse = Server.CreateObject("ADODB.recordset")

' Open a connection to the Excel spreadsheet
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source="&Server.MapPath("test.xls")&";" & _
          "Extended Properties=""Excel 8.0;HDR=Yes;"";"

if vis <> "vis" then
%>
<form action="index.asp?page=excel.asp&bnavn=<%=bnavn%>" method=post>
<table border="0" width="382">
    <tr><td>
<select size="1" name="soge">
<%
' Create a command object and set its ActiveConnection
' This SQL statement selects a cell range in the "Expenses"  worksheet.
'    oCmd.CommandText = "SELECT * from `Expenses$A2:C4`"


sqle = "SELECT * from kunde"

' Open a recordset containing the worksheet data.
oRSe.Open sqle,oConn,1,3




do while not oRSe.eof
If IsNull(oRSe("kunde")) Then
else
response.write "<option value='"&oRSe("kunde")&"'>"&oRSe("kunde")&"</option>"
end if
oRSe.movenext
loop

response.write "</select></td><td>"
response.write "<select size='1' name='maned'>"
response.write "<option value='januar'>Januar</option>"
response.write "<option value='februar'>Februar</option>"
response.write "</select></td></tr><tr><td>"
response.write "<input type=hidden name='mode' value='vis'>"
response.write "Vis alle<input type=checkbox name=alle value='vis alle'></td></tr><tr><td><input type=submit value='Søg!!'><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br></td></tr></form>"


else if not alle = checked then
maned = request.form("maned")
soge = request.form("soge")
%>
<!-- #include file="databaseconn.asp" -->
<%

set rs = conn.execute("select * from menuer")

response.write maned & "<table align=center width=750 bordercolor=#000000 border=1><tr>"

do while not rs.eof
response.write "<td border=20 bordercolor=#010066><font class=norm>" & rs("menu") & "</td>"
rs.movenext
loop


her er den ene select der skal laves:

sql = "SELECT * from hele"




' Open a recordset containing the worksheet data.
oRS.Open sql,oConn,1,3
response.write "</tr><tr><td bordercolor=#ffffff><br></td></tr>"
do while not ors.eof
response.write "<tr><td bordercolor=#E68400><font class=norm>" & ors("kunde") & "</td><td bordercolor=#E68400><font class=norm>" & ors("Faktplan")
response.write "</td><td bordercolor=#E68400><font class=norm>" & ors("Herafforud") & "</td><td bordercolor=#E68400><font class=norm>" & ors("Outlook")
response.write "</td><td bordercolor=#E68400><font class=norm>" & ors("Forecast") & "</td><td bordercolor=#E68400><font class=norm>" & ors("Budget")
response.write "</td><td bordercolor=#E68400><font class=norm>" & ors("Ressource") & "</tr>"
ors.movenext
loop
response.write "</table>"


else
maned = request.form("maned")
soge = request.form("soge")
%>
<!-- #include file="databaseconn.asp" -->
<%

set rs = conn.execute("select * from menuer")





her er den anden select der skal laves:

sql = "SELECT * from kunde,februar where kunde='"&soge&"'"





' Open a recordset containing the worksheet data.
oRS.Open sql,oConn,1,3

response.write maned & "<table width=400>"


response.write "<tr><td><font class=norm>Kunde:</norm></td><td><font class=norm>" & ors("kunde") & "</td></tr>"
response.write "<tr><td><font class=norm>Faktura Plan Beløb:</td><td><font class=norm>" & ors("faktplan2") & "</td></tr>"
response.write "<tr><td><font class=norm>Heraf forud Faktura for måned:</td><td><font class=norm>" & ors("Herafforud2") & "</td></tr>"
response.write "<tr><td><font class=norm>Outlook:</td><td><font class=norm>" & ors("Outlook2") & "</td></tr>"
response.write "<tr><td><font class=norm>Forecast:</td><td><font class=norm>" & ors("Forecast2") & "</td></tr>"
response.write "<tr><td><font class=norm>Budget:</td><td><font class=norm>" & ors("Budget2") & "</td></tr>"
response.write "<tr><td><font class=norm>Ressource dage for salg:</td><td><font class=norm>" & ors("Ressource2") & "</td></tr>"



response.write "</table>"
end if
end if
%>

</head>
</html>

Endnu et problem eller en udfordring om man vil. Jeg har ikke mulighed for at teste, det jeg sidder og laver.

har du ikke excel??

Jeg har ikke en web-server!

hehe, ok.

hvis du post'er koden her, kan jeg teste den...

Det lyder godt!

Kommer der snart noget kode? :)

Spiser nu. Snart færdig!

ok, lyder dejligt!! :)

Det er sværere end jeg først regnede med. Jeg tror det kommer til at tage lang tid. Prøv lige det her:

<%
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strQuery As String

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

With conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=C:\Mappe2.xls;Extended Properties=Excel 8.0;"
    .Open
End With

strQuery = "SELECT * FROM [Ark1$A5:A50]"
rs.Open strQuery, conn, adOpenDynamic, adLockReadOnly

While Not rs.EOF
    Debug.Print rs.Fields(0)
    rs.MoveNext
Wend

rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing
%>


Hvad får du? Nogen fejl?

Slut på sætning var ventet
/bilside/link/bilside/www/test.asp, line 2, column 9
Dim conn As ADODB.Connection

Du behøver ikke at genopfinde den dybe tallerken for min skyld ;)

Kan man ikke "bare" bruge det her. Det virker:

set oConn = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.recordset")
set oRse = Server.CreateObject("ADODB.recordset")

' Open a connection to the Excel spreadsheet
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source="&Server.MapPath("test.xls")&";" & _
          "Extended Properties=""Excel 8.0;HDR=Yes;"";"
' Create a command object and set its ActiveConnection
' This SQL statement selects a cell range in the "Expenses"  worksheet.
'    oCmd.CommandText = "SELECT * from `Expenses$A2:C4`"


sqle = "SELECT * from kunde"

' Open a recordset containing the worksheet data.
oRSe.Open sqle,oConn,1,3

Du kan evt. kigge her : http://www.eksperten.dk/spm/271153

Andet indlæg.

Det skulle du have sagt noget før!

Hvorfor?

Det eneste jeg har bedt om en SQL sætning...

Det eneste jeg har bedt om ER en SQL sætning...

Så har vi to misforstået hinanden

hmmm, vil det sige at du IKKE kan lave det??

Jeg kan ikke lave en SQL sætning, der gør som du vil!

hmmm.

Surt.

Kender du nogen der kan?

hvis ja, er de online(på eksperten)?

Nej, jeg kender ikke nogen, der kan hjælpe dig. Desværre.

lukker...