Vraag : Behoefte om authentificatie van het gegevensbestandverslagen te versnellen die van de Server van lidstaten SQL VB5 gebruiken

Is er een manier om het openen en het zoeken naar een verslag in Mssql- gegevensbestand die lopen op een server te versnellen?  De cliëntcomputer stelt een VB5 toepassing met een Internet verbinding in werking.  De lijn waar de vertraging voorkomt is,

RSARRAY = RS4.getRows ()

Is daar een snellere manier om de verbinding voor de serverlijst te openen dan vindt een verslag in de lijst? 
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:

Dim ConnObj als Voorwerp van de Verbinding van Nieuwe ADODB.Connection 'ADODB
Schemerige RS4 als Voorwerp van Nieuwe ADODB.Recordset 'Recordset
Schemerige SQL4 variabele van het Koord als van Koord de 'om sql bevel op te slaan
   
    
HET 'KOORD VAN DE VERBINDING AAN SQL GEGEVENSBESTAND
ConnObj.Open _
        „Leverancier = sqloledb; “ & _
        „Gegevens Source= 69.62.203.176, 1433 \ pe1850sql; “ & _
        „Aanvankelijke Catalog=GOUAL; “ & _
        „Gebruiker - identiteitskaart =sa; “ & _
        „Password= ***********; “
        
    
'CONTROLEER ALS ER GEBRUIKER IN DE LIJST VAN PROFIELEN BESTAAT
SQL4 = „SELECTEER * UIT PROFIELEN“ & „WAAR FNO='" & paddedFN & „'“
RS4.Open SQL4, ConnObj, adOpenKeyset

Als niet RS4.EOF toen
    RSARRAY = RS4.getRows ()
        NR = UBound (RSARRAY, 2) + 1
    Anders
        NR = 0
Eind als
RS4.Close
Als NR > 0 toen
    CUSTOMEREXISTS = Waar
Anders
    CUSTOMEREXISTS = Vals
    GoTo Process_Variables
Eind als

Antwoord : Behoefte om authentificatie van het gegevensbestandverslagen te versnellen die van de Server van lidstaten SQL VB5 gebruiken

Als u over snelheid dan bezorgd bent gebruik een Forward=Only en niet een curseur van het Toetsenbord.  En als u eenvoud wilt, dan dit is het eenvoudigst u gaan krijgen:
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:

Schemerige ConnObj als ADODB.Connection
Schemerige RS als ADODB.Recordset
Schemerige SQL als Koord

Vastgestelde ConnObj = Nieuwe ADODB.Connection
    
HET 'KOORD VAN DE VERBINDING AAN SQL GEGEVENSBESTAND
ConnObj.Open _
        „Leverancier = sqloledb; “ & _
        „Gegevens Source= 69.62.203.176, 1433 \ pe1850sql; “ & _
        „Aanvankelijke Catalog=GOUAL; “ & _
        „Gebruiker - identiteitskaart =sa; “ & _
        „Password= ***********; “
        
SQL = „SELECTEER 1 VAN INVDETAILS BINNEN AANSLUITEN ZICH BIJ PROFIELEN OP INVDETAILS.UAID = PROFILES.UAID“ & _
„WAAR INVDETAILS.SVCCODE='" & XSCODE & „„EN PROFILES.FNO=““ & paddedFN & „'“ & _
„EN INVDETAILS.PASSCODE='" & Wachtwoord & „'EN INVDETAILS.ACTIVE=1; “
Vastgesteld RS = ConnObj.Execute (SQL)

RecordFound = NIET RS.EOF

RS.Close
ConnObj.Close

Vastgesteld RS = niets
Vastgestelde ConnObj = niets
Andere oplossingen  
 
programming4us programming4us