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
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
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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

05/07

Dynamics-kæmpen Cepheo leverer røde tal i første regnskab som selvstændigt selskab

05/07

Store sager fra BMW i5: Alt er bare perfekt afstemt her

05/07

Nørgaard: Derfor bruger fattigrøvene AI meget mere end de rige svin

05/07

IBM-direktør efter blodrødt regnskab: “Vi er godt på vej ud af det stormvejr, som ramte os i 2023”

05/07

Kom i problemer efter ransomware-angreb: Nu køber rigmand Christian Stadil IT-Hotellets bunker

05/07

Stiftere overvejer at gøre Flatpay til en bank – krav om compliance er en stopklods

05/07

Rejsekort reducerer kraftigt den tid, som selskabet vil beholde dine lokationsdata i: Vil nu slette dem efter få måneder

05/07

Hackerangreb på OpenAI: Selskabets designs af AI-teknologi stjålet

05/07

Efter skatte-dom: IBM Danmark sætter 163 millioner kroner til side til ekstra skatte-regning i Danmark

05/07

KMD ændrer i sit ikoniske logo efter 17 år

05/07

Klar tale til Tesla og SAP: Snart skal du tale med dit ERP-system

Vis flere artikler

IT-JOB

Egmont

Experienced developer with data management skills

Mobilplan ApS

Senior PHP Developer – du vil elske det her job, hvis du …

Udviklings- og Forenklingsstyrelsen

Projektleder til implementering af metoder og standarder på tværs af stor it-portefølje

Udviklings- og Forenklingsstyrelsen

Stærke Business Analyst-profiler til projektorienterede opgaver i nyoprettet kontor

IT & Co ApS

IT-tekniker

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 00:30	Fejl i Ark Af Morten_Jepsen i Excel
I går 16:56	Kan min mobil hackes Af SBS i Mobiltelefoner
I går 12:56	Forskellige billeder til forskellige skærme ? Af snedker1 i Mac
I går 11:56	Om brug af funktionen sumprodukt Af Erik R i Excel
05/0722:41	Hjælp til at skrive opgave Af Needhelp i Småopgaver