Dan formular ud fra felter i database

Field-objektet har en egenskab der hedder Type. Den kan oplyse hvilken type der er tale om og derfra kan du generere feltet på skærmen. Derudover kan du gennemløbe alle felter i dit udtræk, f.eks. ved at udføre

set conn = Server.CreateObject("ADODB.Connection")
conn.open dinConnectionStringSomJegIkkeKender

SQL = "SELECT TOP 1 * FROM tabel"
set rs = conn.execute(SQL)
for each col in rs.fields
  select case col.type
    case 7 ' adDate
      response.write "<input type=""text""><input type=""button"" value=""..."">"

    case 200 ' adVarChar
      response.write "<input type=""text"">"

    case 11 ' adBoolean
      response.write "<input type=""checkbox"">"
  end select
next
rs.close
conn.close


Dette er nogenlunde strukturen, så kan du muligvis se hvad der skal gøres for at udvide med flere typer og mere information på hvert enkelt felt...

Se evt. her http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdcstdatatypeenum.asp for flere ADO datatyper...

Du kunne f.eks. for memo-felter indsætte et textarea i stedet for en input type="text". Jeg vil tro memo-felter har typen: adLongVarChar.

Er det ikke muligt at putte det ind i en grid - så jeg har lidt mere "styr" over det?

Tænker du på opstillingen af felterne i browseren, altså i en tabel eller sådan noget?

Hvis ja, så kunne det f.eks. gøres sådan:

set conn = Server.CreateObject("ADODB.Connection")
conn.open dinConnectionStringSomJegIkkeKender

response.write "<table>"
SQL = "SELECT TOP 1 * FROM tabel"
set rs = conn.execute(SQL)
for each col in rs.fields
  select case col.type
    case 7 ' adDate
      response.write "<tr><td>"
      response.write col.name
      response.write "</td></tr>"
      response.write "<tr><td>"
      response.write "<input type=""text""><input type=""button"" value=""..."">"
      response.write "</td></tr>"

    case 200 ' adVarChar
      response.write "<tr><td>"
      response.write col.name
      response.write "</td></tr>"
      response.write "<tr><td>"
      response.write "<input type=""text"">"
      response.write "</td></tr>"

    case 11 ' adBoolean
      response.write "<tr><td>"
      response.write col.name
      response.write "</td></tr>"
      response.write "<tr><td>"
      response.write "<input type=""checkbox"">"
      response.write "</td></tr>"
  end select
next
rs.close
conn.close
response.write "</table>"

Nu er min tid ved at slippe op. Kikker på det i morgen tidlig og vender tilbage.

/Plaf

CRAP! Det er jo .NET :D

Det havde jeg ikke lige set. Dog tror jeg stadig princippet fungerer, men der skal sikkert bruges en noget anderledes notation - sorry!

Ja - det er jo det, det er.... ;o)

/Plaf

Lukker og slukker