Avatar billede nanna31 Praktikant
08. februar 2006 - 11:00 Der er 8 kommentarer og
1 løsning

case sensitivity

Følgende fungerer fint, men SQL-sætningen skelner desværre ikke mellem store og små bogstaver - kan det fixes?

<%
Dim CONN, DSN, SQL, RS
Set CONN = Server.CreateObject("ADODB.CONNection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
CONN.Open DSN

varFornavn =        Request.Form    ("fornavn"    )

SQL = "Select * From personer Where Fornavn = '" & varFornavn & "'"

Set RS = Conn.Execute(SQL)

Response.Write("fornavnOutput=" & RS("Fornavn") & "&")
Response.Write("efternavnOutput=" & RS("Efternavn") & "&")
Response.Write("telefonOutput=" & RS("Telefon") & "&")
Response.Write("foedselsdatoOutput=" & RS("Foedselsdato"))
Avatar billede fennec Nybegynder
08. februar 2006 - 11:25 #1
Ja, men du skal lave et modul i Access databasen, som så laver sammenligningen:
http://www.eksperten.dk/spm/105793
Avatar billede nielle Nybegynder
08. februar 2006 - 11:47 #2
SQL = "Select * From personer Where UCase(Fornavn) = UCase('" & varFornavn & "')"
Avatar billede morhan Novice
08. februar 2006 - 11:48 #3
Prøv med StrComp

SQL = "Select * From personer Where StrComp(Fornavn, '" & varFornavn & "', 0) = 0"
Avatar billede nanna31 Praktikant
08. februar 2006 - 11:48 #4
Det fungerer ikke her:



<% @ Language="VBScript"     %>
<% Option Compare Binary    %>
<% Option Explicit         %>
<% response.buffer=true     %>


<% Response.CacheControl = "no-cache"         %>
<% Response.AddHeader "Pragma", "no-cache"     %>
<% Response.Expires = -1             %>

<%

Public Function OK(Navn As String, SøgNavn As String) As Boolean
  OK = (Navn = SøgNavn)
End Function


Dim CONN, DSN, SQL, RS
Set CONN = Server.CreateObject("ADODB.CONNection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
CONN.Open DSN


Dim varFornavn, varEfternavn, varTelefon, varFoedselsdato

varFornavn =        Request.Form    ("fornavn"    )


'SQL = "Select * From personer Where Fornavn = '" & varFornavn & "'"

SQL = "Select * From personer Where (((OK([Fornavn],[varFornavn]))=True));"


Set RS = Conn.Execute(SQL)

Response.Write("fornavnOutput=" & RS("Fornavn") & "&")
Response.Write("efternavnOutput=" & RS("Efternavn") & "&")
Response.Write("telefonOutput=" & RS("Telefon") & "&")
Response.Write("foedselsdatoOutput=" & RS("Foedselsdato"))


CONN.Close
Set CONN = Nothing
%>
Avatar billede nanna31 Praktikant
08. februar 2006 - 11:50 #5
Nielle dit forslag sikrer jo, at der ikke skelnes - det er det modsatte jeg vil opnå, nemlig at der skelnes.
Avatar billede nanna31 Praktikant
08. februar 2006 - 11:56 #6
morhan - din ide fungerer! tak.

Husk at lægge et svar :-)
Avatar billede nanna31 Praktikant
08. februar 2006 - 12:34 #7
Har du evt. en smart måde at omgå specialtegn på?
Avatar billede nanna31 Praktikant
19. februar 2006 - 15:44 #8
Morhan vil du lige lægge et svar, så jeg kan lukket spørgsmålet?
Avatar billede nanna31 Praktikant
02. maj 2006 - 15:08 #9
jeg lukker spg
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