Torna al Thread
Public Sub riempiStrumento(ByVal strumento_id As Integer)
Me.dgvStrumento.Rows.Clear()
sql2 = "SELECT * FROM strumento WHERE strumento_categoria=" & strumento_id & ""
cmd2 = New OleDbCommand(sql2, cn)
dr2 = cmd2.ExecuteReader()
If dr2.HasRows = True Then
While dr2.Read = True
Me.dgvStrumento.Rows.Add(dr2("strumento_id"), dr2("strumento_nome"), dr2("strumento_marca"))
End While
End If
Me.lRisultatoStrumento.Text = "Numero righe: " + dgvStrumento.RowCount.ToString()
End Sub