Re: Na koji način izaći iz petlje pod određenim uslovima
Pozdrav
Nov sam u radu sa Accessom, i nalazim da je jako zgodan za rad sa tabelama, cak mi je zao sto ranije nisam poceo da ga koristim.
Kako je naslov teme, trebam pomoc ... Hteo bih da zamolim za pomoc.
Imam dve tabele StationList_SS (lista svih stanica u bazi) i StationPerFeeder (lista stanica, koje pripadaju nekom izvodu).
Moj problem je da kreiram novu tabelu koja sadrzi sve stanice koje su prisutne u tabeli StationList_SS, a ujedno nisu prisutne u tabeli StationPerFeeder. Problem sam resio, ali pretraga traje dosta dugo (oko 18minuta), voleo bih da ubrzam proces.
Evo koda, kako sam resio:
Select Case MsgBox("Procedure to get list of SS w/o FdHd is 20min! Do you want to get it?", vbYesNo)
Case vbYes
Sqlqueury7 = "Select StationName,StationType FROM StationList_SS" ',StationPerFeeder where StationList_SS.StationName=StationPerFeeder.B1NAME" ' like 'SS - 11'"
Set rs7 = AccessDB.OpenRecordset(Sqlqueury7)
Do While Not rs7.EOF
bfound = False
Sqlqueury8 = "SELECT FHCB_B1NAME,FHCB_B2NAME,FHCB_B3NAME,FEEDERNAME,B1NAME FROM StationPerFeeder"
Set rs8 = AccessDB.OpenRecordset(Sqlqueury8)
Do While Not rs8.EOF
If rs7!StationName = rs8!B1NAME Then
bfound = True
Else
End If
rs8.MoveNext
Loop
rs8.Close
If bfound = False Then
AccessDB.Execute "Insert INTO StatNoFeeder(StationName,StationType) values ('" & rs7!StationName & "','" & rs7!StationType & "')"
Else
End If
rs7.MoveNext
Loop
rs7.Close
MsgBox "List of substation WITHOUT assigned FdHd created/updated in table StatNoFeeder!"
Case vbNo
End Select
End Sub
Glavni problem mi je da ubrzam proces.
Na koji nacin da izadjem iz petlje Do While Not rs8.EOF za slucaj da je ispunjen uslov If rs7!StationName = rs8!B1NAME Then ...???
Unapred hvala na pomoci.
 |  |
 |
Re: Re: Na koji način izaći iz petlje pod određenim uslovima
Re: Re: Na koji način izaći iz petlje pod određenim uslovima