Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all articles
Browse latest Browse all 27193

VS 2010 [RESOLVED] Problem in updating Records

$
0
0
Hi i am using VS 2010 Vb with sqlServer
I want to update Records from table Cust_Master on CCode (Primary key field)
i retrive data from another aspx form where i used Gridview binded with sqldatasource
i used another form to update records after editing text boxes
but text box value not is that which i have edited to modify but in debug mode it shows old value that is already been entered in database table

follwing is the comple page code

pl. help me



CustCreate.aspx.vb

Imports System.Data.SqlClient

Public Class CustCreate
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strCCode As String
txtVenCode.Enabled = False
txtCrDate.Enabled = False


ddCat.Enabled = False
txtFirmName.Enabled = False
txtAdd1.Enabled = False
txtAdd2.Enabled = False
ddCity.Enabled = False
ddState.Enabled = False
ddCountry.Enabled = False
txtPin.Enabled = False
txtPh1.Enabled = False
txtPh2.Enabled = False
txtFax.Enabled = False
txtCST.Enabled = False
txtBST.Enabled = False
txtExNo.Enabled = False
txtExRange.Enabled = False
txtExDivision.Enabled = False
txtCP1.Enabled = False
txtCP1_Mob1.Enabled = False
txtCP1_Mob2.Enabled = False
txtCP1_EML1.Enabled = False
txtCP1_EML2.Enabled = False
txtCP2.Enabled = False
txtCP2_Mob1.Enabled = False
txtCP2_Mob2.Enabled = False
txtCP2_EML1.Enabled = False
txtCP2_EML2.Enabled = False
txtCredit.Enabled = False
txtOpBal.Enabled = False
txtTCS.Enabled = False
txtIsValid.Enabled = False
strCCode = CStr(Session("CCode"))
txtCCode.Text = strCCode
If txtCCode.Text = "" Then
btnModify.Visible = False
btnSave.Visible = True
btnUpdate.Visible = False
Else
Call GetRecords()
btnModify.Visible = True
btnSave.Visible = False
btnUpdate.Visible = False
End If

End Sub


Protected Sub GetRecords()
Dim sqlQuery As New SqlCommand("Select * From CUST_MASTER where CCODE = '" + txtCCode.Text + "' and IS_VALID = 1 ")
Dim ResultSet As DataSet
Dim DtCrDate As Date
Dim strCrDate As String
'btnSave.Visible = False
'btnUpdate.visible = True
ResultSet = RunQuery(sqlQuery)
If ResultSet.Tables.Count > 0 Then
If ResultSet.Tables(0).Rows.Count > 0 Then

Dim row As DataRow
For Each row In ResultSet.Tables(0).Rows
txtVenCode.Text = (row("VEN_CODE").ToString())
txtCrDate.Text = (row("CR_DATE").ToString())
DtCrDate = Convert.ToDateTime(txtCrDate.Text)
strCrDate = Format(DtCrDate, "dd/MM/yyyy").ToString
txtCrDate.Text = DtCrDate
'ddCat.SelectedValue = (row("CUST_CAT").ToString())
txtFirmName.Text = (row("FIRM_NAME").ToString())
txtAdd1.Text = (row("ADDRESS1").ToString())
txtAdd2.Text = (row("ADDRESS2").ToString())
'ddCity.SelectedValue = (row("CITY").ToString())
'ddState.SelectedValue = (row("STATE").ToString())
'ddCountry.SelectedValue = (row("COUNTRY").ToString())
txtPin.Text = (row("PINCODE").ToString())
txtPh1.Text = (row("FIRM_PH_NO_1").ToString())
txtPh2.Text = (row("FIRM_PH_NO_2").ToString())
txtFax.Text = (row("FIRM_FAX_NO").ToString())
txtCST.Text = (row("CST_NO").ToString())
txtBST.Text = (row("BST_NO").ToString())
txtExNo.Text = (row("EXCISE_NO").ToString())
txtExRange.Text = (row("EXCISE_RANGE").ToString())
txtExDivision.Text = (row("EXCISE_DIV").ToString())
txtCP1.Text = (row("CONTACT_PER_1").ToString())
txtCP1_Mob1.Text = (row("CP1_MOB_1").ToString())
txtCP1_Mob2.Text = (row("CP1_MOB_2").ToString())
txtCP1_EML1.Text = (row("CP1_EMIAL_1").ToString())
txtCP1_EML2.Text = (row("CP1_EMAIL_2").ToString())
txtCP2.Text = (row("CONTACT_PER_2").ToString())
txtCP2_Mob1.Text = (row("CP2_MOB_1").ToString())
txtCP2_Mob2.Text = (row("CP2_MOB_2").ToString())
txtCP2_EML1.Text = (row("CP2_EMAIL_1").ToString())
txtCP2_EML2.Text = (row("CP2_EMAIL_2").ToString())
txtCredit.Text = (row("CREDIT_DAYS").ToString())
txtOpBal.Text = (row("OPENING_BAL").ToString())
txtTCS.Text = (row("TCS_PER").ToString())
txtIsValid.Text = (row("IS_VALID").ToString())

