Toon posts:

[VB+ Access] gegevens naar tabel schrijven.

Pagina: 1

Acties:

61 views sinds 30-01-2008
Reageer

maandag 8 april 2002 14:39

Acties:

Verwijderd

Topicstarter

Overzicht:
Tabel (access97):
Naam: "Contactpersonen"
Record: NaamID(primair) en Naam

Tabel (access97):
Naam: "Project"
Inhoud: ProjectID(primair), NaamID

Nu heb ik in VB een 2 listboxen + 1 commandbutton gemaakt in een form.

Listbox1 => De namen(Naam) uit de tabel "Contactpersonen" worden weergegeven.

Command1 => Als in Listbox1 een naam is geslecteerd zet deze dan in Listbox2

Listbox2 => De naam die in Listbox1 stond staat nu hier.

In Access : staan in de tabel "Contactpersonen" de namen van de personen met hun eigen ID. De ID van de geselecteerde persoon(en) moet naar de Tabel "Project" toe bij het record "NaamID"

Hoe kan ik dit realiseren?

maandag 8 april 2002 14:53

Acties:

Verwijderd

Ik kan je dit vertellen, misschien dat je er wat aan hebt met listbox1:

code:

Dit is een .asp file om gegevens UIT een databse te laten zien (response.write)
-------------------------
<head>
<title>Untitled Document</title>
<%
Dim DbConn
Dim DbConnStr
Dim DbPad
Dim Rs[Tabelnaam]

Dim Sql[Tabelnaam]

Set DbConn = Server.CreateObject("Adodb.Connection")
Set Rs[Tabelnaam] = Server.CreateObject("Adodb.Recordset")


DbPad = Server.MapPath("JEDATABASE.mdb")
 

DbConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPad

Sql[Tabelnaam] = "SELECT * FROM tabelnaam"

DbConn.Open DbConnStr
%>
</head>
<body>

Nu Ga je de gegevens in de body laten lezen:

<%
Rs[Tabelnaam].Open Sql[Tabelnaam], DbConn

If Rs[Tabelnaam].EOF Then
Response.Write "Er staan geen gegevens in de tabel"
Else

Do Until Rs[Tabelnaam].EOF
Response.Write(Rs[Tabelnaam]("CELNAAM").value)
Rs[Tabelnaam].MoveNext
Loop
End If
%>

Nu ga je alles netjes afsluiten:

<%
Rs[Tabelnaam].Close
Sql[Tabelnaam].Close
DbConn.Close

Set Rs[Tabelnaam] = Nothing
Set Sql[Tabelnaam] = Nothing
Set DbConn = Nothing
%>
</body>

Als je de gegevens uit de database niet als gewone tekst wil laten weergeven kun je dit ook doen door een textfield uit een form te gebruiken.
Eg:
Vervang Response.Write(Rs[Tabelnaam]("CELNAAM").value) door Response.Write(<input type="text" name="iets" value="(Rs[Tabelnaam]("CELNAAM").value)">)

Als dit niet werkt moet je zelf maar wat klooien met aanhalingtekens en haakjes

Jou rs[Tabelnaam] en sql[Tabelnaam] worden dus rsContactpersonen en sqlContactpersonen

En CELNAAM word dus naam

Maar als je niet iedere NaamID wilt laten zien moet je een specefieke ID aangeven, dit kan door devolgende code:

code:

<%
for each x in rs.Fields
    if x.name <> "ID" then%>
         
         
<input type="text" name="iets" value="<%=x.value%>" size="20">
    <%end if
next
rs.close
conn.close
%>

Ik weet niet precies hoe en waar je deze code in de code erboven moet zetten omdat ik deze zelf niet gebruik, maar dan weet je igg hoe het ongeveer moet...

Als je listbox een als een pulldown menu wilt zul je in een form dus een pulldown menu moeten maken, en de code tot en met rs.movenext als <option> doen...
Maar hoe je dan je selectie in textbox 2 krijgt moet je niet aan mij vragen

maandag 8 april 2002 15:31

Acties:

Verwijderd

Topicstarter

Op maandag 08 april 2002 14:53 schreef slindenau het volgende:

Maar hoe je dan je selectie in textbox 2 krijgt moet je niet aan mij vragen

Het probleem zit hem niet in het visuele gedeelte. Dat werkt allemaal. Ik kan door een persoon te selecteren op de commandbutton drukken en deze persoon spring over van listbox1 naar listbox 2. Dus het gaat hem enkel om. Dat de ID gegevens van de tabel "contactpersonen" naar de tabel "Project" Record NaamID gaat. maar iedergeval bedankt. En ik ga nog even doorpluizen.

maandag 8 april 2002 15:39

