XML Serialization - Visual Basic Discussion Boards

How are we supposed to help you?
Provide code (as little as possible but still enough to make out what's happening).
Did you try debugging it? (step thru it step by step)
What language? (VB.NET or vb6)

Dear Sir

Thank you replies for my problem

my allication is based on VB6

secondly this happen only when i add max record and same continue variety

please see following code

rivate Sub cmdDetAdd_Click()

DetRecordStatus = RecNew
mDetailStatus = DetailNew

Call ClearDetails
Call SetDetButtonStatus

If HdrRecordStatus <> RecNew Then
txtIndentRefNo.Enabled = False
cmdIndentRefNo.Enabled = False
Else
txtIndentRefNo.Enabled = True
cmdIndentRefNo.Enabled = True
txtIndentRefNo.SetFocus
End If
If Len(Trim(txtCrop.Text)) = 0 Then
txtIndentRefNo.SetFocus
Else
'txtLotNo.SetFocus
End If

End Sub
Private Sub cmdDetModify_Click()

If HdrRecordStatus = RecNew Or HdrRecordStatus = RecModify Then

DetRecordStatus = RecModify
Call AddDetailsToControls
GridRow = flxDetail.Row
Call SetDetButtonStatus

'txtNoOfBags.SetFocus
txtVariety.SetFocus
End If

End Sub
Private Sub cmdDetDelete_Click()

On Error GoTo ErrHandler

Dim strQry As String
Dim RowCnt As Integer

Dim IsBeginTrans As Boolean

IsBeginTrans = False

With flxDetail

If .Rows > 1 Then

GridRow = .Row

If GridRow = 0 Then Exit Sub

Call AddDetailsToControls

If MsgBox("Do you want to delete the Marketing seed despatch detail of lot number " & Chr(13) & _
.TextMatrix(GridRow, SOLotNoCol), vbYesNo) = vbNo Then Exit Sub

If .TextMatrix(GridRow, SOStatusCol) = DetailExisting Then

If Len(Trim(.TextMatrix(GridRow, SOInvisibleLotNo))) > 0 Then
strQry = "Delete from MktDespatchDet " & _
" Where MktDespatchRefNo = '" & Trim(txtDespatchRefNo.Text) & "'" & _
" and MktLotNo = '" & Trim(.TextMatrix(GridRow, SOInvisibleLotNo)) & "'"

gNSLConn.BeginTrans
IsBeginTrans = True

gNSLConn.Execute strQry

strQry = "Update MktLotMst set " & _
" NoOfBags = NoOfBags + " & Val(.TextMatrix(GridRow, SONoOfBagsCol)) & _
", IsExists = 'Y' " & _
" Where LotNo = '" & Trim(.TextMatrix(GridRow, SOInvisibleLotNo)) & "'"

gNSLConn.Execute strQry

gNSLConn.CommitTrans
IsBeginTrans = False
End If

End If

If DeleteMSFGRow(flxDetail) = False Then

MsgBox "Error in Flexgrid Row Deletion"
GoTo ErrHandler

End If

Call cmdDetClear_Click

End If

End With

Exit Sub

ErrHandler:

If IsBeginTrans = True Then
gNSLConn.RollbackTrans
End If

Call ErrorLog(Err.Number, Err.Description, Err.Source, Me.Name, "cmdDetDelete_Click")

End Sub

Hi to all,

I have an VB.NET2005 application.

I want to run the application on windows start up. The user should see only the application screen.

All I need is to stop the user to do anything in the system(before my application Run).
Later he should be able to exit the application and do other staff(like opening the explorer etc)
Is there any registry settings for this?or may be some other method

Thanks in advance

-----------------------------
I am a beginner

Hi,
Add the application exe in the startup in your system.
Thanks

~Khatri Mitesh
khatrimitesh@hotmail.com
Bikaner (Rajasthan)
INDIA
http://www.youtube.com/watch?v=-oJaaPCrk3Q

thanks for the reply

But I guess it will take some time to run the application.By that time user can do anything(eg: opening MyComputer) on the system. Which I want to avoid for security reason.

Is there any method for the same.

Thanks in advance

-----------------------------
I am a beginner

Try making a windows service instead of a windows application.

0) Do not cross post please (you posted in 3 forums)
1)

himangshuS wrote:
All I need is to stop the user to do anything in the system(before my application Run).

Bad, very bad, your application should never prevent users from working on there pc.

himangshuS wrote:
Later he should be able to exit the application and do other staff(like opening the explorer etc)

Beter

As to how to do this, I'm afraid you can't. the only thing you can try is to have a boot screen in your application that is topmost and fullscreen.

Hello all. I am trying to write a simple program that defines a Car class and writes an XML Serialized Car object to an XML file. This is a Console app. Right now, I have the XMLSerializer Object defined and initialized with Module Scope. Within the main method, I create a filestream and a streamwriter that I pass to it to write the serialized Car object to the file. This works fine, but when I re-open the program after closing it, it cannot read the object back in once more than one have been written to the .xml file. I assume that this is because when a second object is written to the file, the xml header is re-inserted into the same file, and it is throwing the reader off. I have posted me code below.

