When I run this SQL I get this error message here is my SQL:


 sSQL = "Insert into cpt_Quote_Import (sysdate,QuoteNo,RFQDt,Status,qt_type,Name,"
                sSQL += "CustNo,Denied_RetInitials,IndMgrInitials,IndMgrSe nt,IndMgrRet,"
                sSQL += "PrdMgrInitials,ProdMgr,ProdMgrRet,Dllrs,IndApprvD t,ApprvDtSent,"
                sSQL += "IndDirSentDt,IndDirRetDt,ApprvDtRet,Level2Dt,Leve l2DtRet,VPSIsDtSent,"
                sSQL += "VPSIsDtRet,VPFinDtSent,VPFinDtRet,VPGenDtSent,VPG enDtRet,Level3Dt,Level3DtRet,FaxMailDt,"
                sSQL += "Comments,folcode,folcomment,channel,ExternalStatu s)"
                sSQL += " VALUES (getdate(),'"
                sSQL += dr.Item("QuoteNo").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("RFQDt").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Status").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("qt_type").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Name").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("CustNo").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Denied_RetInitials").ToString.Replace("'" , "''") & "','"
                sSQL += dr.Item("IndMgrInitials").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("IndMgrSent").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("IndMgrRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("PrdMgrInitials").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("ProdMgr").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("ProdMgrRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Dllrs").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("IndApprvDt").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("ApprvDtSent").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("IndDirSentDt").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("IndDirRetDt").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("ApprvDtRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Level2Dt").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Level2DtRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("VPSlsDtSent").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("VPSlsDtRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("VPFinDtSent").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("VPFinDtRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("VPGenDtSent").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("VPGenDtRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Level3Dt").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Level3DtRet").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Fax/Mail Dt").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("Comments").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("folcode").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("folcomment").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("channel").ToString.Replace("'", "''") & "','"
                sSQL += dr.Item("ExternalStatus").ToString.Replace("'", "''") & "')"

                conn.WriteData_cpt(sSQL)
                Me.LabelMessage.Text = "Inserting " & dr.Item("name").ToString

            Next
            Me.LabelMessage.Text = "Completed inserting " & ds.Tables(0).Rows.Count & " rows."

Sanjeet

__________________
Sanjeet

It's telling you that you are trying to insert into a column a value that is longer than the column permits.

-Peter

thanks it works now

Sanjeet

String or binary data would be truncated. The statement has been terminated.