Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 185
  • Last Modified:

Easiest way to make a visual basic.net program automated

I created a program for a client that extracts data from a database and then writes it to a textfile.  I originally built it with a form with a button that they would need to click to start the program.  A message then pops up that the export completed successfully and then they have to close the program.  They now do not want any of this.  They want to be able to schedule the .exe using windows scheduler.  What is the easiest way to make this program automated?  I want to remove the form, button etc....  

Thanks!!!!
0
stephaniem712
Asked:
stephaniem712
  • 3
  • 3
1 Solution
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
For VB.Net 2003, add a Module and make a Public Sub Main in there.  Then put your code in "sub main".  Finally change the "startup object" in Project --> Properties to "sub main" and recompile.  The new exe should simply run your code and then end.

Module Module1
 
    Public Sub Main()
        ' ... put your code in here ...
    End Sub
 
End Module

Open in new window

0
 
stephaniem712Author Commented:
I created a new project and added a module.  I copied the code as instructed and I'm getting messages that I need to declare
psCompanyINI
psCompany.....etc. even though they are all declared as shown below in the piece fo code I attached..

Module DataExport

    Public SubMain()


    Dim FILE_NAME As String = "C:\Rolligon\Data\POPayHist.txt"
    Dim psCompanyINI As String = ""
    Dim psCompany As String = ""
    Dim psUN As String = ""
    Dim psPW As String = ""

    Dim textr As TextReader = New StreamReader("C:\ExportINI.txt", False)

        psCompanyINI = textr.ReadToEnd
        textr.Close()
        psCompany = Split(psCompanyINI, "Company=")(1).Split(ControlChars.CrLf)(0)
        psUN = Split(psCompanyINI, "UN=")(1).Split(ControlChars.CrLf)(0)
        psPW = Split(psCompanyINI, "PW=")(1).Split(ControlChars.CrLf)(0)
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
You sure have the spaces in there correctly and the mathching End XXX parts?
Module DataExport
 
    Public Sub Main()
        Dim FILE_NAME As String = "C:\Rolligon\Data\POPayHist.txt"
        Dim psCompanyINI As String = ""
        Dim psCompany As String = ""
        Dim psUN As String = ""
        Dim psPW As String = ""
 
        Dim textr As New StreamReader("C:\ExportINI.txt", False)
        psCompanyINI = textr.ReadToEnd
        textr.Close()
        psCompany = Split(psCompanyINI, "Company=")(1).Split(ControlChars.CrLf)(0)
        psUN = Split(psCompanyINI, "UN=")(1).Split(ControlChars.CrLf)(0)
        psPW = Split(psCompanyINI, "PW=")(1).Split(ControlChars.CrLf)(0)
    End Sub
 
End Module

Open in new window

0
Veeam Disaster Recovery in Microsoft Azure

Veeam PN for Microsoft Azure is a FREE solution designed to simplify and automate the setup of a DR site in Microsoft Azure using lightweight software-defined networking. It reduces the complexity of VPN deployments and is designed for businesses of ALL sizes.

 
stephaniem712Author Commented:
I created a new project - a windows application.  Is this correct?  It includes a form.  When I delete the form and copy in the code (which now appears to be ok), I get build errors..  having to do with the deleted form..
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
You need to go into Project --> Properties and change the "Startup Object" to "Sub Main".
0
 
stephaniem712Author Commented:
I apologize. You did say that.  That worked!   Thanks for the help!!
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now