Notifikationer

Markér alle som læst Log ud

m-kjeldsen Nybegynder

29. januar 2006 - 15:43 Der er 17 kommentarer og
1 løsning

hjælp

<%

Tabelnavn="medlemmer"

Set connect = Server.CreateObject ("ADODB.Connection")
Connect.Open = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:\home\nfknetdk\db\medlem.mdb;"
Set Opdatering=Server.CreateObject("ADODB.Recordset")
Query = "Select * From " & TabelNavn & " "
Opdatering.Open Query, Connect, adOpenStatic

Opdatering.addnew
Opdatering("Medlemsnummer") = Trim(Request.Form("medlemsnummer"))
Opdatering("Navn") = Trim(Request.Form("Navn"))
Opdatering("Adresse") = Trim(Request.Form("Adresse"))
Opdatering("Postnr") = Trim(Request.Form("Postnr"))
Opdatering("By") = Trim(Request.Form("By"))
Opdatering("telefon") = Trim(Request.Form("Telefon"))
Opdatering("mobil") = Trim(Request.Form("mobil"))
Opdatering("mail") = Trim(Request.Form("mail"))
Opdatering("Afdeling") = Trim(Request.Form("Afdeling"))
Opdatering("Hold") = Trim(Request.Form("Hold"))
Opdatering("Indmeldtdato") = Trim(Request.Form("indmeldtdato"))

Opdatering.Update

Else
%>

Jeg bruger ovenstående kode i en side i mit medlemskartotek. Men jeg får følgende fejl:

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, og of the selected locktype.

Hvad gør jeg galt.

Mogens

Synes godt om

lordnelson Seniormester

29. januar 2006 - 18:17 #1

Du amngler at fortælle hvordan den skal låse tabellen bed en update

feks.
Opdatering.Open Query, Connect, adOpenStatic, adLockOptimistic

LN

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 18:28 #2

Hej LN

Når jeg sætter den linie ind, får jeg følgende fejl

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Mogens

Synes godt om

lordnelson Seniormester

29. januar 2006 - 18:42 #3

det er fordi du bruger select

lav det om til

Opdatering.Open " & TabelNavn & "" , Connect, adOpenStatic, adcmdtable

slet
Query = "Select * From " & TabelNavn & " "

Ln

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 18:51 #4

Hjælper ikke

Får stadig samme fejl med konflikt

Synes godt om

lordnelson Seniormester

29. januar 2006 - 18:55 #5

Er du sikker på du har adovbs filen liggende på webstedet?
den skal bruges for at kunne udføre det du gerne vil
og har du den på din webserver skal du huske øverst på siden at
includerer den ala:


har du den ike skal du finde den på din Pc
nemt nok bare søg efter den, tag den og læg den op

Ln

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 19:21 #6

Nu vil siden slet ikke vises.

Så jeg må nok starte helt forfra på en anden måde

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 19:30 #7

har du et forslag?

Synes godt om

lordnelson Seniormester

29. januar 2006 - 19:58 #8

vis hele koden

LN

Synes godt om

lordnelson Seniormester

29. januar 2006 - 19:59 #9

Melder den ingen fejl ?
for hvis du skriver


og den ikke ligger der er der selvfølgelig fejl

LN

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 20:18 #10

Du får lige hele koden her:

Håber at du kan finde fejlen

-------------------

<%@ language = "VBScript" %>
<% Option Explicit%>


<% Session.LCID=1030 %>

<link href="main_css.css" type="text/css" rel="stylesheet">

<HTML>
<HEAD>

<TITLE>Indtast medlem</TITLE>

<META NAME="Author" CONTENT="Mogens Kjeldsen">
<META NAME="Reply-to" CONTENT="mpk@nfknet.dk">

<%

Dim rsSave

'Creating the Recordset Object
Set rsSave = Server.CreateObject("ADODB.RecordSet")

'Creating a DSN-Less connection to your Database
strDSN = "Conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:\home\nfknetdk\db\medlem.mdb;")

rsSave.open "medlemmer", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rsSave.addnew

rsSave("Medlemsnummer") = request.form("Medlemsnummer")
rsSave("Navn") = request.form("Navn")
rsSave("Adresse") = request.form("Adresse")
rsSave("Postnr") = request.form("Postnr")
rsSave("By") = request.form("By")
rsSave("Telefon") = request.form("Telefon")
rsSave("Mobil") = request.form("Mobil")
rsSave("mail") = request.form("mail")
rsSave("Afdeling") = request.form("Afdeling")
rsSave("Hold") = request.form("Hold")
rsSave("Indmelddato") = request.form("indmelddato")

rsSave.update

Else
%>

<BODY>
<table cellspacing="0" border="0" cellpadding="5" width="70%" height="100%">
<tr>

