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


Public Class demoform
    Dim pass As String
    Dim user As String

    Dim dr As DataRow
    Dim dt As DataTable
    Dim dsResult As New DataSet
    Dim TableView As DataView
    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 & ";"

        objDataAdapter = New SqlDataAdapter("SELECT * FROM dbo.medtype", sConnection)

        bs = New BindingSource

        If Not IsNothing(objDataAdapter) Then


            ' 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 = TableView


            TextBox1.DataBindings.Add(New Binding("Text", dsResult.Tables(0), "med_name"))



        End If


    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'dr = dsResult.Tables(0).Rows(1)

    End Sub
End Class