Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient


Public Class demoform
    Dim pass As String
    Dim user As String

    Dim conn As SqlConnection
    Dim dr As DataRow
    Dim dt As DataTable
    Dim dsResult As New DataSet
    Dim objDataAdapter As SqlDataAdapter
    Dim sConnection As String
    Dim cmdBuilder As SqlCommandBuilder
    Dim bs As BindingSource

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

        LoginDialog.ShowDialog()


        sConnection = "Server=PRESONIC-PC\FUNSQL;Database=pre_accounting;Uid=" & user & "; Pwd=" & pass & ";"

        conn = New SqlConnection(sConnection)

        objDataAdapter = New SqlDataAdapter("SELECT * FROM dbo.customers", conn)

        bs = New BindingSource


        ' in order to use command builder, there must be a primary key in the table
        cmdBuilder = New SqlCommandBuilder(objDataAdapter)

        objDataAdapter.Fill(dsResult)


        'TableView = dsResult.Tables(0).DefaultView
        dgvplay.DataSource = dsResult.Tables(0).DefaultView



        bs.DataSource = dsResult.Tables(0)

        TextBox1.DataBindings.Add("Text", bs, dsResult.Tables(0).Columns(0).ColumnName)
        TextBox2.DataBindings.Add("Text", bs, dsResult.Tables(0).Columns(1).ColumnName)
        TextBox3.DataBindings.Add("Text", bs, dsResult.Tables(0).Columns(2).ColumnName)
        'MaskedTextBox1.DataBindings.Add("Text", bs, dsResult.Tables(0).Columns("ssn").ColumnName)
        'MaskedTextBox1.DataBindings.Add("Text", bs, dsResult.Tables(0).Columns("ssn").ColumnName)


    End Sub


    Public Sub userpass_pass(ByVal the_user As String, ByVal the_pass As String)
        user = the_user
        pass = the_pass
    End Sub

    Private Sub update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updategv.Click

        objDataAdapter.Update(dsResult, dsResult.Tables(0).TableName)

    End Sub

    Private Sub nextrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextrow.Click

        bs.MoveNext()


    End Sub

    Private Sub updatetextbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        objDataAdapter.Update(dsResult, dsResult.Tables(0).TableName)
    End Sub

    Private Sub previous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previous.Click
        bs.MovePrevious()
    End Sub

    Private Sub dgvplay_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvplay.CellContentClick
        bs.Position = dgvplay.CurrentRow.Index
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'insert row?
        dsResult.Tables(0).TableName.Insert(0, "blah")
    End Sub
End Class