---
title: "Få fram size på fältet"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56259-få-fram-size-på-fältet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "brw"
published: "2002-10-17T06:24:03.000Z"
updated: "2002-10-17T12:46:57.000Z"
replies: 5
views: 323
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/56259-få-fram-size-på-fältet"
---

# Få fram size på fältet

## #1 — brw, 2002-10-17T06:24Z

Jag har följande kod för att ta fram fältnamn och datatyp från databasen... men när det är VarChar (SQL-server) eller Text (Access) så skulle jag även vilja få fram teckenlängd på datafältet... Går detta på något vis?

```
Set RS = Conn.OpenSchema(22)

Dim arrData(14, 1)

cLoop = 0
Do Until RS.EOF
	If Not IsEmpty(RS("Type_Name")) Then
		arrData(cLoop, 0) = RS("Type_Name")
		arrData(cLoop, 1) = RS("Data_Type")
		cLoop = cLoop + 1
	End If
RS.MoveNext
Loop
```

Permalänk: https://www.webforum.nu/p/56259

## #2 — LarsG, 2002-10-17T07:44Z

```
maxlen = rs("COLUMN_SIZE")
```

Permalänk: https://www.webforum.nu/p/825783

## #3 — brw, 2002-10-17T08:44Z

Hmm jag får det inte att fungera... här är hela koden... men det verkar inte som om den använder openschema

Det verkar som om den bara plockar ut från denna: For Each Item In RS.Fields 

Hur ska jag få med storleken på fältet på varje kolumn som är text?

```
<% Response.Buffer = True %>

<!--#include file="dbpath/db_path.asp"-->

<%
Tabell = Request.QueryString("Tabell")

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath

If Request.Form("Func") = "Update" Then

Tabell = Request.Form("Tabell")

SQLStmt = "Alter Table "& Tabell &" " 

'Falt0 Falt1 VARCHAR (50) DEFAULT '0' not null "
cLoop = 0
For Each Item In Request.Form
	If Item <> "Tabell" And Item <> "Func" And Left(Item, 3) = "Old" Then
		cLoop = cLoop + 1
		NewShit = "New_" & Request.Form(Item)
		DataTyp = "DataTyp_" & Request.Form(Item)
		SQLStmt = SQLStmt & "Modify (" & Request.Form(Item) & " " & Request.Form(NewShit) & " " & Request.Form(DataTyp) & " NULL), "
	End If
Next

SQLStmt = Left(SQLStmt, Len(SQLStmt) -2) & ""

Response.Write SQLStmt
On error resume next
Conn.Execute(SQLStmt)

Else

SQLStmt = "Select * From "& Tabell 
Set RS = Conn.Execute(SQLStmt)

Set RSTypes = Conn.OpenSchema(22)

Dim arrData(14, 1)

cLoop = 0
Do Until RSTypes.EOF
	If Not IsEmpty(RSTypes("Type_Name")) Then
		arrData(cLoop, 0) = RSTypes("Type_Name")
		arrData(cLoop, 1) = RSTypes("DATA_TYPE")
		arrData(cLoop, 1) = RSTypes("Column_Size")
		cLoop = cLoop + 1
	End If
RSTypes.MoveNext
Loop

Set RSTypes = Nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link REL="STYLESHEET" HREF="style/huvudstyle.css" TYPE="TEXT/CSS">
</HEAD>
<BODY BgColor="#FFFFFF" Text="#000000">

<table width="610" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="5">&nbsp;</td>
    <td width="600"><em class="b">Inställningar &raquo; Tabelladmin &raquo; <u><%=tabell%></u><br><br></em><em>

<a href="Tabell_AddField.asp?Tabell=<%= Tabell%>"><Img Src="Bilder/Create_Table.gif" Border=0>&nbsp;Skapa nytt fält</a>
<br><br>
</em>
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="35%" bgcolor="#000000"><em class="mw">Fältnamn</em></td>
          <td width="47%" bgcolor="#000000"><em class="mw">Datatyp</em></td>
          <td width="9%" bgcolor="#000000"><p align="center"><em class="mw">Ändra</em></p></td>
          <td width="9%" bgcolor="#000000"><p align="center"><em class="mw">Ta bort</em></p></td>
        </tr>
<%
tcolor = "#cccccc" 

For Each Item In RS.Fields 

counter = counter + 1
If counter Mod 2 = 0 then
  color = tcolor
Else
  color = "#ffffff"
End If

If item.type = "202" Then
  typ = "Text"
  typ2 = "VarChar"
ElseIf item.type = "203" Then
  typ = "PM"
  typ2 = "LongText"
ElseIf item.type = "7" Then
  typ = "Datum/Tid"
  typ2 = "DateTime"
ElseIf item.type = "3" Then
  typ = "Tal"
  typ2 = "Long"
End If
%>
<tr>
          <td width="35%" bgcolor="<%=color%>" valign="top"><em><%=item.name%><%%></em></td>
          <td width="47%" bgcolor="<%=color%>" valign="top"><em><%=typ%></em></td>
          <td width="9%" bgcolor="<%=color%>" valign="top"><p align="center"><a href="tabell_editfield.asp?field=<%=item.name%>&datatyp=<%=typ2%>&null=NULL&tabell=<%=tabell%>"><img src="../images/icons/redigera.gif" width="17" height="16" border="0"></a></td>
          <td width="9%" bgcolor="<%=color%>" valign="top"><p align="center"><em><a href="#" OnClick="DeletePost('<%= Tabell%>', '<%= Item.Name%>')"><img src="../images/icons/radera.gif" alt="Ta bort" width="14" height="16" border="0"></a></em></td>
</tr>
<% Next %>
		
</Table>

		<br><br>

<a href="Tabell.asp?Tabell=<%= Tabell%>"><<-- Återgå</a>
	</b></font>

<Script Language="Javascript">
function DeletePost(Tabell, Field)
{
	if(confirm("Är du säker på att du vill ta bort fältet \"" + Field + "\"?"))
		location.href = "Tabell_DeleteField.asp?Tabell=" + Tabell + "&Field=" + Field;
}
</Script>

<% 
Conn.Close
Set Conn = Nothing
Set RS = Nothing
%>

<% End If %>
```

Permalänk: https://www.webforum.nu/p/825829

## #4 — brw, 2002-10-17T10:32Z

Hur ska jag veta vilken post som jag får information från när jag använder denna: Set RSTypes = Conn.OpenSchema(22)

i ovanstående kod alltså?

Permalänk: https://www.webforum.nu/p/825880

## #5 — LarsG, 2002-10-17T10:48Z

22 innebär att du hämtar generell information om vilka typer som databasen kan hantera. Det har inget med en specifik tabell att göra.

Det är 4 du bör använda

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/oledb/htm/oledbcolumns_rowset.asp>

Permalänk: https://www.webforum.nu/p/825890

## #6 — brw, 2002-10-17T12:46Z

:q 
jag vet inte riktigt hur jag ska använda den i det här fallet men får du tid över.. får du gärna ge mig ett kodförslag utifrån den kod som jag bifogade så ser du jag tänkt...  det ska alltså läggas till en kolumn i tabellen som heter size och på dom som är text eller varchar ska det då visas max teckenlängd på den kolumnen..

 :h

Permalänk: https://www.webforum.nu/p/825981

---

Tråden på webben: https://www.webforum.nu/amne/asp/56259-få-fram-size-på-fältet