Cuestión : Necesitar acelerar la autentificación de los expedientes de base de datos de servidor del ms SQL usar VB5

¿Hay una manera de acelerar la abertura y la búsqueda para un expediente en la base de datos de MSSQL que funciona en un servidor?  La computadora del cliente está funcionando un uso VB5 con una conexión a internet.  ¿La línea donde ocurre el retardo está, el

RSARRAY = el

Is de RS4.getRows () allí una manera más rápida de abrir la conexión a la tabla del servidor después encuentra un expediente en la tabla? class= " lineNumbers " >
1 del >
Dim ConnObj como nuevo ADODB.Connection 'del class= de " codeSnippet795907 " del id= del >
 0 entonces
    CUSTOMEREXISTS = verdad

    CUSTOMEREXISTS = falso
    Process_Variables indicado
Terminar si
class= > " claro " de 

  
  class= del

Respuesta : Necesitar acelerar la autentificación de los expedientes de base de datos de servidor del ms SQL usar VB5

Si usted se refiere sobre velocidad que un Forward=Only y no un cursor del teclado.  Y si usted quiere simplicidad, que esto está el más simple que usted va a conseguir:
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 dévil como ADODB.Connection
RS dévil como ADODB.Recordset
SQL dévil como secuencia

Fijar ConnObj = nuevo ADODB.Connection
    
'SECUENCIA DE LA CONEXIÓN A LA BASE DE DATOS DEL SQL
_ De ConnObj.Open
        “Abastecedor = sqloledb; ” y _
        “Datos Source= 69.62.203.176, 1433 \ pe1850sql; ” y _
        “Catalog=GOUAL inicial; ” y _
        “=sa de la identificación del usuario; ” y _
        “*********** De Password=; ”
        
EL SQL = “SELECCIONA 1 DE INVDETAILS INTERNO ENSAMBLA PERFILES EN INVDETAILS.UAID = PROFILES.UAID” Y _
“DONDE el INVDETAILS.SVCCODE='" y XSCODE y ““Y PROFILES.FNO=”” y paddedFN y “'” y _
“Y el INVDETAILS.PASSCODE='" y contrase^na y “'E INVDETAILS.ACTIVE=1; ”
Fijar RS = ConnObj.Execute (el SQL)

RecordFound = NO RS.EOF

RS.Close
ConnObj.Close

Fijar RS = nada
Fijar ConnObj = nada
Otras soluciones  
 
programming4us programming4us