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


           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Andra lösningar
                                     
                                  

                                

                              

                              

                                
                                
                              

                            

                          




                    


                  

                  

                  

                         		

                        

                    
                      

                         
                        

                      

                    

                  

              

              


        

            

          


 
         		
      




            

              

                
              

              

                



 


                    

                        

                          programming4us
                          
                          programming4us