Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 2277

Page 1
2
3
Next

You are currently viewing page 1 of this multi-page discussion thread

Mar 29th, 2009

ReDim error!

Expand Post »

Hey guys thanks for viewing this post.

I have created an array to store usernames and passwords. Im tryning to get the array ReDim-ed mid program.

Here is the array:

(Toggle Plain Text)

Public Sub Usernames_Passwords()
    
'Assigns names to array space 1
        arrNames(0, 0) = "bnsjon"
        arrNames(1, 0) = "bnsjack"
        arrNames(2, 0) = "bnsjane"
        arrNames(3, 0) = "bnsjill"
        
'Assigns Passwords to array space 2
        arrNames(0, 1) = "jon"
        arrNames(1, 1) = "jack"
        arrNames(2, 1) = "jane"
        arrNames(3, 1) = "jill"
End Sub

This is the code I tried using to get the array ReDim-ed :

(Toggle Plain Text)

Private Sub Form_Load()
    Dim u As Integer
'Redims the array arrNames with new holding amount
'while preserving previous values
    u = 3
    u = u + 1
    ReDim Preserve arrNames(u, 1) As String
End Sub

(Toggle Plain Text)

Private Sub btnAdd_Click()
'Assigns new name and password to array
    arrNames(u, 0) = txtName.Text
    arrNames(u, 1) = txtPassword.Text
End Sub

But I get this error.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

Compile Error:
Array already defined

And it highlights this line

(Toggle Plain Text)

Private Sub Form_Load()
    Dim u As Integer
'Redims the array arrNames with new holding amount
'while preserving previous values
    u = 3
    u = u + 1
    ReDim Preserve arrNames(u, 1) As StringEnd Sub

Any takers?
Thanks in advance

-Russell aka Rabbit

Similar Threads

Problem linking (LNK2019 Error) in C++
Runtime Error 5 - Need help please in Visual Basic 4 / 5 / 6
Quickpak error when porting vb6.0 app from 98 to xp in Visual Basic 4 / 5 / 6
How do I get the default action of a specific file type? in Visual Basic 4 / 5 / 6
Newbie Help in Visual Basic 4 / 5 / 6

rabbithaveit

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Unfortunately in 2D arrays redim is not working..
I recommend you to use two (one-dimensional) arrays one for usernames and the other for passwords.The arrays will be parraller.

You can use the redim - function on 1D array without error...
For exampe..
----------------------------------------------
dim usernames() as string
dim passwords() as string
dim rows as integer

rows=5

redim usernames(rows)
redim passwords(rows)

''Values assignment....
rows = rows +1

redim preserve usernames(rows)
redim preserve passwords(rows)
----------------------------------------------
I hope that i helped you...

KSS

Reputation Points: 11

Solved Threads: 3

Newbie Poster

Offline

21 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Thanks for replying KSS

Thats a pitty though. Is it that it CANT be done? Or neither of us know how to? lol

And thanks for the advice. I was hoping I wouldnt have had to do so, but I'll have to impliment that.

Thanks again

-Russell aka Rabbit

rabbithaveit

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Well.... I put them in two different arrays. Debugged the code so that the login screen works fine (Y)

And im still getting the same error.
This is what I have now :

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Form_Load()
    Dim u As Integer
'Redims the array arrNames with new holding amount
'while preserving previous values
    u = 3
    u = u + 1
    ReDim Preserve arrNames(u)
    ReDim Preserve arrNamesP(u)
End Sub
Private Sub Form_Load()
    Dim u As Integer
'Redims the array arrNames with new holding amount
'while preserving previous values
    u = 3
    u = u + 1
    ReDim Preserve arrNames(u)
    ReDim Preserve arrNamesP(u)
End Sub

So im guessing its not that it cant be done. But we or I am just doing it wrong.
Any takers?

thanks in advance

-Russell aka Rabbit

rabbithaveit

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Try the attachment file...
I just write it and it works fine...

Attached Files

Redim.zip (1.5 KB, 39 views)

KSS

Reputation Points: 11

Solved Threads: 3

Newbie Poster

Offline

21 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Is it working?

KSS

