サクラエディタからDB接続する

内容

サクラエディタからDB接続をしたい。
基本的には現場で推奨されているエディタ・開発環境を使うのだが
重くてストレスがたまることがある。
自由にソフトウェアをインストールすることも
できないので、簡単に作ってみようということ(ただの暇つぶしだったり)

方法

サクラエディタにはマクロ機能があり
vbs,jsを使用することができるので
vbsでDB接続する

■以下コード

max = GetLineCount(0)

' 0 否選択 1 選択中 2 矩形選択
selectFlg = IsTextSelected()

' 未選択の場合、
if selectFlg = 0 then

	strSql = ""
	for i = 1 to max
	
		strSql = strSql & getLineStr(i)
		
		if instr(strSql, ";") > 0 then
			
			dbConnect(strSql)
			strSql = ""
		end if
	
	next 

' 選択中の文字列からSQLを取り出す
else

	strSql = GetSelectedString()
	
	strSql = split(strSql, ";")
	
	for i = 0 to Ubound(strSql) -1
		GoFileEnd	
		Down
		insText(vbcr) 
		dbConnect(strSql(i))
	next

end if

msgbox "finish", vbInfomation

'-----------------------------------------
' DB接続
'-----------------------------------------
sub dbConnect(strSql)

	' ここではODBCに登録しているものを使用
	strConn = "DSN=test"

	Set oConn = CreateObject("ADODB.Connection")
	Set rs = CreateObject("ADODB.Recordset")

	oConn.ConnectionString = strConn
	oConn.Open

	rs.Open strSql, oConn
	
	' 検索の場合、エディタに出力
	if instr(strSql, "select") > 0 or instr(strSql, "SELECT") > 0 then
		
		outputCol = ""
		colCount = rs.Fields.Count
		
		for j = 0 to colCount -1
			outputCol = outputCol & rs.Fields(j).Name & vbtab
		next

		insText(outputCol & vbcr)

		do while rs.EOF <> True
			output = ""
			for j = 0 to colCount -1
				output = output & rs.Fields(j).Value & vbtab 
			next
			
			insText(output & vbcr)
			
			rs.moveNext
		
		loop
		
	end if
	
	' 解放
	rs.Close
	set rs = Nothing
	oConn.Close
	set oConn = Nothing
	
End sub

実行するとこんな感じ

■作成後

サクラエディタでSQlを編集してすぐに実行したいときは
使う機会もあるけどやっぱり無理がある

■コマンドライン経由で

「外部コマンドを実行」というコマンドがあるので
サクラエディタからコマンドラインで実行してみる。
DBはmysql

connect = "mysql -u[userName] -p[password] -D[test] -e "
 
max = GetLineCount(0)

' 0 否選択 1 選択中 2 矩形選択
selectFlg = IsTextSelected()

' 未選択の場合、
if selectFlg = 0 then

	strSql = ""
	for i = 1 to max
	
		strSql = strSql & getLineStr(i)
		
		if instr(strSql, ";") > 0 then
　　　　　　　　　　　　　' コマンド作成
			exeStr = connect & """" & strSql & """"
			' コマンド実行
			ExecCommand exeStr, 1
			strSql = ""
		end if
	
	next 

' 選択中の文字列からSQLを取り出す
else

	strSql = GetSelectedString()
	
	strSql = split(strSql, ";")
	
	for i = 0 to Ubound(strSql) -1
		GoFileEnd	
		Down
		insText(vbcr) 
		dbConnect(strSql(i))
	next

end if

msgbox "finish", vbInfomation

以下のコマンド・SQLを実行してみる

show global variables like '%wait%';
select * from historycal where code = '3900' and date = current_date() -5;