Visual Basic

Initialize array parameter?

13-Feb-09 3:43

Here's a dumb observation. If the password has expired, they either won't be able to login, or they'll be forced to change the password upon login, without using any of your code.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

craigmg7811-Feb-09 10:56

craigmg78

11-Feb-09 10:56

I am calling a subroutine that starts with the following line:

Private Sub AddPayrollTable(ByVal TableCode As Integer, ByRef PayrollArray As String)

When this subroutine gets called I get an error that says "Object reference not set to an instance of an object."

This has lead me to believe that the array (PayrollArray) has not been initialized so I ask, how can I initialize an array that is a parameter in a subroutine?

Side note: When I reference the array directly in the AddPayrollTable subroutine instead of passing it as a parameter, I get no error.

Thanks,

Craig

"That rug really tied the room together."

Dave Kreskowiak11-Feb-09 14:11

11-Feb-09 14:11

craigmg78 wrote:
Private Sub AddPayrollTable(ByVal TableCode As Integer, ByRef PayrollArray As String)

Well, I see a couple of problems. The first parameter is passed as an Integer with the name "*Code". This leads me to believe it should be an enum, but I'm saying this based on very limited information. Right now, you're passing a "magic number" that offers no documention about what it means.

The second parameter is not being passed an array, but as a single String. Initializing an array is really mean to be done by the caller, not the callee. But, again, you haven't provided any information as to what this method does with the array and what the contents of the array is supposed to be, so it's difficult to say what the correct solution is.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Luc Pattyn11-Feb-09 14:38

Luc Pattyn

11-Feb-09 14:38

Hi,

assuming your code compiles fine and produces a run-time error "Object reference not set ..."
when it somewhere calls your sub AddPayrollTable(...) that really means the caller hasn't
allocated the object (string?) that is being passed as the second parameter.

Yes, it is the caller that needs to initialize the parameters it is passing to the callee;
the callee can only accept them any way they come.

BTW: the name implies it would be an array, but then it should say As String()

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

craigmg7812-Feb-09 4:41

craigmg78

12-Feb-09 4:41

Yes, I see now what the problem was thanks to Dave and Luc. I was calling the sub and passing an array to a string slot. Luc is correct, it should have said String(). Whoops. Thank you!

"That rug really tied the room together."

Crystal Report and VB.net 2005

Guffa11-Feb-09 16:10

Guffa

11-Feb-09 16:10

Unless you want to replace the entire array with another array, you should not send the parameter by reference. You can still change the items in the array when sending the parameter by value:

Private Sub AddPayrollTable(ByVal TableCode As Integer, ByVal PayrollArray As String())

However, you still have to create the array before calling the method.

If you want to create the array in the method, you should return the array from it:

Private Function GetPayrollTable(ByVal TableCode As Integer) As String()

If you want to add items to the collecion, it should be a list instead of an array:

Private Sub AddPayrollTable(ByVal TableCode As Integer, ByVal PayrollList As List(Of String))

Despite everything, the person most likely to be fooling you next is yourself.

SCHOTM11-Feb-09 10:45

SCHOTM

11-Feb-09 10:45

Hello Everyone.
How is possible send a report with out the preview?
Is VB6 is possible but here? I dont know..

Any idea?

Just is case.. is was my source in VB6... BR

Dim strReportName As String
Dim intReportDestination As Integer
strReportName = "test.RPT"
With cr
.ReportFileName = "label.rpt"
.DataFiles(0) = "batabase.mdb"
.Destination = crptToPrinter
.PrinterName = Zebra
.Action = 1
End With

Check for Framework version

ivo7511-Feb-09 8:46

ivo75

11-Feb-09 8:46

How check for framework version

Re: Check for Framework version

Dave Kreskowiak11-Feb-09 10:18

Re: Check for Framework version

11-Feb-09 10:18

It's simply amazing what you can find with a little Yahoo or Google search.

Results for "how to check .net framework version installed[^]".

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Ranjit Viswakumar11-Feb-09 17:36

Ranjit Viswakumar

11-Feb-09 17:36

You can write some bad code and browse to that page. The bottom of the error message will state the version of .NET that's in use.

For example[^]

Good luck.

Ranjit Viswakumar
Professional Services Specialist
http://hostmysite.com/?utm_source=bb

Re: Check for Framework version

Dave Kreskowiak11-Feb-09 19:08

VB.Net 2005 FTP Automation

11-Feb-09 19:08

I'm assuming he's talking about find out which version the app is running under in his own code, not by crapping out an app and looking at the wreckage.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

hariyansa11-Feb-09 7:54

hariyansa

11-Feb-09 7:54

Hi, I'm trying to create one FTP automation using vb.net. Which is consist of the following requirement.
1) Downloading file (with specific file name)
2) Move the file at the FTP server to another directory
3) Uploading file
-All of the task need to be schedule at specific time and it's on daily basis.

Can someone help me on this matter.

Re: VB.Net 2005 FTP Automation

Dave Kreskowiak11-Feb-09 8:12

