Solved

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

Posted on 2008-10-09
4
230 Views
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

Dave
0
Comment
Question by:david_88
  • 2
4 Comments
 
LVL 53

Expert Comment

by:Dhaest
ID: 22677529
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
 
LVL 53

Accepted Solution

by:
Dhaest earned 250 total points
ID: 22677543
>> 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
 
LVL 2

Assisted Solution

by:MTEXX
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
        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
 

Author Closing Comment

by:david_88
ID: 31504604
Brilliant just what i need thanks
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

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

Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

837 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