VB query con maiuscole e minuscole

[gyonny]

ciao ragazzi

ho un piccolo problema su una query di ricerca su un data access, la query fà distinzione fra minuscole e maiuscole e se non scrivo la voce nello stesso ordine non trova il record.

esempio:
nel database la voce è memorizzata come: Verona

Cinser = "verona" 'in questo modo mi da via inserita

Set RecTM1 = New ADODB.Recordset
RecTM1.Open "SELECT * FROM vie where via = '" & Cinser & "';", DatDb1, adOpenStatic, adLockOptimistic
Control = RecTM1!via
If Cinser = Control Then
MsgBox "Via già presente nel database"
else
Msgbox "Via Inserita"
End If

è possibile mettere un'opzione per farla cercare in tutti i formati, oppure mi tocca convertire le due stringhe?

by
gyonny

[ladyBlu]

Originariamente inviato da gyonny

esempio:
nel database la voce è memorizzata come: Verona

Cinser = "verona" 'in questo modo mi da via inserita

Set RecTM1 = New ADODB.Recordset
RecTM1.Open "SELECT * FROM vie where via = '" & Cinser & "';", DatDb1, adOpenStatic, adLockOptimistic
Control = RecTM1!via
If Cinser = Control Then
MsgBox "Via già presente nel database"
else
Msgbox "Via Inserita"
End If

se nel db c'è scritto "Verona" io farei un UCase... così:

  Cinser = "verona"
  Set RecTM1 = New ADODB.Recordset
  RecTM1.Open "SELECT * FROM vie where UCase(via) As via = 
              '" & UCase(Cinser) & "';", 
              DatDb1, adOpenStatic, adLockOptimistic

  Control = RecTM1!via
  If Cinser = Control Then
        MsgBox "Via già presente nel database"
     else
        Msgbox "Via Inserita"
  End If

così, con UCase, fa il confronto tra stringhe tutte maiuscole...




PS:
vi decidete o no ad usare i benedetti tag [*code][*/code] per scrivere il codice???... così si capisce meglio...

[gyonny]

grazie lady

[gyonny]

mi da errore

Set RecTM1 = New ADODB.Recordset
  RecTM1.Open "SELECT * FROM vie where UCase(via) As via = 
              '" & UCase(Cinser) & "';", 
              DatDb1, adOpenStatic, adLockOptimistic


errore di sintassi(operatore mancante) nell'espressione della query ' Ucase(via)as via = 'VERONA".

[ladyBlu]

oh signore mio... ho scritto un abominio...
perdonami, ma ieri ero cotta... ecco, scrivi così:

Set RecTM1 = New ADODB.Recordset
  RecTM1.Open "SELECT * FROM vie where UCase(via) = 
              '" & UCase(Cinser) & "';", 
              DatDb1, adOpenStatic, adLockOptimistic

ho scritto "As via" nella clausola Where... come diavolo mi sarà venuto in mente...

...e buona giornata!
scusa ancora per l'imperdonabile distrazione...:tongue:

[gyonny]

lady infatti mi sembrava strano
cmq avevo già tolto as via e non andava, non dava errori ma non riconosceva i dati del database formattati in modo diverso e mi aggiungeva la voce nel data.

purtroppo ho eridato un database con formattazione varia per esempio:

ANCONA, alcide, ARistotele ecc.

evidentemente inseriti da varie persone

come posso ovviare?

[optime]

non ti conviene aggiornare (via UPDATE) il db una volta per tutte?

[gyonny]

optime non posso.

mi hanno chiesto di creare un programmino che in base alla via trova le varie indicazioni catastali.

Al database hanno accesso varie persone, e non cè una formattazione sull'immissione, per modificare il programma (non mio) dovrei avere il codice sorgente, se aggiorno il database risolvo solo in via temporanea, alle prime immissioni sbagliate non funzionerebbe.



by