Fråga : Behöv att rusa upp legitimation av för serverdatabas för ms SQL rekord using VB5

Finns det a långt som ska rusas upp öppningen och sökande för ett rekord i MSSQL-databasspring på en server?  Beställaredatoren är rinnande en applikation VB5 med en internetanslutning.  Fodra, var fördröjningen uppstår, är,

RSARRAY =

Is för RS4.getRows () där ett snabbare långt som öppnar anslutningen till serveren, bordlägger därefter fynd ett rekord i bordlägga? class= " lineNumbers " >

1 för > 0 därefter
    CUSTOMEREXISTS = True
Annars
    CUSTOMEREXISTS = falskt
    GoTo Process_Variables
Avsluta om
<-/pre>
Dim ConnObj som ny ADODB.Connection 'för class= " för codeSnippet795907 " för id= för >


" klar " 

Svar : Behöv att rusa upp legitimation av för serverdatabas för ms SQL rekord using VB5

Om du angå omkring, rusa än använder en Forward=Only och inte en Keysetmarkör.  Och om du önskar enkelhet, än detta är det enklast som du går att få:

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:

Dunkla ConnObj som ADODB.Connection Dunkel RS som ADODB.Recordset Dunkel SQL som stränger Fastställda ConnObj = ny ADODB.Connection 'ANSLUTNING STRÄNGER TILL SQL-DATABAS ConnObj.Open-_, ”Familjeförsörjare = sqloledb; ” & _, ”Data Source= 69.62.203.176, 1433 \ pe1850sql; ” & _, ”Initiala Catalog=GOUAL; ” & _, ”Användare - ID-=sa; ” & _, ”Password= ***********; ”, SQL = ”VÄLJER 1 FRÅN INRE INVDETAILS SAMMANFOGAR PROFILERAR PÅ INVDETAILS.UAID = PROFILES.UAID” & _, ”VAR INVDETAILS.SVCCODE='" & XSCODE & ””OCH PROFILES.FNO=”” & paddedFN & ”'” & _, ”OCH INVDETAILS.PASSCODE='" & PassCode & ”'OCH INVDETAILS.ACTIVE=1; ”, Uppsättning RS = ConnObj.Execute (SQL) RecordFound = INTE RS.EOF RS.Close ConnObj.Close Uppsättning RS = ingenting Fastställda ConnObj = ingenting