Solved

Strange database write problem

Posted on 2006-11-11
7
162 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
  • 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
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
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 17

Author Comment

by:John Gates
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
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

Secure Your Active Directory - April 20, 2017

Active Directory plays a critical role in your company’s IT infrastructure and keeping it secure in today’s hacker-infested world is a must.
Microsoft published 300+ pages of guidance, but who has the time, money, and resources to implement? Register now to find an easier way.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Import Data from Multiple Text Files in Excel 12 85
location of a form 2 32
Asp.Net Session Question 2 33
vb.net datagrid scroll automatically to the first found row 11 26
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…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

713 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