Torna al Thread

Private Sub CaricaFornitori() 'carico fornitori da mettere nella combo Dim SQLConnectionString As String Dim SQLConnection As New SqlConnection Dim dataset1 As New DataSet Dim cm As New SqlCommand Dim Fornitori As String = "ClientiFornitori" Dim da As New SqlDataAdapter SQLConnectionString = My.Settings.WeaGestDBConnectionString & "xxxxxx" SQLConnection.ConnectionString = SQLConnectionString SQLConnection.Open() cm.CommandText = "SELECT ID_Fornitore, ID_Cliente, R_Cliente,R_Tipo FROM ClientiFornitori WHERE R_Tipo = 'F' ORDER BY R_Cliente" da.SelectCommand = cm da.SelectCommand.Connection = SQLConnection da.Fill(dataset1, Fornitori) ComboBoxFornitore.DataSource = dataset1.Tables(Fornitori) ComboBoxFornitore.DisplayMember = "R_Cliente" ComboBoxFornitore.ValueMember = "ID_Fornitore" SQLConnection.Close() End Sub
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5