Visual Basic

Re: insert images into cell

26-Jul-09 20:08

What do you mean by 'cell' ???

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

veon cheng26-Jul-09 20:51

veon cheng

26-Jul-09 20:51

hi

hmm it the cell in excel for example A3 etc are cell right

thanks
veon

Re: insert images into cell

Christian Graus26-Jul-09 21:51

26-Jul-09 21:51

Well, gee, there's a tidbit that might have been worth mentioning. In that case, I have no idea, beyond that you'd use the Microsoft Tools for Office. Perhaps you should modify your subject line so it actually relates to the question, and so you might attract the attention of someone who knows the answer.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Database to array

Member 437454226-Jul-09 17:52

Member 4374542

26-Jul-09 17:52

Hi, relatively new to vb
trying to get various parts of a db into an array
all examples so far are a bit too vague for me to follow
what i need is a more detailed (ie tutorial) example of how to
i so far have an array of strings and am trying to get items in a db to populate said array
any links to tutorials or good examples in vb .net would be much appreciated

-N

Re: Database to array

Christian Graus26-Jul-09 20:09

26-Jul-09 20:09

You would fill a data table from your database, then iterate over it using the Rows property, and then pull out the strings from each row to fill your array.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Re: Database to array

Member 437454227-Jul-09 0:25

Member 4374542

27-Jul-09 0:25

what is the coding i would use? i have infact no relevant code for this module of my program, thus haven't supplied any
ive been struggling for a while now

array(1) = me.dataset1.table("",x,y) - where x and y are rows and columns

is there something similar / what do i have to do to make this work?
do remember that i am new to vb and programming in general

-N

Re: Database to array

Henry Minute27-Jul-09 1:41

Henry Minute

27-Jul-09 1:41

You will get all the examples that you need if you search MSDN for the terms that Christian mentions.

1) fill a data table
2) iterate the Rows property

doing it this way will also help you to remember how to do it (at least it does for me), with the added benefit that you discover additional stuff along the way. Smile | :)

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

ocx question

weic_tsubusa26-Jul-09 17:12

weic_tsubusa

26-Jul-09 17:12

Hi, All

Is there any way to decompile a .ocx file which is compiled by VB6.0? If not, is there any way to extract the files that this ocx is composed of? that is to say, if the ocx file contains some .frm files, some .bas files and so on, can we extract these from the one ocx file?

Thanks
Best regards
Wei

Re: ocx question

Christian Graus26-Jul-09 20:10

DBNull... why doesn't this work?!?!?!! ( IIF )

26-Jul-09 20:10

No, I don't believe so.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Jacob Dixon26-Jul-09 10:18

26-Jul-09 10:18

I cannot figure out why this doesn't work. Everythign says it should... I'm trying to see if a datagridviewrow contains DBNUll

'first = IIf(TypeOf _row.Cells(1).Value Is DBNull, 0, CDec(_row.Cells(1).Value))
'second = IIf(TypeOf _row.Cells(2).Value Is DBNull, 0, CDec(_row.Cells(2).Value))
'final = IIf(TypeOf _row.Cells(3).Value Is DBNull, 0, CDec(_row.Cells(3).Value))

I GET ERRORS!!!

But if I do this, not only is it ugly as heck but it works!!

If (TypeOf _row.Cells(1).Value Is DBNull) Then
    first = 0
Else
    first = _row.Cells(1).Value
End If

If (TypeOf _row.Cells(2).Value Is DBNull) Then
    second = 0
Else
    second = _row.Cells(2).Value
End If

If (TypeOf _row.Cells(3).Value Is DBNull) Then
    final = 0
Else
    final = _row.Cells(3).Value
End If

Why?!?! I'm so angry. I have tried everything from

IsDBNull(value)

value Is DbNull
value Is DbNull.Value

value is typeof(DbNull)

Its just frustating.. am I doing something wrong here or is this just a flaw?

Mycroft Holmes26-Jul-09 12:24

Mycroft Holmes

26-Jul-09 12:24

Yah I knew I used it somewhere, try

mvLogID = IIf(IsDBNull(oRow("LogID")), 0, oRow("LogID"))

Never underestimate the power of human stupidity
RAH

Jacob Dixon26-Jul-09 14:51

26-Jul-09 14:51

No luck. I'm not trying to find if a row is null, just if a cell is null

first = IIf(IsDBNull(_row.Cells(1)), 0, CDec(_row.Cells(1).Value))
second = IIf(IsDBNull(_row.Cells(2)), 0, CDec(_row.Cells(2).Value))
final = IIf(IsDBNull(_row.Cells(3)), 0, CDec(_row.Cells(3).Value))

