Query in Acess!!!

[mkl76]

Ciao a tutti
ho un db access con il campo CodiceFiscale, Cognome e Nome e devo estrarre le prime 3 consonanti del cognome e la 1, 2 e 4 del nome e verificare che siano uguali alle prime 6 del codice fiscale, che funzione posso usare per estrarle!!! Boh....

[longline]

La funzione Mid

Dalla Guida in linea:

Funzione Mid


Restituisce un valore Variant (String) che contiene un numero specificato di caratteri di una stringa.

Sintassi

Mid(string, start[, length])

La sintassi della funzione Mid è composta dai seguenti argomenti predefiniti:

Parte Descrizione
string Obbligatoria. Espressione stringa dalla quale vengono restituiti i caratteri. Se string contiene Null, verrà restituito Null.
start Obbligatoria. Long. Posizione di un carattere in string dalla quale inizia la parte che deve essere prelevata. Se start è superiore al numero di caratteri in string, Mid restituisce una stringa di lunghezza zero ("").
length Facoltativa. Variant (Long). Numero di caratteri da restituire. Se omesso, o se nel testo vi sono meno caratteri che in length (compreso il carattere di start), vengono restituiti tutti i caratteri dalla posizione start alla fine della stringa.



Osservazioni

Per determinare il numero di caratteri in string, utilizzare la funzione Len.

Nota Utilizzare la funzione MidB con i dati byte contenuti in una stringa, come nelle lingue con set di caratteri a doppio byte. Anziché specificare il numero di caratteri, gli argomenti specificano il numero di byte. Nel secondo blocco di codice dell'argomento di esempio della funzione Mid viene utilizzata la funzione MidB.

Esempio di funzione Mid
Nel primo esempio la funzione Mid viene utilizzata per restituire un numero specificato di caratteri da una stringa.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Demo funzione Mid" ' Crea una stringa di testo.
FirstWord = Mid(MyString, 1, 4) ' Restituisce "Demo".
LastWord = Mid(MyString, 15, 3) ' Restituisce "Mid".
MidWords = Mid(MyString, 6) ' Restituisce "funzione Mid".

Nel secondo esempio vengono utilizzate MidB e una funzione definita dall'utente (MidMbcs) per restituire anche in questo caso caratteri da una stringa. Questo esempio è diverso in quanto la stringa di input è in codice ANSI e la lunghezza è in byte.

Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function

Dim MyString
MyString = "AbCdEfG"
' Dove "A", "C", "E" e "G" sono DBCS e "b", "d",
' e "f" sono SBCS.
MyNewString = Mid(MyString, 3, 4)
' Restituisce ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Restituisce ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Restituisce "bCd"