linux emacs ssh,Emacs如何使用ssh隧道连接到远程MySQL

我有一堆远程MySQL服务器,只允许从localhost连接.要连接到它们,我执行以下操作:

ssh host

mysql -uuser -psecret -hhost.myhost.com

在emacs中,我使用sql-mysql-mode配置了与本地MySQL的连接:

(setq sql-connection-alist

'((pool-a

(sql-product 'mysql)

(sql-server "localhost")

(sql-user "user")

(sql-password "secret")

(sql-database "")

(sql-port 3306))

))

(defun sql-connect-preset (name)

"Connect to a predefined SQL connection listed in `sql-connection-alist'"

(eval `(let ,(cdr (assoc name sql-connection-alist))

(flet ((sql-get-login (&rest what)))

(sql-product-interactive sql-product)))))

(defun sql-local ()

"Connect to the local MySQL server"

(interactive)

(sql-connect-preset 'pool-a)

(delete-other-windows))

(define-key global-map [f10] 'sql-local)

所以,每次点击F10,我都会获得MySQL shell.

是否有可能调整sql-mysql,所以它通过ssh连接到外部机器并在该机器上使用mysql程序,所以我可以从Emacs连接到任何地方？