Newsgroup: it.comp.lang.visual-basic
Titolo: JOHN eccoti il codice

Inutile che lo metta nell'infinito topic....
il codice di Luca D te lo ho organizzato a fini didattici...quindi il 
merito ï¿œ di Luca e non mio!
Prima la riprova che tutto funziona
http://www.labmartek.it/test/john1.jpg
e
http://www.labmartek.it/test/john2.jpg
di cosa hai bisogno? Io ho usato un vecchio Northwind.mdb ...ANZI ho 
trovato un Nwind.mdb per access 2000 pensa un po!
Northwind ï¿œ il database di esempio fornito con Office Access
Quindi il database ï¿œ nella cartella C:\lavoriVbNet\Database\Nwind.mdb
Poi...una Winform...un ComboBox Una label Un Button Una Datagridview
Ecco qui montato il tutto
http://www.labmartek.it/test/john0.jpg
La Form l'ho Chiamata JohnForm
La Datagridview GrigliaDati
ECCO IL CODICE
Imports System.Data.OleDb 'almeno ci attacchi quello che vuoi! Da 
Access a Mysql a Excel
Public Class JohnForm
    'QUESTE VARIABILI LE VEDI IN TUTTA LA CLASSE
    Private dataAdapter As OleDbDataAdapter 'per ORA NON HO istanziato 
nulla....ho solo riservato una prenotazione del posto al compilatore
    Private StringaConnessione As String = 
"Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=""C:\lavorivbnet\database\Nwind.mdb"" "
    Private Query As String = ""
    Private Sub JohnForm_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load
        'un po di config
        'metto nel combobox il nome delle tabelle
        With Me.cmbTabelle
            .Items.Clear()
            .Items.Add("Customers")
            .Items.Add("Employees")
            .Items.Add("Products")
            .Items.Add("Shippers")
            .Items.Add("Suppliers")
            .Items.Add("QUESTANONESISTE")
        End With
        ' La Datagridview
        With GrigliaDati
            .AutoGenerateColumns = True
            .AllowUserToDeleteRows = True
            .AllowUserToDeleteRows = True
            .AllowUserToOrderColumns = True
            .AllowUserToResizeColumns = True
        End With
        Button1.Text = "Recupera dati"
    End Sub
    'UN BOTTONE PER SCATENARE TUTTO
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        'mi faccio la query
        Query = "SELECT * FROM " + Me.cmbTabelle.SelectedItem.ToString
        'ed ora?
        'Ora devo avere un contenitore per parcheggiare i dati che 
recupero dal database...una dataTable ï¿œ perfetta!
        Dim dt As New DataTable
        Try
            'aggancio il tutto
            dataAdapter = New OleDb.OleDbDataAdapter(Query, 
StringaConnessione)
            'riempio la tabella
            dataAdapter.Fill(dt)
            'la mostro nella griglia
            GrigliaDati.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class
Codice Grezzo da affinare ma che puï¿œ costituire una base di partenza!
Logicamente a te non funzionerï¿œ...perchï¿œ NET fa schifo...ZioBill ï¿œ un 
plutocrate....io un idiota...mentre tu, Leonardo da Vinci e Uguccione 
della faggiola nel 1485  mandavate segnali luminosi alla civilta aliena 
di  Beltegeuse 32 programmando un pc quantico ad emissione di fotoni 
bosonizzati....e  quindi non hai tempo per perderti con simili 
quisquilie!
MAH! :'( :D lol
-- 
----- Italliaaaaa 3227! -----
Mi disturba la morte, ï¿œ vero. Credo che sia un errore del padreterno. 
Non mi ritengo per niente indispensabile,
ma immaginare il mondo senza di me: che farete da soli?
(Vittorio Alfieri)

Wodka ma tu davvero perdi la capa dietro a quello lï¿œ?
Io, da molto che l'ho plonkato. Perï¿œ voi mi fate leggere le sue discussioni comunque... mica posso plonkare anche te! :D

 comunque... mica posso plonkare anche te! :D
Dai non t'ha fatto ridere la citazione di John, Leonardo da Vinci ed 
Uguccione della faggiola???
p.s.
Sono a sedere al pc in mutande(davvero eh!)...se vuoi accendo la 
webcam!
eh eh eh
-- 
----- Italliaaaaa 3227! -----
Sa cosa mi disse a Roma il cardinale Poletti? "Lei fa del bene, perchï¿œ 
con il suo personaggio la gente si rilassa e sorride, riconciliandosi 
un poco con la vita." ...Fra poco mi venderanno in farmacia.
(Lino Banfi)


Grazie ma sei arrivato in ritardo di qualche secondo.
Comunque ho letto tutto il tuo post.
Ho spostato le dichiarazioni detro il Button1 nel codice di Luca e ora 
funziona OK.
Comunque questo non cambia nulla dei miei progetti.
Per avere la pace eterna (vostra e mia) ï¿œ meglio che io sparisca da qui.
State bene !  Buona fortuna e tanta salute a tutti.
E Felice Anno nuovo !
Ciao.
john

 Sono a sedere al pc in mutande(davvero eh!)...se vuoi accendo la webcam!
maremma... che paura :-)
.m
-- 
ï¿œ corta :-)

 eh eh eh
Maronn che schifezz! :PPPP
Nicola


nun te preoccupa' io vi plonko in gruppo.
cosï¿œ abbiamo tutti una vita felice.

 Nicola
Come....manca il terremoto e poi faccio Travaglio2 la Vendetta!!!!



Amen!
....che ti ritorni il doppio di tutto quello che ci hai augurato!
-- 
----- Italliaaaaa 3227! -----
Ti prego, ti prego, non ci uccidere. Ti prego baby, lo sai che ti amo. 
Non avrei mai voluto lasciarti, non ï¿œ stata colpa mia. Davvero, sono 
sincero. Quel giorno finï¿œ la benzina. Si bucï¿œ un pneumatico. Non avevo 
i soldi per il taxi! Il mio smoking non era arrivato in tempo dalla 
tintoria! Era venuto a trovarmi da lontano un amico che non vedevo da 
anni! Qualcuno mi rubï¿œ la macchina! Ci fu un terremoto! Una tremenda 
inondazione! Un'invasione di cavallette!
John Belushi [da "Blues Brothers"]

 
URGH!
THï¿œ...iscriviti :P
http://www.cam4.com
ghghhghghg

 
Ti arrendi cosï¿œ? e se devi trovare un bosone che farai?
NON DARCELA VINTAAAA!!!
:P