---

Kan nogen fuldende nedenstående, så længden på hvert enkelt felt kan
udledes?

RS.open tabel, Conn, 3, 3
For t = 0 to RS.fields.count - 1
feltNavn = RS(t).Name
feltType = RS(t).Type
feltLgd = ?????????
Next
RS.Close

Med venlig hilsen

Ole Dalsgaard Jensen
mailto:ole.dalsgaard@mail1.stofanet.dk

---

> Kan nogen fuldende nedenstående, så længden på hvert enkelt felt kan
> udledes?
>
> RS.open tabel, Conn, 3, 3
> For t = 0 to RS.fields.count - 1
> feltNavn = RS(t).Name
> feltType = RS(t).Type
> feltLgd = ?????????
> Next
> RS.Close
>

Hvad med følgende (ikke afprøvet):

RS.open tabel, Conn, 3, 3
For t = 0 to RS.fields.count - 1
feltNavn = RS(t).Name
feltType = RS(t).Type
LgdFeltNavn = Len(RS(t).Name)
LgdFeltType = Len(RS(t).Type)
Next
RS.Close


/Kasper K

---

On Mon, 21 Jan 2002 16:44:39 +0100, "Ole Dalsgaard Jensen"
<ole.dalsgaard@mail1.stofanet.dk> wrote:

>Kan nogen fuldende nedenstående, så længden på hvert enkelt felt kan
>udledes?
>
> RS.open tabel, Conn, 3, 3
> For t = 0 to RS.fields.count - 1
> feltNavn = RS(t).Name
> feltType = RS(t).Type
> feltLgd = ?????????

If IsNull(RS(t)) Then
feltLgd = 0
Else
feltLgd = Len(CStr(RS(t)))
End If

> Next
>RS.Close

Good luck,
Jørn

---

Tak til Kasper og Jørn for jeres forslag.

Til Kasper, som foreslog LgdFeltType = Len(RS(t).Type):
RS(t).Type kan f.eks. være:
3 = Autonummer
5 = Numerisk
135 = Dato
202 = Tekst
203 = Notat
Len(RS(t).Type) vil i så fald give hhv. 1, 1, 3, 3, 3
så den går ikke.

Til Jørn, som foreslog:
If IsNull(RS(t)) Then
feltLgd = 0
Else
feltLgd = Len(CStr(RS(t)))
End If

Det er godt nok, når det gælder længden på felt-værdien for den enkelte
record.
Det jeg er ude efter er den max-længde, der er defineret for feltet i
tabellen.
Det skumle formål er at kunne lave en dynamisk indtastningsformular, som kan
bruges for en vilkårlig tabel,
således at jeg i '<input' kan sætte hvert indtastningsfelts 'maxlength' til
tabel-feltets max-længde.

mvh. Ole

Ole Dalsgaard Jensen <ole.dalsgaard@mail1.stofanet.dk> skrev i en
nyhedsmeddelelse:3c4c37ab$0$269$ba624c82@nntp02.dk.telia.net...
> Kan nogen fuldende nedenstående, så længden på hvert enkelt felt kan
> udledes?
>
> RS.open tabel, Conn, 3, 3
> For t = 0 to RS.fields.count - 1
> feltNavn = RS(t).Name
> feltType = RS(t).Type
> feltLgd = ?????????
> Next
> RS.Close
>
> Med venlig hilsen
>
> Ole Dalsgaard Jensen
> mailto:ole.dalsgaard@mail1.stofanet.dk
>
>
>

---

"Ole Dalsgaard Jensen" <ole.dalsgaard@mail1.stofanet.dk> wrote:

>Kan nogen fuldende nedenstående, så længden på hvert enkelt felt kan
>udledes?
>
> RS.open tabel, Conn, 3, 3
> For t = 0 to RS.fields.count - 1
> feltNavn = RS(t).Name
> feltType = RS(t).Type
> feltLgd = ?????????
   feltLgd = RS(t).DefinedSize
> Next
>RS.Close
>

Se evt. mere på
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdprodefinedsize.asp

---

Tak for hjælpen Bo
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/
mdmscmicrosoftadoprogrammersreference.asp er føjet til Foretrukne.

mvh. Ole

Bo Larsson <bo.larsson@mail.dk> skrev i en
nyhedsmeddelelse:3mko4uoq0662af6gvqcorrnev28nr49d3g@dtext.news.tele.dk...
> "Ole Dalsgaard Jensen" <ole.dalsgaard@mail1.stofanet.dk> wrote:
>
> >Kan nogen fuldende nedenstående, så længden på hvert enkelt felt kan
> >udledes?
> >
> > RS.open tabel, Conn, 3, 3
> > For t = 0 to RS.fields.count - 1
> > feltNavn = RS(t).Name
> > feltType = RS(t).Type
> > feltLgd = ?????????
> feltLgd = RS(t).DefinedSize
> > Next
> >RS.Close
> >
>
> Se evt. mere på
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/
mdprodefinedsize.asp
>