Kontrol af tegn i en forspørgelse
Lars Grau
Jeg skal lige h�re om der er nogen her inde som kan hj�lpe mig med hvordan
kan skal skrive en kriterie til en forsp�rgelse hvor den skal vis med de
poster som ikke overholder de tegn som jeg siger er tillad. Tegn som er
tilladt er: A-Z 0-9 _ " ( )
Jeg ved ikke hvor det er smarts at s�tte denne regle ind henne, men jeg
kunne forstille mig det kunne v�re i kriterier eller en SQL setning, for mig
er der lige meget.
Hilsen
Lars
Krydspostet i
dk.edb.database.ms-access
Arne Vajhøj
> Jeg skal lige h�re om der er nogen her inde som kan hj�lpe mig med hvordan
> kan skal skrive en kriterie til en forsp�rgelse hvor den skal vis med de
> poster som ikke overholder de tegn som jeg siger er tillad. Tegn som er
> tilladt er: A-Z 0-9 _ " ( )
>
> Jeg ved ikke hvor det er smarts at s�tte denne regle ind henne, men jeg
> kunne forstille mig det kunne v�re i kriterier eller en SQL setning, for mig
> er der lige meget.
Jeg antager at databasen er MS Access siden du nu har postet der ogs�.
Pr�v:
Function RegexMatch(pattern As String, expr As String) As Boolean
Dim re As RegExp
Dim match As Boolean
Set re = New RegExp
re.pattern = pattern
re.Global = True
match = re.test(expr)
Set re = Nothing
RegexMatch = match
End Function
og:
SELECT ... WHERE RegexMatch("[^A-Z0-9_""()]",felt)
Arne
Lars Grau
"Arne Vajh�j" <ar...@vajhoej.dk> skrev i en meddelelse
news:4a402658$0$48240$1472...@news.sunsite.dk...
> Lars Grau wrote:
>> Jeg skal lige h�re om der er nogen her inde som kan hj�lpe mig med
>> hvordan kan skal skrive en kriterie til en forsp�rgelse hvor den skal vis
>> som er tilladt er: A-Z 0-9 _ " ( )
>>
>> kunne forstille mig det kunne v�re i kriterier eller en SQL setning, for
>
>
> Pr�v:
>
> Function RegexMatch(pattern As String, expr As String) As Boolean
> Dim re As RegExp
> Dim match As Boolean
> Set re = New RegExp
> re.pattern = pattern
> re.Global = True
> match = re.test(expr)
> Set re = Nothing
> RegexMatch = match
> End Function
>
> og:
>
> SELECT ... WHERE RegexMatch("[^A-Z0-9_""()]",felt)
>
> Arne
Hej
Nu ved jeg godt hvor jeg jeg skrev det er mig lige meget hvor jeg skal s�tte
det ind. Skal jeg lave et Modul eller hvor skal jeg skrive det henne ?
Undskyld min uvidenhed*S*
/Lars
olesen
> Nu ved jeg godt hvor jeg jeg skrev det er mig lige meget hvor jeg skal sætte
> det ind. Skal jeg lave et Modul eller hvor skal jeg skrive det henne ?
>
Yes, du sætter den ind i en modul, og bruger så den function i den
forspørgsel..
//MOL
www.OleZen.dk
Lars Grau
"olesen" <mog...@gmail.com> skrev i en meddelelse
news:6728698a-54ff-41f4...@k38g2000yqh.googlegroups.com...
> Nu ved jeg godt hvor jeg jeg skrev det er mig lige meget hvor jeg skal
> s�tte
> det ind. Skal jeg lave et Modul eller hvor skal jeg skrive det henne ?
>
Yes, du s�tter den ind i en modul, og bruger s� den function i den
forsp�rgsel..
//MOL
www.OleZen.dk
Roger, men n�r jeg k�re en debug i VBA f�r jeg en fejl i linie
Dim re As Regexp "Fejlen er User-defined type not defined"
Lars
olesen
>
> Roger, men når jeg køre en debug i VBA får jeg en fejl i linie
>
> Dim re As Regexp "Fejlen er User-defined type not defined"
>
> Lars
Hej
Du skal aktivere Microsoft VBScript Regular Expressions 5.5
(det gøres oppe under Tools/references...
mvh.
MOL
www.olezen.dk
Lars Grau
>
> Roger, men n�r jeg k�re en debug i VBA f�r jeg en fejl i linie
>
> Dim re As Regexp "Fejlen er User-defined type not defined"
>
> Lars
Hej
Du skal aktivere Microsoft VBScript Regular Expressions 5.5
(det g�res oppe under Tools/references...
mvh.
MOL
www.olezen.dk
Hej
Nu kan jeg godt k�re en debug, og den virker fint, nu kommer problemmet bare
n�r jeg s�tter den funktion ind i kriterier kommer den med denne fejl. "Der
er en ikke-defineret funktion "RegexMatch" i udtrykket", hvad g�r jeg nu ??
Lars
Lars Grau
"olesen" <mog...@gmail.com> skrev i en meddelelse
news:20648763-ba79-4d63...@t2g2000yqt.googlegroups.com...
>
> Roger, men n�r jeg k�re en debug i VBA f�r jeg en fejl i linie
>
> Dim re As Regexp "Fejlen er User-defined type not defined"
>
> Lars
Hej
Du skal aktivere Microsoft VBScript Regular Expressions 5.5
(det g�res oppe under Tools/references...
mvh.
MOL
www.olezen.dk
Min SQL setning er s�dan her du:
SELECT PLATFORM.Name, PLATFORM.Pennant_Number, PLATFORM.Remarks
FROM PLATFORM
WHERE (((PLATFORM.Name)=RegexMatch("�pattern�","�expr�")));
Og det er i PLATFORM.Name den skal lave checket
Lars