Avatar billede zack Nybegynder
30. maj 2001 - 16:27 Der er 10 kommentarer og
2 løsninger

Søgning på dele af tekst

Hvordan søger jeg efter brudstykker i en tekst?

Det skal foregå i en formular.

Hvis jeg eksempelvis skriver fo, så skal den finde ekspempelvis fodbold, fod osv.

Fodbold og fod ligger i en tabel, hvor de dækker over en kategori.
Avatar billede no_doubt Nybegynder
30. maj 2001 - 16:32 #1
strSQL = \"SELECT * FROM tabel where (kolonne  like \'%\"& Temp &\"%\') ORDER BY overskrift ASC\"
Avatar billede zack Nybegynder
30. maj 2001 - 16:39 #2
Tabellen hedder billeder.
Feltet med emnet i tabellen hedder Emne, og er et tekstfelt.
Det andet felt i tabellen er, Billede, og er et OLE-objekt.

Formularen:
I feltet tekst0, skal være der, hvor jeg eksempelvis kan skrive fo osv.

Tekst2 er der, hvor de fundne emne skal stå.

OLE-bundet4, er der hvor det fundne billede skal være.

Håber det hjælper...
Avatar billede keysersoze Ekspert
30. maj 2001 - 18:04 #3
Avatar billede mugs Novice
30. maj 2001 - 20:16 #4
zack
Jeg mener du blander det lidt sammen, normalt søger man vel i det felt hvor de søgte oplysninger er lagret.

Jeg vedhæfter en kode, der søger efter et efternavn, vel at mærke ikke med jokertegn (*), men du skal skrive hele navnet.
koden er skrevet i Access97.

Håber det kan bringe dig lidt videre selv om det ikke er det du egentlig spurgte om, men dette er jo også kun en kommentar.

Dim Svar, MSG, Efternavn As String
DoCmd.GoToControl \"Efternavn\"
Efternavn = InputBox(Prompt:=\"Indtast Medarbejderens efternavn.\" & Chr$(13) & Chr$(13) & \"\", Title:=\"Find Efternavn\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af CPR\'
\'DoCmd.GoToControl \"Efternavn\"
Me.RecordsetClone.FindFirst \"Efternavn=  \'\" & Efternavn & \"\'\"
While Me.RecordsetClone.NoMatch = True
MSG = Msgbox(Prompt:=\"Du har indtastet efternavnet:\" & Chr$(13) & Chr$(13) & Chr$(9) & Chr$(9) & Chr$(9) & Efternavn & Chr$(13) & Chr$(13) & \"Efternavnet findes ikke i databasen.\" & Chr$(13) & Chr$(13) & \"Klik på Ja for at foretag ny indtastning.\" & Chr$(13) & \"Klik på Nej for at forlade procedüren.\", Title:=\"Indtastningsfejl\", Buttons:=vbYesNo)
Select Case MSG
Case Is = 6
Kommandoknap84_Click
Case Is = 7
GoTo Afslut
End Select
Efternavn = InputBox(Prompt:=\"Indtast Medarbejderens efternavn.\" & Chr$(13) & Chr$(13) & \"\", Title:=\"Find Efternavn\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af Efternavn\'
If Efternavn = \"\" Then \'afslutter hvis strengen er tom
End
Else
Me.RecordsetClone.FindFirst \"Efternavn=  \'\" & Efternavn & \"\'\"
End If
End
Wend
Me.Bookmark = Me.RecordsetClone.Bookmark
Afslut:
Exit Sub

Mvh / mugs
Avatar billede lykholt Nybegynder
30. maj 2001 - 20:54 #5
sqlstr = \"select * from tabelnavn where feltnavn like \"*\" & indtastet_værdi & \"*\"
Avatar billede zack Nybegynder
30. maj 2001 - 21:25 #6
Okay, i formularhovedet har jeg et felt. Der indtaster jeg søgeværdien. Feltet hedder tekst8.

I detaljesektionen har jeg et felt (tekst0), og det er der, de fundne emner skal vise sig. De poster, som minder om noget det eksisterer i tabellen billeder, felt emne.

Hvordan ser sætningen ud?

Og i hvilket felt skal det stå?
Avatar billede proaccess Nybegynder
31. maj 2001 - 08:34 #7
Private Sub Tekst8_AfterUpdate()
  Tekst0.Text=\"\"
  Dim RA As Recordset
  Set RA=CurrentDB.OpenRecordSet(\"SELECT * FROM Billeder WHERE Emne Like \'*\" & Tekst8.Text & \"*\';\")
  WHILE not RA.EOF
    Tekst0.Text=Tekst0.Text & vbCrLf & RA!Emne
    RA.MoveNext
  WEND
  Set RA=Nothing
End Sub

Dette er lavet UDEN test, men burde bringe dig på vej...  Altså AfterUpdate på Tekst8 (dit søgefelt)
Avatar billede zack Nybegynder
03. juni 2001 - 17:10 #8
Okay, vi starter lige lidt forefra her.

I formularhovedet, skal der være et søgefelt.

I detaljesektionen, skal alle de fundne poster dukke op.

Tabellen hedder billeder, og feltet der skal søges i, hedder kategori.
Avatar billede zack Nybegynder
03. juni 2001 - 17:24 #9
Avatar billede keysersoze Ekspert
26. juni 2001 - 11:31 #10
har du fået svar på dit spm.?
Avatar billede zack Nybegynder
26. juni 2001 - 14:44 #11
Nej
Avatar billede keysersoze Ekspert
26. juni 2001 - 16:24 #12
men hvor opstår så problemet hvis du prøver at følge denne vejledning

http://www.activeserverpages.dk/aspdigital/kapitel2/search.asp

??
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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