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

lejla Nybegynder

04. juli 2001 - 01:03 Der er 22 kommentarer og
1 løsning

Simpel søgefunktion ?

nogen der ved hvor jeg kan finde en simpel søge funktion?

den skal kunne:
Søge i alle ord i en tabel i en Access database. (det er til nyheder)

det er alt :)

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:07 #1

Det ville være fedt hvis den markede det søgte ord i nyheden :)

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:14 #2

for 15 point glem det

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:15 #3

okda.. 75 såda :)

havde bare regnet med et link...

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:18 #4

hvilke felter har du i din database

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:19 #5

navn på din tabel???

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:19 #6

navn på din database???

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:19 #7

Tabellen hedder Nyheder -

Der er 5 felter: \"Nr\" (ligesom id), \"Topic\", \"Tekst\", \"Oprettet\" og \"Dato\"

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:20 #8

Databasen ligger under /dbase/r_dbase.mdb

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:23 #9

Her er en kode:
<%
If request.form(\"B1\") = \"Søg nu\" Then
sog = request.form(\"sog\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/dbase/r_dbase.mdb\")
SQLstring=\"SELECT * from nyheder WHERE\"
SQLstring = SQLstring & \" (tekst LIKE \'%\" & sog & \"%\')\"
SET RS=myConn.Execute(SQLstring)
end if
%>
<html>

<head>
<title>Søg efter nyhed</title>
</head>

<body>

<form method=\"POST\" action=\"sog.asp\">
<table border=\"1\" width=\"300\" bordercolor=\"#000000\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td colspan=\"2\" bgcolor=\"#006699\"><b>Søg:</b></td>
</tr>
<tr>
<td bgcolor=\"#C0C0C0\">tekst:</td>
<td bgcolor=\"#C0C0C0\"><input type=\"text\" name=\"sog\" size=\"20\"></td>
</tr>
<tr>
<td bgcolor=\"#006699\"> </td>
<td bgcolor=\"#006699\"><input type=\"submit\" value=\"Søg nu\" name=\"B1\"></td>
</tr>
</table>
</form>
<p><br>
</p>
<%
If request.form(\"B1\") = \"Søg nu\" Then
Do until RS.EOF
%>
<table border=\"1\" width=\"302\" bordercolor=\"#000000\" cellspacing=\"0\" cellpadding=\"0\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\" height=\"61\">
<tr>
<td bgcolor=\"#006699\" width=\"298\" colspan=\"2\" height=\"19\"><%=RS(\"Topic\")%></td>
</tr>
<tr>
<td width=\"296\" bgcolor=\"#C0C0C0\" colspan=\"2\" height=\"19\"><%=RS(\"tekst\")%></td>
</tr>
<tr>
<td width=\"148\" bgcolor=\"#C0C0C0\" height=\"17\">Oprettet:<%=RS(\"Oprettet\")%></td>
<td width=\"148\" bgcolor=\"#C0C0C0\" height=\"17\">Dato:<%=RS(\"Dato\")%></td>
</tr>
</table>
<p>
<%
RS.MoveNext
Loop
%>
<%
RS.Close
myconn.Close
end if
%>
</body>

</html>

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:25 #10

giv mig lige et par minuter :)

Synes godt om

keysersoze Guru

04. juli 2001 - 01:29 #11

et link:

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

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:30 #12

oki

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:31 #13

>leila bare sig til hvis noget skal ændres

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:32 #14

tak :)

men kan du ikk hurtigt lave det sådan at man bare skal trykke enter i stedet for at skulle trykke på knappen??

mener at det skulle kunne lade sig gøre ? :)

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:33 #15

tak keyzersoze, men plexx var hurtigst :)

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:33 #16

mit var vidst også bedst

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:34 #17

det kan det også men jeg ved ikke lige hvordan

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:34 #18

ja hvis du lige kunne lave det sådan at man kunne trykke enter :)

Synes godt om

plexx Nybegynder

04. juli 2001 - 01:37 #19

