Please Help me in converting VB6 DataGrid usage to VB2005 DataGridView.

Although I did not use the structure to read the value I did show you what was neccessary to convert it, along with some other items to give you an idea of what is going on...try something along these lines here:

Private Structure DiskFileLayout

Public dAccount As Integer

Public dActivity As Char()

Public dCurrency As Integer

Public dDate As Date

Public dTotal As Decimal

Public dContainers As Double

Public dPrice As Decimal

Public dCommission As Decimal

Public dNote As Char()

Public dLotNumber As Integer

Public dActive As Char

Public dLotCnt As Integer

Public dLotSeries() As Integer

End Structure

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dNFile As DiskFileLayout

ReDim dNFile.dActivity(10)

ReDim dNFile.dNote(33)

ReDim dNFile.dNote(1)

ReDim dNFile.dLotSeries(17)

Dim SizeOfInteger As Integer = System.Runtime.InteropServices.Marshal.SizeOf(GetType(Integer))

Dim SizeOfChar As Integer = System.Runtime.InteropServices.Marshal.SizeOf(GetType(Char))

Dim SizeOfDate As Integer = System.Runtime.InteropServices.Marshal.SizeOf(GetType(Date))

Dim SizeOfDec As Integer = System.Runtime.InteropServices.Marshal.SizeOf(GetType(Decimal))

Dim SizeOfDouble As Integer = System.Runtime.InteropServices.Marshal.SizeOf(GetType(Double))

Dim BufferSize As Integer = System.Runtime.InteropServices.Marshal.SizeOf(dNFile)

Dim TheBuffer(SizeOfDec) As Byte

Dim TheOffset As Integer = (SizeOfInteger * 2) + (SizeOfChar * 10) + SizeOfDate

Dim fr As New System.IO.FileStream("C:\ShipmentData", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None, BufferSize, IO.FileOptions.RandomAccess)

fr.Read(TheBuffer, TheOffset, SizeOfDec)

fr.Close()

Dim TheCell As DataGridViewCell

Me.DataGridView1.Columns.Add("Col1", "Col1")

TheCell = Me.DataGridView1.Rows(0).Cells(0)

TheCell.Value = Convert.ToDecimal(TheBuffer)

Me.DataGridView1.CurrentCell = TheCell

End Sub

On the other hand the get and open functions were directly replaced with FileOpen and FileGet...but do read the help files on those functions because the functionallity has changed...stuff will get added to your buffer when using the FileGet function

Hope that helps

DMan1 at 2007-8-31 >

Ok, you're getting there...

You'll want to right-click on that DataTable1 box and select Add -> Column. You add a column to the dataset for each field in your structure. Set the column datatype appropriately (typically you can use String and Int32/Decimal for most types).

Once you've created the DataTable schema (or, column layout) you can then parse the text file and load the values into an instance dataset.

BTW, "GL" is short hand for "Good Luck"

GL!

-rkimble

-EDIT- More info on column types:

Here are some recomended datatypes for your existing layout:

dAccount As Integer = Int32
dActivity As String * 10 = String
dCurrency As Integer = Int32
dDate As Date = DateTime
dTotal As Currency = Decimal
dContainers As Double = Double
dPrice As Currency = Decimal
dCommission As Currency = Decimal
dNote As String * 33 = String
dLotNumber As Integer = Int32
dActive As String * 1 = Char
dLotCnt As Integer = Int32
dLotSeries(1 To 18) As Integer = ? Not sure about this... looks like you want to add 18 more Int32 columns

rkimble at 2007-8-31 >

The strings you don't have to worry about. You can set the MaxLength property of the column if you want, but its optional (there are other methods of ensuring the user does not enter too long of a string).

The 18 integers I'm not sure about... You're not going to be able to display an Array in the dataset... This would either have to be 18 seperate fields, or a relationship to a second table.

What does your flat file look like? Is it comma seperated values or fixed width? That will determine the routine necessary to load the file into the dataset.

