Visual Basic 6 to VB.NET advice (desktop apps) !

Posted on 2008-10-09
Last Modified: 2013-11-26
Are there many hurdles to overcome moving to .NET.  Im fine with OO coding as i have used java before.  In VB6/VBA i was using DAO to access databases and compiling to an exectuable was easy for distribution my questions are:

What access methods are availble/recommended in .NET for database access / reading in csv files?
How easy is it to compile all classes and code into a exectuable for distribution?
Is UserIntfaces just as easy to setup ie drag and drop

Your help is much appreaciated

Question by:david_88
  • 2
LVL 53

Expert Comment

ID: 22677529
In, there is a new technology, called for interaction with a database.
LVL 53

Accepted Solution

Dhaest earned 250 total points
ID: 22677543
>> How easy is it to compile all classes and code into a exectuable for distribution?
Deploying applications

>> UserIntfaces just as easy to setup ie drag and drop
Almost the same way of working like vb6

Assisted Solution

MTEXX earned 250 total points
ID: 22679307
Here's a quick CSV reader I use.
Notice it is simply a shared (read static in VB6) function in a class.  EVERYTHING in .net is in a class.
Imports System.IO

Public Class Csv

    ''' <summary>

    ''' Reads a CSV formatted file and returns a two-dimensional non-jagged array.

    ''' </summary>

    ''' <param name="filespec">The file to read.</param>

    ''' <param name="performTrim">If enabled, fields are trimmed after parsing.</param>

    ''' <param name="remark">A remark token, usually "'" or "REM"</param>

    ''' <returns>A two-dimensional non-jagged array of strings.</returns>

    ''' <remarks></remarks>

    Public Shared Function read(ByVal filespec As String, Optional ByVal performTrim As Boolean = True, Optional ByVal remark As String = Nothing) As String()()

        Dim content As String

        Dim sReader As StreamReader


            sReader = New StreamReader(filespec)

            content = sReader.ReadToEnd()


        Catch Ex As Exception

            Return Nothing

        End Try

        Dim lines() As String = content.Split(vbCrLf)

        Dim retval(0)() As String

        Dim firstFlag As Boolean = True

        For i As Integer = LBound(lines) To UBound(lines)

            If (lines(i) = "") Then Continue For

            If (remark IsNot Nothing AndAlso remark <> "" AndAlso lines(i).Trim.StartsWith(remark)) Then Continue For

            Dim words() As String = lines(i).Split(",")

            If (performTrim) Then

                For j As Integer = LBound(words) To UBound(words)

                    words(j) = words(j).Trim


            End If

            If (firstFlag) Then

                firstFlag = False


                ReDim Preserve retval(UBound(retval) + 1)

            End If

            retval(UBound(retval)) = words


        Return retval

    End Function

End Class

Open in new window


Author Closing Comment

ID: 31504604
Brilliant just what i need thanks

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

It’s quite interesting for me as I worked with Excel using for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Internet Business Fax to Email Made Easy - With eFax Corporate (, you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

910 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

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now