Using the name instead of the index doesn't work either.
Still get "Conversion from DBNull to type Decimal is not valid"

Mycroft Holmes26-Jul-09 14:59

Mycroft Holmes

26-Jul-09 14:59

Can I have my foot back now please Blush | :O

I was testing against a DATAROW.
Try, you are testing the cell, it will always be there. And here is your foot Big Grin | :-D

first = IIf(IsDBNull(_row.Cells(1).Value), 0, CDec(_row.Cells(1).Value))

Never underestimate the power of human stupidity
RAH

Jacob Dixon26-Jul-09 15:04

26-Jul-09 15:04

Lol

Still no luck though. Here it is:

(All of it)

For Each _row As DataGridViewRow In dgvGrades.Rows
                Dim first, second, final As Decimal

                ' ********* This doesnt not seem to work but technically it should **************
                ' ********* Must be a FLAW in VB.net :-) lol ************
                'first = IIf(TypeOf _row.Cells(1).Value Is DBNull, 0, CDec(_row.Cells(1).Value))
                'second = IIf(TypeOf _row.Cells(2).Value Is DBNull, 0, CDec(_row.Cells(2).Value))
                'final = IIf(TypeOf _row.Cells(3).Value Is DBNull, 0, CDec(_row.Cells(3).Value))

                first = IIf(IsDBNull(_row.Cells(1).Value), 0, CDec(_row.Cells(1).Value))
                second = IIf(IsDBNull(_row.Cells(2).Value), 0, CDec(_row.Cells(2).Value))
                final = IIf(IsDBNull(_row.Cells(2).Value), 0, CDec(_row.Cells(3).Value))

                Dim _average As Decimal = (first + second + 2 * final) / 4

                For Each _sRow As DataGridViewRow In dgvStudents.Rows
                    If _row.Cells(0).Value Is Nothing Then
                        Exit For
                    Else
                        If _row.Cells(0).Value = _sRow.Cells(0).Value Then
                            dgvAverage.Rows.Add(New Object() {_sRow.Cells(2).Value.ToString() + " " + _sRow.Cells(1).Value.ToString(), _average.ToString(), CalculateGrade(_average), IIf(_average > 59, True, False)})
                            Exit For
                        End If
                    End If
                Next
            Next

The funny thing is (well not so funny) is that I can do this:

If IsDBNull(_row.Cells(1).Value) Then
MessageBox.Show("IT IS NULL!")
End If

AND IT WORKS! its the same thing!

nlarson1126-Jul-09 16:24

nlarson11

26-Jul-09 16:24

you said "you get errors". what error are you getting?

btw...not sure if you meant to do this but you are testing cell 2 again and then useing cell 3

final = IIf(IsDBNull(_row.Cells(2).Value), 0, CDec(_row.Cells(3).Value))

'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous

'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous

Jacob Dixon26-Jul-09 16:28

26-Jul-09 16:28

The error is it can't convert dbnull to decimal. It shouldn't be trying because it's supposed to make it 0 if it was dbnull. Yeah I didn't mean to do that I just changed it so much trying to get it to work I messed that up

nlarson1126-Jul-09 16:35

nlarson11

26-Jul-09 16:35

I have seen that somestimes checking for dbnull in an IIF doesn't always work. try breaking it out into a normal IF/Else statement.

Jacob Dixon26-Jul-09 17:15

26-Jul-09 17:15

Well I know that it works fine with a bunch of if then statements.

I was trying to figure out if it was something I was doing why the IIf wasn't working. But its starting to look more like a flaw with VB.net. Using the IIf statements looks much cleaner and less code to me. But if it just won't work with comparing DBNull values.. then what can I do lol

nlarson1127-Jul-09 3:03

nlarson11

27-Jul-09 3:03

ya it's a bug...

you can get the same effect by writing a function that will act like the IIF so you'll get the clean look but the function will use the full if/then/else...

't = true part of iif / e = else part of iif
public function MyIIF (b as boolean, t as object, e as object) as object

you can of course overload that to do type-safe checks

public function MyIIF (b as boolean, t as string, e as string) as object
public function MyIIF (b as boolean, t as integer, e as integer) as object

etc

Jacob Dixon27-Jul-09 3:07

27-Jul-09 3:07

Ok Thanks for your help Smile | :)

Jack Vanderhorst27-Jul-09 4:37

Jack Vanderhorst

27-Jul-09 4:37

If you're using VB9 there is an overload for the If keyword that solves this problem.

Instead of IIf try just using If