|
Hi,
I’m following a tutorial using serialization/saving records.
I can make records, display them ok in a datgridview and then save them ok using serialization. Then I can reopen the programme and reload the dataset from the deserialised file, and show the records ok in the datagrid view - but I cannot add any more records to the datagridview.
I’d be grateful for any help/advice/assistance.
Regards,
Steve
Here is my code:
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Public Class Frm_DataEntry
Dim ThePoint As New Point(540, 150)
Public TheRecord As DataRow
Dim ii As Integer
Private Sub Frm_DataEntry_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Location = ThePoint
End Sub
Private Sub Tbx01_FirstName_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tbx01_FirstName.Enter
Tbx01_FirstName.Clear()
Tbx02_LastName.Clear()
Tbx03_Phone.Clear()
End Sub
Private Sub Btn01_Save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn01_Save.Click
TheRecord = Frm_Mainform.dt_Table.NewRow
TheRecord(Frm_Mainform.dt_Col02_FirstName) = Tbx01_FirstName.Text
TheRecord(Frm_Mainform.dt_Col03_LastName) = Tbx02_LastName.Text
Frm_Mainform.dt_Table.Rows.Add(TheRecord)
Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset
Frm01_WithDGV.DGV01.DataMember = Frm_Mainform.dt_Table.ToString
Frm01_WithDGV.DGV01_BS_Col01_PKey.DataPropertyName = Frm_Mainform.dt_Col01_PKey.ToString
Frm01_WithDGV.DGV01_BS_Col02_FirstName.DataPropertyName = Frm_Mainform.dt_Col02_FirstName.ToString
Frm01_WithDGV.DGV01_BS_Col03_LastName.DataPropertyName = Frm_Mainform.dt_Col03_LastName.ToString
Dim ii As Integer
ii = Frm_Mainform.dt_Table.Rows.Count
MessageBox.Show(ii)
End Sub
Private Sub Btn02_SaveAndClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn02_SaveAndClose.Click
Dim Filename As String = "PermitToWork.pmt"
Dim fStream As FileStream
Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset
Frm01_WithDGV.DGV01.DataMember = Frm_Mainform.dt_Table.ToString
Frm01_WithDGV.DGV01_BS_Col01_PKey.Width = 90
Frm01_WithDGV.DGV01_BS_Col02_FirstName.Width = 125
Frm01_WithDGV.DGV01_BS_Col03_LastName.Width = 125
Frm01_WithDGV.DGV01_BS_Col04_Date.Width = 125
Frm01_WithDGV.DGV01_BS_Col01_PKey.DataPropertyName = Frm_Mainform.dt_Col01_PKey.ToString
Frm01_WithDGV.DGV01_BS_Col02_FirstName.DataPropertyName = Frm_Mainform.dt_Col02_FirstName.ToString
Frm01_WithDGV.DGV01_BS_Col03_LastName.DataPropertyName = Frm_Mainform.dt_Col03_LastName.ToString
If File.Exists(Filename) Then
Try
fStream = New FileStream(Filename, FileMode.Create)
Dim binFormat As New BinaryFormatter
binFormat.Serialize(fStream, Frm_Mainform.ds_Dataset)
Catch anex As ArgumentNullException
MsgBox("The inventory could not be accessed")
Catch ex As SerializationException
MsgBox("The application failed to retrieve the inventory")
Finally
fStream.Close()
End Try
Else
Return
End If
Frm_Mainform.Close()
End Sub
Private Sub Btn03_Reload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn03_Reload.Click
Dim Filename As String = "PermitToWork.pmt"
Dim fStream As FileStream
If File.Exists(Filename) Then
Try
fStream = New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim binFormat As New BinaryFormatter
Frm_Mainform.ds_Dataset = binFormat.Deserialize(fStream)
Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset
Frm01_WithDGV.DGV01.DataMember = Frm_Mainform.dt_Table.ToString
Frm01_WithDGV.DGV01_BS_Col01_PKey.Width = 90
Frm01_WithDGV.DGV01_BS_Col02_FirstName.Width = 125
Frm01_WithDGV.DGV01_BS_Col03_LastName.Width = 125
Frm01_WithDGV.DGV01_BS_Col04_Date.Width = 125
Frm01_WithDGV.DGV01_BS_Col01_PKey.DataPropertyName = Frm_Mainform.dt_Col01_PKey.ToString
Frm01_WithDGV.DGV01_BS_Col02_FirstName.DataPropertyName = Frm_Mainform.dt_Col02_FirstName.ToString
Frm01_WithDGV.DGV01_BS_Col03_LastName.DataPropertyName = Frm_Mainform.dt_Col03_LastName.ToString
Catch anex As ArgumentNullException
MsgBox("The inventory could not be accessed")
Catch ex As SerializationException
MsgBox("The application failed to retrieve the inventory")
Finally
fStream.Close()
End Try
Else
Return
End If
Dim ii As Integer
ii = Frm01_WithDGV.DGV01.Rows.Count
MessageBox.Show(ii)
End Sub
End Class
Thanks for your help and advice!
Steve
|
|
|
|
|
Hello to All.
I'm getting this error
Error 1 Comma, ')', or a valid expression continuation expected.
From this line of code at the Object().
Dim schemaTable As DataTable =_dbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,_New Object(){Nothing, Nothing, Nothing, "TABLE"})
I'm new to this and in need of help. If you need to see all of the code I can upload it.
Thank you.
AW
|
|
|
|
|
A Wyatt wrote: ,_New Object(){Nothing, Nothing, Nothing, "TABLE"}
This looks like a mess, what do you expect it to do ? If this is valid code in any way, it's an idiom I don't know about, but for sure if you create a new objecgt, the { } syntax is invalid, and probably generally invalid for VB
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
Christian Graus wrote: This looks like a mess
Gave you a 5 just for that.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Remove the underscore before New and add a space after Object(). I'm also assuming you acutally have a variable that starts with an underscore, _dbConnection.
Dim schemaTable As DataTable =_dbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
|
|
|
|
|
So VB does use curly brackets after all? Then the only thing still missing is some semi-colons...
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
Don't get your hopes up. AFAIK, they're only used in array initializers. 
|
|
|
|
|
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
Thanks Dave
I fixed it this way.
Dim schemaTable As DataTable = _
dbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
That resolved the error
Thanks
AW
|
|
|
|
|
i tried to get the big associated icon from the harddrive.
i tried to get a large icon from a folder/file
but it never worked. i used this :
http://www.codeproject.com/KB/files/ExtractIcons.aspx
Some idea?
(with an ico-file it seems to work but i want to have the icon of a directory(...))
thanky for very much!!
|
|
|
|
|
I believe the icon for folders are located in the Shell32.DLL file which you will find in your Windows\System32 folder.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
you are right
but i need the icons at runtime and if the directory has a special icon, i have no idea how to get it(in 256*256 ,of cource ,otherwise it would be easy)
|
|
|
|
|
Hello, i'm very new to both VBA and Access in general so this may come across as a stupid question.
Basically I have a form which is intended to run a file through a programmer to program IC's. The specific file will vary occasionally.
I have already got the part of the form working which starts up the file and routes it through windows Command line, this part is fine.
But the bit I am a little stuck on is I want to have a seperate button on that form which will simply open "my documents" or somewhere else on the server. This is so that I can select the different program files when neccesarry. This is all. From there i'll try and work out a way have my other button open the selected file each time as opposed to a fixed file name.
So is there any code or techniques to simply have a button open up the file directory window?
Again this may or may not be the simplest question in the world, but I really dont have a clue.
Any help at all would be much appreciated. Thanks.
modified on Friday, July 17, 2009 5:24 AM
|
|
|
|
|
I'm not a VBA expert but from your question i understand you basicly want a dialog that shows files from a directory so the user can select one. There's a standard dialog for this in windows. Search in the VBA help for 'Open file' or 'save file'.
Rozis
|
|
|
|
|
Thanks very much. I couldnt find any info on this on the Access help (which I find useless) but after you mentioned File Dialog I was able to find some source code online. Cheers.
|
|
|
|
|
I want to click this button Follow twitter in webbrowser
button in code page
</div>
<div id="follow_actions_17852343" class="follow-actions YahooMovies">
<div class="follow-control">
<div id="follow_control">
<input value="Follow" class="follow-button" id="follow_button" type="submit">
</div>
<div id="follow-details">
<p id="following">
</p>
<div id="follow_notifications">
</div>
modified on Thursday, July 16, 2009 6:55 AM
|
|
|
|
|
|
Not if he's trying to interact with a webpage in a winforms app.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
I assume you mean you have this code in a webbrowser control and want to automate clicking it ? If it's a specific page, why do you need to automate it ?
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
I want to click this button Follow twitter in webbrowser
|
|
|
|
|
You just repeated your question.
You'll have to explain what / why you want to do.
There are to many unknowns.
The web browser is incorporated into your prog? (I'm guessing no)
The page is one you wrote? (I'm guessing no)
...
|
|
|
|
|
Tom Deketelaere wrote: There are to many unknowns.
Send for Dick Cheney!
Panic, Chaos, Destruction.
My work here is done.
|
|
|
|
|
I don't mind that English is not your first language, but when I ask for more info, I am telling you that what you told me is not enough for me to help. Don't repeat it, I can read. Actually try to answer the questions I asked, or I just cannot help.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
I need to design my own control by combining panel and richtextbox control in vb.net. I hav googled to find abt combining two custom controls but found nothing relevant. Can anyone plz tell me how to start this?
|
|
|
|
|
add --> New item --> user control
What do you mean with combining two controls??
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