<td colspan="4" height="20" align="center"><font size="2" face="arial" color="black">
<b>Indtast data og klik på "Send"</b>
</td>
</tr>

<form action="side_ind.asp" method="post">

<tr>
<td>
<font size="2" face="arial">Medlemsnummer:</font>
<TD>

<td align="right">
<input name="Medlemsnummer" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Navn:</font>
<TD>

<td align="right">
<input name="Navn" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Adresse:</font>
<TD>

<td align="right">
<input name="Adresse" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Postnr:</font>
<TD>

<td align="right">
<input name="Postnr" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">By:</font>
<TD>

<td align="right">
<input name="By" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Telefon:</font>
<TD>

<td align="right">
<input name="Telefon" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Mobil:</font>
<TD>

<td align="right">
<input name="mobil" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">E-mail:</font>
<TD>

<td align="right">
<input name="mail" type="text" size="30">
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Afdeling:</font>
<TD>

<td align="right">
<select name="Afdeling">
<option value="Vælg selected"><b>----------- Vælg Afdeling -----------</b>
<option value="Ungdom">Ungdom
<option value="Damer">Damer
<option value="Senior/Oldboys">Senior/Oldboys
<option value="Stavgang">Stavgang
<option value="Motion">Motion
<option value="Passiv">Passiv
<option value="Bestyrelse">Bestyrelse
</select>
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Hold:</font>
<TD>

<td align="right">
<select name="Hold">
<option value="Vælg selected"><b>----------- Vælg Holdnavn ---------</b>
<option value="Micro">Micro
<option value="Pusling">Pusling
<option value="Miniput">Miniput
<option value="Lilleput">Lilleput
<option value="Drenge">Drenge
<option value="Damer">Damer
<option value="Serie-5">Serie-5
<option value="OldBoys">Old-Boys
<option value="Bestyrelse">Bestyrelse
</select>
</td>
</tr>

<tr>
<td>
<font size="2" face="arial">Indmeldt dato:</font>
<TD>

<td align="right">
<input name="indmeldtdato" type="text" size="30">
</td>
</tr>

<tr>

<tr>
<td colspan="4">
<div align="right"><input type="submit" value="Send"></div>
</td>
</tr>

<tr>
<TD> </td>
</tr>

</form>
</table>
<%End If%>

</BODY>
</HTML>

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 20:24 #11

Jeg har selv rettet et par steder:

Her er ny asp-kode

-------------------------

<%

Dim rsSave

If Request.ServerVariables ("Content_Length") <> 0 Then

'Creating the Recordset Object
Set rsSave = Server.CreateObject("ADODB.RecordSet")

'Creating a DSN-Less connection to your Database
strDSN = "Conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:\home\nfknetdk\db\medlem.mdb;")

rsSave.open "medlemmer", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rsSave.addnew

rsSave("Medlemsnummer") = request.form("Medlemsnummer")
rsSave("Navn") = request.form("Navn")
rsSave("Adresse") = request.form("Adresse")
rsSave("Postnr") = request.form("Postnr")
rsSave("By") = request.form("By")
rsSave("Telefon") = request.form("Telefon")
rsSave("Mobil") = request.form("Mobil")
rsSave("mail") = request.form("mail")
rsSave("Afdeling") = request.form("Afdeling")
rsSave("Hold") = request.form("Hold")
rsSave("Indmelddato") = date

rsSave.update

Else
%>

Synes godt om

lordnelson Seniormester

29. januar 2006 - 20:31 #12

Hvad sker der når du kører filen?
Kan du ikke se fejlen skal du gå ind i din Ie
Funktioner(instillinger/avanceret og fjerne fluebenet i
"Vis meddelelser om uskadelige HTTPfejl"

Ln
skriv fejlen her

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 20:48 #13

Prøv at se på dette link

www.nfknet.dk/admin

brugernavn/Adgangskode = admin/admin

Klik så på "tilføj, ret og slet medmem
klik så på til nyt medlem

Synes godt om

lordnelson Seniormester

29. januar 2006 - 20:54 #14

nå du har bruger
<% Option Explicit%>

Det vile sige du skal navngive alle dine variabler

Med Dim
feks.
dim strDSN, rsSave
Ln

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 21:01 #15

nu kan jeg godt komme helt over i side_ind. men når jeg klikker send kommer der fejl

siden kan ikke vises

http 500 - intern serverfejl

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 21:26 #16

nu virker det. kan du ikke sende noget som svar så du kan få point

tak

Mogens

Synes godt om

lordnelson Seniormester

29. januar 2006 - 22:11 #17

glaf for at kunne hjælpe
skulle det være en anden gang

LN

Synes godt om

m-kjeldsen Nybegynder

29. januar 2006 - 22:28 #18

Tak - jeg vender måske tilbage

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS