Schemerige ConnObj als ADODB.Connection
Schemerige RS als ADODB.Recordset
Schemerige SQL als Koord
Vastgestelde ConnObj = Nieuwe ADODB.Connection
HET 'KOORD VAN DE VERBINDING AAN SQL GEGEVENSBESTAND
ConnObj.Open _
„Leverancier = sqloledb; “ & _
„Gegevens Source= 69.62.203.176, 1433 \ pe1850sql; “ & _
„Aanvankelijke Catalog=GOUAL; “ & _
„Gebruiker - identiteitskaart =sa; “ & _
„Password= ***********; “
SQL = „SELECTEER 1 VAN INVDETAILS BINNEN AANSLUITEN ZICH BIJ PROFIELEN OP INVDETAILS.UAID = PROFILES.UAID“ & _
„WAAR INVDETAILS.SVCCODE='" & XSCODE & „„EN PROFILES.FNO=““ & paddedFN & „'“ & _
„EN INVDETAILS.PASSCODE='" & Wachtwoord & „'EN INVDETAILS.ACTIVE=1; “
Vastgesteld RS = ConnObj.Execute (SQL)
RecordFound = NIET RS.EOF
RS.Close
ConnObj.Close
Vastgesteld RS = niets
Vastgestelde ConnObj = niets
|