UIC BSCS ‘07
Code and Snippets for vb.net 2005
Welcome guys!
I hope the codes and snippets here I gathered that I published will help upon finding some solutions using vb.net and asp.net. God Bless and have a nice day..
-
Loading (.csv) file to listview
Posted on July 29th, 2009 2 commentsWell, 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!
Place your ad on thousands of sites with BidVertiser. Get $20 in FREE clicks.
$20 in FREE Clicks for everyone from BidVertiser - Click Here!
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 IfDim 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 connectionconn.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
Place your ad on thousands of sites with BidVertiser. Get $20 in FREE clicks.
$20 in FREE Clicks for everyone from BidVertiser - Click Here! -
Saving Listview as (.csv) file
Posted on July 16th, 2009 4 commentsIt 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.
Place your ad on thousands of sites with BidVertiser. Get $20 in FREE clicks.
$20 in FREE Clicks for everyone from BidVertiser - Click Here!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.ItemsFor Each subItem As ListViewItem.ListViewSubItem In item.SubItems
currentLine &= (String.Format(”"”{0}”",”, subItem.Text))
Next
‘Remove trailing commacsvFileContents.AppendLine(currentLine.Substring(0, currentLine.Length - 1))
currentLine = String.EmptyNext
‘Create the file.
Dim sw As New System.IO.StreamWriter(filename)
sw.WriteLine(csvFileContents.ToString)
sw.Flush()
sw.Dispose()
Catch ex As ExceptionEnd Try
End Sub
-
Introducing Ultidev Cassini
Posted on July 14th, 2009 No commentsIt’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.
Place your ad on thousands of sites with BidVertiser. Get $20 in FREE clicks.
$20 in FREE Clicks for everyone from BidVertiser - Click Here! -
How to add groups on listview
Posted on May 28th, 2009 No commentsI have here a simple sample on how to group in a listview. I hope this simple code can help to someone needed this.
Place your ad on thousands of sites with BidVertiser. Get $20 in FREE clicks.
$20 in FREE Clicks for everyone from BidVertiser - Click Here!
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 = group1Dim 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 SubEnd Class
-
How to make borderless form draggable?
Posted on May 7th, 2009 7 commentsMaking 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 SubPlace your ad on thousands of sites with BidVertiser. Get $20 in FREE clicks.
$20 in FREE Clicks for everyone from BidVertiser - Click Here! -
How to send email using SMTP
Posted on May 7th, 2009 2 commentsSending 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.
Place your ad on thousands of sites with BidVertiser. Get $20 in FREE clicks.
$20 in FREE Clicks for everyone from BidVertiser - Click Here!Set iMsg = CreateObject(”CDO.Message”)
Set iConf = CreateObject(”CDO.Configuration”)
Set Flds = iConf.Fieldsschema = “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.UpdateWith 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 Withset iMsg = nothing
set iConf = nothing
set Flds = nothing -
Welcome
Posted on May 2nd, 2009 1 comment
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!
