gelöschte Objekte wieder herstellen

Mit diesem Script im Objektdebugger kann man das Gelöschte wieder herstellen. Man muss sich dabei in einer Arbeitsschicht befinden und die Darstellung Arbeitsschichtenmodus aktiviert haben. Dann zieht man das gelöschte Objekt in das Feld A und führt den nachstehenden Befehl aus:

sqlStatement A

Sub sqlStatement(pObj)

 Set cn = createobject("ADODB.Connection")
 Set MRS = createobject("ADODB.Recordset")
 
 sODBCName = "Name der ODBC Verbindung" (z.B. "pt_sql_server" - ersichtlich aus ODBC-Verbindung)
 sUsr = "Login Name vom User" (z.B. "bauhofer")
 sPwd = "Passwort der Verbindung" (z.B. "0815")
 
 c_ConStr = "Data Source=" & sODBCName & ";User Id=" & sUsr & "; Password=" & sPwd & ";"
 
 'SQL Statements
 Set ObjItem = pObj
 lsSysUid = "'" & ObjItem.SystemUID & "'"

 sql1 = "Update LC_Device Set pt_softdel = 0 where OBJ_UID = " & lsSysUid & ";"
 MRS.open sql1, c_ConStr
 
 ' restore Spec
 Set Chaps = ObjItem.specifications
 For k = 1 To Chaps.count
  Set Chap = Chaps.item(k)
   lsSysUid = "'" & Chap.SystemUID & "'"
   
   sql2 = "Update LC_Spec Set pt_softdel = 0 where OBJ_UID = " & lsSysUid & ";"
   MRS.open sql2, c_ConStr
   Set Specs = Chap.specifications
   For kk = 1 To Specs.count
    Set Spec = Specs.item(kk)
     lsSysUid = "'" & Spec.SystemUID & "'"
     sql3 = "Update LC_Spec Set pt_softdel = 0 where OBJ_UID = " & lsSysUid & ";"
     MRS.open sql3, c_ConStr
    If Spec.name = "Data" Then
    Set Specs1 = Spec.specifications
     For jj = 1 To Specs1.count
      Set Spec1 = Specs1.item(jj)
       lsSysUid = "'" & Spec1.SystemUID & "'"
       sql4 = "Update LC_Spec Set pt_softdel = 0 where OBJ_UID = " & lsSysUid & ";"
       MRS.open sql4, c_ConStr
     Next
    End If
   Next
   
 Next

End Sub

Archiv