Hallo, ik heb een probleem met het koppelen van twee Microsoft Acces-databases.
Het gaat over een registratieformulier. De code van de tekstbalkjes is :
elke met een eigen name en value.
Ik wil dit echter veranderen in een meerkeuze-box; hier ontstaat het probleem. Deze dropdown-box moet namelijk gegevens tonen uit een andere database. Dit kan door middel van de volgende code :
Het lukt me om het juist weer te geven, maar nu moet het geheel nog op de juiste manier worden opgeslagen. De dropdown-box geeft de waarden 'Artiest' en 'Nummer' weer.
Nu wil ik dat de bijbehorende waarde 'URL' wordt opgeslagen.
Ik moet dus op een of andere manier de code [value="<%=tmp_clip10%>"] verwerken in de code.
Ik hoop dat iemand kan helpen !
Het gaat over een registratieformulier. De code van de tekstbalkjes is :
code:
1
| <input type="text" name="clip10" value="<%=tmp_clip10%>" size="30"> |
elke met een eigen name en value.
Ik wil dit echter veranderen in een meerkeuze-box; hier ontstaat het probleem. Deze dropdown-box moet namelijk gegevens tonen uit een andere database. Dit kan door middel van de volgende code :
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
| <select size="1" name="D1" style="font-family: Arial; font-size: 11px; width: 270">
<%
' Declareer de id om een selectie te kunnen maken in de database
Dim id
' Lees de id uit de url en zet hem in de variabele
id = request.querystring("id")
' Als er geen id is opgegeven zet dan de id op 1
' zodat er geen fout ontstaat bij de sql query
if id = "" then
id = "1"
end if
' Declareer de variabele voor de connectiestring (StringConnectie -> strCon)
Dim strCon
' Zet de connectiestring in de variabele. Hier is dit dus een ODBC connectie.
accessDB = server.mappath("database.mdb")
strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon = strCon & accessDB & ";"
' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
Dim objCon
Set objCon = Server.CreateObject ( "ADODB.Connection" )
' Open de verbinding met de database. Voor objCon wordt er een
' verbinding geopend met opgegeven database.
objCon.Open strCon
' De SQL query om de gegevens uit de database te halen.
SQL = "SELECT * FROM Tracks ORDER BY Artiest ASC, Nummer ASC"
' Plaats de gegevens van de SQL Query in de recordset objRec.
set objRec = objCon.execute(SQL)
%>
<%
' Herhaal het onderstaande totdat het einde van de recordset is bereikt.
' Zet de waarde van de recordset van alle velden tussen de <td></td> tags.
' Bij elke loop word er een rij van de tabel neergezet.
Do While Not objRec.EOF
%>
<option><%= objRec.Fields("Artiest").Value %> - <%= objRec.Fields("Nummer").Value %></option>
<%
' Ga naar het volgende record om de waarden in een nieuwe rij te laten zien.
objRec.MoveNext
Loop
%>
</select> |
Het lukt me om het juist weer te geven, maar nu moet het geheel nog op de juiste manier worden opgeslagen. De dropdown-box geeft de waarden 'Artiest' en 'Nummer' weer.
Nu wil ik dat de bijbehorende waarde 'URL' wordt opgeslagen.
Ik moet dus op een of andere manier de code [value="<%=tmp_clip10%>"] verwerken in de code.
Ik hoop dat iemand kan helpen !
[ Voor 30% gewijzigd door Verwijderd op 31-08-2005 12:32 ]