Question with despair - will buy movie tickets for the first one who helps

[Oliver]

Hi,
I have spent my entire weekend trying to solve this, now I have to admit I
need your help.

Here is my code:

Dim cred() As DataSourceCrede ntials
Dim cc As New DataSourceCrede ntials
cred(0) = cc
cred(0).DataSou rceName = "198.87.87. 6"
cred(0).Passwor d = "XXX"
cred(0).UserNam e = "YYY"

It crashes with the error message:Object Reference not set to
an instance of an Object

What am I missing?

[Cowboy (Gregory A. Beamer) - MVP]

For your single operation, you can do something like this:

Dim cc As New DataSourceCrede ntials
Dim cred() As DataSourceCrede ntials = {cc}
cred(0).DataSou rceName = "198.87.87. 6"
cred(0).Passwor d = "XXX"
cred(0).UserNam e = "YYY"

This is largely useless, but avoids the compile error. If you are going to
pop Credentials on and off the collection, you are better to set up cred as a
collection rather than a simple array.

You can also do something like:
Dim cred(1) As DataSourceCrede ntials
Dim cc As New DataSourceCrede ntials
cred(0) = cc
cred(0).DataSou rceName = "198.87.87. 6"
cred(0).Passwor d = "XXX"
cred(0).UserNam e = "YYY"

And Redim for additional values, remember to use Preserve to avoid clearing
out the initial values. You biggest isssue is there is no size to your array.
In the first example, the size is implicitly set to 1; in the second it is
explcitly set.
---

Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

*************** ************
Think Outside the Box!
*************** ************

"Oliver" wrote:

Hi,
I have spent my entire weekend trying to solve this, now I have to admit I
need your help.

Here is my code:

Dim cred() As DataSourceCrede ntials
Dim cc As New DataSourceCrede ntials
cred(0) = cc
cred(0).DataSou rceName = "198.87.87. 6"
cred(0).Passwor d = "XXX"
cred(0).UserNam e = "YYY"

It crashes with the error message:Object Reference not set to
an instance of an Object

What am I missing?

[Imran Koradia]

"Cowboy (Gregory A. Beamer) - MVP" <No************ @comcast.netNoS pamM> wrote
in message news:97******** *************** ***********@mic rosoft.com...

For your single operation, you can do something like this:

Dim cc As New DataSourceCrede ntials
Dim cred() As DataSourceCrede ntials = {cc}
cred(0).DataSou rceName = "198.87.87. 6"
cred(0).Passwor d = "XXX"
cred(0).UserNam e = "YYY"

This is largely useless, but avoids the compile error. If you are going to
pop Credentials on and off the collection, you are better to set up cred as a collection rather than a simple array.

You can also do something like:
Dim cred(1) As DataSourceCrede ntials
Dim cc As New DataSourceCrede ntials
cred(0) = cc
cred(0).DataSou rceName = "198.87.87. 6"
cred(0).Passwor d = "XXX"
cred(0).UserNam e = "YYY"

And Redim for additional values, remember to use Preserve to avoid clearing out the initial values. You biggest isssue is there is no size to your array. In the first example, the size is implicitly set to 1; in the second it is
explcitly set.

just a minor correction..in the second case, size is explicitly to 2 -
cred(0) will set the size to 1..apart from that all's good :)
Imran.

[Chris Dunaway]

On Mon, 22 Nov 2004 10:46:41 -0500, Oliver wrote:

Dim cred() As DataSourceCrede ntials
Here you have created an array to hold DataSourceCrede ntials objects, but
it is empty, that is, it has no elements in it. You need to first ReDim
the array to hold the number of objects you need:

ReDim cred(9) 'Use whatever number is appropriate for your situation
Dim cc As New DataSourceCrede ntials

This line is unnecessary, instead, use something like this:

For x as integer = 0 to 9
cred(x) = New DataSourceCrede ntials
cred(x).DataSou rceName = "198.87.87. 6"
cred(x).Passwor d = "XXX"
cred(x).UserNam e = "YYY"
Next

Hope this helps.

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.