Frage : Authentisierung der Mitgliedstaat-SQL-ServerDatenbanksätze using VB5 beschleunigen müssen

Gibt es eine Weise, die Öffnung und das Suchen nach einer Aufzeichnung in der MSSQL Datenbank zu beschleunigen, die auf einen Bediener läuft?  Der Klientencomputer lässt eine Anwendung VB5 mit einem Internetanschlusse laufen.  Die Linie, in der die Verzögerung auftritt, ist,

RSARRAY = RS4.getRows ()

Is dort eine schnellere Weise, den Anschluss zum Bedienertabelle zu öffnen dann findet eine Aufzeichnung in der Tabelle? 
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 wie neues ADODB.Connection 'ADODB Verbindungsobjekt
Schwaches RS4 wie neues ADODB.Recordset 'Recordset Gegenstand
Schwaches SQL4 als Schnur-'Schnurvariable, zum des sql-Befehls zu speichern
   
    
'ANSCHLUSS-SCHNUR ZUR SQL-DATENBANK
ConnObj.Open _
        „Versorger = sqloledb; “ u. _
        „Datenquelle = 69.62.203.176, 1433 \ pe1850sql; “ u. _
        „AnfangsCatalog=GOUAL; “ u. _
        „Benutzernummer =sa; “ u. _
        „Password= ***********; “
        
    
'ÜBERPRÜFEN, OB BENUTZER IN DER PROFIL-TABELLE EXISTIEREN
SQL4 = „WÄHLEN * VON DEN PROFILEN“ u. „vor, WO FNO='" u. paddedFN u. „'“
RS4.Open SQL4, ConnObj, adOpenKeyset

Wenn nicht RS4.EOF dann
    RSARRAY = RS4.getRows ()
        NR = UBound (RSARRAY, 2) + 1
    Sonst
        NR = 0
Beenden wenn
RS4.Close
Wenn NR > 0 dann
    CUSTOMEREXISTS = richten aus
Sonst
    CUSTOMEREXISTS = falsch
    Goto- Process_Variables
Beenden wenn

Antwort : Authentisierung der Mitgliedstaat-SQL-ServerDatenbanksätze using VB5 beschleunigen müssen

Wenn Sie über Geschwindigkeit als betroffen, ein Forward=Only und nicht einen Tastensatz-Cursor benutzen.  Und wenn Sie Einfachheit wünschen, als dieses ist das einfachste, das Sie erhalten werden:
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:

Schwaches ConnObj als ADODB.Connection
Schwaches RS als ADODB.Recordset
Schwacher SQL als Schnur

ConnObj einstellen = neues ADODB.Connection
    
'ANSCHLUSS-SCHNUR ZUR SQL-DATENBANK
ConnObj.Open _
        „Versorger = sqloledb; “ u. _
        „Datenquelle = 69.62.203.176, 1433 \ pe1850sql; “ u. _
        „AnfangsCatalog=GOUAL; “ u. _
        „Benutzernummer =sa; “ u. _
        „Password= ***********; “
        
SQL = „VORWÄHLEN 1 VON INNEREM INVDETAILS ANSCHLIESSEN PROFILEN AUF INVDETAILS.UAID = PROFILES.UAID“ U. _ ID
„, WO INVDETAILS.SVCCODE='" u. XSCODE u. „„UND PROFILES.FNO=““ u. paddedFN u. „'“ u. _
„UND INVDETAILS.PASSCODE='" u. Passwort u. „'UND INVDETAILS.ACTIVE=1; “
Einstellen RS = ConnObj.Execute (SQL)

RecordFound = NICHT RS.EOF

RS.Close
ConnObj.Close

Einstellen RS = nichts
ConnObj einstellen = nichts
Weitere Lösungen  
 
programming4us programming4us