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
|