Ciao ragazzi,prima di tutto volevo premettere che è la prima volta che mi affaccio nel mondo dei database e di vb.net,volevo realizzare una form con delle combobox che si riempissero automaticamente prendendo i dati dalle tabelle del database. Ci sono riuscito ma in parte. Mi spiego,volevo fare in modo che ci fosse una subroutine che,una volta chiamata,passandole i giusti parametri mi riempisse le combo,senza dover scrivere tutto ogni volta.
Ho elaborato una soluzione come questa:
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class FrmPrenotazione
Private Sub FrmPrenotazione_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CreaTabelle("Bevande", "SELECT * FROM Bevande", cmbBevande)
CreaTabelle("Primi Piatti", "SELECT * FROM Primi Piatti", cmbPrimiPiatti)
CreaTabelle("Contorni", "SELECT * FROM Contorni", cmbContorni)
End Sub
Private Sub CreaTabelle(ByVal NomeTab As String, ByVal query As String, ByVal combo As ComboBox)
Dim cn As New OleDbConnection(strconn)
cn.Open()
Dim command As New OleDbCommand(query, cn)
Dim da As New OleDbDataAdapter
da.SelectCommand = command
Dim ds As New DataSet(NomeTab)
ds.Clear()
da.Fill(ds, NomeTab)
combo.DataSource = ds.Tables(NomeTab)
combo.DisplayMember = "Nome"
End Sub
End Class
Il problema è che funzioan solamente con la prima combobox.Sapreste dirmi cosa modificare per farla funzionare con tutte? E presente anche un modulo,dove ho la stringa di connessione
Grazie in anticipo!
Rispondi quotando
