ConnObj fioco come ADODB.Connection
RS fioco come ADODB.Recordset
SQL fioco come stringa
Regolare ConnObj = nuovo ADODB.Connection
'STRINGA DEL COLLEGAMENTO ALLA BASE DI DATI DI SQL
_ Di ConnObj.Open
“Fornitore = sqloledb; „ & _
“Dati Source= 69.62.203.176, 1433 \ pe1850sql; „ & _
“Catalog=GOUAL iniziale; „ & _
“=sa di identificazione usuario; „ & _
“*********** Di Password=; „
LO SQL = “SELEZIONA 1 A PARTIRE DA INVDETAILS INTERNO UNISCE I PROFILI SU INVDETAILS.UAID = PROFILES.UAID„ & _
“DOVE INVDETAILS.SVCCODE='" & XSCODE & ““E PROFILES.FNO=„„ & paddedFN & “'„ & _
“E INVDETAILS.PASSCODE='" & parola d'ordine & “'E INVDETAILS.ACTIVE=1; „
Regolar RS = ConnObj.Execute (SQL)
RecordFound = NON RS.EOF
RS.Close
ConnObj.Close
Regolar RS = niente
Regolare ConnObj = niente
|