Avatar billede mikker Nybegynder
25. maj 2009 - 13:09 Der er 1 løsning

Søgning i Notes DB med VBA

Hej alle

Kan det være rigtigt at det her er den bedste måde at tilgå en Notes DB på - altså via VBA?

(Hvis det ser lidt rodet ud er det nok fordi det her er 630e omskrivning...)

Det er ikke helt nemt at gennemskue den måde det fungerer på, når man kun er vant til at arbejde med ACCESS og DB2.
Jeg har forsøt mig med en .Search men får at vide at der bliver fundet flere dokumenter end deer tilladt, eller noget i den stil.

P.S.:  AAARRRRGGGGGGHHHH !!! :o)

Sub notes3()
Dim db
Dim scom
Dim NotesView
Set scom = CreateObject("Lotus.NotesSession")
Call scom.Initialize
Set dira = scom.GetDbDirectory("DMRAXXX")
Set NotesDB = scom.GetDatabase(dira, "Markedsfoering\NetXXX.nsf")
Set NotesView = NotesDB.GetView("5. FAXXXXXXXXXXXXXXXXXXXXX")
Set doc = NotesView.GetFirstDocument
q = 0
While Not (doc Is Nothing)
Set aar = doc.GetFirstItem("AarFra")
If aar Is Nothing Then GoTo nodat
Set snr = doc.GetFirstItem("SalgsVnr")
Set stext = doc.GetFirstItem("SalgsVaretekst")
Set ufra = doc.GetFirstItem("SpotugeFra")
Set util = doc.GetFirstItem("SpotugeTil")
If Not aar Is Nothing Then valaar = aar.values
valsnr = snr.values
valstext = stext.values
va = valaar(0)
DoEvents
If va = "2009" Then
q = q + 1
Sheets(3).Range("A" & q) = va
Sheets(3).Range("D" & q) = valsnr(0)
Sheets(3).Range("E" & q) = valstext(0)
End If
nodat:
Set doc = NotesView.GetNextDocument(doc)
Wend
slut:
Set scom = Nothing
Set NotesView = Nothing
Set NotesDB = Nothing
End Sub
Avatar billede mikker Nybegynder
29. maj 2009 - 08:50 #1
Jeg lukekr igen.
Ærgerligt at der ikke lige var en guru der kunne pege i den rigtige retning.
Informationen på nettet er begrænset, synes jeg.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Computerworld tilbyder specialiserede kurser i database-management

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