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   管理者用   
このエントリーをはてなブックマークに追加





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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