Adding completing read to sqlite-mode-extras-edit-row-field

sql-edit-completion.el

(defun sqlite-mode-extras-completing-read-field (table column)
  "Do a grouped select to get some completion candidates"
   (delq nil (flatten-tree (sqlite-execute
                            sqlite--db
                            (format "SELECT %s FROM %s GROUP BY %s limit 100"
                                    column
                                    table
                                    column)))))

(defun sqlite-mode-extras-edit-row-field ()
  "Edit current row's field."
  (interactive)
  (when-let* ((table (sqlite-mode-extras--type-property-at-point))
                (row (sqlite-mode-extras--row-property-at-point))
                (columns (sqlite-mode-extras--table-header-column-details
                          (sqlite-mode-extras--table-header-line)))
                (column (sqlite-mode-extras--resolve-table-column))
                (value (if (numberp (sqlite-mode-extras--row-field-value-at-point))
                           (read-number (format "%s: " column)
                                        (sqlite-mode-extras--row-field-value-at-point))
                         (let ((completions (sqlite-mode-extras-completing-read-field (cdr table) column )))
                           (princ completions)
                           (completing-read (format "%s: " column)
                                            completions
                                            nil
                                            nil
                           (sqlite-mode-extras--row-field-value-at-point))))))
    (unless (string-equal (car (seq-first columns)) "id")
      (error "First row must be 'id'"))
    (sqlite-execute
     sqlite--db
     (format "UPDATE %s SET %s = ? WHERE rowid = ?"
             (cdr table)
             column)
     (list value (car row)))
    (sqlite-mode-extras-refresh)))