Dim sql As String = "select * from Operaio where Nominativo = '" & OperaioComboBox1.Text & "'" Dim cmd As New OleDb.OleDbCommand(sql, Dbazienda) Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader Do While dr.Read Operaio.Text = (dr.Item("Id") & " - " & dr.Item("Nominativo")) MyOperaio = dr.Item("Id") MyCliente = 0 Cliente.Text = "" Loop If Len(Trim(OperaioComboBox1.Text)) = 0 Then Operaio.Text = "" MyOperaio = 0 Operaio.Text = "" MyCliente = 0 Cliente.Text = "" End If |