Вопрос : Нужно быстро пройти вверх по удостоверению подлинности показателей базы данных сервера MS SQL using VB5

Дорога быстро пройти вверх по отверстию и искать для показателя в базе данных MSSQL данных на сервере?  Компьютер клиента бежит применение VB5 с интернет-связью.  Линия где задержка происходит,

RSARRAY =

Is RS4.getRows () там более быстрая дорога раскрыть соединение к таблице сервера тогда находит показатель в таблице? class= " lineNumbers " >

1 >
Dim ConnObj по мере того как нового ADODB.Connection '" class= " codeSnippet795907 id= >
 0 после этого
    CUSTOMEREXISTS = True
Еще
    CUSTOMEREXISTS = ложно
    Переход Process_Variables
Закончитесь если
class= " ясное " > 

  
  class= 

Ответ : Нужно быстро пройти вверх по удостоверению подлинности показателей базы данных сервера MS SQL using VB5

Если вы обеспокоенный о скорости чем, то используют Forward=Only и не стрелка Keyset.  И если вы хотите простоту, то, чем это просто, котор вы идете получить:

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 как ADODB.Connection Тусклое RS как ADODB.Recordset Тусклый SQL как шнур Установите ConnObj = новое ADODB.Connection 'ШНУР СОЕДИНЕНИЯ К БАЗЕ ДАННЫХ SQL _ ConnObj.Open «Провайдер = sqloledb; » & _ «Данные Source= 69.62.203.176, 1433 \ pe1850sql; » & _ «Первоначально Catalog=GOUAL; » & _ «Потребитель - =sa удостоверения личности; » & _ «*********** Password=; » SQL = «ВЫБИРАЕТ 1 ОТ INVDETAILS ВНУТРЕННЕГО СОЕДИНЯЕТ ПРОФИЛИ НА INVDETAILS.UAID = PROFILES.UAID» & _ «ГДЕ INVDETAILS.SVCCODE='" & XSCODE & ««И PROFILES.FNO=»» & paddedFN & «'» & _ «И INVDETAILS.PASSCODE='" & PassCode & «'И INVDETAILS.ACTIVE=1; » Установите RS = ConnObj.Execute (SQL) RecordFound = НЕ RS.EOF RS.Close ConnObj.Close Установите RS = ничего Установите ConnObj = ничего