Reputation Points: 11

Solved Threads: 3

Newbie Poster

Offline

21 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Yes it is. Your solution worked perfectly

-Russell aka Rabbit

rabbithaveit

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Oh woah woah. Wrong thread.
I'll try your ReDim zip now

-Russell aka Rabbit

rabbithaveit

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

KSS again. Thank you. I didnt know about list box till now O_O

Now that i've rummaged through your code, I understand how to use it. Thank you. I do beleive I can consider this solved as well.
2for you man lol. Your on a role

-Russell aka Rabbit

rabbithaveit

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Mar 2009

Permalink

Mar 29th, 2009

Re: ReDim error!

Hi Russel

Since the thread is already solved, I feel you need to also know why this happens... This is just for your FYI...

When using Preserve keyword, you can resize only the last array dimension. For example, if your array has only one dimension, you can resize that dimension because it is the last and only dimension. However, if your array has two or more dimensions, you can change the size of only the last dimension and still preserve the contents of the array.

For Example

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click()
    Dim MyArray() As String
    ReDim Preserve MyArray(1, 1)        '<~~ YOU CAN DO THIS
        MyArray(1, 1) = "1. Blah Blah"
    ReDim Preserve MyArray(1, 2)        '<~~ YOU CAN DO THIS
        MyArray(1, 2) = "2. Blah Blah"
    ReDim Preserve MyArray(1, 3)        '<~~ YOU CAN DO THIS
        MyArray(1, 3) = "3. Blah Blah"
 
    u = 2
    ReDim Preserve MyArray(u, 3)        '<~~ YOU CANNOT DO THIS
End Sub
Private Sub Command1_Click()
    Dim MyArray() As String
    ReDim Preserve MyArray(1, 1)        '<~~ YOU CAN DO THIS
        MyArray(1, 1) = "1. Blah Blah"
    ReDim Preserve MyArray(1, 2)        '<~~ YOU CAN DO THIS
        MyArray(1, 2) = "2. Blah Blah"
    ReDim Preserve MyArray(1, 3)        '<~~ YOU CAN DO THIS
        MyArray(1, 3) = "3. Blah Blah"

    u = 2
    ReDim Preserve MyArray(u, 3)        '<~~ YOU CANNOT DO THIS
End Sub

An Alternative is

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click()
    Dim MyArray() As String, MyTempArray() As String
    ReDim Preserve MyArray(1, 1)        '<~~ YOU CAN DO THIS
        MyArray(1, 1) = "1. Blah Blah"
    ReDim Preserve MyArray(1, 2)        '<~~ YOU CAN DO THIS
        MyArray(1, 2) = "2. Blah Blah"
    ReDim Preserve MyArray(1, 3)        '<~~ YOU CAN DO THIS
        MyArray(1, 3) = "3. Blah Blah"
 
    u = 2
    ReDim Preserve MyArray(u, 3)        '<~~ YOU CANNOT DO THIS
 
    ReDim MyTempArray(u, 1)
    'Transfer data from MyArray to this array
End Sub
Private Sub Command1_Click()
    Dim MyArray() As String, MyTempArray() As String
    ReDim Preserve MyArray(1, 1)        '<~~ YOU CAN DO THIS
        MyArray(1, 1) = "1. Blah Blah"
    ReDim Preserve MyArray(1, 2)        '<~~ YOU CAN DO THIS
        MyArray(1, 2) = "2. Blah Blah"
    ReDim Preserve MyArray(1, 3)        '<~~ YOU CAN DO THIS
        MyArray(1, 3) = "3. Blah Blah"
    
    u = 2
    ReDim Preserve MyArray(u, 3)        '<~~ YOU CANNOT DO THIS
    
    ReDim MyTempArray(u, 1)
    'Transfer data from MyArray to this array
End Sub

Last edited by koolsid; Mar 29th, 2009 at 7:32 pm.

koolsid

Reputation Points: 11

Solved Threads: 6

Light Poster

Offline

35 posts
since Feb 2005

Page 1
2
3
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Text box Validation

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Connect to mysql in another computer error(pls help)

DaniWeb Message

Cancel Changes

User Name
Password