Torna al Thread
'prima della definizione della classe
Imports System.Data
Imports System.Data.OleDb
Public Class MyForm
'All'interno della classe, per esempio nell'evento Load del form
'mi recupero i dati attraverso dataset se poi devi modificare i dati, oppure datareader se devi solo leggere
Private CODID as Integer
Private Sub MyFormName_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objDataSet as DataSet
Dim objDataAdapter as OleDbDataAdapter
Dim objConnessione As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\mydb.mdb")
Dim objComando As OleDbCommand
Dim intEle as Integer
'io ho copiato un codice da un mio form, e ci sono i dataset perchè poi modifico i dati, ma se non devi modificare usa datareader
objDataSet = New DataSet()
objComando = New OleDbCommand()
objComando.Connection = objConnessione
objComando.CommandText = "SELECT ID, NOME, DESCRIZIONE FROM MIA_TABELLA"
objComando.CommandType = CommandType.Text
objDataAdapter = New OleDbDataAdapter(objCommando)
intEle = objDataAdapter.Fill(objDataSet, "NOMETABELLA_O_ALTRONOME")
objDataAdapter.Dispose()
'creo un elemento della combo tipo: 1 - PIPPO - PLUTO, in questo modo ho sempre tutto nella combo, per estarrre il codice poi faccio una funzione a parte
For i As Integer = 0 To intEle - 1
cboMiaCombo.Items.Insert(i, objDataSet.Tables("NOMETABELLA_O_ALTRONOME").Rows(i).Item("ID") & " - " &
objDataSet.Tables("NOMETABELLA_O_ALTRONOME").Rows(i).Item("NOME") & " - " & objDataSet.Tables("NOMETABELLA_O_ALTRONOME").Rows(i).Item("DESCRIZIONE"))
Next
End Sub
'Decidi tu come fare se Sub o Function
Private Sub/Function EstraiCodiciCombo()
Dim strAppoggio(3) as String
strAppoggio=cboMiaCombo.Text.Split(" - ")
CODID = Ctype(strAppoggio(0),Integer)
End Sub/Function
End Class