UIC BSCS '07

Loading (.csv) file to listview

shyguy — Wed, 29 Jul 2009 06:21:13 +0000

Well, somebody is asking me for a code that will load up a (.csv) format to listview. In response to what he wanted, I decided to put it in here based on how I load a .csv file to listview. This article will be in relation to the previous post that I made. I hope this will help. Enjoy!

Private Sub LoadData() Dim fileLookUp As New OpenFileDialog fileLookUp.Title = "Get File" fileLookUp.Filter = "Files (*.csv)|*.csv|All Files (*.*)|*.*" If fileLookUp.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.txtFile.Text = fileLookUp.FileName mFileName = System.IO.Path.GetFileName(Me.txtFile.Text) mFolder = System.IO.Path.GetDirectoryName(Me.txtFile.Text) End If


        Dim ConnectionString, CommandText As String

        Dim conn As OleDb.OleDbConnection

        Dim Command As OleDbCommand

           Dim myString As String = txtFile.Text

        Dim myIndex As Integer = myString.LastIndexOf("\") + 1

        myString = myString.Substring(myIndex, myString.Length - myIndex)
        Try
        ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mFolder & "\;Extended Properties='text;HDR=Yes'"
            CommandText = "select * from " & myString & ""
            conn = New System.Data.OleDb.OleDbConnection(ConnectionString)

            Command = New System.Data.OleDb.OleDbCommand(CommandText, conn)
            conn.Open()
            Dim t As New DataTable

            ' initializing its column to complement on how many fields I want to return in my query command

            t.Columns.Add("v7#3")

            t.Columns.Add("F2")

            t.Columns.Add("F3")
            ' a method to access read-only the result set.

            Dim reader As OleDbDataReader = Command.ExecuteReader()

            While reader.Read()

                ' create new row

                Dim r As DataRow = t.NewRow()

                r(0) = reader("v7#3")

                r(1) = reader("F2")

                r(2) = reader("F3")
                ' add a row to a datatable

                t.Rows.Add(r)

            End While
            ' close reader

            reader.Close()

            ' close the connection 
            conn.Close()
            For i As Integer = 0 To t.Rows.Count - 1

                Dim li As ListViewItem = ListView1.Items.Add(t.Rows(i)("v7#3").ToString())

                li.SubItems.Add(t.Rows(i)("F2").ToString())

                li.SubItems.Add(t.Rows(i)("F3").ToString())
            Next

Catch ex As Exception MsgBox("Invalid Format! Please try another.") End Try End Sub

Saving Listview as (.csv) file

shyguy — Thu, 16 Jul 2009 04:55:05 +0000

It was easy for me to save a file on the database but saving a file as a (.csv) format is another issue for me before. Until I discover saving as a (.csv) format is just as simple as saving file on a database. All you just need to do on this is that to call the streamwriter to save the data as (.csv) format. I have here a sample codes below where the data the loaded on my listview was saved as (.csv) format. Hope you enjoy.

Private Sub SaveAsFile()


‘They want to do a SaveAs, so find out what they want to name the file
Dim saveFileDialog As SaveFileDialog = New SaveFileDialog()

saveFileDialog.Title = “Save File”
saveFileDialog.Filter = “Files (*.csv)|*.csv|All Files (*.*)|*.*”

saveFileDialog.DefaultExt = “csv”

saveFileDialog.AddExtension = True

If saveFileDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
filename = saveFileDialog.FileName    
        End If
        Try

            Dim csvFileContents As New System.Text.StringBuilder

            Dim currentLine As String = String.Empty
            ‘Write out the column names as headers for the csv file.

            For columnIndex As Int32 = 0 To 0

                currentLine &= (String.Format(”mycolumn_name”))

            Next
            ‘Remove trailing comma
            csvFileContents.AppendLine(currentLine.Substring(0, currentLine.Length))

            currentLine = String.Empty
            ‘Write out the data.

            For Each item As ListViewItem In ListView1.Items
                For Each subItem As ListViewItem.ListViewSubItem In item.SubItems
                    currentLine &= (String.Format(”"”{0}”",”, subItem.Text))
                Next

                ‘Remove trailing comma
                csvFileContents.AppendLine(currentLine.Substring(0, currentLine.Length - 1))

                currentLine = String.Empty
            Next
            ‘Create the file.

            Dim sw As New System.IO.StreamWriter(filename)

            sw.WriteLine(csvFileContents.ToString)

            sw.Flush()

            sw.Dispose()

        Catch ex As Exception
        End Try

End Sub

Introducing Ultidev Cassini

shyguy — Tue, 14 Jul 2009 12:43:03 +0000

It’s been a big confusion on my mind before since I was thinking on how do I make my web application to run on cd. Well, while searching and looking around for a stand alone web server on the google I saw a Ultidev Cassini that really fits to what really I need and now I was using it. It was really a great product and free for everyone. If you want to explore more on how to used it just visit http://ultidev.com and explore how it works.

How to add groups on listview

shyguy — Thu, 28 May 2009 20:40:18 +0000

I have here a simple sample on how to group in a listview. I hope this simple code can help to someone needed this.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim group1 As New ListViewGroup(”Group 123″, HorizontalAlignment.Left)
group1.Name = “Group 123″
ListView1.Groups.Add(group1)

With ListView1.Items
.Add(”123″)
.Item(.Count - 1).SubItems.Add(”ABC”)
.Item(.Count - 1).SubItems.Add(”1/11/05″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”TV”)
.Item(.Count - 1).Group = group1
.Add(”123″) .Item(.Count - 1).SubItems.Add(”DEF”)
.Item(.Count - 1).SubItems.Add(”1/11/05″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”VCD”)
.Item(.Count - 1).Group = group1
.Add(”123″)
.Item(.Count - 1).SubItems.Add(”GHI”)
.Item(.Count - 1).SubItems.Add(”1/11/05″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”TVRACK”)
.Item(.Count - 1).Group = group1

Dim group2 As New ListViewGroup(”Group 234″, HorizontalAlignment.Left)
group2.Name = “Group 234″

ListView1.Groups.Add(group2)
.Add(”234″)
.Item(.Count - 1).SubItems.Add(”KLM”)
.Item(.Count - 1).SubItems.Add(”1/12/06″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”MIC”)
.Item(.Count - 1).Group = group2
End With
End Sub

End Class

How to make borderless form draggable?

shyguy — Thu, 07 May 2009 21:45:33 +0000

Making a form without a border is nice to see especially when the user don’t want his form to minimize and maximize. I have here the following code that will make a borderless form draggable.

‘Declare these 2 variables with class scope
Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
Private Const HTCAPTION As Integer = 2

‘Then handle your form.MouseDown event
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Me.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
        Me.DefWndProc(msg)
    End Sub

How to send email using SMTP

shyguy — Thu, 07 May 2009 16:40:06 +0000

Sending email using vb.net 2.0 framework is quite different from 1.1. The 1.1 framework is using a System.Web.Mail while 2.0 uses System.Net.Mail and it makes really different. There are some codes that are obsolete in 2.0 framework already that exist in 1.1 framework. In my case, since I am using vb.net 2.0 framework then I will share my code here that i used in my program that will send emails. I hope this will help to the people who are seeking codes that will send an email using vb.net 2.0 framework. As a default I am using gmail for my demo but it can be used to any email server as long as you know the configuration.

Set iMsg = CreateObject(”CDO.Message”)
Set iConf = CreateObject(”CDO.Configuration”)
Set Flds = iConf.Fields

schema = “http://schemas.microsoft.com/cdo/configuration/”
Flds.Item(schema & “sendusing”) = 2
Flds.Item(schema & “smtpserver”) = “smtp.gmail.com”
Flds.Item(schema & “smtpserverport”) = 465
Flds.Item(schema & “smtpauthenticate”) = 1
Flds.Item(schema & “sendusername”) = “myemail@gmail.com”
Flds.Item(schema & “sendpassword”) = “mypassword”
Flds.Item(schema & “smtpusessl”) = 1
Flds.Update

With iMsg
.To = “admin@uiccs07.net”
.From = “admin@uiccs07.net>”
.Sender = “uiccs07.net”
.ReplyTo = “admin@uiccs07.net”
.Subject = “This is a subject”
.HTMLBody = “This is sample html email.”
.Organization = “uiccs07.net”
Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing

Welcome

shyguy — Sat, 02 May 2009 05:29:06 +0000

Welcome everyone. I hope you enjoy upon visiting this site. Please leave a comment or email the administrator if there is any question regarding to this site. Have a nice day and God Bless!