🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #1931

Re: ricerca su campo data

#1931
From: Cerberus1981
Date: Sat, 27 Dec 2003 15:31
45 lines
2403 bytes
tramite oggetto data.
ipotizzando:
Data=data1
textbox=text1,text2
campi=Cognome,Nome
tabella=Anagrafe
percorso="C:\mio.mdb"
private sub prepara()
with data1
    .databasename="C:\Mio.mbd"
    .recordsource="Anagrafe"
end data1
text1.datasource="Data1"
text1.datafield="Cognome"
text2.datasource="Data1"
text2.datafield="Nome"
end sub
private sub RicercaCognome()
dim ricerca as string
dim variabileconcognomericercato as string
ricerca=Inputbox("Inserire il cognome da ricercare","Ricerca")
if ricerca="" then
    exit sub
else
    data1.recordset.findfirst "cognome = '" & ricerca & "'"
    'collega direttamente alle textbox'
    variabileconcognomedaricercare=data1.recordset.fields ("Cognome")
end if
if data1.recordset.nomatch then
    msgbox "Nessun cognome trovato",vbinformation,"Record non trovato"
end if
end sub
"Terlizzi Mario" <terlimar@libero.it> ha scritto nel messaggio
news:9ViDb.190793$e6.7200400@twister2.libero.it...
> Premetto che sono un principiante e pure autodidatta.
> Non riesco a fare una ricerca nel database sul campo 'data' n� con
controllo
> data n� con controllo adodc. Devo prima convertire la variabile immessa o
> c'� una sintassi particolare? Insomma come si fa?
Grazie a tutti.
Prego.
Cerberus1981@tin.it
Cerberus1981@hotmail.com
>
>
Technical Details
Message-ID: <aBhHb.13330$_P.569143@news4.tin.it>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!news-FFM2.ecrc.net!uio.no!news.tele.dk!news.tele.dk!small.news.tele.dk!tiscali!newsfeed1.ip.tiscali.net!news-out.tin.it!news-in.tin.it!news4.tin.it.POSTED!not-for-mail
References: <9ViDb.190793$e6.7200400@twister2.libero.it>

Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,5e42cff411df1207
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2003-12-27 07:31:19 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!news-FFM2.ecrc.net!uio.no!news.tele.dk!news.tele.dk!small.news.tele.dk!tiscali!newsfeed1.ip.tiscali.net!news-out.tin.it!news-in.tin.it!news4.tin.it.POSTED!not-for-mail
From: "Cerberus1981" <cerberus1981@tin.it>
Newsgroups: free.it.visual-basic
References: <9ViDb.190793$e6.7200400@twister2.libero.it>
Subject: Re: ricerca su campo data
Lines: 47
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <aBhHb.13330$_P.569143@news4.tin.it>
Date: Sat, 27 Dec 2003 15:31:18 GMT
NNTP-Posting-Host: 80.181.234.125
X-Complaints-To: newsmaster@tin.it
X-Trace: news4.tin.it 1072539078 80.181.234.125 (Sat, 27 Dec 2003 16:31:18 MET)
NNTP-Posting-Date: Sat, 27 Dec 2003 16:31:18 MET
Organization: TIN