コメント |
CSV 作成用の文字列を作る際に、ここで使用したテーブル名を使うので、
グローバル変数にセットしておく
@DIV
Public @C:red(TableName) As String
@END
@DIV
Private Sub LboxGrid1_CellClick(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles LboxGrid1.CellClick
If e.RowIndex < 0 Then
Return
End If
@C:red(TableName) = LboxGrid1.GetColumnText(e.RowIndex, "TABLE")
Dim db As New DbOracle(Server, User, Pass)
If Not db.Connect() Then
MessageBox.Show("接続に失敗しました")
Return
End If
Dim Query As String = "select * from USER_TAB_COLUMNS "
Query += " where TABLE_NAME = '" + @C:red(TableName) + "'"
Query += " order by COLUMN_ID"
db.Query(Query)
Me.LboxGrid2.Clear()
Do While db.Read()
Me.LboxGrid2.AddRow()
Me.LboxGrid2.SetColumnText("COL", db.GetValue(1))
Me.LboxGrid2.SetColumnText("ATT", db.GetValue("DATA_TYPE"))
Me.LboxGrid2.SetColumnText("LEN", db.GetValue("CHAR_COL_DECL_LENGTH"))
Loop
db.Close()
End Sub
@END
|