Dunkla ConnObj som ADODB.Connection
Dunkel RS som ADODB.Recordset
Dunkel SQL som stränger
Fastställda ConnObj = ny ADODB.Connection
'ANSLUTNING STRÄNGER TILL SQL-DATABAS
ConnObj.Open-_,
”Familjeförsörjare = sqloledb; ” & _,
”Data Source= 69.62.203.176, 1433 \ pe1850sql; ” & _,
”Initiala Catalog=GOUAL; ” & _,
”Användare - ID-=sa; ” & _,
”Password= ***********; ”,
SQL = ”VÄLJER 1 FRÅN INRE INVDETAILS SAMMANFOGAR PROFILERAR PÅ INVDETAILS.UAID = PROFILES.UAID” & _,
”VAR INVDETAILS.SVCCODE='" & XSCODE & ””OCH PROFILES.FNO=”” & paddedFN & ”'” & _,
”OCH INVDETAILS.PASSCODE='" & PassCode & ”'OCH INVDETAILS.ACTIVE=1; ”,
Uppsättning RS = ConnObj.Execute (SQL)
RecordFound = INTE RS.EOF
RS.Close
ConnObj.Close
Uppsättning RS = ingenting
Fastställda ConnObj = ingenting
|