Question : Devoir accélérer l'authentification des disques de base de données de serveur de la milliseconde SQL using VB5

Y a-t-il une manière d'accélérer l'ouverture et rechercher un disque dans la base de données de MSSQL fonctionnant sur un serveur ?  L'ordinateur de client court une application VB5 avec une connexion internet.  La ligne où le retard se produit est, le

RSARRAY =

Is de RS4.getRows () là une manière plus rapide d'ouvrir le raccordement à la table de serveur puis trouve un disque dans la table ? class= " lineNumbers " >

1 de >
Dim ConnObj comme nouvel ADODB.Connection 'de class= de " codeSnippet795907 " d'id= de >
 0 puis
    CUSTOMEREXISTS = rectifient
Autrement
    CUSTOMEREXISTS = faux
    Process_Variables GoTo
Finir si
class= > " clair " de 

  
  class= de 

Réponse : Devoir accélérer l'authentification des disques de base de données de serveur de la milliseconde SQL using VB5

Si vous êtes préoccupé par la vitesse qu'utilisent un Forward=Only et pas un curseur de clavier.  Et si vous voulez la simplicité, que ceci est le plus simple que vous allez obtenir :

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 :

Faible ConnObj comme ADODB.Connection Faible RS comme ADODB.Recordset Faible SQL comme corde Placer ConnObj = nouvel ADODB.Connection 'CORDE DE RACCORDEMENT À LA BASE DE DONNÉES DE SQL _ De ConnObj.Open « Fournisseur = sqloledb ;  » et _ « Point d'émission = 69.62.203.176, 1433 \ pe1850sql ;  » et _ « Catalog=GOUAL initial ;  » et _ « =sa d'identification de l'utilisateur ;  » et _ « *********** De Password= ;  » LE SQL = « CHOISISSENT 1 À PARTIR D'INVDETAILS INTÉRIEUR JOIGNENT DES PROFILS SUR INVDETAILS.UAID = PROFILES.UAID » ET _ « OÙ INVDETAILS.SVCCODE='" et XSCODE et « « ET PROFILES.FNO= » » et paddedFN et « ' » et _ « ET INVDETAILS.PASSCODE='" et code de passage et « 'ET INVDETAILS.ACTIVE=1 ;  » Placer RS = ConnObj.Execute (le SQL) RecordFound = PAS RS.EOF RS.Close ConnObj.Close Placer RS = rien Placer ConnObj = rien