hello all...
im trying to add a record to an sql db on ms sql server 2000, using vb.net.
seems to be working.. except for one thing, one of the columns in the
database is a bit datatype, and though i get no syntax errors when
compiling, i get an error indicated that the data would be truncated. the
field is login_status.
ive tried in quotes and not, giving it an integer variable with the number 1
in it, true/false statements.. ive tried a bunch of stuff... has me real
stumped..
have any ideas?
thanks
here is the error it spits out.
<b>* error while uploading original data</b>.<br />String or binary data
would be truncated.The statement has been terminated..Net SqlClient Data
Provider
--------------------------------------------------------------------------
here is the code:
--------------------------------------------------------------------------
Imports System.Data
Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page
Public Sub Register_User(ByVal sender As Object, ByVal E As EventArgs)
Dim dbConnStr As String = "user id=**(blanked for
security)***;password=**(blanked for
security)**;database=BCdb;server=localhost"
Dim dbConn As New System.Data.SqlClient.SqlConnection(dbConnStr)
Try
Dim cmd As New SqlCommand("addCustomerSQL", dbConn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@username", SqlDbType.Char, 19))
cmd.Parameters.Add(New SqlParameter("@fullname", SqlDbType.VarChar, 27))
cmd.Parameters.Add(New SqlParameter("@password", SqlDbType.Char, 7))
cmd.Parameters.Add(New SqlParameter("@credit_card_nbr", SqlDbType.Char, 18))
cmd.Parameters.Add(New SqlParameter("@credit_card_expiry_date",
SqlDbType.DateTime))
cmd.Parameters.Add(New SqlParameter("@mailing_address", SqlDbType.VarChar,
100))
cmd.Parameters.Add(New SqlParameter("@phone_nbr", SqlDbType.Char, 14))
cmd.Parameters.Add(New SqlParameter("@email_address", SqlDbType.Char, 50))
cmd.Parameters.Add(New SqlParameter("@login_status", SqlDbType.Bit))
cmd.Parameters.Add(New SqlParameter("@credit_card_name", SqlDbType.Char,
27))
cmd.Parameters.Item("@username").Value = RegUsrnameTXT.Text
cmd.Parameters.Item("@fullname").Value = RegFullnameTXT.Text
cmd.Parameters.Item("@password").Value = RegPasswordTXT.Text
cmd.Parameters.Item("@credit_card_nbr").Value = RegCreditcardnumberTXT.Text
cmd.Parameters.Item("@credit_card_expiry_date").Va lue =
RegCreditcardexpiryTXT.Text
cmd.Parameters.Item("@mailing_address").Value = RegAddressTXT.Text
cmd.Parameters.Item("@email_address").Value = RegEmailTXT.Text
cmd.Parameters.Item("@phone_nbr").Value = RegPhoneTXT.Text
cmd.Parameters.Item("@login_status").Value = 1
cmd.Parameters.Item("@credit_card_name").Value = RegCreditcardnameTXT.Text
'opent the connection to the database
dbConn.Open()
'execute sql statement
cmd.ExecuteNonQuery()
dbConn.Close()
Catch objError As Exception
dberror.Text = "<b>* error while uploading original data</b>.<br />" &
objError.Message & objError.Source
Exit Sub
Finally
If dbConn.State = ConnectionState.Open Then
dbConn.Close()
End If
End Try
End Sub
End Class
----------------------------------------------------------------------------
---
