Frage : Notwendigkeitshilfe im Schreiben einer Orakelfunktion…

Ich benötige etwas Hilfe, wenn ich eine rekursive Funktion schreibe, für die ich bohren kann, bis RM-Details für eine Product.

Attached Funktion einiges ist, wie ich it.
In die angebrachte Funktion schreiben möchte, die der 1. Cursor die ganze EINZELTEIL-Identifikation alles Bestandteiles für ein bestimmtes Produkt
then erhält, das ganzes Einzelteil zum 2. Cursor geführt, der alle Details für SG12 und SG-16 Lager der Warenbestandart RM und INT erhält.
If, das wir RM dann erhalten, in eine Tabelle einsetzen, wenn INT dann den 1. Cursor wieder benennen, sodass es unten bohren sollte, bis es erhält RM….

NEW-RM-REPORT.sql (5 KBs) (Akten-Art Details)
Function

Antwort : Notwendigkeitshilfe im Schreiben einer Orakelfunktion…

Hatte einen Typo.  Dieses versuchen gefallen.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

Auf Störung zunächst wieder.aufnehmen

Const ADS_SCOPE_SUBTREE = 2 'suchen Zielgegenstand und alle Unterseebootniveaus


Schwaches objRootDSE: objRootDSE = GetObject einstellen („LDAP: //RootDSE“)
strDNSDomain = ersetzen (ersetzen (objRootDSE.Get („defaultNamingContext“),“, DC= ", „."), „DC=“, "")

strADsPath = „LDAP: /“ u. objRootDSE.Get („defaultNamingContext“)

'An aktives Verzeichnis anschließen
objConnection = CreateObject („ADODB.Connection“) einstellen
objCommand = CreateObject („ADODB.Command“) einstellen
objConnection.Provider = „ADsDSOObject“
objConnection.Open „aktiver Verzeichnis-Versorger“
Einstellen objCommand.ActiveConnection = objConnection
objCommand.Properties („Seiten-Größe“) = 1000
objCommand.Properties („Searchscope“) = ADS_SCOPE_SUBTREE

 
Schwaches objOU: objOU = GetObject einstellen („LDAP: /“ u. TARGET_OU)
 
Schwaches objExcel: objExcel = CreateObject („Excel.Application“) einstellen
objWorkbook verdunkeln: objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE) einstellen
 
'An Reihe 2, nach der Überschrift beginnen.
intRow verdunkeln: intRow = 2
 
Bis objExcel.Cells (intRow, 1).Value = "" tun
		  
	strUserName verdunkeln: strUserName = objExcel.Cells (intRow, 1).Value
	Schwaches strDisplayName: strDisplayName = objExcel.Cells (intRow, 2).Value
	Schwaches strFirstName: strFirstName = objExcel.Cells (intRow, 3).Value
	Schwaches strLastName: strLastName = objExcel.Cells (intRow, 4).Value
	Schwaches strDS: strDS = objExcel.Cells (intRow, 5).Value  
	'Schwaches strOffice: strOffice = objExcel.Cells (intRow, 6).Value
	Schwaches strPWD: strPWD = objExcel.Cells (intRow, 7).Value
			
	'Das Suche-ANZEIGE Gebiet, zum Benutzer des allgemeinen Namens zu überprüfen nicht bereits existiert
	objCommand.CommandText = „AUSERWÄHLTES distinguishedName VON '“ u. strADsPath u. _
	„„, WO objectCategory='user“ UND cn='" u. strDisplayName u. „'“
	objRecordSet = objCommand.Execute einstellen
	Wenn objRecordSet.EOF dann
					 
		Schwaches objUser: objUser = objOU.Create („Benutzer“, „CN=“ u. strDisplayName) einstellen
		objUser.Put „sAMAccountName“, strUserName
		objUser.Put „userPrincipalName“, strUserName u. „@“ u. strDNSDomain
		objUser.Put „displayName“, strDisplayName
		objUser.Put „Sn“, strLastName
		objUser.Put „givenName“, strFirstName
		objUser.Put „Beschreibung“, strDS
		'objUser.Put „physicalDeliveryOfficeName“, strOffice
		objUser.Put „homeDrive“, „X: “
		objUser.Put „homeDirectory“,“ \ \ shadowcom.local \ System \ Profile \ „u. strUsername
		objUser.SetInfo
		'Separat sektion bis Import af-Kennwort bis brugerne
		objUser.userAccountControl = 512
		objUser.SetPassword strPWD
		objUser.AccountDisabled = falsch
		objUser.SetInfo
	Beenden wenn
		
	intRow = intRow + 1
Schleife
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Weitere Lösungen  
 
programming4us programming4us