vb.net中以Excel为数据库的FROM子句中的语法错误

2024-05-04 • 问答

运行vb.net应用程序后出现语法错误。我还将一个excel文件用作所有数据所在的数据库。我找不到错误。任何帮助将不胜感激。

Imports System.Data.OleDb
Imports System.IO
Public Class Welcome
    Private Sub ImportExceldata(DataExcelFile As String,ImportData As DataGridView)


        Try
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim dataSet As System.Data.DataSet
            Dim MyCommand As System.Data.OleDb.OleDbdataAdapter


            MyConnection = New System.Data.OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;Data Source='" & DataExcelFile & "';Extended Properties=Excel 8.0;")
            MyCommand = New System.Data.OleDb.OleDbdataAdapter("SELECT * FROM Area Code,Metropolian Area,Annual Fixed Cost,Wage per hour from[Candidates Call Center Location$]",MyConnection)
            MyCommand.TableMappings.Add("Table","Attendace")
            dataSet = New System.Data.DataSet
            MyCommand.Fill(dataSet)
            ImportData.DataSource = dataSet.Tables(0)

            'DataGridView1.DataSource = dataSet.Tables(0)

            MyConnection.Close()

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        ImportExceldata("C:\Users\Home\Desktop\dss.xlsx",DataGridView1)
    End Sub
End Class

尝试一下

MyCommand = New System.Data.OleDb.OleDbDataAdapter("SELECT [Area Code],[Metropolian Area],[Annual Fixed Cost],[Wage per hour] FROM [Candidates Call Center Location$]",MyConnection)

Imports System.Data.OleDb
Imports System.IO
Imports System.Data.DataTable

Public Class Welcome
Private Sub ImportExceldata(DataExcelFile As String,ImportData As DataGridView)



    If ComboBox1.SelectedIndex.Equals(0) Then
        Try
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim dataSet As System.Data.DataSet
            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
            MyConnection = New     System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" &     DataExcelFile & "';Extended Properties=Excel 8.0;")
            MyCommand = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM     [CandidatesCallCenterLocation$]",MyConnection)
            'MyCommand.TableMappings.Add("Table","Attendace")
            dataSet = New System.Data.DataSet
            MyCommand.Fill(dataSet)
            ImportData.DataSource = dataSet.Tables(0)
            DataGridView.DataSource = dataSet.Tables(0)


            MyConnection.Close()

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

    ElseIf ComboBox1.SelectedIndex.Equals(1) Then
        Try
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim dataSet As System.Data.DataSet
            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
            MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & DataExcelFile & "';Extended Properties=Excel 8.0;")
            MyCommand = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [ExpectedNumberofCalls$]","Attendace")
            dataSet = New System.Data.DataSet
            MyCommand.Fill(dataSet)
            ImportData.DataSource = dataSet.Tables(0)
            DataGridView.DataSource = dataSet.Tables(0)
            MyConnection.Close()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    ElseIf ComboBox1.SelectedIndex.Equals(2) Then
        Try
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim dataSet As System.Data.DataSet
            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
            MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & DataExcelFile & "';Extended Properties=Excel 8.0;")
            MyCommand = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [CostProcessingTelephoneCalls$]","Attendace")
            dataSet = New System.Data.DataSet
            MyCommand.Fill(dataSet)
            ImportData.DataSource = dataSet.Tables(0)
            DataGridView.DataSource = dataSet.Tables(0)
            MyConnection.Close()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

    End If
End Sub

Private Sub Button1_Click(sender As Object,e As EventArgs)

End Sub

Private Sub ComboBox_SelectedIndexChanged(sender As Object,e As EventArgs)     Handles ComboBox1.SelectedIndexChanged

    ImportExceldata("C:\Users\Home\Desktop\dss.xlsx",DataGridView)

End Sub  
End Class

vb.net中以Excel为数据库的FROM子句中的语法错误

anxinsimu 回答：vb.net中以Excel为数据库的FROM子句中的语法错误

大家都在问