I am trying to learn how to read and write XML with VB. Any help would be appreciated.

Imports System.Xml.Serialization
Imports System.IO

Public Module Module1
      Public xs As New Xml.Serialization.XmlSerializer(GetType(Car))
      Dim car1 As Car
      Dim car2 As Car
      <Serializable> Public Class Car
            Public Make As String
            Public Model As String
            Public Color As String
            Private year As Integer
            Public Property TheYear() As Integer
                  Get
                        Return year
                  End Get
                  Set(ByVal value As Integer)
                        year = value
                  End Set
            End Property
            Public Sub New()
                  Make = "Chevy"
                  Model = "Camero"
                  Color = "Tan"
                  year = 2003
            End Sub
      End Class
      Public Sub Main()
            Try
                  Dim fileName As String = "C:\\XMLCar.xml"
                  Dim f As New FileStream(fileName, FileMode.Append, FileAccess.Write)
                  Dim t As StreamWriter = New StreamWriter(f)

                  car1 = New Car()
                  xs.Serialize(t, car1)

                  t.Close()
                  Dim sr As New StreamReader(fileName)
                  car2 = xs.Deserialize(sr)

                  Console.WriteLine(car2.Model)
            Catch ex As Exception
                  Console.WriteLine(ex.Message)
            End Try
            Console.ReadKey()
      End Sub
End Module

"If you don't know where you're going, you'll probably end up somewhere else." Yogi Berra

change the filemode to 'create'

Dim f As New FileStream(fileName, FileMode.Create, FileAccess.Write)

or add this line before craete the file stream

If IO.File.Exists(fileName) Then IO.File.Delete(fileName)

'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous

'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous

That would work if I were trying to only store data from one running of the app. However, I am really trying to be able to make the XML file grow through each subsequent running of the app. I could perhaps use your idea of deleting the file each time, if I could figure out how to get each object in the file into a collection on form_load so that they could be written back to the file when the app is closing.

I am having a hard time getting my code to work with multiple objects. Is there a way to do this? Thanks.

Btw, the code from my original posting is not complete.

"If you don't know where you're going, you'll probably end up somewhere else." Yogi Berra

forgive...my misunderstanding.

in order to do what you want, upon every save of the serializer...add a delimiting row (like a row of asterisks). then your read part would read until it finds the delimiting row and then deserialize that chunk. read the next chunk and deserialize that...etc.

<?xml version="1.0" encoding="utf-8"?>
<Car xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Make>Chevy</Make>
<Model>Camero</Model>
<Color>Tan</Color>
<TheYear>2003</TheYear>
</Car>
***************************************************************
<?xml version="1.0" encoding="utf-8"?>
<Car xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Make>Chevy</Make>
<Model>Camero</Model>
<Color>Tan</Color>
<TheYear>2003</TheYear>
</Car>

'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous

'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous

I have a field of Image path on database and I need to display the image of student in crystal report. I am using VS2005 with crystal report version 9. I have added the unbound column named "Image" of type system.byte in Data Set and at the load event, I have write the following code.

Dim da As New DataSet1TableAdapters.AdmissionFormTableAdapter
Dim dt As New DataSet1.AdmissionFormDataTable
da.FillByStudentID(dt, _studentID)
Dim dtCopy As New DataTable

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Code Start to Set Image
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim blankFile As String = "C:\Program Files\blank.JPG"

If dt.Rows(0).Item("ImagePath").ToString <> "" Then
Dim s As String = dt.Rows(0).Item("ImagePath").ToString
If FileIO.FileSystem.FileExists(s) Then

Dim fs As FileStream = New FileStream(s, FileMode.Open, FileAccess.Read)
Dim image(fs.Length) As Byte

fs.Read(image, 0, Convert.ToInt32(fs.Length))
dt.Rows(0).Item("Image") = image
fs.Close()
Else
Dim fs As FileStream = New FileStream(blankFile, FileMode.Open, FileAccess.Read)
Dim image(fs.Length) As Byte

fs.Read(image, 0, Convert.ToInt32(fs.Length))
dt.Rows(0).Item("Image") = image
fs.Close()
End If
Else
Dim fs As FileStream = New FileStream(blankFile, FileMode.Open, FileAccess.Read)
Dim image(fs.Length) As Byte

fs.Read(image, 0, Convert.ToInt32(fs.Length))
dt.Rows(0).Item("Image") = image
fs.Close()
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Code End to Set Image
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

dtCopy = dt.Copy
Me.rptAdmissionForm1.SetDataSource(dtCopy)
Me.rptAdmissionForm1.SetParameterValue("ID", _studentID)

When I run the code, error comes that "unable to cast type of system.byte to system.IConvertible",
although the datatype of column "Image" is system.byte, and when I debug the code, it shows the datatype of dt.Rows(0).Item("Image") = System.DBNull, Please help me out..!

