Vraag : Hoe te om Zelfde Lijst die tweemaal gebruiken 1 SQL Vraag te vragen?

Ik wil een Vraag doen waar ik fundamenteel de following

Wheregelijke 1 en 2 en 3, terugkeer een waarde van 0
OR terugkeer waar gelijke 1 OF 2 OF 3 van de Voorwaarde, een waarde van 1

Basically terugkeert, als ik Nauwkeurig - gelijke van Gegevens bevat binnen 3 afzonderlijke Gebieden vind, ik willen de Gegevens evenals een VALUE VAN 0 op een extra Gebied terugkeren b.v. FieldSort.
Also, als ik een Gelijke in OM HET EVEN WELKE 1 of 2 van de 3 Gebieden vind, (een gedeeltelijke gelijke) ik wil de Gegevens evenals een VALUE VAN 1 op een extra Gebied b.v. FieldSort terugkeren.

And sorteert dan op het Gebied FieldSort - zodat OM HET EVEN WELK VERSLAG met Nauwkeurig - de gelijke zal bij de Bovenkant van de Lijst, en Gedeeltelijke Gelijken below.

I am worden getoond gebruikend veelvoudige Lijsten aangezien Één Lijst de Details van het Personeel, Details van een ander hun Werk, en Details van Een ander hun Adres houdt. ALLE Lijsten zijn verbonden via een EmployeeID Table

b.v.
tblStaffDets zoals (tSD)
Field1 = EmployeeID
Field2 = Surname
Field3 = GivenName
Field4 = BirthDate
Field5 = Gender

tblHomeDets zoals (tHD)
Field1 = EmployeeID
Field2 = Address
Field3 = PostCode

tblWorkDets zoals (tWD)
Field1 = EmployeeID
Field2 = PositionTitle
Field3 = WorkAddress
Field3 = WorkPostCode

I Volgende Fields

tSD.EmployeeID
tSD.Surname
tSD.GivenName
tSD.BirthDate
tSD.Gender
tHD.Address
tHD.PostCode
tWD.PositionTitle
tWD.WorkAddress
tWD.WorkPostCode
SortID

SortID = 0, waar Nauwkeurig - pas, SortID = 1 aan, waar een gedeeltelijke gelijke occurs

Am momenteel Gebruikend MS-Access 2000 als OB van het Achterste deel (codeer nochtans ook zal gebruikt worden in Delphi om de Vraag)

Help in werking te stellen zou zijn zeer appreciated.

Antwoord : Hoe te om Zelfde Lijst die tweemaal gebruiken 1 SQL Vraag te vragen?

Dan, stelt de ochtend na de afgesneden datum, dit manuscript in werking, en het zal het tekstdossier lezen en zal de rekeningen onbruikbaar maken.

Achting,

Rob.
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:

Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Const die = 1 intForReading
Const die = 8 intForAppending
strDisableAccountsFile = „\ \ die serverxx \ \ UsersToDisable.txt“ volgen
strDisabledReportFile = „\ \ die serverxx \ \ DisabledUsers.txt“ volgen
Reeks objOutput = objFSO.OpenTextFile (strDisabledReportFile, Waar intForAppending,)
Vastgestelde objFile = objFSO.OpenTextFile (strDisableAccountsFile, Waar intForReading,)
Terwijl niet objFile.AtEndOfStream
	strUserDN = objFile.ReadLine
	Als Versiering (strUserDN) <> "" toen
		Reeks objUser = GetObject („LDAP: /“ & strUserDN)
		objUser.AccountDisabled = Waar
		objUser.SetInfo
		Reeks objUser = niets
		objOutput.WriteLine strUserDN
	Eind als
Wend
objFile.Close
objOutput.Close
Vastgestelde objFile = niets
Reeks objOutput = niets
Vastgestelde objFile = objFSO.CreateTextFile (strDisableAccountsFile, Waar)
objFile.Close
Vastgestelde objFile = niets
MsgBox „Rekeningen die onbruikbaar is gemaakt is geschreven aan“ & zijn VbCrLf & strDisabledReportsFile & VbCrLf & „en het dossier van gebruikers aan disalbe ontruimd“ & strDisableAccountsFile
Andere oplossingen  
 
programming4us programming4us