Wie verbinden VB.Net Excel als Datenbank-Verbindung?

Brauche ich eine Datenbank-Verbindung mit microsoft excel, aber ich weiß nicht, welche codes ich sollte

verwenden. Ich kann nur tun, eine Verbindung zwischen access und VB, aber in excel kann ich nicht

Ich kopiert diese in das Netz, aber es funktioniert nicht auf mich

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim MyConnection As System.Data.OleDb.OleDbConnection
    Dim DtSet As System.Data.DataSet
    Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
    'Fill the [Excel file fullpath] with specific value
    MyConnection = New System.Data.OleDb.OleDbConnection _
    ("provider=Microsoft.ACE.OLEDB.12.0;Data Source= E:\DATABASE\VBtoExcel\VBtoExcel\bin\DataBaseExcel.xlsx; Extended Properties=Excel 12.0;")
    MyCommand = New System.Data.OleDb.OleDbDataAdapter _
        ("select * from [Sheet1]", MyConnection)
    MyCommand.TableMappings.Add("Table", "TestTable")
    DtSet = New System.Data.DataSet
    MyCommand.Fill(DtSet)
    DataGridView1.DataSource = DtSet.Tables(0)
    MyConnection.Close()

End Sub
  • Vergessen Sie nicht über Ihre excel-DB-Verbindung ... cnXLS = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source=test.xls; Extended Properties=Excel 8.0;") ... für xls 2003 ..
InformationsquelleAutor Gin | 2014-03-21
  1. 2

    Die syntax zum auswählen von einem Blatt einer Excel-Datei erfordert die $ - Zeichen am Ende der Platte-Namen.

    MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
                                                                  ^^^^^^^^^^

    Einen Tipp, fügen Sie die Import-Anweisung für das System.Daten.OleDb um Ihre Datei. So könnten Sie kürzere Namen

    MyCommand = New OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
    InformationsquelleAutor Steve
  2. 0
    Imports System.Data.OleDb

Public Class Form1
    Dim cn As New OleDbConnection
    Dim cm As New OleDbCommand


    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source =O:\design\Connect to Excel\Agent.xls;extended properties=excel 8.0;"
        cn.Open()

        With cm
            .Connection = cn
            .CommandText = "insert into [Data Agent$]values('" & TxtId.Text & "','" & TxtName.Text & "')"
            .ExecuteNonQuery()

        End With
        cn.Close()
        MsgBox("Sucessfully", MsgBoxStyle.Information, Text)


    End Sub

    Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
        ' Close()

    End Sub
End Class
    InformationsquelleAutor saravana
Schreibe einen Kommentar