For x = 0 To y
RandomNumber = RandomClass.Next(i)

Next x

is the Code I'm using what I'm wondering is there a way to check and make sure the same random number doesn't get picked twice?

The principle is that you would need to store each number you generate, and check each new random number against that store. Could get very expensive if you are generating a large number of random numbers.

Knowledge is knowing that the tomato is a fruit. Wisdom is not putting it in fruit salad!!

Booger Mobile - Camp Quality esCarpade 2010

I understand to use it as an array and check it against each other however I don't know the code you would use to check

RandomNumber(r) where r were to equal 9 against 0-8 if you could help me with that I'd greatly appreciate it.

GregoryWB wrote:
is there a way to check and make sure the same random number doesn't get picked twice?

That is not the purpose of a random number generator: it should generate numbers that are independent of previous numbers, hence doubles are perfectly normal.

If you need all different numbers, randomly picked from a limited set, then that is what you should do: construct a set, pick one element from it randomly and remove it, then repeat until you have enough (or the set got empty).

Smile | :)

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.

well I'm trying to create a Raffle program with Name(x) and it has more then 1 winner, I'm fairly new to programming so not sure how to remove 1 Element each time it is selected, any pointing to document that would explain this or help would be great.

GregoryWB wrote:
not sure how to remove 1 Element

Well, use a real collection such as a List<int> and fill it with all N relevant numbers.
Run your random generator for the range [0, N-1] and use that number as an index into the List, copy that number AND remove it from the list (which now has one fewer element, so adjust your random.Next call next time you call it).

Smile | :)

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.

That the OP was building a raffle number program would have been fairly pertinent information, don't you think? Roll eyes | :rolleyes:

In that case I would have recommended the same approach you did!!

Knowledge is knowing that the tomato is a fruit. Wisdom is not putting it in fruit salad!!

Booger Mobile - Camp Quality esCarpade 2010

Private Function rnd_between_limits() As Integer
Return (Int(( Initial_limit+final limit-1 ) * Rnd(Now.Millisecond + Now.Minute + Now.Second)) + Initial_limit )
End Function

use this if ya want to generate a rnd number between certain limits

TheMrProgrammer

Hi all,
I am trying to write a simple application that will read data from a SQL database and allow the user to make changes and then update the database.
I am using VB 2008 Express on a XP machine and SQL Server 2005.
The program will be run on different servers with static ip addresses.
The program will consist of two user forms:
1. Login form (User name and password is stored in a table in the database)
2. Main Form (A Customer Masterfile table in the database)
I have done a bit of coding in VBA, but would like to do this in VB 2008 so that I can generate a standalone app that can be run without excel.
My idea is to do it bit by bit and learn as I go along, but I want to start the right way so that I do not have to redo everything at a later stage.

My logic is as follow:
Create Login form with Username, Password, Ok button, Cancel Button, Server Info.
(the username and password will be verified against the values in the database)
The IP, Databasename, Sql Login and Sql password must be entered and remembered next time the program is run. In VBA I would store this info in a Excel sheet, but were can I store this when using VB2008?
If the login is ok it will load the Main form otherwise you need to retry the password.
The Main form will get information from a customer masterfile that will be loaded in text boxes that can be edited and once complete it can be uploaded to the database.

For a start I would like to do the userform and server connection.

Any help would be appreciated.
Thanks.

Seems like reasonable logic...

For simplicity, instead of prompting the user for the IP, Database Name, SQL Login etc, why not store these either in the app.config file, or in a global constant within your system.

If at a later time you want the user to enter these during setup, or whatever, you can update your system to handle that...

Hint for login form - use a couple of text boxes for username and password. Open a connection to the database (see www.connectionstrings.com for help) and get a datareader for the record containing the specified username. If the datareader is empty, the user does not exist. If the datareader is not empty, compare the passwords and let in/deny access depending on how it goes.

Knowledge is knowing that the tomato is a fruit. Wisdom is not putting it in fruit salad!!

Booger Mobile - Camp Quality esCarpade 2010

Thank you for the reply Damian.
I found a article on Code Project on creating an app.config file and this seems to be the easiest way for a start. Like you said I could always expand on that at a later stage. ( would I then edit the app.config file through code, or is this done in another way?)
I will attempt to get login form going following your advice.
Thanks again!

There are several different ways of updating an app.config file - certainly through code is one way.

Good luck with the login form!

Knowledge is knowing that the tomato is a fruit. Wisdom is not putting it in fruit salad!!

Booger Mobile - Camp Quality esCarpade 2010

Follow Damiens advice and think about the SQL login types.
Active Directories - this uses the AD user groups and a connection is created using the users credentails
App Connection - this is where the application has a standard SQL logon and uses that to get the data (you need this to get the logon information anyway).

We use the latter but we use internal authorisation to manage the internals of the apps.

Never underestimate the power of human stupidity
RAH