Retrieving Metadata
Posted: Mon 10 Nov 2014 13:21
I am using dotconnect universal trial version and I am using your sample code that I found in the help. When I run it myDataTable.Rows return 0. I don't know what to do.
Try
AccountNumberComboBox.Items.Clear()
If TableNameComboBox.Text.Trim.Length > 0 Then
UniConnection.ConnectionString = ConnectionStringTextBox.Text
UniConnection.Open()
' Dim restrictions() As String = {"Test", TableNameComboBox.Text}
restrictions = {TableNameComboBox.Text}
myDataTable = UniConnection.GetSchema("Columns", restrictions)
Dim i As Int32
Dim myRow As DataRow
Dim myCol As DataColumn
For Each myRow In myDataTable.Rows
For Each myCol In myDataTable.Columns
Console.Write(myRow(myCol) & Chr(9))
Next
Next
End If
Catch ex As Devart.Data.Universal.UniException
MessageBox.Show(ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
UniConnection.Close()
End Try
Try
AccountNumberComboBox.Items.Clear()
If TableNameComboBox.Text.Trim.Length > 0 Then
UniConnection.ConnectionString = ConnectionStringTextBox.Text
UniConnection.Open()
' Dim restrictions() As String = {"Test", TableNameComboBox.Text}
restrictions = {TableNameComboBox.Text}
myDataTable = UniConnection.GetSchema("Columns", restrictions)
Dim i As Int32
Dim myRow As DataRow
Dim myCol As DataColumn
For Each myRow In myDataTable.Rows
For Each myCol In myDataTable.Columns
Console.Write(myRow(myCol) & Chr(9))
Next
Next
End If
Catch ex As Devart.Data.Universal.UniException
MessageBox.Show(ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
UniConnection.Close()
End Try