Databaseopdatering

www.aspadmin.dk er skabt til netop det formål :)

Bruger selv http://www.hotscripts.com/Detailed/8044.html .. Selvom det ser ud til at siden er nede lige nu.. Er meget meget god.. ;o)

netsrac -> Hvordan skal den sættes op?? Skal den ligge i samme bibliotek som databaserne?? Og skal man bruge den til at uploade databaserne med for at man kan bruge den??

dth >> Du placerer den blot i en mappe på din server, ligegyldigt hvilken, så fungerer den som en stifinder på serveren.

Ok prøver...

Det funker ikke helt, kan det være fordi nogle af felterne er tomme??

Får du en fejl ?

Den skriver en fejl i en af felterne i tabellen... Øjeblik så skal jeg se...

Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'htmlencode\'

/Admin/access/tabelopen.asp, line 47

Hm...det burde da ikke give en fejl.

Nej, det lyder mærkeligt... Det kan være jeg skal prøve at sende en mail til ham der har lavet den... Men bortset fra det er det et meget godt program...

*he he* Det er mig der har lavet den.

Hehe... Jamen det er et fedt program.... Kan du så ikke fortælle mig hvad der i vejen??? *SS* Har en fejlkode mere...

ADODB.Recordset error \'800a0cc1\'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/Admin/access/tabelopen.asp, line 44


Men det kan være jeg skulle prøve at downloade hele pakken og ikke kun access-delen...

Om du downloader hele pakken gør igen forskel. Har du nogle specielle ting i din database ? Såsom blob felter eller sådan noget ?

Hvad er blobfelter?? Jeg har ikke lavet noget specielt ved databasen....

Hm...det ved jeg ikke så, det er lang tid siden jeg har lavet systemet og jeg har ikke rigtig tid til at tage det op igen.

OK.... Men jeg tror altså det er fordi feltet er tomt...

Det kunne tænkes.

jeg har haft samme problem og det er fordi feltet er tomt, derfor har jeg lagt lidt extra på din kode \"netsrac\" ::



<!-- #include file=\"../acces.asp\" -->
<%
if request.cookies(\"dbtoadmin\") = \"\" then
response.redirect(\"default.asp\")
else
dbtoadmin = request.cookies(\"dbtoadmin\")
tabel = request.querystring(\"tabel\")
if tabel = \"\" then
response.redirect(\"dbtabels.asp\")
end if
%>
<html>
<head>
<title>ASPAdmin</title>
</head>
<BODY BGCOLOR=\"FFFFFF\" LINK=\"000000\" ALINK=\"000000\" VLINK=\"000000\" TEXT=\"000000\">
<TABLE BORDER=\"0\" WIDTH=\"90%\" CELLPADDING=\"2\" CELLSPACING=\"0\">
<TR><TD BGCOLOR=\"#000040\"><FONT FACE=\"Tahoma\" SIZE=\"4\" COLOR=\"#FFFFFF\">ASPAdmin - Access Manager</FONT></TD></TR>
<TR><TD BGCOLOR=\"#999999\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">
Aktuel Database: <% =dbtoadmin %></font> - <a href=\"default.asp\"><FONT FACE=\"Tahoma\" COLOR=\"#0000cc\" size=\"2\">&Aring;ben anden Databasen</FONT></A><br>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">
Aktuel Tabel: <% =tabel %> - <a href=\"dbtabels.asp\"><FONT FACE=\"Tahoma\" COLOR=\"#0000cc\" size=\"2\">Vis alle tabeller</FONT></A><br>
Hj&aelig;lp:<br>
<FONT COLOR=\"#0000cc\">S</FONT> --&gt; Slet Record<BR>
<FONT COLOR=\"#0000cc\">R</FONT> --&gt; Rediger Record<BR>
</FONT></TD></TR>
</TABLE><P>
<TABLE BORDER=\"1\" WIDTH=\"600\" BORDERCOLOR=\"000000\" CELLPADDING=\"2\" CELLSPACING=\"0\">
<TR>
<%
    Set conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & dbtoadmin
    set rs = Conn.Execute(\"Select * from \" & tabel) %>
    <TD BGCOLOR=\"999999\" WIDTH=\"10\">&nbsp;</TD><TD BGCOLOR=\"999999\" WIDTH=\"10\">&nbsp;</TD>
<%    For each head IN rs.Fields
if head.type = \"3\" and head.Attributes = \"16\" and rs.eof <> true then
data1 = head.name
end if
%>
    <TD BGCOLOR=\"999999\"><FONT FACE=\"Tahoma\" COLOR=\"FFFFFF\" SIZE=\"2\"><% =head.name %></FONT></TD>
<%     Next %>
</TR>
<%    Do until rs.eof %>
<TR><TD VALIGN=\"top\"><A HREF=\"recorddelete.asp?tabel=<%=tabel%>&iden=<%=data1%>&id=<%=rs(data1)%>\"><FONT FACE=\"Tahoma\" COLOR=\"0000CC\" SIZE=\"2\">S</FONT></A></TD>
<TD VALIGN=\"top\"><A HREF=\"recordedit.asp?tabel=<%=tabel%>&iden=<%=data1%>&id=<%=rs(data1)%>\"><FONT FACE=\"Tahoma\" COLOR=\"0000CC\" SIZE=\"2\">R</FONT></A></TD>
<%    For each head in rs.Fields
jeps = head.value
%>
<TD VALIGN=\"top\"><FONT FACE=\"Tahoma\" SIZE=\"2\"><% If len(jeps) > 1 then response.write server.htmlencode(jeps) end if %>&nbsp;</FONT></TD>
<%    Next %>
</TR>
<%
    rs.movenext   
    loop
  conn.Close
    Set conn = nothing
    set rs = nothing
%>
</TABLE>
<TABLE BORDER=\"0\" WIDTH=\"90%\"><TR><TD BGCOLOR=\"#000040\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\"><A HREF=\"http://www.aspadmin.dk\" TARGET=\"_blank\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">ASPAdmin</FONT></A> er udviklet af </FONT><A HREF=\"http://www.cnh.dk\" TARGET=\"_blank\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">http://www.cnh.dk</FONT></A></TD></TR></TABLE>
</body>
<% end if %>


_________________________________
gem denne fil som tabelopen.asp og det vil virke

og mange tak for sådan et lækkert system Netsrac, jeg får/har meget brug for dette, specielt til MySQL databasen.

Her er et andet godt database edition program, det ser meget godt ud, man kan gøre næsten ALT det nødvendige som man også kan i selve programmet: access.

http://www.jhradio-comm.dk/tedb/

for en demo, så må i selv finde vejen til at downloade....



PS: Jeg har kun prøvet systemets demo.

Nu virker det.... Tak til alle.....

Hvordan tilføjer man et nyt recordset til en tabel??