Author Topic: Problema con codice cmbox  (Read 210 times)

0 Members and 1 Guest are viewing this topic.

Offline chiab_gigi

  • Global Moderator
  • Newbie
  • *****
  • Posts: 17
  • Karma: 0
    • View Profile
    • Email
Re:[RISOLTO]Problema con codice cmbox
« Reply #3 on: March 27, 2018, 10:46:00 PM »
Advertisement
ciao a tutti
ho risolto cosi............ps non guardate i riferimenti al db, l'ho cambiato e aggiornato
Code: [Select]
'Dovrai importare i seguenti namespace.
Imports System.Data
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Drawing

Public Class Form1
    Dim con As New SqlConnection
    Dim ds As New DataSet
    Dim da As New SqlDataAdapter
    Dim sql As String
    Dim inc As Integer
    Dim MaxRows As Integer
    Dim max As String
    Dim dt As New DataTable
    '>>>>>>>>>>>  Funzione generica per popolare i dati per il ComboBox  >>>>>>>
    'La seguente funzione verrà utilizzata per popolare tutti i ComboBoxes
    'Accetta query SQL come parametro che viene eseguito e i risultati vengono inseriti In un DataTable.
    'Una volta che il DataTable viene popolato dal database, In First position viene inserita una nuova riga che
    ' fungerà da elemento Predefinito (Vuoto) per il ComboBox.
    Private Function GetData(ByVal sql As String) As DataTable
        Dim constr As String = "Data Source=Gigi-PC;Initial Catalog=Cadbox;Integrated Security=true"
        Using con As SqlConnection = New SqlConnection(constr)
            Using sda As SqlDataAdapter = New SqlDataAdapter(sql, con)
                Dim dt As DataTable = New DataTable()
                sda.Fill(dt)
                Dim row As DataRow = dt.NewRow()
                row(0) = 0
                row(1) = "Please select"
                dt.Rows.InsertAt(row, 0)
                Return dt
            End Using
        End Using
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '>>>>>>   Compilare il ListEle ComboBox   >>>>>>>
        'All'interno del gestore di eventi Form Load, il ListEle ComboBox viene popolato dalla tabella ListEle e
        ' il ComboBox Elettro è disabilitato.
        cbListEle.DataSource = Me.GetData("SELECT IdListEle, Store FROM ListEle")
        cbListEle.DisplayMember = "Store"
        cbListEle.ValueMember = "IdListEle"
        cbElettro.Enabled = False
    End Sub


    '>>>>>>    Compilare il ComboBox di Elettro   >>>>>
    'All'interno del gestore di eventi SelectionChangeCommitted del ListEle ComboBox,
    'prima il ComboBox di Elettro viene cancellato assegnando NULL DataSource
    'Quindi se il ComboBox Elettro ha una selezione valida, il ComboBox Elettro viene popolato dalla tabella Elettro
    Private Sub cbListEle_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs) Handles cbListEle.SelectionChangeCommitted
        cbElettro.DataSource = Nothing
        cbElettro.Enabled = False
        If cbListEle.SelectedValue.ToString() <> "0" Then
            Dim sql As String = String.Format("SELECT Code, CodeH, CodeV, Descrizione, LinkH, LinkV FROM Elettro WHERE Code = {0}", cbListEle.SelectedValue)
            cbElettro.DataSource = Me.GetData(sql)
            cbElettro.DisplayMember = "Descrizione"
            cbElettro.ValueMember = "Code"
            cbElettro.Enabled = True
            cbElettro.Text = "Please Select"
        End If
    End Sub

    '   '>>>>>   Compilare le TextBox e Label   >>>>>
    '   'All'interno del gestore di eventi SelectionChangeCommitted del ComboBox Elettro
    '   'Quindi se il ComboBox Elettro ha una selezione valida, TextBox e Label vengono popolate dalla tabella Cities
    Private Sub cbElettro_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs) Handles cbElettro.SelectionChangeCommitted
        If cbElettro.SelectedValue.ToString() <> "0" Then
            Dim SelectedItem = TryCast(cbElettro.SelectedItem, DataRowView)
            Me.txtCodeH.Text = SelectedItem.Row("CodeH").ToString()
            Me.txtCodeV.Text = SelectedItem.Row("CodeV").ToString()
            Me.txtLinkOrizzontale.Text = SelectedItem.Row("LinkH").ToString()
            Me.txtLinkVerticale.Text = SelectedItem.Row("LinkV").ToString()
            Me.lblOr.Text = SelectedItem.Row("CodeH").ToString()
            Me.lblVer.Text = SelectedItem.Row("CodeV").ToString()
            Me.lblDescrizione.Text = SelectedItem.Row("Descrizione").ToString()
        End If
    End Sub

   '   '>>>>>     Assegnare le immagini alle PictureBox     >>>>>

    Private Sub txtLinkOrizzontale_TextChanged(sender As Object, e As EventArgs) Handles txtLinkOrizzontale.TextChanged
        If IO.File.Exists(txtLinkOrizzontale.Text) Then
            picOr.ImageLocation = txtLinkOrizzontale.Text
            picOr.Load()
        End If
    End Sub

    Private Sub txtLinkVerticale_TextChanged(sender As Object, e As EventArgs) Handles txtLinkVerticale.TextChanged
        If IO.File.Exists(txtLinkVerticale.Text) Then
            picVer.ImageLocation = txtLinkVerticale.Text
            picVer.Load()
        End If
    End Sub
End Class

Risultato soddisfacente, unico neo....
Immagine
ciao
Gigi
Windows 7  -  Visual Studio 2017  -  Office 2017

Offline Flavio58

Re:Problema con codice cmbox
« Reply #2 on: March 25, 2018, 02:40:14 PM »
Non conosco vb o asp che sia ma tu "Please select" lo metti in

 
                Dim row As DataRow = dt.NewRow()
                row(0) = 0
                row(1) = "Please select"

che è il secondo campo del record.

Poi fai la select con

SELECT Code, CodeH, CodeV, Descrizione, LinkH, LinkV FROM Block WHERE Code ...

Per cui 0 va in CODE e "Please select" in CodeH
Quando poi formati

 Me.txtCodeH.Text = SelectedItem.Row("CodeH").ToString()

ti trovi li "Please select"....
Consulente in Informatica dal 1984

Software automazione, progettazione elettronica, computer vision, intelligenza artificiale, IoT, sicurezza informatica, tecnologie di sicurezza militare, SIGINT. 

Facebook:https://www.facebook.com/flaviobernardotti58
Twitter : https://www.twitter.com/Flavio58

Cell:  +39 366 3416556

f.bernardotti@deeplearningitalia.eu

#deeplearning #computervision #embeddedboard #iot #ai

Offline chiab_gigi

  • Global Moderator
  • Newbie
  • *****
  • Posts: 17
  • Karma: 0
    • View Profile
    • Email
Problema con codice cmbox
« Reply #1 on: March 23, 2018, 11:04:40 AM »
ciao a tutti
vorrei il vostro aiuto per un problemino..
in una form ho:
- 1° combobox: cbLibreria
- 2° combobox: cbDescrizione
- 1° textbox: txtCodeH
- 2° textbox: txtCodeV
ecc

il problema è questo...in avvio su cbLibreria compare "Please select" come da codice.
Una volta selezionata la voce interessata, "Please select", invece di comparire su cbDescrizione
compare su txtCodeH

Per favore sapreste dirmi dove sbaglio
grazie

vb 2017 - Windows 7
Code: [Select]
Private Function GetData(ByVal sql As String) As DataTable
        Dim constr As String = "Data Source=Gigi-PC;Initial Catalog=Cad;Integrated Security=true"
        Using con As SqlConnection = New SqlConnection(constr)
            Using sda As SqlDataAdapter = New SqlDataAdapter(sql, con)
                Dim dt As DataTable = New DataTable()
                sda.Fill(dt)
                Dim row As DataRow = dt.NewRow()
                row(0) = 0
                row(1) = "Please select"
                dt.Rows.InsertAt(row, 0)
                Return dt
            End Using
        End Using
    End Function

Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cbLibreria.DataSource = Me.GetData("SELECT IdLibreria, Libreria FROM Librerie")
        cbLibreria.DisplayMember = "Libreria"
        cbLibreria.ValueMember = "IdLibreria"
        cbDescrizione.Enabled = False
    End Sub

   Private Sub cbLibreria_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs) Handles cbLibreria.SelectionChangeCommitted
        cbDescrizione.DataSource = Nothing
        cbDescrizione.Enabled = False
        If cbLibreria.SelectedValue.ToString() <> "0" Then
            Dim sql As String = String.Format("SELECT Code, CodeH, CodeV, Descrizione, LinkH, LinkV FROM Block WHERE Code = {0}", cbLibreria.SelectedValue)
            cbDescrizione.DataSource = Me.GetData(sql)
            cbDescrizione.DisplayMember = "Descrizione"
            cbDescrizione.ValueMember = "Code"
            cbDescrizione.Enabled = True
        End If
    End Sub

   Private Sub cbDescrizione_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbDescrizione.SelectedIndexChanged

        If (Not Me.cbDescrizione.SelectedItem Is Nothing) Then
            Dim SelectedItem = TryCast(cbDescrizione.SelectedItem, DataRowView)
            Me.txtCodeH.Text = SelectedItem.Row("CodeH").ToString()
            Me.txtCodeV.Text = SelectedItem.Row("CodeV").ToString()
            Me.txtLinkOrizzontale.Text = SelectedItem.Row("LinkH").ToString()
            Me.txtLinkVerticale.Text = SelectedItem.Row("LinkV").ToString()
            Me.lblOr.Text = SelectedItem.Row("CodeH").ToString()
            Me.lblVer.Text = SelectedItem.Row("CodeV").ToString()
        End If

    End Sub


Gigi
Windows 7  -  Visual Studio 2017  -  Office 2017

 

Related Topics

  Subject / Started by Replies Last post
0 Replies
70 Views
Last post May 02, 2018, 01:05:27 PM
by Flavio58
0 Replies
47 Views
Last post August 31, 2018, 10:01:43 AM
by Flavio58
0 Replies
65 Views
Last post October 06, 2018, 02:02:45 AM
by Flavio58
0 Replies
70 Views
Last post October 12, 2018, 10:03:50 AM
by Flavio58
0 Replies
15 Views
Last post June 26, 2019, 06:23:22 PM
by Isolato77

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326