Solved

Access a SQL database from a console application

Posted on 2012-04-09
1
233 Views
Last Modified: 2012-04-10
I am trying to create a console application to run robocopy and copy a folder structure and still keep the permissions.

I have most of it working except for accessing the data for the new folder names.  Which can either reside in a sql database or in an access database.

Examples of how to get this working would be great.  here is what i have so far.

Module Module1

    Sub Main()

        Dim MyDatabase As OleDb.OleDbConnection
        Dim ConnectToMyDatabase As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=\\SERVER\Database.mdb"
        MyDatabase = New OleDb.OleDbConnection(ConnectToMyDatabase)
        MyDatabase.Open()
        Dim stringx As String
        stringx = MyDatabase.Table

        Dim file As String
        file = "robocopy.exe"

        Dim args As String
        args = "C:\test C:\test2 *.* /copyall /mir"

        Dim username As String
        username = "Username"

        Dim pass As SecureString
        pass = Secure()

        Dim Dom As String
        Dom = "DOMAIN"
        Stop

        'Process.Start(file, args, username, pass, Dom)


    End Sub

    Public Function Start(fileName As String, arguments As String, userName As String, password As SecureString, domain As String) As Process
    End Function

    Public Function Secure() As SecureString
        Dim pass As String
        pass = "password"
        Dim str As New SecureString
        For x As Integer = 0 To pass.Length - 1
            str.AppendChar(pass.Substring(x, 1))
        Next

        Return str
    End Function

End Module

Open in new window

0
Comment
Question by:mjelec
1 Comment
 
LVL 53

Accepted Solution

by:
Dhaest earned 500 total points
ID: 37826709
Visual Basic 6 ADO Tutorial - reading mdb file
http://www.timesheetsmts.com/adotutorial.htm

 How to connect to a SQL server using Visual Basic 6.0
http://www.dreamincode.net/forums/topic/24677-connecting-to-a-sql-server-database-using-adodb/
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question