コメント |
[[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
|