Question

我有一个项目，我应该将表单转换为Excel文件并从此文件中写入列，因为ComboBox（cmbbxContinent）的内容在这里是代码

Function GetDatafromExcelSheet(ByVal FilePath As String, ByVal Sql As String) As DataTable
    Dim MyConnection As New OleDb.OleDbConnection
    Dim MyCommand As New OleDb.OleDbCommand
    Dim da As New OleDb.OleDbDataAdapter
    Dim dt As New DataTable
    MyConnection.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source='" & FilePath & "';Extended Properties=Excel 8.0"
    MyCommand.Connection = MyConnection
    MyCommand.CommandText = Sql
    da.SelectCommand = MyCommand
    da.Fill(dt)
    Return dt
End Function

Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
    Dim dt As New DataTable
    dt = GetDatafromExcelSheet("C:\Users\MZ\Atlas\database\atlas.xls", "select distinct Continent from [data$]")
    cmbbxContinent.DataSource = dt
    cmbbxContinent.DisplayMember = dt.Columns(0).ToString
    cmbbxContinent.ValueMember = dt.Columns(0).ToString
    cmbbxContinent.SelectedIndex = 1
End Sub

问题是： - 我在教程中看到了相同的代码并且它有效 - 文件的路径没有问题 - 工具名称中没有错误（cmbbxContinent） - 我开始调试时得到的消息是： “'data $'不是有效名称。请确保它不包含无效字符或标点符号，并且不会太长。” 此消息发生在语句“da.Fill（dt）” - 我正在使用Visual Studio 10;这可能是问题，因为教程是旧版本的吗？

抱歉，我是Visual Studio和Visual Basic的新手，请帮忙感谢

Visual Basic无法从Excel文件中读取

0 个答案: