Imports System.data.SqlClient
Public Class Form1
    Dim s As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\csdl1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
    Dim connect As New SqlConnection(s)
    Dim da As New SqlDataAdapter
    Dim ds As New DataSet
    Dim cmd As New SqlCommand
    Dim them1 As Boolean = False
    Dim xoa As Boolean = False
    Dim sua As Boolean = False
 
    Private Sub exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exit.Click
        End
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       	Try
            connect.Open()
            MessageBox.Show("connect ok")
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
 
    End Sub
 
    Private Sub showdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles showdata.Click
        If connect.State = ConnectionState.Closed Then
            connect.Open()
        Else
            Dim s As String = "select * from huycnt"
            cmd.CommandText = s
            cmd.CommandType = CommandType.Text
            cmd.Connection = connect
            da.SelectCommand = cmd
            ds.Clear()
            da.Fill(ds, "huycnt")
            dg.DataSource = ds.Tables("huycnt").DefaultView
        End If
        connect.Close()
    End Sub
 
Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
        txtma.Focus()
    End Sub
 
Private Sub Save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Save.Click
 
        If connect.State = ConnectionState.Closed Then
            connect.Open()
        Else
            Dim s As String = "insert into huycnt(id,name)values ('" + txtid.Text + "', '" + txtname.Text + "')"
            cmd.CommandText = s
            cmd.CommandType = CommandType.Text
            cmd.Connection = connect
            da.SelectCommand = cmd
            da.Fill(ds, "huycnt")
            'MessageBox.Show("success ")
            da.Update(ds, "huycnt")
 
 
            dg.Refresh()
 
 
        End If
        connect.Close()
 
    End Sub
End Class