I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg tror godt du kan være mere "direkte". Det er ikke vist ikke et krav at, du opretter parameter objecter. feks. burde du kunne anvende følgende: sub Userexists With conn .ActiveConnection = Conn2 .CommandText = "Usp_S_ValidateUser" .CommandType = 4 'adCmdStoredProc End With Conn.Parameters("@User_Name").Value = Brugernavn Conn.Parameters("@User_Email").Value = Email conn.Execute intOK = conn.Parameters("@OK").Value response.write intOk set activeconnection = nothing set conn = nothing end sub
Lidt simplere at se på !
(btw - det er lidt forvirende at du navngiver dit command object Conn :-))
Jeg mener egentlig også at du kan være endnu mere direkte (du må lige prøve den selv - ikke helt sikker på parameter rækkefølgen - den er vigtig her)
sub Userexists With conn .ActiveConnection = Conn2 .CommandText = "Usp_S_ValidateUser" .CommandType = 4 'adCmdStoredProc End With dim ArrayParm 'check rækkefølgen af parametre ArrayParm=array(Brugernavn,Email,intOK) conn.Execute(ArrayParm) response.write intOk set activeconnection = nothing set conn = nothing end sub
Kan ikke få output parameteret til at virke på løsningen.
Men den her virker så er det bare spørgsmålet om det er en god måde at gøre det på.
Skal man bruge activeconnection når man skal have et output parameter?.
Hvad er fordelen ved activeconnection?.
sub Userexists With command .ActiveConnection = strconnect .CommandText = "Usp_S_ValidateUser" .CommandType = 4 'adCmdStoredProc 'Fortæller sp hvad for data den venter (Name,Type.Direction,size) .Parameters.Append .CreateParameter ("@Exists",2,4,1) .Parameters.Append .CreateParameter ("@User_Username",129,1,10) .Parameters.Append .CreateParameter ("@User_Email",129,1,50) .Parameters("@User_Username") = Brugernavn .parameters("@User_Email") = Email .Execute End With intOK = command.Parameters("@Exists").Value response.write intOk set activeconnection = nothing set conn = nothing end sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.