Access + ASP

Vad jag fattar det som så är d4et väll bara att göra såhär:

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\databas.mdb"
	SQLStmt = "SELECT * FROM Foretag Where Foretag = '" & Request.Form("Foretag") & "'"
	Set RS = Connection.Execute(SQLStmt)

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\databas.mdb"
	SQLStmt = "SELECT * FROM brancher Where branch = '" & Request.Form("branch") & "'"
	Set RS1 = Connection.Execute(SQLStmt)

sen e det bara att skriva ut Företagen

<%=RS("foretag")%>

och brancherna:

<%=RS1("branch")%>

hoppas detta hjälper dig.

Nej, nej, nej... ;)

En ADODB-connection håller en koppling till en databas, och om man ska använda flera tabeller i samma databas ska man också använda samma connection. Man måste inte, men det finns ingen anledning att tynga ner systemet med fler kopplingar, och om man använder flera kan man heller inte göra operationer på flera tabeller samtidigt.

Det jag gör sedan är att skriva ut alla brancher, sorterade, inga problem.
PROBLEM! Sedan vill jag skriva hur många företag som finns i varje branch ex:

Det är sådant SQL finns till för. Vill man lista alla branscher, och hur många företag som finns i varje, så är det något databasen ska ta hand om, inte VBScript och ADO. Det är liksom själva idén med relationsdatabaser :)

Nu hör ju frågan till SQL-avdelningen, så jag postar om din fråga där.

mvh

Ursäkta, jag menade så som emission skrev men jag kopigerade in det två ggr från ett script som jag använder och glömde ändra.

------------------
// David

Jag misstänkte faktiskt det. Det var inte likt dig... :)

För att förenkla det skriver jag lösningen (kopierad utav David). Men redigerad alltså!

----------------------------------------

Vad jag fattar det som så är d4et väll bara att göra såhär:
Kod:
--------------------------------------------------------------------------------
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\databas.mdb"
SQLStmt = "SELECT * FROM Foretag Where Foretag = '" & Request.Form("Foretag") & "'"
Set RS = Connection.Execute(SQLStmt)
SQLStmt = "SELECT * FROM brancher Where branch = '" & Request.Form("branch") & "'"
Set RS1 = Connection.Execute(SQLStmt)

--------------------------------------------------------------------------------

sen e det bara att skriva ut Företagen

Kod:

--------------------------------------------------------------------------------

<%=RS("foretag")%>

--------------------------------------------------------------------------------

och brancherna:
Kod:
--------------------------------------------------------------------------------

<%=RS1("branch")%>

--------------------------------------------------------------------------------

hoppas detta hjälper dig.

------------------
Mvh
Patrik
aka Brimba

www.datormaklarna.se
patrik@datormaklarna.se

Tack för svaren jag fått. Skall genast prova om det fungerar ( vilket det säkerligen utan problem gör )

hmm.. funka inte så bra

Problemet är inte att jag vill få fram vilken branch som företaget ifråga tillhör. Jag skriver ut alla brancher som finns i db´n och sedan vill jag göra en recordcount i "den andra" tabellen på antal företag i de olika brancherna ...

hänger ni med ?!

Tack för att ni försöker hjälpa till det uppskattar jag...

Så här räknar du antal poster i en databas:

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\databas.mdb"
SQLStmt = "SELECT * FROM Foretag Where Foretag = '" & Request.Form("Foretag") & "'"
Set RS = Connection.Execute(SQLStmt)

SQL = "SELECT COUNT(*) AS rekna_inlagg FROM brancher WHERE branch = '" & Request.Form("Branch") & "'"
set RS1 = Connection.Execute(SQL)

och sen för att få det utskrivet på skärmen:
<% =RS1("rekna_inlagg") %>

Hoppas det var det du ville ha reda på :)

------------------
SPiN, bjowik99@it-gymnasiet.nu

[Redigerat av SPiN den 13 jun 2000]

[Redigerat av SPiN den 13 jun 2000]