ASP.NET – oprava firemního intranetu

Zdravím, mám problém ohledně našeho intranetu, kde jsou jména a kontakty pracovníku, je to dělaný v ASP.NET, nikdy jsme v tom nedělal,ale našel jsem jednu chybu, chtěl jsem upravit jeden údaj u človeku, ale po upravě potvrdím změnu a vyskočí na mě tohle: Microsoft OLE DB Provider for SQL Server chyba 80040e10' Procedure 'VUBP_Os_EDIT' expects parameter '@OsobniCislo', which was not supplied. /vubp_central/admin_edit_os_submit.asp, line 39 Nevím kde přesně mám hledat chybu, v kódu se zdá být všechno v pohodě, už se s tím nějakou zabejvám. Budu rád za jakýkoliv rady který mi pomůžou.

SQL dotaz (procedura) očekává parametr @OsobniCislo, ale ten mu nebyl předán.Jinak toto vypadá na staré ASP což není ASP.NET! Neplést :-)

Přesně tak. Buďto se ten parametr neplní, nebo se jmenuje jinak. To číslo řádku 39 je vlastní volání procedury, problém bude o několik řádek výš.

Jo je to ASP 1.1, to se omlouvám, moc to zatím neznám. Díky kouknu na to.---------- Příspěvek doplněn 25.02.2014 v 11:02 ----------Tak to vypadá ta procedura, ale nevím co mám změnit... <% @ language="vbscript" %> <% option explicit %> <% response.expires=0 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol="private" Response.AddHeader "pragma", "no-cache" %> <% dim cn, cm, rs_pom open_db "VUBPcentral", cn set cm=server.createObject("ADODB.command") cm.activeConnection=cn cm.commandType=adCmdStoredProc cm.commandText="VUBP_Os_EDIT" cm.parameters.append cm.createParameter("osId", adInteger, adParamInput, , request.form("osId")) cm.parameters.append cm.createParameter("misId", adInteger, adParamInput, , request.form("mistnost")) cm.parameters.append cm.createParameter("fceOdd", adInteger, adParamInput, , request.form("oddeleni_funkce")) cm.parameters.append cm.createParameter("oddId", adInteger, adParamInput, , request.form("oddeleni")) cm.parameters.append cm.createParameter("os_cis", adInteger, adParamInput, , request.form("os_cislo")) cm.parameters.append cm.createParameter("titul_pred", adVarChar, adParamInput, 20, request.form("titul_pred")) cm.parameters.append cm.createParameter("jmeno", adVarChar, adParamInput, 30, request.form("jmeno")) cm.parameters.append cm.createParameter("druhe_jmeno", adVarChar, adParamInput, 30, request.form("druhe_jmeno")) cm.parameters.append cm.createParameter("prijmeni", adVarChar, adParamInput, 30, request.form("prijmeni")) cm.parameters.append cm.createParameter("titul_za", adVarChar, adParamInput, 20, request.form("titul_za")) cm.parameters.append cm.createParameter("email", adVarChar, adParamInput, 30, request.form("email")) cm.parameters.append cm.createParameter("foto", adVarChar, adParamInput, 50, request.form("foto")) cm.parameters.append cm.createParameter("zivotopis", adVarChar, adParamInput, 2000, request.form("zivotopis")) cm.parameters.append cm.createParameter("utvar", adInteger, adParamInput, , request.form("utvar")) cm.parameters.append cm.createParameter("fceUtvar", adInteger, adParamInput, , request.form("utvar_funkce")) cm.parameters.append cm.createParameter("hubId", adInteger, adParamInput, , request.form("hub")) cm.execute cn.close response.redirect "osoby.asp" %>

