Assign License
ESlave Error :438 : Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'eve.CustomerID' at Line 12 Code: edebug = true evar = setvals Function setVals ' ********************* Datenbank *************************** Set MyConnection = CreateObject ("ADODB.Connection") MyConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HTTP\itxtools.mdb" Set erst = CreateObject("ADODB.Recordset") erst.CursorType = 3 'adOpenStatic erst.LockType = 1 '3 'adlockoptimistic sql = "select * from ensc where bez like '||||SW||Database||Kunden||" & eve.CustomerID & "||" & eve.productid & "||%' and bez not like '||||SW||Database||Kunden||" & eve.CustomerID & "||" & eve.productid & "||%||%'" erst.Open SQL, MyConnection if erst.eof = true then setVals = doerrs: exit function ' ************* Programmname ************** dvar = " " & vbcrlf erst.find "arg='||||SW||Beschreibung||Software||Programm-ID||ProgrammName'" if erst.eof = false then dvar = dvar & ""& erst("wort") & " License/Lizenz :" & eve.productid &"" & vbcrlf :prgname = erst("wort") erst.movefirst dvar = dvar & " Here you can assign your license. Just fill in your registration information. Depending on your license you can choose from three kinds of registration: by MAC-address, by computername or domainname. If you don`t have this information you can use our tool LicInfo-EXE. " & vbcrlf ' ************* Lizensdaten ************** dvar = dvar & " " & vbcrlf do while erst.eof = false myspli =split(erst("arg"),"||") dVar = dvar & " " & myspli(ubound(myspli)) & ": " & vbcrlf dvar = dvar & " " & erst("wort") & "" & vbcrlf erst.movenext loop dvar = dvar & " " & vbcrlf '********** If Assigned ************************ sql = "select * from ensc where bez like '||||SW||Database||Kunden||" & eve.CustomerID & "||" & eve.productid & "||Lizenzierung||%' " erst.close erst.Open SQL, MyConnection erst.find "arg='||||SW||Beschreibung||Software||Programm-ID||Lizenzierung||LizenzDaten'" if erst.eof = false then if erst("memo")<>"" then dvar = " This license is allready assigned! " DVAR = Dvar & " " exit function end if end if '********** Possible Assigments **************** sql = "select * from ensc where bez like '||||SW||Database||Kunden||" & eve.CustomerID & "||" & eve.productid & "||Lizenzierung||Lizenzierungsart||%' " erst.close erst.Open SQL, MyConnection if erst.eof = true then setVals = doerrs: exit function dvar = dvar &" Bind license to: " do while erst.eof = false dvar = dvar & "" & erst("wort") & "" erst.movenext loop dvar = dvar & " " setvals = dvar erst.close myconnection.close set myconnection = nothing set erst = nothing end function Function DoErrs() doerrs ="error in Database please try again!" end function Value: