Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

deklaration Array

118 views
Skip to first unread message

Wyder Michael

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to
hallo ng

dieses script:
Set RS_2 = Server.CreateObject("ADODB.Recordset")
RS_2.Open sql, ConnStr, 3, 3
anz_row = CInt(RS_2.RecordCount)
Dim myArray(anz_row)

bringt diesen fehler:
Kompilierungsfehler in Microsoft VBScript error '800a0402'
Ganzzahlige Konstante erwartet

/asp/event_buchung2.asp, line 226

Dim myArray(anz_row)
kann mir jemand auf die sprünge helfen?
gruss
michi


Christian Hau

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to
Hi,


Bsp.:

Dim myArray()

Set RS_2 = Server.CreateObject("ADODB.Recordset")
RS_2.Open sql, ConnStr, 3, 3
anz_row = CInt(RS_2.RecordCount)

ReDim myArray(anz_row)


Grüße

Christian

Frank L. Quednau

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to

"Wyder Michael" <it@*no_spam*agrisano.ch> schrieb im Newsbeitrag
news:8qqj5o$glb$1...@pollux.ip-plus.net...

> hallo ng
>
> dieses script:
> Set RS_2 = Server.CreateObject("ADODB.Recordset")
> RS_2.Open sql, ConnStr, 3, 3
> anz_row = CInt(RS_2.RecordCount)
> Dim myArray(anz_row)
>
> bringt diesen fehler:
> Kompilierungsfehler in Microsoft VBScript error '800a0402'
> Ganzzahlige Konstante erwartet
>
Siehe Redim im anderen Post. Vorsicht aber auch, wenn Recordcount
vielleicht -1 liefert. Ich weiss nicht, ob CInt das wegmacht.


Wyder Michael

unread,
Sep 27, 2000, 3:00:00 AM9/27/00
to
es funktioniert!!!

danke vielmals

gruss
michi


"Christian Hau" <ch....@leco-mm.de> wrote in message
news:39D0E21C...@leco-mm.de...
> Hi,


>
> Wyder Michael wrote:
> >
> > hallo ng
> >
> > dieses script:
> > Set RS_2 = Server.CreateObject("ADODB.Recordset")
> > RS_2.Open sql, ConnStr, 3, 3
> > anz_row = CInt(RS_2.RecordCount)
> > Dim myArray(anz_row)
> >
> > bringt diesen fehler:
> > Kompilierungsfehler in Microsoft VBScript error '800a0402'
> > Ganzzahlige Konstante erwartet
> >

> > /asp/event_buchung2.asp, line 226
> >
> > Dim myArray(anz_row)
> > kann mir jemand auf die sprünge helfen?
> > gruss
> > michi
>
>
> Bsp.:
>
> Dim myArray()
>

> Set RS_2 = Server.CreateObject("ADODB.Recordset")
> RS_2.Open sql, ConnStr, 3, 3
> anz_row = CInt(RS_2.RecordCount)
>

> ReDim myArray(anz_row)
>
>
> Grüße
>
> Christian

0 new messages