怎样把TEXTBOX中的值插入SQLSER2000的TEXT字段？

Question

改成CHAR 都不顶用
别的字段都插入成功，就是这个列值是空的

Answer 1

输出SQL语句看看，SQL语句正常吗？ 不要SQL语句里就是空的 ：（

Answer 2

Public Function EditXMDetailContent(ByVal xiangmu_id As Integer,ByVal style_id As Integer,ByVal Editflag As Integer, content1_text As String) As System.String
    'Editflag=0 is insert,Editflag=1 is update
    Dim String_xiangmu_id As String = xiangmu_id.ToString
    Dim String_style_id As String = style_id.ToString
    Dim String_retuan_string As String =content1_text
    Dim connectionString As String = stlConnectStrings.SQLConnectionString2003
    Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
    Dim queryString As String = "SELECT STYLE_NETNAME,WHETHER_DULI FROM [DIC_ANNIUSTYLE] where (STYLE_ID=" & String_style_id & ")"
    Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
    dbCommand.CommandText = queryString
    dbCommand.Connection = dbConnection    Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
    dataAdapter.SelectCommand = dbCommand
    Dim dataSet As System.Data.DataSet = New System.Data.DataSet
    Dim view_model As System.String
    Dim whether_duli As System.String
    Try
      'fill the dataset with data from the DataAdapter object
       dataAdapter.Fill(dataSet)
      'got the data so we're finished with the DataAdapter
       dataAdapter = Nothing
       view_model =dataSet.Tables(0).Rows(0)("STYLE_NETNAME").ToString
       whether_duli =dataSet.Tables(0).Rows(0)("WHETHER_DULI").ToString
       'String_retuan_string="nowrong"
    Catch objError As Exception
      'display error details
       String_retuan_string="what wrong"
      ' and stop execution
    End Try
    'content1_text="hahahhahahah"
    dim aa As integer
    if Editflag=0 then
       aa=MyInsertMethod(xiangmu_id,style_id,view_model,whether_duli,content1_text)
    else    end if    return aa.Tostring
End FunctionFunction MyInsertMethod(ByVal xIANGMU_ID As Integer, ByVal sTYLE_ID As Integer, ByVal vIEW_MODEL As String, ByVal wHETHER_DULI As String, ByVal CONTENT_TEXT As String) As Integer
    Dim connectionString As String = stlConnectStrings.SQLConnectionString2003
    Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
    Dim queryString As String = "INSERT INTO [T_XM_DETAIL] ([XIANGMU_ID], [STYLE_ID], [VIEW_MODEL], [WHETHER_DULI], [CONTENT_TEXT]) VALUES (@XIANGMU_ID, @STYLE_ID,@VIEW_MODEL,@WHETHER_DULI,@CONTENT_TEXT)"
    Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
    dbCommand.CommandText = queryString
    dbCommand.Connection = dbConnection    Dim dbParam_xIANGMU_ID As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_xIANGMU_ID.ParameterName = "@XIANGMU_ID"
    dbParam_xIANGMU_ID.Value = xIANGMU_ID
    dbParam_xIANGMU_ID.DbType = System.Data.DbType.Int32
    dbCommand.Parameters.Add(dbParam_xIANGMU_ID)
    Dim dbParam_sTYLE_ID As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_sTYLE_ID.ParameterName = "@STYLE_ID"
    dbParam_sTYLE_ID.Value = sTYLE_ID
    dbParam_sTYLE_ID.DbType = System.Data.DbType.Int32
    dbCommand.Parameters.Add(dbParam_sTYLE_ID)
    Dim dbParam_vIEW_MODEL As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_vIEW_MODEL.ParameterName = "@VIEW_MODEL"
    dbParam_vIEW_MODEL.Value = vIEW_MODEL
    dbParam_vIEW_MODEL.DbType = System.Data.DbType.StringFixedLength
    dbCommand.Parameters.Add(dbParam_vIEW_MODEL)
    Dim dbParam_wHETHER_DULI As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_wHETHER_DULI.ParameterName = "@WHETHER_DULI"
    dbParam_wHETHER_DULI.Value = wHETHER_DULI
    dbParam_wHETHER_DULI.DbType = System.Data.DbType.StringFixedLength
    dbCommand.Parameters.Add(dbParam_wHETHER_DULI)
    Dim dbParam_cONTENT_TEXT As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_cONTENT_TEXT.ParameterName = "@CONTENT_TEXT"
    dbParam_cONTENT_TEXT.Value = CONTENT_TEXT
    dbParam_cONTENT_TEXT.DbType = System.Data.DbType.String
    dbCommand.Parameters.Add(dbParam_cONTENT_TEXT)    Dim rowsAffected As Integer = 0
    dbConnection.Open
    Try
        rowsAffected = dbCommand.ExecuteNonQuery
    Finally
        dbConnection.Close
    End Try
    Return rowsAffected
End Function这是我写的控件的两个方法

Answer 3

dbParam_cONTENT_TEXT.DbType = System.Data.DbType.Text

Answer 4

呵呵，我查了SQL，那个值是空的，没有传过来

Answer 5

Sub SaveBtn_Click(sender As Object, e As EventArgs)
        Dim EditFlag As Integer
        Label2.Text=getxmcontentset.EditXMDetailContent(DropDownList1.Items(DropDownList1.SelectedIndex).Value,DropDownList2.Items(DropDownList2.SelectedIndex).Value,EditFlag,content1.text)
        'Label2.Text=content1_text
End Sub用这个方法调用上面的控件的方法，结果传不过字符串

Answer 6

注释
'Label2.Text=content1_text
是可以显示文本框中的数据
但到后面的方法里，就没有了而第一段代码中
'content1_text="hahahhahahah"
设置值的话，可以执行插入，完全正确