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