Visual Basic

<code>Public Sub GridPopulate_TS()
       Dim oDel As New _
       GridPopulateDelegate( _
       AddressOf Me.sendScanToGrid)
       Me.Invoke(oDel)
   End Sub
   Public Delegate Sub GridPopulateDelegate()


   Public Sub sendScanToGrid()

       con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" + AccessDB

       con.Open()

       ds.Clear()

       sql = "select * from qryFileInfo"
       da = New OleDbDataAdapter(sql, con)
       da.Fill(ds, "fileinfo")
       DataGrid1.BindingContext = New BindingContext
       DataGrid1.SetDataBinding(ds, "fileinfo")
       DataGrid1.ReadOnly = True

       sql = "select * from qryFileTypeInfo"
       da = New OleDbDataAdapter(sql, con)
       da.Fill(ds, "filetypeinfo")
       DataGrid2.BindingContext = New BindingContext
       DataGrid2.SetDataBinding(ds, "filetypeinfo")
       DataGrid2.ReadOnly = True

       con.Close()

   End Sub</code>

Abhijith Rao wrote:

How do i get the datatype size of a column or an attribute from a database...

SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'Products'

Dave Kreskowiak wrote:

It looks like it already supplies most of what you'd need

Brad Fackrell wrote:

I’m assuming that the manufacturer would not be very likely to give out the SDK

Brad Fackrell wrote:

but I’m assuming that the manufacturer would not be very likely to give out the SDK without me forking over a good bit of cash.

Public Shared Function GetApplicationStartupPath() As String
    Dim realPath As String = Application.StartupPath
    If Path.GetPathRoot(realPath).StartsWith("C:") Then
        ' Return a bogus path to the root of the CD drive for testing
        Return "F:\"
    End If

    ' Return the real path were using
    Return realPath
End Function

    Public Shared Function GetApplicationStartupPath() As String
#If DEBUG Then
        ' Return the bogus path to the CD drive, used for testing...
        Return "F:\"
#Else
        ' Return the actual StartupPath
        Return Application.StartupPath
#End If
    End Function