Iputbox

venerdì 07 novembre 2008 - 18.52

purplepurple Profilo | Newbie

Ciao a tutti. Su un vecchio programmino in VB6 avevo una inputbox all'interno della quale digitavo un nome e ottenevo l'apertura di una form popolata
dai dati relativi al nome richiesto. Sto cercando inutilmente di tradurre questo codice in vb.net ma i miei rapporti con le nuove denominazioni che riguardano i Db sono a dir poco frustranti. Ovviamente ho tentato con la funzione integrata del "traduttore" ma sono più o meno al punto di partenza.
Avrei bisogno quindi di trasformare questo codice in qualcosa di gradito al vb.net 2005.

'Ricerca un nome all'interno dell'agenda.
'Dim NomeDaCercare As String
'NomeDaCercare = InputBox("Immettere il nome da ricercare:", "Ricerca nell'agenda")
'If NomeDaCercare <> "" Then
'Form1.Data1.Recordset.Index = "Nome"
'Form1.Data1.Recordset.Seek("=", NomeDaCercare)
'If Form1.Data1.Recordset.NoMatch Then
'Form1.Data1.Recordset.MoveFirst()
'Form1.Data1.Refresh()
'Il nome cercato non è stato trovato.
'MsgBox("Nome non trovato.", MsgBoxStyle.Information, Me.Text)
'End If
'End If
' End Sub
come oggetti che si riferiscono al database ho un dataset chiamato Agenda_dataset, un bindingsource chiamato rubricabindingsource
un tableadapter chiamato rubricatableadapter e un bindingnavigator chiamato rubricabindingnavigator.
Mi rendo conto che per molti di voi questa richiesta rappresenta un ritorno alle elementari, ma confido nella vostra pazienza per i poveri niubbi.
Un grazie anticipato. ciao

amdbook Profilo | Junior Member

Puoi provare così:

Codice per la ricerca (Filtro):

Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Codice per la rimozione del filtro:

ArticoliBindingSource.RemoveFilter()

P.S.: Ovviamente è necessario rimappare il nome dei controlli e componenti.
Pietro Libro

Blog: http://blogs.ugidotnet.org/PietroLibroBlog/

purplepurple Profilo | Newbie

Tutto funge!!!
Tantissime grazie.

purplepurple Profilo | Newbie

Tutto funge!!!
Tantissime grazie.

Ooopsss!! Nell'euforia l'ho postato 2 volte!
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5