Re: cercare un record con virgoletta in mezzo.

Article View: free.it.visual-basic

Article #3239

Back to free.it.visual-basic Previous Next

#3239

From: Giacomo L.
Date: Sun, 11 Aug 2002 21:54

31 lines
1965 bytes

io uso una funzione che mi aggiunge il secondo apice in maniera da rendere
idoneo il campo alla ricerca. Se non ho commesso nessun errore nel
riadattarla alla tua esigenza dovrebbe andare come qui sotto elencata

esempio:
dim ricerca as string
ricerca= DoppioApice(text1)
rst.FindFirst "Campo1 = '" & ricerca & "'"




Private Function DoppioApice(testo As String) As String
'*********************'*********************
'                           DOPPIO APICE
'*********************'*********************
Dim stringaTesto As String
Dim i As Integer

stringaTesto = ""

For i = 1 To Len(testo)
    If Mid(testo, i, 1) = "'" Then
        stringaTesto= stringaTesto & "''"
    Else
        stringaTesto = stringaTesto & Mid(testo, i, 1)
    End If
Next i

DoppioApice = stringaTesto
End Function

Technical Details

Message-ID: <_1B59.58411$lu5.1668640@twister1.libero.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail

References: <BSP39.193978$vm5.6362042@news2.tin.it>

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII-7-bit
X-Google-Thread: f94ee,b25abdfa5907361d,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-08-11 14:54:30 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
Reply-To: "Giacomo L." <lijack_no_spamming@libero.it>
From: "Giacomo L." <lijack@libero.it>
Newsgroups: free.it.visual-basic
References: <BSP39.193978$vm5.6362042@news2.tin.it>
Subject: Re: cercare un record con virgoletta in mezzo.
Lines: 34
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2919.6600
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Message-ID: <_1B59.58411$lu5.1668640@twister1.libero.it>
Date: Sun, 11 Aug 2002 21:54:02 GMT
NNTP-Posting-Host: 62.98.83.146
X-Complaints-To: abuse@inwind.it
X-Trace: twister1.libero.it 1029102842 62.98.83.146 (Sun, 11 Aug 2002 23:54:02 MET DST)
NNTP-Posting-Date: Sun, 11 Aug 2002 23:54:02 MET DST
Organization: [Infostrada]

Reply to Parent Message