Solved

Strange database write problem

Posted on 2006-11-11
7
164 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
[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
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
Independent Software Vendors: 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

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!

Question has a verified solution.

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

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
This video shows how to use Hyena, from SystemTools Software, to update 100 user accounts from an external text file. View in 1080p for best video quality.

738 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