Hallo,
Ik probeer een ASP-pagina te maken om gegevens uit een access2000 database makkelijk te wijzigen. Ik wil 1 pagina maken voor alle tabellen dus de pagina moet zelf kijken wat voor soort veld het moet worden.
Nu ben ik al een heel eind op weg, maar nu loop ik vast. Ik heb momenteel het volgende:
-----------------------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form>
<table>
<% dim oConn, rs, sql, columnname, colomntype, tabel
tabel = Request.QueryString("tabel")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DBQ=****;DRIVER={Microsoft Access Driver (*.mdb)};PWD=****"
sql = "select * from " & tabel & ""
Response.Write(sql)
set rs = oConn.Execute(sql)
for each kolom in rs.Fields
colomnname = kolom.Name
colomntype = kolom.Type
IF Colomntype = "135" THEN %>
<tr><td><%=colomnname%></td><td><input name="<%=colomnname%>" type="text" value="dd-mm-jjjj"></td></tr>
<% END IF
IF Colomntype = "202" THEN %>
<tr><td><%=colomnname%></td><td><input name="<%=colomnname%>" type="text"></td></tr>
<% END IF
IF Colomntype = "203" THEN %>
<tr><td><%=colomnname%></td><td><textarea name="<%=colomnname%>" rows=""></textarea></td></tr>
<% END IF
IF Colomntype = "3" THEN %>
<tr><td><%=colomnname%></td><td><input name="<%=colomnname%>" type="text" value="numeriek"></td></tr>
<% END IF %>
<% next %>
</table>
</form>
</body>
</html>
-----------------------
Dit werkt goed tot op een zekere hoogte. Kolom.type "3" is voor Access bijvoorbeeld:AutoNumber & Integer Long. Dit betekent dat ik deze niet zo 123 uit elkaar kan halen. Een autonumber hoef ik namelijk niet in te vullen in de database, maar een integer wel natuurlijk.
Ook kan ik niet controleren of de kolom vereist is om in te vullen of niet.
Weet iemand hier een oplossing voor?
Bedankt alvast!
Ik probeer een ASP-pagina te maken om gegevens uit een access2000 database makkelijk te wijzigen. Ik wil 1 pagina maken voor alle tabellen dus de pagina moet zelf kijken wat voor soort veld het moet worden.
Nu ben ik al een heel eind op weg, maar nu loop ik vast. Ik heb momenteel het volgende:
-----------------------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form>
<table>
<% dim oConn, rs, sql, columnname, colomntype, tabel
tabel = Request.QueryString("tabel")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DBQ=****;DRIVER={Microsoft Access Driver (*.mdb)};PWD=****"
sql = "select * from " & tabel & ""
Response.Write(sql)
set rs = oConn.Execute(sql)
for each kolom in rs.Fields
colomnname = kolom.Name
colomntype = kolom.Type
IF Colomntype = "135" THEN %>
<tr><td><%=colomnname%></td><td><input name="<%=colomnname%>" type="text" value="dd-mm-jjjj"></td></tr>
<% END IF
IF Colomntype = "202" THEN %>
<tr><td><%=colomnname%></td><td><input name="<%=colomnname%>" type="text"></td></tr>
<% END IF
IF Colomntype = "203" THEN %>
<tr><td><%=colomnname%></td><td><textarea name="<%=colomnname%>" rows=""></textarea></td></tr>
<% END IF
IF Colomntype = "3" THEN %>
<tr><td><%=colomnname%></td><td><input name="<%=colomnname%>" type="text" value="numeriek"></td></tr>
<% END IF %>
<% next %>
</table>
</form>
</body>
</html>
-----------------------
Dit werkt goed tot op een zekere hoogte. Kolom.type "3" is voor Access bijvoorbeeld:AutoNumber & Integer Long. Dit betekent dat ik deze niet zo 123 uit elkaar kan halen. Een autonumber hoef ik namelijk niet in te vullen in de database, maar een integer wel natuurlijk.
Ook kan ik niet controleren of de kolom vereist is om in te vullen of niet.
Weet iemand hier een oplossing voor?
Bedankt alvast!
/u/89535/crop56f4e5c063de4.png?f=community)
