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

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

Dave
david_88Asked:
Who is Participating?
 
DhaestCommented:
>> How easy is it to compile all classes and code into a exectuable for distribution?
Deploying applications
http://www.startvbdotnet.com/extras/deploy.aspx

>> UserIntfaces just as easy to setup ie drag and drop
Almost the same way of working like vb6
0
 
DhaestCommented:
In vb.net, there is a new technology, called ado.net for interaction with a database.
http://www.aspfree.com/c/a/.NET/An-introduction-to-ADONET/
http://www.startvbdotnet.com/ado/default.aspx
0
 
MTEXXCommented:
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
        Try
            sReader = New StreamReader(filespec)
            content = sReader.ReadToEnd()
            sReader.Close()
        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
                Next
            End If
            If (firstFlag) Then
                firstFlag = False
            Else
                ReDim Preserve retval(UBound(retval) + 1)
            End If
            retval(UBound(retval)) = words
        Next
        Return retval
    End Function
End Class

Open in new window

0
 
david_88Author Commented:
Brilliant just what i need thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.