|
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
| |