Schwaches ConnObj als ADODB.Connection
Schwaches RS als ADODB.Recordset
Schwacher SQL als Schnur
ConnObj einstellen = neues ADODB.Connection
'ANSCHLUSS-SCHNUR ZUR SQL-DATENBANK
ConnObj.Open _
„Versorger = sqloledb; “ u. _
„Datenquelle = 69.62.203.176, 1433 \ pe1850sql; “ u. _
„AnfangsCatalog=GOUAL; “ u. _
„Benutzernummer =sa; “ u. _
„Password= ***********; “
SQL = „VORWÄHLEN 1 VON INNEREM INVDETAILS ANSCHLIESSEN PROFILEN AUF INVDETAILS.UAID = PROFILES.UAID“ U. _ ID
„, WO INVDETAILS.SVCCODE='" u. XSCODE u. „„UND PROFILES.FNO=““ u. paddedFN u. „'“ u. _
„UND INVDETAILS.PASSCODE='" u. Passwort u. „'UND INVDETAILS.ACTIVE=1; “
Einstellen RS = ConnObj.Execute (SQL)
RecordFound = NICHT RS.EOF
RS.Close
ConnObj.Close
Einstellen RS = nichts
ConnObj einstellen = nichts
|