adding record to sql db

[Bryan]

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.Sql Client

Public Class WebForm1

Inherits System.Web.UI.P age




Public Sub Register_User(B yVal sender As Object, ByVal E As EventArgs)

Dim dbConnStr As String = "user id=**(blanked for
security)***;pa ssword=**(blank ed for
security)**;dat abase=BCdb;serv er=localhost"

Dim dbConn As New System.Data.Sql Client.SqlConne ction(dbConnStr )



Try

Dim cmd As New SqlCommand("add CustomerSQL", dbConn)

cmd.CommandType = CommandType.Sto redProcedure

cmd.Parameters. Add(New SqlParameter("@ username", SqlDbType.Char, 19))

cmd.Parameters. Add(New SqlParameter("@ fullname", SqlDbType.VarCh ar, 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_exp iry_date",
SqlDbType.DateT ime))

cmd.Parameters. Add(New SqlParameter("@ mailing_address ", SqlDbType.VarCh ar,
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_nam e", SqlDbType.Char,
27))

cmd.Parameters. Item("@username ").Value = RegUsrnameTXT.T ext

cmd.Parameters. Item("@fullname ").Value = RegFullnameTXT. Text

cmd.Parameters. Item("@password ").Value = RegPasswordTXT. Text

cmd.Parameters. Item("@credit_c ard_nbr").Value = RegCreditcardnu mberTXT.Text

cmd.Parameters. Item("@credit_c ard_expiry_date ").Value =
RegCreditcardex piryTXT.Text

cmd.Parameters. Item("@mailing_ address").Value = RegAddressTXT.T ext

cmd.Parameters. Item("@email_ad dress").Value = RegEmailTXT.Tex t

cmd.Parameters. Item("@phone_nb r").Value = RegPhoneTXT.Tex t

cmd.Parameters. Item("@login_st atus").Value = 1

cmd.Parameters. Item("@credit_c ard_name").Valu e = RegCreditcardna meTXT.Text

'opent the connection to the database

dbConn.Open()

'execute sql statement

cmd.ExecuteNonQ uery()

dbConn.Close()

Catch objError As Exception

dberror.Text = "<b>* error while uploading original data</b>.<br />" &
objError.Messag e & objError.Source

Exit Sub

Finally

If dbConn.State = ConnectionState .Open Then

dbConn.Close()

End If

End Try

End Sub

End Class

----------------------------------------------------------------------------
---

[Charlie Smith]

"Bryan" <ca**********@r ogers.com> wrote in message news:<5y******* *************@n ews04.bloor.is. net.cable.roger s.com>...

hello all...

im trying to add a record to an sql db on ms sql server 2000, using vb.net.

Bryan,

I noticed two things. First you are allowing null values in the bit
field, this is bad form as well as bad logic. Second, the next line
(from your code) seems to be missing a value:

cmd.Parameters. Add(New SqlParameter("@ login_status", SqlDbType.Bit))

HTH,

Charlie