Solved

Strange database write problem

Posted on 2006-11-11
7
166 Views
Last Modified: 2010-04-23
When I am reading data from one table and writing it to another somehow data is getting lost:

Example
From the maintable:

(12 leading spaces)606002


When reading it into the datareader looks great:

Then when I write it to my table it appears as:
(6 leading spaces)6002

This is a SQL2005 Database and both tables have identical varchar(12) settings.  Why would this happen?

Relevant code:

Start---->
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SqlDataAdapter1.Fill(DataSet11)
        SqlDataAdapter2.Fill(DataSet21)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim objDataReader As OleDb.OleDbDataReader
        'objDataReader = DataSet11.executereader
        'Dim MyDataReader As DataSet1
        Dim dt As DataTable = DataSet11.Tables(0)
        Dim dt1 As DataTable = DataSet21.Tables(0)

        For Each Dr As DataRow In dt.Rows

            'first see if the current student already exists in the StuInfo table, if it does move on to the next
            For Each Dr1 As DataRow In dt1.Rows

                ' MsgBox(Dr(5) & "  " & Dr1(0))
                If Trim(Dr(5)) = Trim(Dr1(0)) Then ' Student ID exists skip to the next ID!
                    GoTo 7
                Else
                    'MsgBox("Moving On!")
                    'Continue to next ID
                End If

            Next

            Dim strLast As String
            Dim strFirst As String

            strLast = Dr(2).ToString()
            strFirst = Dr(3).ToString().Substring(0, 3)

            'Create username

            'MsgBox(strFirst & strLast)
            Dim MyName As String

            MyName = (strFirst & strLast)
            'Generate random password

            Dim dRandNumFull As Object
            Dim dRandNumDisplay As Double
            Dim k As Object
            Dim PNum As String

            k = Date.Now.Month * Date.Now.Minute * 1001

            dRandNumFull = Format(Int(k * Rnd()), "000000")

            dRandNumDisplay = dRandNumFull

            'MsgBox(dRandNumFull)

            Dim drNew As System.Data.DataRow
            PNum = Dr(5) 'Trim(Dr(5))
            'MsgBox(DateTime.Parse(Dr(6).ToString))
            'MsgBox(PNum)
            drNew = Me.DataSet21.StuInfo.NewRow
            drNew.Item("PermNum") = PNum
            drNew.Item("Lastname") = strLast
            drNew.Item("Firstname") = Dr(3)
            If IsDBNull(Dr(6)) Then
            Else
                drNew.Item("DOB") = DateTime.Parse(Dr(6))
            End If
            drNew.Item("Webname") = MyName
            drNew.Item("Webpin") = dRandNumDisplay
            'drNew.Item("Phone 1") = ("New Phone 1")
            'drNew.Item("Phone 2") = ("New Phone 2")
            'drNew.Item("Phone 3") = ("New Phone 3")
            'drNew.Item("Fax") = ("New Fax")
            'drNew.Item("Email") = "New Email"
            Me.DataSet21.StuInfo.Rows.Add(drNew)

            SqlDataAdapter2.Update(DataSet21)

            'Students should now be created!!
7:
        Next



    End Sub

<------End

Any help would be appreciated!
-D-
0
Comment
Question by:John Gates, CISSP
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 10

Expert Comment

by:Kinger247
ID: 17921961
Which field is this data for ?
0
 
LVL 17

Author Comment

by:John Gates, CISSP
ID: 17922063
Ahh that would have helped:

drNew.Item("PermNum") = PNum

And I know when you make database changes you have to regenerate the datasets.  The other thing is to show numeric leading 000's does the field have to be nvarchar?
0
 
LVL 10

Expert Comment

by:Kinger247
ID: 17924827
Your assigning : drNew.Item("PermNum") = PNum

What is the type and size of the column PermNum, in the db and DataSet21.StuInfo ?

I think DataSet21.StuInfo is different ..
0
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 
LVL 17

Author Comment

by:John Gates, CISSP
ID: 17925170
They are exactly the same.  What about the nvarchar that I asked about?  
0
 
LVL 10

Expert Comment

by:Kinger247
ID: 17925189
Theres no different in the varchar and nvarchar as your using it.
0
 
LVL 17

Author Comment

by:John Gates, CISSP
ID: 17925203
Well where I was going is it expecting a string value over numeric?
0
 
LVL 10

Accepted Solution

by:
Kinger247 earned 500 total points
ID: 17925221
No, your holding the data as a string 'so no zero loss'.
If your placing that string value into a column of type string, then it will be ok.
Providing the type and size is a string and can hold the full number of characters nothing should go wrong in your code above.
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs.  One of the ways we can do this is by implementing parallel algorithms in our software.   One recent…
Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
This is a high-level webinar that covers the history of enterprise open source database use. It addresses both the advantages companies see in using open source database technologies, as well as the fears and reservations they might have. In this…
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar. Int…

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question