AS400 C#.net插入新记录问题

时间:2008-11-22 21:10:34

标签: c# .net ibm-midrange

我正在尝试构建一个与AS400上的RPG子文件类似的C#.net程序。

让通用子文件部分正常工作。我可以显示然后编辑和更新现有记录。

在我尝试插入新记录的代码中爆炸了。吹嘘

cmd.ExecuteNonQuery();

如果您想在没有插入的情况下查看其工作方式,请转到

http://144.162.90.78/thomas/

查看Website1a

这是代码。

using IBM.Data.DB2.iSeries;
using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;

public partial class WebForm3 : System.Web.UI.Page
{
     protected void btnBack_Click(object sender, EventArgs e)
    {
        Server.Transfer("WebForm1a.aspx");
    }
    protected void btnUpdate_Click(object sender, EventArgs e)
    {
        ConnectionStringSettingsCollection cssc =
            ConfigurationManager.ConnectionStrings;

        String connString = cssc["FTWAS400"].ToString();

        iDB2Connection conn = new iDB2Connection(connString);

        conn.Open();

        iDB2Command cmd = new iDB2Command(
                   "insert into tburrows.qcustcdt (cusnum, init, lstnam, street, city, state, zipcod, cdtlmt, chgcod, baldue, cdtdue) values (@cusnum, @init, @lstnam, @street, @city, @state, @zipcod, @cdtlmt, @chgcod, @baldue, @cdtdue)", conn);


        cmd.DeriveParameters();

        cmd.Parameters["@cusnum"].Value = Request["txtCUSNUM"];
        cmd.Parameters["@init"  ].Value = Request["txtINIT"];
        cmd.Parameters["@lstnam"].Value = Request["txtLSTNAM"];
        cmd.Parameters["@street"].Value = Request["txtSTREET"];
        cmd.Parameters["@city"].Value   = Request["txtCITY"];
        cmd.Parameters["@state"].Value  = Request["txtSTATE"];
        cmd.Parameters["@zipcod"].Value = Request["txtZIPCOD"];
        cmd.Parameters["@cdtlmt"].Value = Request["txtCDTLMT"];
        cmd.Parameters["@chgcod"].Value = Request["txtCHGCOD"];
        cmd.Parameters["@baldue"].Value = Request["txtBALDUE"];
        cmd.Parameters["@cdtdue"].Value = Request["txtCDTDUE"];


        cmd.ExecuteNonQuery();

        cmd.Dispose();
        conn.Close();

        btnBack_Click(sender, e);
    }
}

非常感谢任何帮助。

托马斯

1 个答案:

答案 0 :(得分:3)

中还有另一个选项
cmd.Parameters["@cusnum"].Value = field;

指定字段类型。使用

cmd.Parameters.Add("@cusnum", iDB2DbType.iDB2Decimal).Value = Convert.ToDecimal(field);

代替。这应该正确转换您的数据类型。如果不是十进制,则需要将iDB2Decimal更改为正确的字段类型。