Next
Else
Response.Write("No Matching Records Found")
txtCCode.Text = ""
End If
Else
Response.Write("No Matching Records Found")
txtCCode.Text = ""
End If
sqlQuery = Nothing
ResultSet = Nothing
End Sub

Function RunQuery(ByVal sqlQuery As SqlCommand) As DataSet
Dim connectionString As String
connectionString = _
ConfigurationManager.ConnectionStrings _
("KCPConnectionString1").ConnectionString
Dim dbConnection As New SqlConnection
dbConnection.ConnectionString = connectionString
Dim dbAdapter As New SqlDataAdapter
dbAdapter.SelectCommand = sqlQuery
sqlQuery.Connection = dbConnection
Dim resultsDataSet As DataSet = New DataSet
Try
dbAdapter.Fill(resultsDataSet)
Catch ex As Exception
Response.Write("Unable to connect to SQL Server.")
End Try
Return resultsDataSet
End Function



Private Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim myConn As SqlConnection
Dim cmd As SqlCommand
Dim sqlstring, strCCode, strCrDate, strVenCode, strCat, strFirm, strAdd1, strAdd2, strCity, strState, strCountry, strPin, strPh1, strPh2, strFax, strCst, strBst, strExcise, strexRange, strExDiv, strCP1, strCP2, strCPE1, strCPE2, strCP2E1, strCP2E2, strTCS, strValid As String
Dim DtCrDate As Date
Dim dblCP1M1, dblCP1M2, dblCP2M1, dblCP2M2, dblCDays, dblOPBal As Double

strCCode = txtCCode.Text

DtCrDate = Convert.ToDateTime(txtCrDate.Text)
strCrDate = Format(DtCrDate, "MM/dd/yyyy").ToString


strVenCode = txtVenCode.Text
strCat = ddCat.SelectedValue
strFirm = txtFirmName.Text
strAdd1 = txtAdd1.Text
strAdd2 = txtAdd2.Text
strCity = ddCity.SelectedValue
strState = ddState.SelectedValue
strCountry = ddCountry.SelectedValue
strPin = Me.txtPin.Text
strPh1 = txtPh1.Text
strPh2 = txtPh2.Text
strFax = txtFax.Text
strCst = txtCST.Text
strBst = Me.txtBST.Text
strExcise = txtExNo.Text
strexRange = txtExRange.Text
strExDiv = txtExDivision.Text
strCP1 = txtCP1.Text
If Not IsNumeric(txtCP1_Mob1.Text) Then txtCP1_Mob1.Text = 0
dblCP1M1 = txtCP1_Mob1.Text
If Not IsNumeric(txtCP1_Mob2.Text) Then txtCP1_Mob2.Text = 0
dblCP1M2 = txtCP1_Mob2.Text
strCPE1 = txtCP1_EML1.Text
strCPE2 = txtCP1_EML2.Text
strCP2 = txtCP2.Text
If Not IsNumeric(txtCP2_Mob1.Text) Then txtCP2_Mob1.Text = 0
dblCP2M1 = txtCP2_Mob1.Text
If Not IsNumeric(txtCP2_Mob2.Text) Then txtCP2_Mob2.Text = 0
dblCP2M2 = txtCP2_Mob2.Text
strCP2E1 = txtCP2_EML1.Text
strCP2E2 = txtCP2_EML2.Text
If Not IsNumeric(txtCredit.Text) Then txtCredit.Text = 0
dblCDays = txtCredit.Text
If Not IsNumeric(txtOpBal.Text) Then txtOpBal.Text = 0
dblOPBal = txtOpBal.Text
strTCS = txtTCS.Text

strValid = 1

myConn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\KCP.mdf;Integrated Security=True;User Instance=True")

myConn.Open()

