Skip to content

Add MSSQL driver configuration #54

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
hkjels wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Add MSSQL driver configuration #54

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
78 changes: 69 additions & 9 deletions edbi.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@
;; - ctable.el / https://github.com/kiwanami/emacs-ctable
;; - Perl/CPAN
;; - RPC::EPC::Service (and some dependent modules)
;; - DBI and drivers, DBD::Sqlite, DBD::Pg, DBD::mysql
;; - DBI and drivers, DBD::Sqlite, DBD::Pg, DBD::mysql, DBD::ODBC

;; Place this program (edbi.el and edbi-bridge.pl) in your load path
;; and add following code.
Expand Down Expand Up @@ -548,7 +548,8 @@ The programmer should be aware of the internal state so as not to break the stat
(loop for i in (list edbi:dbd-default
(edbi:dbd-init-postgresql)
(edbi:dbd-init-mysql)
(edbi:dbd-init-oracle))
(edbi:dbd-init-oracle)
(edbi:dbd-init-mssql))
do
(edbi:dbd-register i))
;; add word-collection hook here for completion-at-point-functions
Expand Down Expand Up @@ -712,11 +713,70 @@ The programmer should be aware of the internal state so as not to break the stat
"WITH" "WRITE" "XOR"))))

(defun edbi:dbd-init-mssql ()
"[internal] Initialize `edbi:dbd' object for MS SQLServer (Sybase DBD)."
;; TODO
;; define edbi:dbd and register
;; also define? ADO.NET, ODBC
)
"[internal] Initialize `edbi:dbd' object for Microsoft SQL Server."
(make-edbi:dbd
:name "dbi:ODBC"
:table-info-args
(lambda (conn) (list nil nil nil "TABLE"))
:table-info-filter
'edbi:dbd-default-table-info-filter
:column-info-args
(lambda (conn table) (list nil nil table nil))
:column-info-filter
'edbi:dbd-default-column-info-filter
:type-info-filter
'edbi:dbd-default-type-info-filter
:limit-format
"SELECT TOP %limit% * FROM %table%"
:keywords
'edbi:dbd-init-mssql-keywords))

(defun edbi:dbd-init-mssql-keywords ()
"[internal] SQL Server keywords and functions."
(list
(cons "Function"
(list
"ABS" "ACOS" "ASIN" "ATAN" "ATN2" "AVG" "CEILING" "CHARINDEX"
"COALESCE" "CONVERT" "COS" "COUNT" "CURRENT_TIMESTAMP"
"DATEADD" "DATEDIFF" "DATENAME" "DATEPART" "DAY" "DEGREES"
"EXP" "FLOOR" "GETDATE" "ISNULL" "LEFT" "LEN" "LOG" "LOWER"
"LTRIM" "MAX" "MIN" "MONTH" "NULLIF" "PATINDEX" "PI" "POWER"
"RAND" "REPLACE" "REPLICATE" "REVERSE" "RIGHT" "ROUND"
"RTRIM" "SIGN" "SIN" "SPACE" "SQRT" "STR" "STUFF" "SUBSTRING"
"SUM" "TAN" "UPPER" "YEAR"))
(cons "Keyword"
(list
"ADD" "ALL" "ALTER" "AND" "ANY" "AS" "ASC" "AUTHORIZATION"
"BACKUP" "BEGIN" "BETWEEN" "BREAK" "BROWSE" "BULK" "BY"
"CASCADE" "CASE" "CHECK" "CHECKPOINT" "CLOSE" "CLUSTERED"
"COALESCE" "COLLATE" "COLUMN" "COMMIT" "COMPUTE" "CONSTRAINT"
"CONTAINS" "CONTAINSTABLE" "CONTINUE" "CONVERT" "CREATE"
"CROSS" "CURRENT" "CURRENT_DATE" "CURRENT_TIME"
"CURRENT_TIMESTAMP" "CURRENT_USER" "CURSOR" "DATABASE"
"DBCC" "DEALLOCATE" "DECLARE" "DEFAULT" "DELETE" "DENY"
"DESC" "DISK" "DISTINCT" "DISTRIBUTED" "DOUBLE" "DROP"
"DUMP" "ELSE" "END" "ERRLVL" "ESCAPE" "EXCEPT" "EXEC"
"EXECUTE" "EXISTS" "EXIT" "EXTERNAL" "FETCH" "FILE" "FILLFACTOR"
"FOR" "FOREIGN" "FREETEXT" "FREETEXTTABLE" "FROM" "FULL"
"FUNCTION" "GOTO" "GRANT" "GROUP" "HAVING" "HOLDLOCK" "IDENTITY"
"IDENTITY_INSERT" "IDENTITYCOL" "IF" "IN" "INDEX" "INNER"
"INSERT" "INTERSECT" "INTO" "IS" "JOIN" "KEY" "KILL" "LEFT"
"LIKE" "LINENO" "LOAD" "MERGE" "NATIONAL" "NOCHECK"
"NONCLUSTERED" "NOT" "NULL" "NULLIF" "OF" "OFF" "OFFSETS"
"ON" "OPEN" "OPENDATASOURCE" "OPENQUERY" "OPENROWSET"
"OPENXML" "OPTION" "OR" "ORDER" "OUTER" "OVER" "PERCENT"
"PIVOT" "PLAN" "PRECISION" "PRIMARY" "PRINT" "PROC"
"PROCEDURE" "PUBLIC" "RAISERROR" "READ" "READTEXT" "RECONFIGURE"
"REFERENCES" "REPLICATION" "RESTORE" "RESTRICT" "RETURN"
"REVERT" "REVOKE" "RIGHT" "ROLLBACK" "ROWCOUNT" "ROWGUIDCOL"
"RULE" "SAVE" "SCHEMA" "SECURITYAUDIT" "SELECT" "SEMANTICKEYPHRASETABLE"
"SEMANTICSIMILARITYDETAILSTABLE" "SEMANTICSIMILARITYTABLE"
"SESSION_USER" "SET" "SETUSER" "SHUTDOWN" "SOME" "STATISTICS"
"SYSTEM_USER" "TABLE" "TABLESAMPLE" "TEXTSIZE" "THEN"
"TO" "TOP" "TRAN" "TRANSACTION" "TRIGGER" "TRUNCATE"
"TRY_CONVERT" "TSEQUAL" "UNION" "UNIQUE" "UNPIVOT"
"UPDATE" "UPDATETEXT" "USE" "USER" "VALUES" "VARYING"
"VIEW" "WAITFOR" "WHEN" "WHERE" "WHILE" "WITH" "WRITETEXT"))))

(defun edbi:dbd-init-oracle ()
"[internal] Initialize `edbi:dbd' object for Oracle."
Expand Down Expand Up @@ -1911,7 +1971,7 @@ If the region is active in the query buffer, the selected string is executed."

(defun edbi:setup-completion-auto-complete ()
"Initialization for auto-complete."
(when (eq 'auto-complete edbi:completion-tool)
(when (eq 'auto-complete edbi:completion-tool)
(ac-define-source edbi:tables
'((candidates . edbi:ac-editor-table-candidates)
(candidate-face . edbi:face-ac-table-candidate-face)
Expand Down Expand Up @@ -1953,7 +2013,7 @@ If the region is active in the query buffer, the selected string is executed."
(when (listp i) (setq i (car i)))
i) ret))
ret))))))

(defun edbi:ac-edbi:sql-mode-hook ()
(make-local-variable 'ac-sources)
(setq ac-sources '(ac-source-words-in-same-mode-buffers
Expand Down
15 changes: 10 additions & 5 deletions readme.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -9,16 +9,21 @@ and provides DB-accessing API and the simple management UI.

If you use package.el with [Marmalade](http://marmalade-repo.org/) or [MELPA](http://melpa.milkbox.net/), you just select the package 'edbi' and install it.

Next, you install the perl module `RPC::EPC::Service', DBI and Database drivers with CPAN.
Next, you install the core EDBI Perl modules:

Example:
```
$ cpan RPC::EPC::Service DBI DBD::SQLite DBD::Pg DBD::mysql
$ cpan RPC::EPC::Service DBI
```

Here, SQLite, Postgresql and MySQL drivers will be installed, in addition to the EPC module.
Of course, you can choose the drivers for your environment.
And, DBD drivers as needed for your database:

```
$ cpan DBD::SQLite # for SQLite
$ cpan DBD::Pg # for PostgreSQL
$ cpan DBD::mysql # for MySQL/MariaDB
$ cpan DBD::ODBC # for SQL Server or other ODBC-based databases

```
### Manual installation

This program depends on following programs:
Expand Down