Database.vb
Imports
System.Data.SqlClient
Public Class Database
Dim con As New SqlConnection("Data Source=G20;Initial Catalog=Me;Integrated
Security=True")
Public Sub cnopen()
If
con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
End Sub
Public Sub cnclose()
If
con.State <> ConnectionState.Closed Then
con.Close()
End If
End Sub
Public Function Displaygrid(ByVal
query As String)
As DataTable
Dim dt As New DataTable()
cnopen()
Dim cmd
As New
SqlCommand(query, con)
Dim da As New
SqlDataAdapter(cmd)
da.Fill(dt)
Return
dt
End Function
//Auto Increment Code
Public Function getid(ByVal
query As String)
As Integer
Dim a As Integer
cnopen()
Dim cmd
As New
SqlCommand(query, con)
If
cmd.ExecuteScalar.ToString = "" Then
a = 0
Else
a = Convert.ToInt32(cmd.ExecuteScalar.ToString())
a = a + 1
Return
a
End If
End Function
Sub insert(ByVal query As String)
cnopen()
Dim cmd
As New
SqlCommand(query, con)
cmd.ExecuteNonQuery()
MessageBox.Show("INSERTION DONE")
cnclose()
End Sub
Sub update(ByVal query As String)
cnopen()
Dim cmd
As New
SqlCommand(query, con)
cmd.ExecuteNonQuery()
MessageBox.Show("UPDATION DONE")
cnclose()
End Sub
Sub delete(ByVal query As String)
If
MessageBox.Show("Do You Really Want to Delete
Record?", "Delete",
MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
cnopen()
Dim cmd As New
SqlCommand(query, con)
cmd.ExecuteNonQuery()
MessageBox.Show("DELETEION DONE")
cnclose()
Else
MessageBox.Show("DELETEION DISCARDED")
End If
End Sub
End Class
FORM.vb
Imports
System.Data
Imports
System.Data.SqlClient
Public Class Form3
Dim a As Integer
Dim db As New Database
Dim dt As New DataTable
Dim cmd As New SqlCommand
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
a = db.getid("select
max(id) from login")
TextBox1.Text = Convert.ToString(a)
db.cnclose()
Button2.Enabled = True
Button1.Enabled = False
End Sub
Sub
DisplayGrid()
dt = db.Displaygrid("select * from login")
DataGridView1.DataSource = dt
End Sub
Private Sub Form3_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Button2.Enabled = False
DisplayGrid()
Bind()
End Sub
‘BIND TEXTBOX
WITH GRIDVIEW
Sub Bind()
TextBox1.DataBindings.Add("text", dt, "id")
TextBox2.DataBindings.Add("text", dt, "uname")
TextBox3.DataBindings.Add("text", dt, "password")
End Sub
Sub
clearbind()
TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
End Sub
Private Sub Button8_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click
Me.BindingContext(dt).Position
= 0
End Sub
Private Sub Button7_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button7.Click
Me.BindingContext(dt).Position
-= 1
End Sub
Private Sub Button6_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
Me.BindingContext(dt).Position += 1
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Me.BindingContext(dt).Position
= Me.BindingContext(dt).Count - 1
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
db.cnopen()
db.insert("insert
into login(id,uname,password) values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')")
db.cnclose()
Button2.Enabled = False
Button1.Enabled = True
DisplayGrid()
clearbind()
Bind()
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
db.update("update
login set uname='" + TextBox2.Text + "'
, password='" + TextBox3.Text + "'
where id='" + TextBox1.Text + "'")
DisplayGrid()
clearbind()
Bind()
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Dim a As String
a = TextBox1.Text
db.delete("Delete
from login where id='" + a + "'")
DisplayGrid()
clearbind()
Bind()
End Sub
End Class
Comments
Post a Comment