Skip to Content
0
Former Member
Jun 03, 2008 at 06:19 AM

How to Avoid the Duplication

34 Views

In the following coding i have received the duplicate value ,tel me some ideas to avoid the duplicate values

Do Until rs4.EoF

rs2 = objCompany.GetBusinessObject(BoObjectTypes.BoRecordset)

rs2.DoQuery("select A.code,A.MsgData,B.UserSign,C.Portnum as MobileNum from OALR A inner join ALT1 B on A.Tcode=B.code inner join OUSR c on C.UserID=B.UserSign where A.code='" & Trim(Ocode) & "' ")

' rs2.DoQuery("select A.code,A.MsgData,B.UserSign,C.Portnum as MobileNum from OALR A inner join ALT1 B on A.Tcode=B.code inner join OUSR c on C.UserID=B.UserSign where A.code='" & Trim(field) & "' ")

code = CStr(rs2.Fields.Item(0).Value)

MsgData = CStr(rs2.Fields.Item(1).Value)

UserSign = CStr(rs2.Fields.Item(2).Value)

MobileNo = CStr(rs2.Fields.Item(3).Value)

If MobileNo <> "NA" Then

rs5 = objCompany.GetBusinessObject(BoObjectTypes.BoRecordset)

'rs5.DoQuery("insert into [@smsmaster](docentry,code,UserSign,u_modulecode,u_categorycode,u_taskid,u_createddt,u_sentdt,u_mobileno,u_message,u_bulksms,u_sentflag,u_statusreport,u_smsno,u_custname,u_lcode) values('" & DocNo & "','" & code & "','" & UserSign & "','ots','','10','" & DtSms & "','" & DtSms & "','" & MobileNo & "','" & MsgData & "','" & DocNo & "','No','No','" & DocNo & "','" & UserSign & "','')")

rs5.DoQuery("insert into [@smsmaster](docentry,code,UserSign,u_modulecode,u_categorycode,u_taskid,u_createddt,u_sentdt,u_mobileno,u_message,u_bulksms,u_sentflag,u_statusreport,u_smsno,u_custname,u_lcode) values('" & DocNo & "','" & code & "','" & UserSign & "','ots','','10','" & DtSms & "','" & DtSms & "','" & MobileNo & "','THANKSForsms','" & DocNo & "','No','No','" & DocNo & "','" & UserSign & "','')")

End If

rs4.MoveNext()

Loop

Regards

shanmugam