我有一堆远程MySQL服务器,只允许从本地连接。为了连接它们,我做以下操作:
ssh host
mysql -uuser -psecret -hhost.myhost.com
我在Emacs中配置了连接到本地MySQL的设置,使用了sql-mysql-mode:
(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连接到任何地方?