Questione : Dovere accelerare l'autenticazione delle annotazioni di base di dati dell'assistente del ms SQL using VB5

È ci un senso accelerare l'apertura e la ricerca un'annotazione nella base di dati di MSSQL che funziona su un assistente?  Il calcolatore del cliente sta facendo funzionare un'applicazione VB5 con un collegamento a Internet.  La linea in cui il ritardo accade è,

RSARRAY =

Is di RS4.getRows () là un senso più veloce aprire il collegamento alla tabella dell'assistente quindi trova un'annotazione nella tabella? class= " lineNumbers " >
1 del >
Dim ConnObj come nuovo ADODB.Connection '" del class= " di codeSnippet795907 del id= del >
 0 allora
    CUSTOMEREXISTS = allineano
Altrimenti
    CUSTOMEREXISTS = falso
    Process_Variables di avanzamento
Concluder se
class= > " libero " di 

  
  class= del

Risposta : Dovere accelerare l'autenticazione delle annotazioni di base di dati dell'assistente del ms SQL using VB5

Se siete interessato circa la velocità di un Forward=Only e non un cursore del mazzo di chiavi.  E se volete la semplicità, che questo è il più semplice che stiate andando ottenere:
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:

ConnObj fioco come ADODB.Connection
RS fioco come ADODB.Recordset
SQL fioco come stringa

Regolare ConnObj = nuovo ADODB.Connection
    
'STRINGA DEL COLLEGAMENTO ALLA BASE DI DATI DI SQL
_ Di ConnObj.Open
        “Fornitore = sqloledb; „ & _
        “Dati Source= 69.62.203.176, 1433 \ pe1850sql; „ & _
        “Catalog=GOUAL iniziale; „ & _
        “=sa di identificazione usuario; „ & _
        “*********** Di Password=; „
        
LO SQL = “SELEZIONA 1 A PARTIRE DA INVDETAILS INTERNO UNISCE I PROFILI SU INVDETAILS.UAID = PROFILES.UAID„ & _
“DOVE INVDETAILS.SVCCODE='" & XSCODE & ““E PROFILES.FNO=„„ & paddedFN & “'„ & _
“E INVDETAILS.PASSCODE='" & parola d'ordine & “'E INVDETAILS.ACTIVE=1; „
Regolar RS = ConnObj.Execute (SQL)

RecordFound = NON RS.EOF

RS.Close
ConnObj.Close

Regolar RS = niente
Regolare ConnObj = niente
Altre soluzioni  
 
programming4us programming4us