V asp skriptu se ti ten parametr jmenuje os_cis :cm.parameters.append cm.createParameter("os_cis", adInteger, adParamInputzatímco v uložené proceduře v databázi se jmenuje OsobniCislo. Tak jeden nebo druhý konec musíš změnit.

Tak jsem řádek upravil takto:cm.parameters.append cm.createParameter("OsobniCislo", adInteger, adParamInput, , request.form("os_cislo"))Ale furt ta samá chyba ...

A v tom request.form("os_cislo") máš nějakou hodnotu?

Dalsia moznost. request.form("os_cislo") ti vracia nejaku hodnotu ? Skus namiesto toho nacitavania parametru dat mu dat priamo nejake cislo. Nieco v takomto vyzname. cm.parameters.append cm.createParameter("OsobniCislo", adInteger, adParamInput, , 125) Nevime ci tam mozes dat priamo hodnotu alebo to musis naplnat cez premennu. Skusil by som to nejako takto.

V tomhle jsem úplně jalovej jsem spíše síťař, doplnil jsem tma 125 a furt ot samé zde posílám jeste nějaký zdrojáky..<% @ language="vbscript" %><% option explicit %><%dim cn, rs_osopen_db "VUBPcentral", cnrun_sql "SELECT osobaID AS id, OsobniCislo, TitulPredJmenem, Jmeno, DruheJmeno, Prijmeni, TitulZaJmenem, funkce_oddeleni, funkce_oddeleni_id, mistnostID, mistnostCislo, mistnostNazev, oddeleniZkratka, oddeleniNazev, odd_detail_nazev, odd_detail_zkratka, odd_detail_funkce FROM osoby_all ORDER BY Prijmeni", rs_os, 0, 0%>Seznam zaměstnanců VÚBP

>> vložit novou osobu


<%do while not rs_os.eof response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write ""response.write "" '  upravit response.write "" & vbNewLine rs_os.moveNextloop%>

Titul	Příjmení, Jméno	Telefoní číslo	Oddělení	Název oddělení	Přímá linka
" & rs_os("titulPredJmenem") & "	" & trim(rs_os("prijmeni")) & ", " & rs_os("jmeno") & " " & rs_os("druheJmeno") & " " & rs_os("titulZaJmenem") & "	" & rs_os("mistnostCislo") & " " & rs_os("mistnostNazev") & "	" if rs_os("funkce_oddeleni_id")<>5 then 'pokud neni radovy zamestnanec response.write rs_os("funkce_oddeleni")& " " end if response.write rs_os("oddeleniZkratka") response.write "	" & rs_os("oddeleniNazev") & "	" response.write rs_os("odd_detail_nazev") if trim(rs_os("odd_detail_zkratka"))<>"" then response.write " (" & rs_os("odd_detail_zkratka") & ") - " & rs_os("odd_detail_funkce") end if response.write "	odstranit

<% set rs_os=nothing %><% cn.close %>----- druhej zdroják -----<% @ language="vbscript" %><% option explicit %><%dim cn, rs_pom, rs_os, rs_huby_all, txtopen_db "VUBPcentral", cnrun_sql "select osobaID, osobniCislo, titulPredJmenem, titulZaJmenem, jmeno, druheJmeno, prijmeni, email, foto_adresa, mistnostId, mistnostCislo, mistnostNazev, oddeleniId, oddeleniNazev, oddeleniZkratka, funkce_oddeleni_id, d_funkceId, detailId, zivotopis, hubId from osoby_all where osobaId=" & request("id"), rs_os, 0, 0%>

upravit záznam osoby

		životopis <% =trim(rs_os("zivotopis")) %>
titul před jménem	" maxlength=20>
titul za jménem	" maxlength=20>
jméno	" maxlength=30>
druhé jméno	" maxlength=30>
příjmení	" maxlength=30>
e-mail	" maxlength=30 size=40>
místnost	<% run_sql "select mistnostId, nazev, cislo from tMistnosti order by cislo", rs_pom, 0, 0 txt="" do while not rs_pom.eof if rs_os("mistnostId")=rs_pom("mistnostId") then txt=" selected" else txt="" end if response.write "č. " & rs_pom("cislo") & " " & rs_pom("nazev") rs_pom.moveNext loop set rs_pom=nothing %>
připojen na hub	není připojen na žádný HUB <% run_sql "select hubId, hubTyp, pozn from thuby order by hubId", rs_huby_all, 0, 0 do while not rs_huby_all.eof if rs_os("hubId")=rs_huby_all("hubId") then txt=" selected" else txt="" end if response.write "" & rs_huby_all("hubTyp") & " - " & rs_huby_all("pozn") & " (ID " & rs_huby_all("hubId") & ")" rs_huby_all.moveNext loop %>
oddělení	<% run_sql "select oddeleniId, nazev, zkratka from tOddeleni order by zkratka", rs_pom, 0, 0 txt="" do while not rs_pom.eof if rs_os("oddeleniId")=rs_pom("oddeleniId") then txt=" selected" else txt="" end if response.write "" & rs_pom("zkratka") & " (" & rs_pom("nazev") & ")" rs_pom.moveNext loop set rs_pom=nothing %>
funkce v oddělení	<% run_sql "select funkceId, nazevFunkce from tFunkce where funkceId<>6 order by nazevFunkce", rs_pom, 0, 0 txt="" do while not rs_pom.eof if rs_os("funkce_oddeleni_id")=rs_pom("funkceId") then txt=" selected" else txt="" end if response.write "" & rs_pom("nazevFunkce") rs_pom.moveNext loop set rs_pom=nothing %>
útvar - služba	<% run_sql "select detailId, nazev from tOddeleniDetails order by nazev", rs_pom, 0, 0 txt="" do while not rs_pom.eof if rs_os("detailId")=rs_pom("detailId") then txt=" selected" else txt="" end if response.write "" & rs_pom("nazev") rs_pom.moveNext loop set rs_pom=nothing %>
">

<% set rs_os=nothing %><% cn.close %>