Hi everyone, i have a small problem in my code.
when i execute my code i get a error msg: " 3705" operation can,t execute when object is open
can anyone help me?
when i execute my code i get a error msg: " 3705" operation can,t execute when object is open
Code:
Sub delete_dane()
Dim conn
Dim str As String
GetDbConnection conn
Set rs = CreateObject("ADODB.recordset")
cn.CursorLocation = adUseClient
rs.Open "select table_hgbst_elm.objid, table_hgbst_show.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.objid join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where table_hgbst_show.title in ('Level 1') and hgbst_lst2hgbst_show=536871644", conn
str = rs.GetString(, , "", "", "")
MsgBox (str)
Set rs.ActiveConnection = Nothing
rs.Close
conn.Close
If str <> "" Then ''zmienić numer z tabeli lst hgbst_lst2hgbst_show na x_uls_order_title
cn.CursorLocation = adUseClient
Set rs = CreateObject("ADODB.recordset")
rs.Open "delete from table_hgbst_elm where title is not null and objid in (select table_hgbst_elm.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 5'))", conn
Set rs.ActiveConnection = Nothing
rs.Close
conn.Close
rs.Open "delete from table_hgbst_show where title in('Level 5') and objid in (select distinct table_hgbst_show.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 5'))", conn
rs.Close
rs.Open "delete from table_hgbst_elm where title is not null and objid in (select table_hgbst_elm.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 4'))", conn
rs.Close
rs.Open "delete from table_hgbst_show where title in('Level 4') and objid in (select distinct table_hgbst_show.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 4'))", conn
rs.Close
rs.Open "delete from table_hgbst_elm where title is not null and objid in (select table_hgbst_elm.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 3'))", conn
rs.Close
rs.Open "delete from table_hgbst_show where title in('Level 3') and objid in (select distinct table_hgbst_show.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 3'))", conn
rs.Close
rs.Open "delete from table_hgbst_elm where title is not null and objid in (select table_hgbst_elm.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 2'))", conn
rs.Close
rs.Open "delete from table_hgbst_show where title in('Level 2') and objid in (select distinct table_hgbst_show.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 2'))", conn
rs.Close
rs.Open "delete from table_hgbst_elm where title is not null and objid in (select table_hgbst_elm.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.chld_prnt2hgbst_show join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where hgbst_lst2hgbst_show=1342180973 and table_hgbst_show.title in ('Level 1'))", conn
rs.Close
rs.Open "delete from table_hgbst_show where title in('Level 1') and objid in (select table_hgbst_show.objid from table_hgbst_show Join mtm_hgbst_elm0_hgbst_show1 on table_hgbst_show.objid = mtm_hgbst_elm0_hgbst_show1.hgbst_show2hgbst_elm join table_hgbst_lst on table_hgbst_lst.hgbst_lst2hgbst_show=table_hgbst_show.objid join table_hgbst_elm on mtm_hgbst_elm0_hgbst_show1.hgbst_elm2hgbst_show=table_hgbst_elm.objid where table_hgbst_show.title in ('Level 1') and hgbst_lst2hgbst_show=1342180973)", conn
rs.Close
rs.Open "delete from mtm_hgbst_elm0_hgbst_show1 where hgbst_elm2hgbst_show in(select hgbst_show2hgbst_elm from mtm_hgbst_elm0_hgbst_show1 mtm where not exists (select * from table_hgbst_show sh where sh.objid=mtm.hgbst_show2hgbst_elm and sh.objid=1342180973))", conn
rs.Close
rs.Open "delete from mtm_hgbst_elm0_hgbst_show1 where hgbst_elm2hgbst_show in(select hgbst_show2hgbst_elm from mtm_hgbst_elm0_hgbst_show1 mtm where not exists (select * from table_hgbst_show sh where sh.objid=mtm.hgbst_show2hgbst_elm and sh.chld_prnt2hgbst_show=1342180973))", conn
End If
End Sub