CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

simonsenpq Nybegynder

17. maj 2005 - 13:29 Der er 2 kommentarer og
1 løsning

XML-svar til formularfelter i Access

Fra Access vil jeg kunne indtaste et telefonnummer i et felt, sende en http-forespørgel, modtage en XML-fil som svar hvorfra der skal indsættes data i min formular. Hvordan gør jeg det?

Jeg vil altså kunne noget tilsvarende som man kan, når man bestiller billetter på BilletNET – bare i Access (se evt. http://www.eniro.dk/omeniro/img/eniro_booking.jpg).

Forespørgslen er noget i retning af http://asdf.dk/?telefonnummer=12345678

Indtaster jeg adressen i min browser får jeg nogenlunde følgende svar:

<?xml version="1.0" encoding="iso-8859-1" ?>
…
<RAEKKE NR="1">
<NAVN>Hans Jensen</NAVN>
<ADRESSE>Hovedgaden</ADRESSE>
<POSTNR>1234</POSTNR>
<BYNAVN>København</BYNAVN>
<TELEFON>12345678</TELEFON>
</RAEKKE>

Hvordan får jeg sat det ind i Access? Går ud fra at der skal bruges lidt VBA.

Synes godt om

terry Ekspert

18. maj 2005 - 08:27 #1

Hi simonsenpg
HTML and XML arent used very much in Access, or at least I dont think so, so you may not get much help with this.
When you say "sende en http-forespørgel" do you mean just download a file from a website?
Have you looked at Web Services in Access, if there is a web service which can return the XML file then this might be possible. Once you have your XML file then it could be imported into Access.

When I enter this in my browser http://asdf.dk/?telefonnummer=12345678
then I only see a web page, not any XML???

Synes godt om

simonsenpq Nybegynder

18. maj 2005 - 16:58 #2

Det var slet ikke så svært, som jeg troede...

http://asdf.dk/?telefonnummer=12345678 var bare et eksempel - det er ikke mit domæne.

Har brugt nedenstående kode. Ville gerne have været foruden det ekstra databasekald for at slette tabellens indhold. Hvis nogen kender en løsning, vil jeg gerne høre om det.

Application.ImportXML _
DataSource:="http://asdf.dk/?telefonnummer=12345678", ImportOptions:=acAppendData

Set db = CurrentDb()
Dim SQL As String
SQL = "SELECT * FROM raekke"
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(SQL)
Me.navn = rs!navn
Me.adresse = rs!adresse
Me.postnr = rs!postnr
Me.bynavn = rs!bynavn
Me.telefon = rs!telefon
Me.email = rs!email
db.Execute ("DELETE * FROM raekke")

Synes godt om

terry Ekspert

18. maj 2005 - 19:23 #3

no it doesnt look difficult at all :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Usynlige tabeller, forespørgsler mm i Access Af sigyn i Access	4	18/07/202407:29	18/07/202410:32
Convertering af variabler Af per2edb i Access	1	30/06/202420:14	01/07/202409:18
Overfør global variabel via Macro Af per2edb i Access	7	24/06/202411:37	25/06/202408:02
vis tekst ved hjælp af mousover Af per2edb i Access	3	21/06/202409:00	21/06/202414:58
Valg af type fra liste skal åbne en rapport over alle poster med den valgte type Af visto i Access	5	07/06/202417:13	10/07/202412:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS