Timmy's

Data Grid

A Simple data grid example

Imports System.Data

Imports System.Data.SqlClient

Public Class Form1

Inherits System.Windows.Forms.Form

Dim getConnectionString As String = "uid=dmadmin;pwd=pass123;Initial Catalog=candidate;server=SERVER56;"

Dim ds As DataSet

Dim da As New SqlClient.SqlDataAdapter

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

bindgrid()

End Sub

Private Function bindgrid()

Dim cmdselect As New SqlCommand

Dim cmdinsert As New SqlCommand

Dim sql As String = "select * from tbl_candidate"

cmdselect.CommandText = sql

cmdselect.Connection = New SqlConnection(getConnectionString)

cmdinsert.CommandText = sql

cmdinsert.Connection = New SqlConnection(getConnectionString)

da.SelectCommand = cmdselect

da.InsertCommand = cmdinsert

ds = New DataSet

da.Fill(ds)

ds.Tables(0).Columns(0).ReadOnly = True

DataGrid1.DataSource = ds.Tables(0)

Dim ds1 As New SqlClient.SqlDataAdapter

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim da1 As New SqlDataAdapter

Try

'update command

Dim cmd As New SqlCommand("update tbl_candidate set str_name=@str_name where int_candidateid=@int_candidateid")

Dim sqlparam As New SqlParameter("@str_name", SqlDbType.VarChar, 50, "str_name")

Dim sqlparam1 As New SqlParameter("@int_candidateid", SqlDbType.Int, 50, "int_candidateid")

cmd.Connection = New SqlConnection(getConnectionString)

cmd.Parameters.Add(sqlparam)

cmd.Parameters.Add(sqlparam1)

da1.UpdateCommand = cmd

'insert

Dim cmd1 As New SqlCommand("INSERT INTO tbl_candidate (str_name) VALUES (@str_name1)")

Dim Sqlp2 As New SqlParameter("@str_name1", SqlDbType.VarChar, 50, "str_name")

cmd1.Parameters.Add(Sqlp2)

cmd1.Connection = New SqlConnection(getConnectionString)

da1.InsertCommand = cmd1

' delete

Dim cmd2 As New SqlCommand("DELETE FROM tbl_candidate WHERE int_candidateid=@int_candidateid")

Dim sqlp3 As New SqlParameter("@int_candidateid", SqlDbType.Int, 50, "int_candidateid")

cmd2.Parameters.Add(sqlp3)

cmd2.Connection = New SqlConnection(getConnectionString)

da1.DeleteCommand = cmd2

da1.Update(ds)

bindgrid()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

posted by Timmy K Tom @ 7:24 AM