Sample Program in VB.Net 2005

Imports System
Imports System.Data.SqlClient
Imports System.DBNullImports System.IO
Public Class Form1
Public cnstr As String = "Data Source=VIJAY\SQLEXPRESS;Initial Catalog=giri;Integrated Security=True"
Public cn As New SqlConnection(cnstr)
Public cmd As SqlCommand
Public ada As SqlDataAdapter
Public dtb As New DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loaddata()
autonum()
TextBox1.Focus()
End Sub

Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
autonum()
End Sub

Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
Try
If Not validation() Then
Exit Sub
End If

Dim str As String
If MessageBox.Show("Do u want to save ?", " Sample Code", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
str = "insert into tst(code,name) values(" & TextBox1.Text & ",'" & TextBox2.Text & "')"
If SendDataStr(str) = True Then
MessageBox.Show("Details are SAVED sucessfully", "Sample Code ", MessageBoxButtons.OK, MessageBoxIcon.None)
clear()
loaddata()
autonum()
Else
MessageBox.Show(" error in data")
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub


Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
Try
If Not validation() Then
Exit Sub
End If

Dim str As String
If MessageBox.Show("Do u want to save ?", "Sample Code", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
str = "update tst set name='" & TextBox2.Text & "' where code=" & TextBox1.Text & ""
If SendDataStr(str) = True Then
MessageBox.Show("Details are update sucessfully", "Sample Code ", MessageBoxButtons.OK, MessageBoxIcon.None)
clear()
loaddata()
autonum()
Else
MessageBox.Show(" error in data")
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click
If Not validation() Then
Exit Sub End If
Dim str As String
If MessageBox.Show("Do u want to save ?", "Sample Code", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
str = "delete from tst where code=" & TextBox1.Text & ""
If SendDataStr(str) = True Then
MessageBox.Show("Details are deleted sucessfully", "Sample Code", MessageBoxButtons.OK, MessageBoxIcon.None)
clear()
loaddata()
autonum()
Else
MessageBox.Show(" error in data")
End If
End If
End Sub

Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
Try
'vb.net 2003'
'Dim row As Integer = DataGrid.CurrentRowIndex
'txtcode.Text = DataGrid.Item(row, 0)
'txtname.Text = DataGrid.Item(row, 1)
'--------------------------------------------
'vb.net 2005
Dim row As Integer = DataGridView1.CurrentRow.Index
TextBox1.Text = DataGridView1.Rows(row).Cells(0).Value
TextBox2.Text = DataGridView1.Rows(row).Cells(1).Value
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
If MessageBox.Show("Do u want exit?", "Sample Code", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Me.Close()
Else
TextBox1.Focus()
End If
End Sub

Private Sub BtnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoad.Click
Try
loaddata()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
clear()
End Sub

Public Function validation()
If TextBox1.Text = "" Then
MessageBox.Show("Enter the Name", "Sample Code", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox1.Focus()
Return False
End If
If TextBox2.Text = "" Then
MessageBox.Show("Enter address1", "Sample Code", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox2.Focus()
Return False
End If
Return True
End Function

Public Sub DATAOPEN()
If ConnectionState.Open Then cn.Close()
cn.Open()
End Sub

Public Sub DATACLOSE()
cn.Close()
End Sub

Public Function getdatastr(ByVal cmdstr As String)
Try
DATAOPEN()
dtb = New DataTable("data")
ada = New SqlDataAdapter(cmdstr, cn)
ada.Fill(dtb)
Return dtb
DATACLOSE()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function

Public Function SendDataStr(ByVal cmdstr As String) As Boolean
Try
cmd = New SqlCommand(cmdstr, cn)
DATAOPEN()
cmd.ExecuteNonQuery()
DATACLOSE()
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function

Public Sub loaddata()
Dim dtb As DataTable = getdatastr("select * from tst order by code") DataGridView1.DataSource = dtb
End Sub

Public Sub autonum()
Try
Dim dtb As DataTable = getdatastr("select max(code)+1,0 from tst") TextBox1.Text = dtb.Rows(0).Item(0)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Public Sub clear()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'first you set below instruction
' form-right click -->properties --> key preview = true

If e.KeyCode = Keys.Enter Then
SendKeys.Send("{tab}")
End If
End Sub
End Class