CH Guravaiah Ответов: 3

Как импортировать данные excel в базу данных MS access в приложении windows с помощью vb.net

привет друзья,у меня есть требование к базе данных MS access. импорт данных excel в базу данных ms access с помощью vb.net . это новое требование для меня. Пожалуйста, кто-нибудь, помогите мне.....

Тусклый Доступ Как Строка = "C:\Users\grva3242\Desktop\guru.mdb"

Dim Excel As String = "C:\Users\grva3242\Desktop\NLRMP\RSR.XLS"
'Дим подключить как String = "поставщика=Майкрософт.Джет.Oledb для.4.0;Источник данных=" &амп; в формате Excel &ампер; ";расширенные свойства=в Excel 8.0;"

Дим подключить как String = "поставщика=Майкрософт.Туз.Oledb для.12.0;Источник данных=" + в Excel + ";дополнительные свойства=""значение Excel 12.0 XML с;РКР=нет"""


Используя коробки как новый объект oledbconnection(подключение)
Использование cmd в качестве новой OleDbCommand()
УМК.Соединение = conn
УМК.Свойства commandtext = "вставить в [мѕ Access;базы данных=" &амп; доступ &ампер; "].[деревня] выберите * от [Лист1$]"
Коннектикут.Открыть()
УМК.Метод executenonquery()
Конец Использования
Конец Использования


Here village is empty table in guru database.

I got the error is :<b>Could not find file 'C:\Users\grva3242\Desktop\guru.mdb'.</b>

Devangrathod

Этот код дает мне следующую ошибку.. pl.pl.pl... Помоги мне! ..
"Оператор INSERT INTO содержит следующее неизвестное имя поля: 'F1'. Убедитесь, что имя введено правильно, и повторите операцию."

3 Ответов

Рейтинг:
1

Nirav Prabtani

http://social.msdn.microsoft.com/Forums/en-US/ba1f1926-3524-4375-8812-3ff300293b12/import-excel-sheet-to-access-database-using-vbnet[^]

http://www.vbforums.com/showthread.php?675506-RESOLVED-Import-from-Excel-into-existing-Access-table[^]

Рейтинг:
0

Rakesh Meel 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     Dim fln As String = "D:\flName.xls"

     Dim conn As String

     conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & fln & ";" & "Extended Properties=Excel 8.0;"

     Dim con As OleDbConnection = New OleDbConnection(conn)

     Dim da As OleDbDataAdapter = New OleDbDataAdapter()

     Dim cmd As OleDbCommand = New OleDbCommand()

     cmd.Connection = con 

     cmd .CommandText = "SELECT * FROM [Sheet1$]"

     da.SelectCommand = cmd 

     Try

         da.Fill(ds1, "sheet1")

         MessageBox.Show("The import is complete!")

         Me.DataGridView1.DataSource = ds1

         Me.DataGridView1.DataMember = "sheet1"

     Catch e1 As Exception

         MessageBox.Show("Import Failed, correct Column name in the sheet!")

     End Try

 End Sub

Рейтинг:
0

Member 12533928 

Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Imports System
Imports System.Windows.Forms

Public Class Form1
    Private Excel03ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties='Excel 8.0;HDR={1}'"
    Private Excel07ConString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties='Excel 8.0;HDR={1}'"

    

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RadioButton1.Checked = True
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim filePath As String = OpenFileDialog1.FileName
        Dim extension As String = Path.GetExtension(filePath)
        Dim header As String = If(RadioButton1.Checked, "YES", "NO")
        Dim conStr As String, sheetName As String

        conStr = String.Empty
        Select Case extension

            Case ".xls"
                'Excel 97-03
                conStr = String.Format(Excel03ConString, filePath, header)
                Exit Select

            Case ".xlsx"
                'Excel 07
                conStr = String.Format(Excel07ConString, filePath, header)
                Exit Select
        End Select

        'Get the name of the First Sheet.
        Using con As New OleDbConnection(conStr)
            Using cmd As New OleDbCommand()
                cmd.Connection = con
                con.Open()
                Dim dtExcelSchema As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
                sheetName = dtExcelSchema.Rows(0)("TABLE_NAME").ToString()
                con.Close()
            End Using
        End Using

        'Read Data from the First Sheet.
        Using con As New OleDbConnection(conStr)
            Using cmd As New OleDbCommand()
                Using oda As New OleDbDataAdapter()
                    Dim dt As New DataTable()
                    cmd.CommandText = (Convert.ToString("SELECT * From [") & sheetName) + "]"
                    cmd.Connection = con
                    con.Open()
                    oda.SelectCommand = cmd
                    oda.Fill(dt)
                    con.Close()

                    'Populate DataGridView.
                    DataGridView1.DataSource = dt
                End Using
            End Using
        End Using
    End Sub

    End Class

[no name]

Вау... весь этот код 3 года спустя для простой ошибки "файл не найден"?