15 lines
474 B
VB.net
15 lines
474 B
VB.net
Public Class frmInbox
|
|
|
|
|
|
Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
|
|
|
|
|
|
Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"
|
|
My.Channel.CreateDatabaseRequest("Doc Metadata", True)
|
|
Dim oTable = My.Channel.ReturnDatatable(oSQL)
|
|
My.Channel.CloseDatabaseRequest()
|
|
|
|
GridControl1.DataSource = oTable.Table
|
|
End Sub
|
|
End Class |