Implemented IOleCommandTarget in VB.NET 2005 Browser Helper Object - NOW WHAT?

11-Feb-09 8:12

You can start with the System.Net.FtpWebRequest[^] class to download files and rename them upload them. It exposes a basic FTP client in a class.

You'd probably write this as a Console application and schedule it to run using the Windows Scheduler
(Control Panel -> Scheduled Tasks).

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

David Seger11-Feb-09 5:51

David Seger

11-Feb-09 5:51

I have implemented the IOleCommandTarget interface in a VB.NET 2005 Browser Helper Object. First, I wanted to share the code with everyone since it took me a while to get it working and I couldn't find any examples on the 'Net.

Now I want to be sure I know what to do with my new found toy. Specifically:

Do I need to output something from the Exec sub?
What do I output from the QueryStatus sub to answer Internet Explorer's interrogation?

Thanks! Here's the code:

Imports System
Imports System.Runtime.InteropServices

Namespace MyPopUpBHO

#Region "Interface Definition"
    <structlayout(layoutkind.sequential,> _
    Public Structure OLECMDTEXT
        Public cmdtextf As UInt32
        Public cwActual As UInt32
        Public cwBuf As UInt32
        Public rgwz As Char
    End Structure

    <structlayout(layoutkind.sequential)> _
    Public Structure OLECMD
        Public cmdID As UInt32
        Public cmdf As UInt32
    End Structure

    ' Interop definition for IOleCommandTarget.
    <comimport(),>        InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
    Public Interface IOleCommandTarget

        Sub QueryStatus( _
            ByRef pguidCmdGroup As Guid, _
            ByVal cCmds As UInt32, _
            <marshalas(unmanagedtype.lparray,> ByVal prgCmds() As OLECMD, _
            ByRef pCmdText As OLECMDTEXT)

        Sub Exec( _
            ByRef pguidCmdGroup As Guid, _
            ByVal nCmdId As Integer, _
            ByVal nCmdExecOpt As Integer, _
            ByRef pvaIn As IntPtr, _
            <marshalas(unmanagedtype.sysint)> ByRef pvaOut As IntPtr)

    End Interface

#End Regino

    <guidattribute("b722bccb-4e68-101b-a2bc-00aa00404770")> _
    Public Class ctvb

        Implements IOleCommandTarget

        Public Sub Exec( _
            ByRef pguidCmdGroup As Guid, _
            ByVal nCmdId As Integer, _
            ByVal nCmdExecOpt As Integer, _
            ByRef pvaIn As IntPtr, _
            <marshalas(unmanagedtype.sysint)> ByRef pvaOut As IntPtr) Implements IOleCommandTarget.Exec
            System.Windows.Forms.MessageBox.Show("Hiya Exec!")
        End Sub

        Public Sub QueryStatus(ByRef pguidCmdGroup As Guid, _
          ByVal cCmds As UInt32, _
          <marshalas(unmanagedtype.lparray,> ByVal prgCmds() As OLECMD, _
          ByRef pCmdText As OLECMDTEXT) Implements IOleCommandTarget.QueryStatus
            System.Windows.Forms.MessageBox.Show("Hiya QueryStatus!")
        End Sub
    End Class

End Namespace

Re: Implemented IOleCommandTarget in VB.NET 2005 Browser Helper Object - NOW WHAT?

Dave Kreskowiak11-Feb-09 6:35

How do you format the date time to just date?

11-Feb-09 6:35

David Seger wrote:
Do I need to output something from the Exec sub?

This is the command that your code has to interpret and execute. Remember, your supplying the implementation of an interface that OLE is calling you with. This caommand can be executed in a seperate thread that your code sets up and starts. Any return value should be one of thoses documented here[^].

David Seger wrote:
What do I output from the QueryStatus sub to answer Internet Explorer's interrogation?

This is normally filling in the status of the various commands you got in the Exec implementation. If your commands are still running, you update the status of those commands in the structures passed in from IE.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Muhammad Fahim Baloch11-Feb-09 5:45

Muhammad Fahim Baloch

11-Feb-09 5:45

How do you format the date time to just date?

for example, this is what i retrievedd from the database: 12/31/2008 12:00:00 AM, but i just want to show the date and no time.

Fernando Soto11-Feb-09 6:29

Fernando Soto

11-Feb-09 6:29

Hi Muhammad;

This will display the date only

' Simulate date and time from the DB
Dim dt As DateTime = Now

' This will display the date only
MessageBox.Show(dt.ToString("MM/dd/yyyy"))

Fernando

EliottA11-Feb-09 7:02

EliottA

11-Feb-09 7:02

No need to ask the same question twice, but 7 minutes apart. If someone doesn't answer the first they ain't going to answer the second.

Check out the CodeProject forum Guidelines[^]

Luc Pattyn11-Feb-09 11:57

Luc Pattyn

11-Feb-09 11:57

EliottA wrote:
If someone doesn't answer the first they ain't going to answer the second.

I'm afraid Fernando has proven you're wrong about that... Laugh | :laugh:

Luc Pattyn [Forum Guidelines] [My Articles]