Come popolare una casella combinata…
Per ipotesi abbiamo un form con una casella combinata, definendo del form la routine evento Load:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim obj As OleDb.OleDbConnection
Dim rd As OleDb.OleDbDataReader
Dim stringsql As String
Dim comando As OleDb.OleDbCommand
obj = New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=c:\elencoparole.mdb")
obj.Open()
stringsql = "Select * from elencoparole"
comando = New OleDb.OleDbCommand(stringsql, obj)
rd = comando.ExecuteReader()
While rd.Read()
ComboBox1.Items.Add(rd("parola"))
End While
End Sub
Nella routine evento Form1_Load sono state dichiarati le seguenti variabili:
Obj di tipo OledbConnection. A tale oggetto, dopo averlo istanziato con New Oledb.OledbConnection, li passiamo la stringa di connessione al database in formato Access da utilizzare per prelevare le informazioni;
Rd di tipo OledbDataReader. Tale oggetto verrà utilizzato per contenere il recordset rappresentato dall'esecuzione dell'istruzione Sql memorizzata nella variabile stringasql;
Prima di istanziare l'oggetto comando di tipo Oledb.OledbCommand, dobbiamo aprire la connessione con la fonte dati, attraverso il metodo Open dell'oggetto Obj di tipo OledbConnection; La creazione dell'oggetto OledbCommand avviene passando due parametri l'istruzione sql e l'oggetto Obj;
Definiamo l'oggetto rd di tipo OledbDataReader, eseguendo il meotodo ExecuteReader dell'oggetto Comando;
Attraverso un ciclo While testando la condizione Rd.Read(), eseguiamo la riga di codice Combobox1.Items.Add(rd("parola")), dove rd("parola") restituirà il valore del campo parola della tabella elencoparole descritta dalla clausola From dell'istruzione Sql memorizzata nella variabile stringasql.
sabato, 02 dic 2006 Ore. 16.50