文本框数据到数据库，错误

Question

谁能解释我的问题？我有这个表单代码，它应该获取文本框的文本并将其放入数据库中。但是，我遇到了错误，SqlException was unhandled by user code: String or binary data would be truncated. The statement has been terminated.

代码如下：

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Partial Class Usuarios
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BotonA_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim iDUsuario As String = RFC.ToString
        Dim nomUsuario As String = Name.ToString
        Dim apellidoP As String = ApellidoPaterno.ToString
        Dim apellidoM As String = ApellidoMaterno.ToString
        Dim passUsuario As String = contrasena.ToString
        Dim nombre As String = seudonimo.ToString
        Dim iDtipo As Integer = "1"

        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("dbconnection").ConnectionString)
        con.Open()
        Dim cmd As New SqlCommand("INSERT INTO usuarios (iDUsuario, nomUsuario, apellidoP, apellidoM, passUsuario, nombre, idTipo) VALUES (@iDUsuario, @nomUsuario, @apellidoP, @apellidoM, @passUsuario, @nombre, @iDtipo)", con)
        cmd.Parameters.AddWithValue("@iDUsuario", iDUsuario)
        cmd.Parameters.AddWithValue("@nomUsuario", nomUsuario)
        cmd.Parameters.AddWithValue("@apellidoP", apellidoP)
        cmd.Parameters.AddWithValue("@apellidoM", apellidoM)
        cmd.Parameters.AddWithValue("@passUsuario", passUsuario)
        cmd.Parameters.AddWithValue("@nombre", nombre)
        cmd.Parameters.AddWithValue("@iDtipo", iDtipo)
        cmd.ExecuteNonQuery()
    End Sub

End Class

我已经阅读了许多类似我的问题，但我不知道如何解决这个问题。

Answer 1

这意味着您的输入大于 SQL 中声明的列长度。调整 VARCHAR（或您拥有的任何 CHAR 类型字段）的长度以适应您的最大可能输入长度。

Answer 2

Dim nomUsuario As String = Name.ToString

您确定您的 Name 不是字符串吗？

Dim iDtipo As Integer = "1"

应该是Dim iDtipo As Integer = 1

如果您的“iDtipo”字段是 VARCHAR

cmd.Parameters.AddWithValue("@iDtipo", iDtipo.ToString)

如果是数字

cmd.Parameters.AddWithValue("@iDtipo", iDtipo)

Answer 3

我做到了：这是错误的：

代替：

    Dim iDUsuario As String = RFC.ToString
    Dim nomUsuario As String = Name.ToString
    Dim apellidoP As String = ApellidoPaterno.ToString
    Dim apellidoM As String = ApellidoMaterno.ToString
    Dim passUsuario As String = contrasena.ToString
    Dim nombre As String = seudonimo.ToString
    Dim iDtipo As Integer = "1"

它是：

    Dim iDUsuario As String = RFC.Text
    Dim nomUsuario As String = Name.Text
    Dim apellidoP As String = ApellidoPaterno.Text
    Dim apellidoM As String = ApellidoMaterno.Text
    Dim passUsuario As String = contrasena.Text
    Dim nombre As String = seudonimo.Text
    Dim iDtipo As Integer = 1

因为我不想告诉编译器字符串变量将存储文本框的字符串值，我很傻XD