Pytanie : Potrzeba w górę uwierzytelnienie MS SQL Serwer baza danych rejestr using VB5

Być tam  sposób w górę the otwarcie i gmeranie dla rejestr w MSSQL baza danych bieg na serwer?  The klient komputer biegać VB5 zastosowanie z połączenie z internetem.  The linia dokąd the opóźnienie zdarzać się być,

RSARRAY = RS4.getRows ()

Is tam  szybki sposób the związek the serwer stół then znajdować rejestr w the stół? 
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:
27:
28:
29:
30:
31:

Dim ConnObj Gdy Nowy ADODB.Connection 'ADODB Podłączeniowy Przedmiot
Ciemnawy RS4 Gdy Nowy ADODB.Recordset 'Recordset Przedmiot
Ciemnawy SQL4 Jako Sznurek 'Sznurek zmienna sql rozkaz
   
    
'ZWIĄZEK SZNUREK SQL BAZA DANYCH
ConnObj.Open _
        "Dostawca = sqloledb; " & _
        "Dane Source= 69.62.203.176, 1433 \ pe1850sql; " & _
        "Początkowy Catalog=GOUAL; " & _
        "Użytkownik - id =sa; " & _
        "Password= ***********; "
        
    
'SPRAWDZAĆ JEŻELI UŻYTKOWNIK ISTNIEĆ W PROFIL STÓŁ
SQL4 = "WYBIÓRKA * OD PROFIL" & "DOKĄD FNO='" & paddedFN & "'"
RS4.Open SQL4, ConnObj, adOpenKeyset

Jeśli nie RS4.EOF Wtedy
    RSARRAY = RS4.getRows ()
        NR = UBound (RSARRAY, 2) + (1)
    Inny
        NR = (0)
Kończyć Jeżeli
RS4.Close
Jeżeli NR > (0) Wtedy
    CUSTOMEREXISTS = Prawdziwy
Inny
    CUSTOMEREXISTS = Fałszywy
    Rozpoczynający Process_Variables
Kończyć Jeżeli

Odpowiedź : Potrzeba w górę uwierzytelnienie MS SQL Serwer baza danych rejestr using VB5

Jeżeli ty dotyczyć o prędkość używać Forward=Only i nie Keyset kursor.  I jeżeli ty chcieć prostota, chcieć być the prosty ty iść:
(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:

Ciemnawy ConnObj Jako ADODB.Connection
Ciemnawy RS Jako ADODB.Recordset
Ciemnawy SQL Sznurek

Ustalony ConnObj = Nowy ADODB.Connection
    
'ZWIĄZEK SZNUREK SQL BAZA DANYCH
ConnObj.Open _
        "Dostawca = sqloledb; " & _
        "Dane Source= 69.62.203.176, 1433 \ pe1850sql; " & _
        "Początkowy Catalog=GOUAL; " & _
        "Użytkownik - id =sa; " & _
        "Password= ***********; "
        
SQL = "WYBIÓRKA (1) OD INVDETAILS WEWNĘTRZNY ŁĄCZYĆ PROFIL NA INVDETAILS.UAID = PROFILES.UAID" & _
"DOKĄD INVDETAILS.SVCCODE='" & XSCODE & ""I PROFILES.FNO="" & paddedFN & "'" & _
"I INVDETAILS.PASSCODE='" & PassCode & "'I INVDETAILS.ACTIVE=1; "
Ustalony RS = ConnObj.Execute (SQL)

RecordFound = NIE RS.EOF

RS.Close
ConnObj.Close

Ustalony RS = Nic
Ustalony ConnObj = Nic
Inne rozwiązania  
 
programming4us programming4us