如何将值从Datagridview保存到数据库中的表 [英] How Do I Save The Values From The Datagridview To Table In The Database

问题描述

Imports DemoExcelFileHandling.DataSet1
Imports DemoExcelFileHandling.DataSet1TableAdapters


Public Class ReadFromExcel
    Private dt As New dtMonthDataTable
    Private ta As New taMonth
    Private bs As New BindingSource

    Private Sub BindUI()
        dgvExcelData.AutoGenerateColumns = False
        colYear.DataPropertyName = "Year1"
        colMonth.DataPropertyName = "Month1"
        colFacility.DataPropertyName = "Facility"
        colProductCode.DataPropertyName = "ProductCode"
        colProductDesc.DataPropertyName = "ProductDesc"
        colUnit.DataPropertyName = "UnitOfIssue"
        colBegBalance.DataPropertyName = "Beginning_Balance"
        colQtyReceived.DataPropertyName = "QuantityReceived"
        colQtyDispensed.DataPropertyName = "QuantityDispensed"
        colLosses.DataPropertyName = "Losses  "
        colAdjustments.DataPropertyName = "Adjusments"
        colEndingBal.DataPropertyName = "Ending_Balance_Book"
        colEndingBalPhysical.DataPropertyName = "Ending_Balance_Physical"
        ColQtyLeft.DataPropertyName = "3_months_shelflife"
        colQtyRequired.DataPropertyName = "Quantity_Ordered"



    End Sub

    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        If ofdOpenFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
            txtFileName.Text = ofdOpenFile.FileName
        End If
    End Sub

    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
        If Not String.IsNullOrEmpty(txtFileName.Text) Then
            Try
                btnClose.Enabled = False
                Dim OExcelHandler As New ExcelHandler()
                Dim ds As DataSet = OExcelHandler.GetDataFromExcel(txtFileName.Text.Trim())

                If ds IsNot Nothing Then
                    dgvExcelData.SelectionMode = DataGridViewSelectionMode.FullRowSelect
                    dgvExcelData.EditMode = DataGridViewEditMode.EditProgrammatically
                    dgvExcelData.DataSource = ds.Tables(0)
                End If

            Catch ex As Exception

            Finally
                btnClose.Enabled = True
            End Try
        End If
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Close()
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        bs.EndEdit()
        ta.Update(dt)
    End Sub

    Private Sub ReadFromExcel_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BindUI()
    End Sub
End Class

推荐答案

这篇关于如何将值从Datagridview保存到数据库中的表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！