sqlstring = " Update CUST_MASTER set CR_DATE = '" + strCrDate + "',VEN_CODE = '" + strVenCode + "',CUST_CAT = '" + strCat + "',FIRM_NAME = '" + strFirm + "',ADDRESS1 = '" + strAdd1 + "',ADDRESS2 = '" + strAdd2 + "',CITY = '" + strCity + "',STATE = '" + strState + "',COUNTRY = '" + strCountry + "',PINCODE = '" + strPin + "',FIRM_PH_NO_1 = '" + strPh1 + "',FIRM_PH_NO_2 = '" + strPh2 + "',FIRM_FAX_NO = '" + strFax + "',CST_NO = '" + strCst + "',BST_NO = '" + strBst + "',EXCISE_NO = '" + strExcise + "',EXCISE_RANGE = '" + strexRange + "',EXCISE_DIV = '" + strExDiv + "',CONTACT_PER_1 ='" + strCP1 + "',CP1_MOB_1 = " + dblCP1M1.ToString + ",CP1_MOB_2 = " + dblCP1M2.ToString + ",CP1_EMIAL_1= '" + strCPE1 + "',CP1_EMAIL_2 = '" + strCPE2 + "',CONTACT_PER_2= '" + strCP2 + "',CP2_MOB_1 = " + dblCP2M1.ToString + ",CP2_MOB_2 = " + dblCP2M2.ToString + ",CP2_EMAIL_1 = '" + strCP2E1 + "',CP2_EMAIL_2 = '" + strCP2E2 + "',CREDIT_DAYS = " + dblCDays.ToString + ",OPENING_BAL =" + dblOPBal.ToString + ",TCS_PER = '" + strTCS + "' ,IS_VALID = '" + strValid + "' where CCOde = '" + strCCode + "' "

cmd = New SqlCommand(sqlstring, myConn)

cmd.ExecuteNonQuery()

myConn.Close()
txtVenCode.Text = ""
txtCrDate.Text = ""


ddCat.SelectedIndex = 0
txtFirmName.Text = ""
txtAdd1.Text = ""
txtAdd2.Text = ""
ddCity.SelectedIndex = 0
ddState.SelectedIndex = 0
ddCountry.SelectedIndex = 0
txtPin.Text = ""
txtPh1.Text = ""
txtPh2.Text = ""
txtFax.Text = ""
txtCST.Text = ""
txtBST.Text = ""
txtExNo.Text = ""
txtExRange.Text = ""
txtExDivision.Text = ""
txtCP1.Text = ""
txtCP1_Mob1.Text = ""
txtCP1_Mob2.Text = ""
txtCP1_EML1.Text = ""
txtCP1_EML2.Text = ""
txtCP2.Text = ""
txtCP2_Mob1.Text = ""
txtCP2_Mob2.Text = ""
txtCP2_EML1.Text = ""
txtCP2_EML2.Text = ""
txtCredit.Text = ""
txtOpBal.Text = ""
txtTCS.Text = ""
txtIsValid.Text = ""
strCCode = ""
strCrDate = ""
strVenCode = ""
strCat = ""
strFirm = ""
strAdd1 = ""
strAdd2 = ""
strCity = ""
strState = ""
strCountry = ""
strPin = ""
strPh1 = ""
strPh2 = ""
strFax = ""
strCst = ""
strBst = ""
strExcise = ""
strexRange = ""
strExDiv = ""
strCP1 = ""
strCP2 = ""
strCPE1 = ""
strCPE2 = ""
strCP2E1 = ""
strCP2E2 = ""
strTCS = ""
strValid = ""

Response.Redirect("CustView.aspx", True)
End Sub


Protected Sub btnModify_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnModify.Click

txtVenCode.Enabled = True
txtCrDate.Enabled = True


ddCat.Enabled = True
txtFirmName.Enabled = True
txtAdd1.Enabled = True
txtAdd2.Enabled = True
ddCity.Enabled = True
ddState.Enabled = True
ddCountry.Enabled = True
txtPin.Enabled = True
txtPh1.Enabled = True
txtPh2.Enabled = True
txtFax.Enabled = True
txtCST.Enabled = True
txtBST.Enabled = True
txtExNo.Enabled = True
txtExRange.Enabled = True
txtExDivision.Enabled = True
txtCP1.Enabled = True
txtCP1_Mob1.Enabled = True
txtCP1_Mob2.Enabled = True
txtCP1_EML1.Enabled = True
txtCP1_EML2.Enabled = True
txtCP2.Enabled = True
txtCP2_Mob1.Enabled = True
txtCP2_Mob2.Enabled = True
txtCP2_EML1.Enabled = True
txtCP2_EML2.Enabled = True
txtCredit.Enabled = True
txtOpBal.Enabled = True
txtTCS.Enabled = True
txtIsValid.Enabled = True
btnUpdate.Visible = True
End Sub
End Class

Viewing all articles
Browse latest Browse all 27193

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>