Pergunta : Precisar de acelerar a autenticação de registros de base de dados do usuário do MS SQL using VB5

Há uma maneira de acelerar a abertura e a pesquisa por um registro na base de dados de MSSQL que funciona em um usuário?  O computador do cliente está funcionando uma aplicação VB5 com uma conexão a internet.  A linha onde o atraso ocorre está, o

RSARRAY =

Is de RS4.getRows () lá uma maneira mais rápida de abrir a conexão à tabela do usuário a seguir encontra um registro na tabela? class= " lineNumbers " >
1 do >
Dim ConnObj como ADODB.Connection novo '" do class= de " codeSnippet795907 do id= do >
 0 então
    CUSTOMEREXISTS = retificam
Mais
    CUSTOMEREXISTS = falso
    Process_Variables empreendedores
Terminar se
class= > " desobstruído " de 

  
  class= do

Resposta : Precisar de acelerar a autenticação de registros de base de dados do usuário do MS SQL using VB5

Se você é referido sobre a velocidade do que usam um Forward=Only e não um cursor do conjunto de teclas.  E se você quer a simplicidade, do que isto é o mais simples que você está indo começ:
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 não ofuscante como ADODB.Connection
RS não ofuscante como ADODB.Recordset
SQL não ofuscante como a corda

Ajustar ConnObj = ADODB.Connection novo
    
'CORDA DA CONEXÃO À BASE DE DADOS DO SQL
_ De ConnObj.Open
        “Fornecedor = sqloledb; ” & _
        “Origem de dados = 69.62.203.176, 1433 \ pe1850sql; ” & _
        “Catalog=GOUAL inicial; ” & _
        “Usuário - =sa da identificação; ” & _
        De “*********** Password=; ”
        
O SQL = “SELECIONA 1 DE INVDETAILS INTERNO JUNTA-SE A PERFIS EM INVDETAILS.UAID = PROFILES.UAID” & _
“ONDE INVDETAILS.SVCCODE='" & XSCODE & ““E PROFILES.FNO=”” & paddedFN & “'” & _
“E INVDETAILS.PASSCODE='" & PassCode & “'E INVDETAILS.ATIVE=1; ”
Ajustar RS = ConnObj.Execute (o SQL)

RecordFound = NÃO RS.EOF

RS.Close
ConnObj.Close

Ajustar RS = nada
Ajustar ConnObj = nada
Outras soluções  
 
programming4us programming4us