Hvordan søger man i 2 forskellige databaser

Du løber nok ind i færre problemer hvis du konsekvent vælger at bruge det samme nummer for ting som har med den ene og den anden database at gøre.

Men ellers er det vel simpelthen noget med 2 løkker inden i hinanden:

<%
Set database2 = Server.CreateObject ("ADODB.Connection")
Set indlaeg2 = Server.CreateObject ("ADODB.Recordset")
database2.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/../db/db1.mdb"))

Set database3 = Server.CreateObject ("ADODB.Connection")
Set indlaeg3 = Server.CreateObject ("ADODB.Recordset")
database3.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/../db/db2.mdb"))


indlaeg2.Open "SELECT * FROM members ORDER BY name", database2

While Not indlaeg2.EoF
    navn2 = indlaeg2.Fields("name")

    indlaeg3.Open "SELECT * FROM PersonTabel WHERE morbnavn = '" & navn2 & "' ORDER BY name  ", database3
    ' Eller hvis det rent faktisk *er* en LIKE du skal bruge:
    ' indlaeg3.Open "SELECT * FROM PersonTabel WHERE morbnavn LIKE '%" & navn2 & "%' ORDER BY name  ", database3


    While Not indlaeg3.EoF
        Response.Write navn2 & " - " & indlaeg3.Fields("morbnavn") & " - " & indlaeg3.Fields("navn") & "<br>"

        indlaeg3.MoveNext
    Loop

    indlaeg2.MoveNext
Loop
%>

Det ser sku godt ud :o)

Men hvad nu hvis alle navnene fra db1 ikke eksistere i db2 og omvendt, kan man lave en eller anden udtræk som forhindre fejl.

resultatet af denne kode er at finde alle de poster i begge databaser som både har en name og morbnavn som er ens

Den slags fejl opstår ikke i den viste kode - den indre løkke løber kun hvis der rent faktisk er hits.

Jeg får den her fejl

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/seek3.asp, line 27
Loop

linie 27 er første loop

Der mangler da vist ogos en Do på (begge!) While-løkker:

Ret:

While Not indlaeg2.EoF

til:

While Not indlaeg2.EoF

Tsk-tsk:

...

til:

Do While Not indlaeg2.EoF

Hvad med noget respons?

sorry.. har været lidt hængt op på en nyformatteret maskine som åbenbart ikke ville samarbejde :o(

Jeg fik stadig samme fejl, men kan godt se at det burde virke, der må være noget andet galt, problemet er dog løst da en af de brugte databaser røg under formatteringen ( rigtige mænd laver ikke backup, de tuder... længe :o) )
kan du ikke sende svar så du kan få points, og igen tak!!

Svar ...

Sur måde at løse problemet på :^|

Så mangler du bare at acceptere mit svar :^)

det er hermed gjort :o)

Takker for point :^)