Solved

Strange database write problem

Posted on 2006-11-11
7
161 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
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
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

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

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

Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

789 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