美文网首页
VB.NET ADO 读取mysql

VB.NET ADO 读取mysql

作者: 大华日记 | 来源:发表于2018-07-19 13:33 被阅读60次
Imports System.Data.OleDb

Public Class Form1
    '需要先引入ado 库

    '功能函数,读取excel
    '这个函数可以不用管内部的实现方法
    '传入 excel名称,与excel sheet表名,'从excel中读取数据,返回dataset
    'dataset 是一种数据结构,使用方法在下一个函数


    Function ReadExcel(FileName As String, SheetName As String)
        Dim _Connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<FilePath>;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"""
        Dim excConn As New OleDb.OleDbConnection(_Connectstring.Replace("<FilePath>", FileName))
        '上两行打开一个读取excel的链接

        Dim mydataset As DataSet = New DataSet
        Using da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [" & SheetName & "$]", excConn)
            Try
                da.Fill(mydataset, SheetName)
            Catch ex As Exception
                Console.WriteLine(ex)
            End Try
        End Using
        '上面一段将数据写入到一个dataset中

        Return mydataset
    End Function

    '从dataset中读取一个数据
    '传入上个函数返回的dataset ,sheet名, 第几行,第几列, 返回数据
    '用法看内部
    Function ReadCell(dataset As DataSet, SheetName As String, row As Integer, col As Integer)
        Return dataset.Tables(SheetName).Rows(row).Item(col)
    End Function

    '下面函数包含了一个示例=——=
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ExcelDataSet As DataSet = New DataSet
        '调用ReadExcel 函数从excel读取到dataset
        ExcelDataSet = ReadExcel("D:\Orders1.xls", "Orders")

        For i = 1 To 10
            For j = 1 To 2
                '调用readcell 从dataset中读取某一单元格的数据
                Console.WriteLine(ReadCell(ExcelDataSet, "Orders", i, j))
                TextBox1.AppendText(ReadCell(ExcelDataSet, "Orders", i, j))
                '换行
                TextBox1.AppendText(vbCrLf)
            Next j
        Next i

    End Sub

End Class

相关文章

网友评论

      本文标题:VB.NET ADO 读取mysql

      本文链接:https://www.haomeiwen.com/subject/rchtmftx.html