How would making 18 integer columns adversly affect the processing of the file?

rkimble at 2007-8-31 >

OK, add the 18 integer columns to the end of the table.

In the design view of your form, drag a DataGridView, a BindingSource, and your DataSet (be sure to Build the project - this will make the DataSet you created appear in the top of the Toolbox) from the ToolBox onto the form. The DataGridView.DataSource property should be set to the BindingSource. Later, after filling the dataset with data, you'll set the BindingSource.DataSource to the DataSet and the BindingSource.DataMember to the name of the Table.

Then, you'll use code something like the following to do the import:

Dim tfp As new FileIO.TextFieldParser("c:\datafile.txt") 'replace "c:\datafile.txt" with the actual file name & path
tfp.TextFieldType = FileIO.FieldType.FixedWidth
tfp.FieldWidths = New Integer() {1, 10, 1, 8...} 'these integers should be a comma seperated list of all the field widths
tfp.HasFieldsEnclosedInQuotes = True/False 'set this property to true if the field values are enclosed in quotes

While Not tfp.EndOfData

Dim vals() As String = tfp.ReadFields
Dim dr As PaulyDataSet.DataTable1Row 'the type here should be your datasetname dot datatablenamerow
dr = PaulyDataSet1.DataTable1.NewDataTable1Row 'again, the names should match your dataset schema
For i As Integer = 0 To vals.Length - 1
dr.Item(i) = vals(i)
Next
PaulyDataSet1.DataTable1.AddDataTable1Row(dr)

End While

BindingSource1.DataSource = PaulyDataSet1
BindingSource1.DataMember = "DataTable1"

You'll need to make minor adjustments to the code, as noted, but this should give you the basic idea: read the field values into an array, create a new DataRow, set the columns in the DataRow equal to each value read from the file, add the row to DataTable, wash, rinse, repeat.

rkimble at 2007-8-31 >

That error looks like it found a blank value (or space " ") for dAccount in the flat file. You may have to modify the code a little further to test for blank, or null, values. Something like:

For i As Integer = 0 To vals.Length - 1
If vals(i).Trim.Length > 0 Then
dr.Item(i) = vals(i)
End If
Next

It may take more testing than that - it all depends on what that flat file might contain.

As to the controls on your form - It sounds like you drug the DataTable object from the DataSources window onto the form. This would have created a DataGridView and BindingSource for you - each with it's datasource already set. This is ok, you just have to reset the BindingSource.DataSource after filling the DataSet.

So if this is the case then you don't need the other DataGridView control.

rkimble at 2007-8-31 >

#1 - Don't worry about data types while reading the file.

Because it is a flat text file, the values you're reading are strings. When those values get set in the DataRow, they then get converted to the proper data type based on the DataType property of the specific column in the DataTable.

#2 - How to add Columns to the Grid.

When you did the first drag and drop operation, VS automatically added a column to the DataGridView for each column in the DataTable. You have two choices here: 1, you can manually add the columns to the DataGridView from the properties window; or 2, you can use the code DataGridView1.AutoGenerateColumns = True (where DataGridView1 is the name of your DataGridView). This code would probably be one of the first lines of From_Load.

Keep it up! You're almost there!!

rkimble at 2007-8-31 >

Sorry, that VB6 stuff means very little to me...

Ok, I guess we've got a terminology conflict. To me, a flat file is always ASCII text. It's either delimited with some characters, or fixed width data file. A flat file is one that can be parsed and should be readable in notepad. Excel will be able to import and display it's contents.

What you're describing now sounds like a binary file. A file that contains byte data, some of which will convert to characters when seen in Notepad, others will display as all kinds of funky characters, or not at all.

If this is a binary file than the method of importing it into a DataSet is different. You'll have to read it into a byte array with the proper encoding and then use a routine that translates groups of bytes into their appropriate values. This is a very different process than reading a flat data file into a dataset...

rkimble at 2007-8-31 >