Acties:

Verwijderd

Gebruik AUB geen Response.Write in VB.
Ik weet niet of het werkt (en wil het niet weten ook).
Het is ASP en dat is wel een hele beperkte versie van VB.
Je kunt met een append (nieuw record)of update (bestaand record) query de gegevens opslaan in de database

maandag 8 april 2002 17:49

Acties:

Verwijderd

Op maandag 08 april 2002 15:31 schreef F1 het volgende:

[..]

Het probleem zit hem niet in het visuele gedeelte. Dat werkt allemaal. Ik kan door een persoon te selecteren op de commandbutton drukken en deze persoon spring over van listbox1 naar listbox 2. Dus het gaat hem enkel om. Dat de ID gegevens van de tabel "contactpersonen" naar de tabel "Project" Record NaamID gaat. maar iedergeval bedankt. En ik ga nog even doorpluizen.

Ow, je wilt In een database gegevent van een tabel naar een tabel schrijven...

Ik heb wel de asp codes om een nieuwe regel in een tabel te laten adden...als je die nodig hebt moet je het maar ff zeggen...
Maar dit is dus niet direct wat jij wil, maar misschien heb je er wel wat aan...

maandag 8 april 2002 19:13

Acties:

Feyd-Rautha

Op maandag 08 april 2002 14:39 schreef F1 het volgende:
Overzicht:
Tabel (access97):
Naam: "Contactpersonen"
Record: NaamID(primair) en Naam

Tabel (access97):
Naam: "Project"
Inhoud: ProjectID(primair), NaamID

Nu heb ik in VB een 2 listboxen + 1 commandbutton gemaakt in een form.

Listbox1 => De namen(Naam) uit de tabel "Contactpersonen" worden weergegeven.

Command1 => Als in Listbox1 een naam is geslecteerd zet deze dan in Listbox2

Listbox2 => De naam die in Listbox1 stond staat nu hier.

In Access : staan in de tabel "Contactpersonen" de namen van de personen met hun eigen ID. De ID van de geselecteerde persoon(en) moet naar de Tabel "Project" toe bij het record "NaamID"

Hoe kan ik dit realiseren?

I must not fear. Fear is the mind-killer. Fear is the little-death that brings total obliteration. I will face my fear. I will permit it to pass over me and through me. Where the fear has gone there will be nothing. Only I will remain.

maandag 8 april 2002 19:14

Acties:

Feyd-Rautha

Op maandag 08 april 2002 14:39 schreef F1 het volgende:
Overzicht:
Tabel (access97):
Naam: "Contactpersonen"
Record: NaamID(primair) en Naam

Tabel (access97):
Naam: "Project"
Inhoud: ProjectID(primair), NaamID

Nu heb ik in VB een 2 listboxen + 1 commandbutton gemaakt in een form.

Listbox1 => De namen(Naam) uit de tabel "Contactpersonen" worden weergegeven.

Command1 => Als in Listbox1 een naam is geslecteerd zet deze dan in Listbox2

Listbox2 => De naam die in Listbox1 stond staat nu hier.

In Access : staan in de tabel "Contactpersonen" de namen van de personen met hun eigen ID. De ID van de geselecteerde persoon(en) moet naar de Tabel "Project" toe bij het record "NaamID"

Hoe kan ik dit realiseren?

hmm... is dit voor het stage-administratie project voor 't school

je maakt eerst een recordset waarmee je een tabel kunt manipuleren:
dim rs as new ADODB.recordset
rs.open "tabelnaam", <watandereopties>

rs.addnew
rs!veldnaam = waarde
rs.update

TIP : kijk eens in de MSDN

voila, een hand toegestoken door een VHTI-student

maandag 8 april 2002 19:22

Acties:

Verwijderd

Je moet gaan werken met een tussen query. Uit je listbox krijg je alleen een waarde terug die correnspondeerd met de lijst die je in de listbox mikt. Je moet dus als je de 5e optie in een listbox aanklikt zorgen dat je een query maakt die de id ophaalt van de het record dat als 5e is langsgekomen. Ik hoop dat ik het duidelijk genoeg kan uitleggen:

Dim i As Integer
Dim ListId

Listid = ListBox1.Index

Set objRs = New ADODB.recordset
sSQL = "SELECT id FROM [TABEL]"
objRs.open sSQL, myCOn

'ERRUG BELANGERIJK
While NOT objRs.EOF AND FoundIt
If int(ListId) = int(i) then
FOundit = TRUE
MYID = objRs("id")
ELSE
objRs.movenext
i = i + 1
ENDIF
Wend

Set objRs = nothing

Ik hoop dat je er wat aan hebt.
[

Pagina: 1

Reageer