ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: テーブル一覧
名前: lightbox
処理選択
パスワード

件名 テーブル一覧
名前 lightbox
コメント
[[DB処理用ライブラリの Imports]]
@DIV
Imports lightbox.db
@END

[[接続用の文字列変数を定義]]
@DIV
Public Server As String
Public User As String = "lightbox"
Public Pass As String = "lightbox"
@END

[[処理毎に、DB アクセス用のインスタンスを作成]]
@DIV
Dim db As New DbOracle(Server, User, Pass)
@END

[[メニュー項目のイベントに以下を実装]]
@DIV
Dim db As New DbOracle(Server, User, Pass)

If Not db.Connect() Then
	MessageBox.Show("接続に失敗しました")
	Return
End If

db.Query("select * from USER_TABLES order by TABLE_NAME")
Me.LboxGrid1.Clear()
Do While db.Read()

	Me.LboxGrid1.AddRow()
	Me.LboxGrid1.SetColumnText("TABLE", db.GetValue("TABLE_NAME"))

Loop

db.Close()
@END

[[ロードイベントに以下を追加]]
@DIV
Server = System.Net.Dns.GetHostName() + "/ORCL"
@END