Тусклое ConnObj как ADODB.Connection
Тусклое RS как ADODB.Recordset
Тусклый SQL как шнур
Установите ConnObj = новое ADODB.Connection
'ШНУР СОЕДИНЕНИЯ К БАЗЕ ДАННЫХ SQL
_ ConnObj.Open
«Провайдер = sqloledb; » & _
«Данные Source= 69.62.203.176, 1433 \ pe1850sql; » & _
«Первоначально Catalog=GOUAL; » & _
«Потребитель - =sa удостоверения личности; » & _
«*********** Password=; »
SQL = «ВЫБИРАЕТ 1 ОТ INVDETAILS ВНУТРЕННЕГО СОЕДИНЯЕТ ПРОФИЛИ НА INVDETAILS.UAID = PROFILES.UAID» & _
«ГДЕ INVDETAILS.SVCCODE='" & XSCODE & ««И PROFILES.FNO=»» & paddedFN & «'» & _
«И INVDETAILS.PASSCODE='" & PassCode & «'И INVDETAILS.ACTIVE=1; »
Установите RS = ConnObj.Execute (SQL)
RecordFound = НЕ RS.EOF
RS.Close
ConnObj.Close
Установите RS = ничего
Установите ConnObj = ничего
|