SQLite 簡易メンテナンス

  AIR で作成した DB の簡易メンテ用



↓ソースダウンロード
http://lightbox.on.coocan.jp/download/SQLITE_MTN.lzh



こちらで、SQLite DB を作成しましたが、
どうせなら VB.NET でデータを表示したり更新したりする事をテストしてみようと思い、作成しました。

既存の SHIFT_JIS ベースで作成したアプリでは、表名や列名に日本語使うと化けてたのが、
さすが、Framework。特になんの問題も無く使えています。



  ソースコード



↓のライブラリを使用しています(全て参照します)
http://lightbox.on.coocan.jp/download/lightbox_dotnet_02.lzh

※ とりあえず作ったので、エラー処理はあんまりやってません。

  
Imports lightbox.db
Imports lightbox.tool

Public Class Form1

	Private db As lightbox.db.DbOdbc = Nothing

	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		Me.LboxGrid2.AddColumn("TABLE", "テーブル")

	End Sub

	Private Sub テーブル一覧ToolStripMenuItem_Click(ByVal sender As System.Object, _
	 ByVal e As System.EventArgs) Handles テーブル一覧ToolStripMenuItem.Click

		If db Is Nothing Then

			Dim dlg As lightbox.tool.LboxCommdlg = New LboxCommdlg()
			If dlg.OpenFileName() Then
				db = New DbOdbc("", "", "", "", "")
				db._myConnectString = _
				"Driver={SQLite3 ODBC Driver};" + _
				  "DATABASE=" + dlg.SelectedPath + ";"
			Else
				Return
			End If

		End If

		db.Connect()

		Dim table As DataTable = db.myCon.GetSchema("Tables")

		Me.LboxGrid2.Clear()
		For row As Integer = 0 To table.Rows.Count - 1
			Me.LboxGrid2.AddRow()
			Me.LboxGrid2.SetColumnText("TABLE", _
			table.Rows(row).Item(2).ToString())
		Next

		db.Close()

	End Sub

	Private Sub データ表示ToolStripMenuItem_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles データ表示ToolStripMenuItem.Click

		If Me.LboxGrid2.Rows.Count = 0 Then
			Return
		End If

		Dim nCur As Integer = Me.LboxGrid2.GetCurrentRowIndex()
		Dim strTable As String = Me.LboxGrid2.GetColumnText(nCur, "TABLE")

		' SQLite に接続する為に、_ConnectString を Public にして
		' 件数を マイナスにした場合、_myConnectString をそのまま使うようにしました
		Me.LboxGrid1._ConnectString = db._myConnectString
		Me.LboxGrid1.LoadSqlOdbc("select * from " + strTable, -100)

	End Sub

	Private Sub 更新SQLToolStripMenuItem_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles 更新SQLToolStripMenuItem.Click

		If db Is Nothing Then
			Return
		End If

		db.Connect()

		If db.Execute(Me.LboxEditor1.Text) = -2 Then
			MessageBox.Show(db.myError)
		Else
			MessageBox.Show("SQLが実行されました")
		End If

		db.Close()

	End Sub
End Class
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