Kan någon vänlig själ tala om hur man gör för att ansluta en access-bas i ett popup-fönster för att där visa det som motsvarar värdet i en postad sträng från förg. sida. Jag har gjort så här på min sida där jag skickar med ett värde från föregående sida: Om databasen ligger på en webb då? Använder du server- eller klientscript? Har du ASP stöd på din server där sidan ligger? Har du någon databas anslutning på sidan som anropar popupen? Hur ser sidan där popuplänken ligger och själva popupsidan ut? Sidan har asp stöd, då alla andra sidor fungerar som avsett. Hur ser länken för Popupfönstret ut? Vad har du för primärnyckel i tabellen? Vilken datatyp har primärnyckel: Räknare, text, datum?Ansluta till databas i popup-fönster?
Jag använder mig av denna koppling nu med det s*ter sig hela tiden
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/_data/databasen.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
TPFH
PeterSv: Ansluta till databas i popup-fönster?
<code>
nr = request.QueryString("nr")
path_to_db = "c:\home\b2304\DB\sandberg2004.mdb"
set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_to_db
set rs = db.execute("SELECT * FROM tblModels WHERE fltModel='" & nr & "'")
</code>
Från föregående sida ser det ut så här:
<code>
</code>Sv: Ansluta till databas i popup-fönster?
jag provade med Server.Mappath med det sket sig :-(
Mvh
PeterSv: Ansluta till databas i popup-fönster?
Sv: Ansluta till databas i popup-fönster?
Jag använder en DNS lös data koppling.
Mvh
PeterSv: Ansluta till databas i popup-fönster?
Ett exempel på "din popup":
<code>
<%
Dim rs
Dim conn
Dim strID
Dim strSQL
strID = Trim(Request.QueryString("id"))
If IsNumeric(strID) Then
strSQL = "SELECT TabellNamn.* FROM TabellNamn WHERE TabellNamn.Id=" & CLng(strID)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/_data/databasen.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, conn
If rs.EOF Then
Response.Write "Post med ID=" & strID & " saknas!"
Else
Response.Write "Välkommen!" & rs("FältNamn")
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Else
Response.Write "Du har inte angivit ett ID i ditt sidanrop!"
End If
%>
</code>
"Måste" du använda dig av popup? Är inte detta kommer ställa till problem för användare med "popup stoppare". Du bör istället använda "Target" attributen i din länk/formulär.