Solved

Strange database write problem

Posted on 2006-11-11
7
149 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
How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

 
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

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…

708 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now