ConnObj não ofuscante como ADODB.Connection
RS não ofuscante como ADODB.Recordset
SQL não ofuscante como a corda
Ajustar ConnObj = ADODB.Connection novo
'CORDA DA CONEXÃO À BASE DE DADOS DO SQL
_ De ConnObj.Open
“Fornecedor = sqloledb; ” & _
“Origem de dados = 69.62.203.176, 1433 \ pe1850sql; ” & _
“Catalog=GOUAL inicial; ” & _
“Usuário - =sa da identificação; ” & _
De “*********** Password=; ”
O SQL = “SELECIONA 1 DE INVDETAILS INTERNO JUNTA-SE A PERFIS EM INVDETAILS.UAID = PROFILES.UAID” & _
“ONDE INVDETAILS.SVCCODE='" & XSCODE & ““E PROFILES.FNO=”” & paddedFN & “'” & _
“E INVDETAILS.PASSCODE='" & PassCode & “'E INVDETAILS.ATIVE=1; ”
Ajustar RS = ConnObj.Execute (o SQL)
RecordFound = NÃO RS.EOF
RS.Close
ConnObj.Close
Ajustar RS = nada
Ajustar ConnObj = nada
|