Avatar billede fqthjoe Nybegynder
10. september 2002 - 20:15 Der er 8 kommentarer og
1 løsning

Sql-forespørgsel

Hej eksperter.
Har lavet et lille database-prg. med tilknytning til access-base.
Nu vil jeg gerne lave en knap, som hedder find og tilknytte en forespørsel hvor man så udfylder et textfelt med f.eks. ethernet og trykker find, så finder den alt hvor der står ethernet, må gerne virke med wildcard. Det er på feltet "find" i tabel1 der skal søges på (ikke andre). Og kan det komme op så en "boks" (søgeformularen). Har prøvet med følgende uden held:
Adodc1.RecordSource = "Select * From Tabel1 Where(Tabel1.Find Like '" & Text1 & "*')"
Avatar billede neteffect Nybegynder
10. september 2002 - 20:18 #1
Prøv med %

Select * From Tabel1 Where(Tabel1.Find Like '%" & Text1 & "%')"
Avatar billede fqthjoe Nybegynder
10. september 2002 - 20:39 #2
Har lige prøvet det, men den finder desværre alt.
Avatar billede nih Novice
10. september 2002 - 20:40 #3
LIKE *søgeord*

brug *
Avatar billede neteffect Nybegynder
10. september 2002 - 20:45 #4
Den finder alt hvis Text1 er tom.

Lav en
response.write "Select * From Tabel1 Where(Tabel1.Find Like '%" & Text1 & "%')"

for lige at være sikker på, hvad der står.
Avatar billede fqthjoe Nybegynder
11. september 2002 - 08:22 #5
Hvor skal jeg skrive denne linie:
response.write "Select * From Tabel1 Where(Tabel1.Find Like '%" & Text1 & "%')" ?
Avatar billede neteffect Nybegynder
11. september 2002 - 08:27 #6
Den er kun til fejlfinding.
indsæt linien lige før du udfører queryen.
Avatar billede fqthjoe Nybegynder
11. september 2002 - 08:44 #7
Neteffect....
Kanon virker.... og suk indrømmet.. Jeg havde lavet en lille dummert.. det var Text4 jeg udfyldte mit søgekriterie i :-)
Danke.. Du må gerne smide et svar, hvis du vil ha' lidt points...
Gad vide om man så, når man klikker på "find" kan få en "popup boks" istedet...
Avatar billede neteffect Nybegynder
11. september 2002 - 09:02 #8
Svar.

Det er en god idé at lægge sin SQL i en string-variabel, dvs

dim SQLstr
SQLstr="Select * From Tabel1 Where(Tabel1.Find Like '%" & Text1 & "%')"

'response.write SQLStr & "<br>" 'debug, remove quote in front to activate

Adodc1.RecordSource = SQLStr
...ececute query(SQLStr)
Avatar billede fqthjoe Nybegynder
11. september 2002 - 10:03 #9
Danke :-)
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
Kurser inden for grundlæggende programmering

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