data redundancy

ddvfffvb , data redundancy , grgtfgrthrthrgyrtgrtggtrw Kuala Lumpur, Malaysia
  • 6 years ago

    hi,

    i think there is a problem with my code below....it insert the data more than 1 record (data redundancy) in the server database....i think there is a problem at the place i highlight with red.... can any1 assist me on this....

    [CODE] If Not UpdateServerPOS() Then UpdateTempPOS() End If[/CODE]

    [CODE]Public Function UpdateServerPOS() As Boolean Dim myConnection As SqlConnection Dim myCommand As SqlCommand Dim strSQL As String = "" Dim strSQL1 As String = "" Dim connStr As String Dim dr As SqlDataReader Dim cmdSerialNo, cmdPayment As SqlCommand Dim strSerialNo As String = "1" Dim drSerialNo As SqlDataReader Dim cmdTmp As SqlCommand Dim strPosID As String Dim strLoc As String Dim dr3 As SqlDataReader Dim myCommand1 As SqlCommand Try UpdateServerPOS = False

            myConnection = GetConnect("REMOTE")
            myConnection.Open()
    
            If myConnection.State = 0 Then
                myConnection.Open()
            End If
    
            ' Get LatestTransactionNo from Parameter table
            getLatestTransNo()
    
            ' Get SerialNo
            sSQL = "SELECT MAX(SerialNo) FROM PaymentDetails WHERE BoothID=" & _clsDBHelper.mQuotedStr(BoothNo)
            cmdSerialNo = POSconn.CreateCommand
            cmdSerialNo.CommandText = sSQL
            drSerialNo = cmdSerialNo.ExecuteReader
            drSerialNo.Read()
    
            If drSerialNo.HasRows Then
                ' Get SerialNo
                If Not drSerialNo.IsDBNull(0) Then ' old transaction exist
                    strSerialNo = drSerialNo(0) + 1
                Else ' new transaction
                    strSerialNo = 1
                End If
            End If
            drSerialNo.Close()
    
            CurrentTranxDateTime = Now
            CurrentTranxDate = System.DateTime.Now.ToString("dd-MMM-yyyy")
            CurrentTranxTime = System.DateTime.Now.ToString("hh:mm:ss tt")
    
            BoothNo = BoothNo
            StoreCity = StoreCity
            ostrTransactionNo = TransactionNo
            ostrSerialNo = strSerialNo
            oCurrentTranxDateTime = CurrentTranxDateTime
            oCurrentTranxDate = CurrentTranxDate
            oCurrentTranxTime = CurrentTranxTime
            oPOSTransCode = POSTransCode
            oSESSION_AGENCY_CODE = SESSION_AGENCY_CODE
    
    
            strSQL1 = "select POSID, BoothLocation from tblBoothMapping where BoothID = '" & BoothNo & "'"
    
            myCommand1 = New SqlCommand(strSQL1, myConnection)
            dr3 = myCommand1.ExecuteReader()
            If dr3.Read Then
                If Not dr3.IsDBNull(0) Then
                    strPosID = dr3("POSID")
                    strLoc = dr3("BoothLocation")
                    End If
            End If
            dr3.Close()
    

    strSQL = "INSERT INTO dbo.PaymentDetails ([BoothID],[BoothLocation],[TransactionNo],[SerialNo],[TransactionDateTime],[TransactionDate],[TransactionTime],[TransactionCode],[AgencyCode],[AgencyName],[AccountNo],[BillNo],[BillAmount],[PaidAmount],[Remark]) " _ & "VALUES ('" & strPosID & "','" & strLoc & "'," & TransactionNo & "," & strSerialNo & ",'" & CurrentTranxDateTime & "','" & CurrentTranxDate & "','" & CurrentTranxTime & "','" & POSTransCode & "','" & SESSIONAGENCYCODE & "','" & SESSIONAGENCYNAME & "','" & SESSIONAGENCYACCNO & "','" & SESSIONAGENCYBILLNO & "','" & SESSIONAGENCYBILLAMO & "','" & PaymentToPOS & "','" & BoothNo & strLoc & "')" '& "SELECT DISTINCT [BoothID],[BoothLocation]," _ '& "[TransactionNo],[SerialNo],[TransactionDateTime], " _ '& "[TransactionDate],[TransactionTime],[TransactionCode]," _ '& "[AgencyCode],[AgencyName

Post a reply

Enter your message below

Sign in or Join us (it's free).

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“In order to understand recursion, one must first understand recursion.”