MÅSKE PRØV DETTE:
<%
If request.form(\"B1\") = \"Søg nu\" Then
sog = request.form(\"sog\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/dbase/r_dbase.mdb\")
SQLstring=\"SELECT * from nyheder WHERE\"
SQLstring = SQLstring & \" (tekst LIKE \'%\" & sog & \"%\')\"
SET RS=myConn.Execute(SQLstring)
end if
%>
<html>

<head>
<title>Søg efter nyhed</title>
</head>

<body>

<form method=\"POST\" action=\"sog.asp\">
<table border=\"1\" width=\"300\" bordercolor=\"#000000\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td colspan=\"2\" bgcolor=\"#006699\"><b>Søg:</b></td>
</tr>
<tr>
<td bgcolor=\"#C0C0C0\">tekst:</td>
<td bgcolor=\"#C0C0C0\"><input type=\"text\" name=\"sog\" size=\"20\" ACCESSKEY=\"s\"></td>
</tr>
<tr>
<td bgcolor=\"#006699\"> </td>
<td bgcolor=\"#006699\"><input type=\"submit\" value=\"Søg nu\" name=\"B1\"></td>
</tr>
</table>
</form>
<p><br>
</p>
<%
If request.form(\"B1\") = \"Søg nu\" Then
Do until RS.EOF
%>
<table border=\"1\" width=\"302\" bordercolor=\"#000000\" cellspacing=\"0\" cellpadding=\"0\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\" height=\"61\">
<tr>
<td bgcolor=\"#006699\" width=\"298\" colspan=\"2\" height=\"19\"><%=RS(\"Topic\")%></td>
</tr>
<tr>
<td width=\"296\" bgcolor=\"#C0C0C0\" colspan=\"2\" height=\"19\"><%=RS(\"tekst\")%></td>
</tr>
<tr>
<td width=\"148\" bgcolor=\"#C0C0C0\" height=\"17\">Oprettet:<%=RS(\"Oprettet\")%></td>
<td width=\"148\" bgcolor=\"#C0C0C0\" height=\"17\">Dato:<%=RS(\"Dato\")%></td>
</tr>
</table>
<p>
<%
RS.MoveNext
Loop
%>
<%
RS.Close
myconn.Close
end if
%>
</body>

</html>

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:40 #20

hmm.. nej :/

Synes godt om

keysersoze Guru

04. juli 2001 - 01:46 #21

hmm.. nej??? virker det ikke da?

Synes godt om

lejla Nybegynder

04. juli 2001 - 01:48 #22

den virker fint nok, men når man skal søge kan man ikke \"bare\" trykke på enter, man skal ned og trykke på knappen med musen, jeg ved godt det er en lille detalje.. men irriterende...

Synes godt om

surreal Nybegynder

04. juli 2001 - 21:47 #23

function boolSubStr(sSearchData,sSearchKey)
dim lCount,lLenSearckKey
dim slCaseSearchData

boolSubStr = false
lLenSearckKey = len(trim(sSearchKey))
slCaseSearchData = lcase(sSearchData)
for vCount = 1 to len(slCaseSearchData)
if mid(slCaseSearchData,vCount,lLenSearckKey) = trim(sSearchKey) then
boolSubStr = true
end if
next
end function

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

12:00

Ugen i tech: El-kolos kan fragte syv personer over 620 kilometer / Sony er klar med ny kamera-konge: Alpha 1 mk II

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

Vis flere artikler

IT-JOB

Zealand Business College

Kunne du tænke dig at dele ud af din viden om robotter og PLC, så er det måske dig ZBC søger

Netcompany A/S

IT Consultant

TDC Erhverv

Full Stack Windows-udvikler

Globus Data ApS

Imødekommende og serviceminded kundeservicemedarbejder/it-supporter

SDC A/S

Business-Focused Data Expert - Drive Innovation in Financial Data

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:09	Billedoverførsel Af Laurids i iOS, iPhone & iPad
I går 13:30	Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I går 13:01	Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I går 11:40	Fjerne mappe i stifinder Af Peter Olsen i Andet software
I går 11:27	renteberegning Af Pil i Excel