ADO.NET almak için kullanýlýr ve bir Excel çalýþma kitabý Visual Basic .NET ile kayýtlarýnda Deðiþtir

Üste

Jet OLE DB saðlayýcý ile Microsoft Excel çalýþma kitaplarý için nasýl kullanýlýr

Baðlantý dizesi

Veri türleri

Tablo adlandýrma kurallarý

• Dolar iþareti) ve ardýndan <a1>Sayfa</a1> adýný kullanmak (örneðin, [Sayfa1 $] veya [benim çalýþma sayfasý $]). Bu þekilde baþvurulan BIR çalýþma kitabýný tabloya tüm kullanýlan çalýþma sayfasý aralýðýný içerir.
  Seçin * [Sayfa1 $]'ndan
• Bir aralýðý, tanýmlý bir ad (örneðin, [MyNamedRange]) kullanýn:
  Seçin * [MyNamedRange]'ndan
• Belirli bir adresle bir aralýk kullanýn (örneðin, [Sayfa1 $ A1: B10]):
  Seçin * gelen [Sayfa1 $ A1: B10]

Üste

Kullaným Excel çalýþma kitaplarýna olarak ADO.NET veri kaynaklarý hakkýnda

Kayýtlarý alma

Ekleme ve kayýtlarý güncelleþtirme

• Doðrudan bir kerede veya <a1>kayýtlar</a1> bir komutu çalýþtýrýn. Bunu yapmak için <a0></a0>, baðlantýnýzda OLEDbCommand nesne oluþturabilir ve CommandText özelliðini, kayýtlarý eklemek için geçerli bir komut kümesi
  
  

  INSERT INTO [Sheet1$] (F1, F2) values ('111', 'ABC')

  kayýtlarý güncelleþtirmek için bir komut veya
  
  

  UPDATE [Sheet1$] SET F2 = 'XYZ' WHERE F1 = '111'

  ve sonra da ExecuteNonQuery yöntemini çaðýrýn.
• Deðiþiklikleri, bir Excel çalýþma kitabýndan bir tablo/sorgu doldurduktan ve daha sonra DataSet deðiþiklikleri çalýþma kitabýna yeniden çözümlemek için DataAdapterUpdate yöntemini çaðýran bir DataSet yapýn. Ancak, için DataAdapter parametreli ayarlamalýsýnýz çözünürlüðünü deðiþtirme komutlarý için güncelleþtirme yöntemini kullanmanýn ýnsertcommand

  INSERT INTO [Sheet1$] (F1, F2) values (?, ?)

  ve UpdateCommand:

  UPDATE [Sheet1$] SET F2 = ? WHERE F1 = ?

  OleDbDataAdapter anahtarý/dizin bilgileri için Excel çalýþma kitaplarýný saðlamaz, çünkü parametreli INSERT ve UPDATE komutlarý gereklidir; anahtarý/Endeks alanlarýný, the CommandBuilder otomatik olarak komutlarý için oluþturamýyor.
• Verileri baþka bir veri verme, veri kaynaðý Jet OLE DB saðlayýcýsýnda kullanýlabilir olduðunu bir Excel çalýþma kitabýna kaynak. Verileri metin dosyalarýna, Jet OLE DB Saðlayýcýsý'ný bu þekilde ile kullanabileceðiniz kaynaklar dahil Microsoft Access veritabanlarý ve kuþkusuz, baþka bir Excel çalýþma kitaplarýný. Tek bir INSERT INTO komutla, baþka bir tablo/sorgu, bir çalýþma kitabýna verebilirsiniz:

  INSERT INTO [Sheet1$] IN 'C:\Book1.xls' 'Excel 8.0;' SELECT * FROM MyTable"

  INSERT INTO gerektiren hedef tablo (veya çalýþma sayfasý) zaten var; veriler, hedef tabloya eklenir.
  
  SELECT kullanýyor olabilirsinizTablo/Sorgu bir çalýþma kitabýna vermek INTO:

  SELECT * INTO [Excel 8.0;Database=C:\Book1.xls].[Sheet1] FROM [MyTable]

  SELECT kullandýðýnýzdaHedef Tablo veya çalýþma kitabýný yoksa INTO, sizin için oluþturulur. SELECT önce tablo yoksaINTO komutu, bir hata iletisi görüntülenir.

Kayýtlarý silme

Çalýþma kitaplarýný ve tablolar oluþturma

CREATE TABLE Sheet1 (F1 char(255), F2 char(255))

Üste

Adým Adým

Örnek kod

1. Yeni bir Visual Basic .NET Windows uygulamasý projesi baþlatýn.
   
   Varsayýlan olarak, Form1 oluþturulur.
2. Form1 ' için altý RadioButton denetimleri ve düðme denetimi ekleyin.
3. RadioButton denetimleri tümünü seçin ve 200,24 için size özelliðini ayarlayýn.
4. Görünüm menüsünde kodu ' ý týklatýn.
5. Kodu modüle çok baþlangýcýna kadar aþaðýdaki satýrý ekleyin:

   Imports System.Data.OleDb

6. Form sýnýfýnýn aþaðýdaki kodu ekleyin:

   Private m_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                  "Data Source=C:\ExcelData1.xls;" & _
                  "Extended Properties=""Excel 8.0;HDR=YES"""
   
   Private m_sConn2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                  "Data Source=C:\ExcelData2.xls;" & _
                  "Extended Properties=""Excel 8.0;HDR=YES"""
   
   Private m_sNorthwind = _
         "C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb"
   
   Private m_sAction As String
   
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         RadioButton1.Text = "Create_Workbook"
         RadioButton2.Text = "Retrieve_Records"
         RadioButton3.Text = "Add_Records"
         RadioButton4.Text = "Update_Records"
         RadioButton5.Text = "Update_Individual_Cells"
         RadioButton6.Text = "Use_External_Source"
         Button1.Text = "Go!"
   End Sub
   
   Private Sub RadioButtons_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
         Handles RadioButton1.Click, RadioButton2.Click, RadioButton3.Click, _
         RadioButton4.Click, RadioButton5.Click, RadioButton6.Click
         m_sAction = sender.Text'Store the text for the selected radio button
   End Sub
   
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Try
            ' Call the associated routine to add/update/modify the workbook.
            Select Case m_sAction
               Case "Create_Workbook" : Create_Workbook()
               Case "Retrieve_Records" : Retrieve_Records()
               Case "Add_Records" : Add_Records()
               Case "Update_Records" : Update_Records()
               Case "Update_Individual_Cells" : Update_Individual_Cells()
               Case "Use_External_Source" : Use_External_Source()
            End Select
   
         Catch ex As OleDbException
            Dim er As OleDbError
            For Each er In ex.Errors
               MsgBox(er.Message)
            Next
         Catch ex2 As System.InvalidOperationException
            MsgBox(ex2.Message)
         End Try
   
   
   End Sub
   
   Public Sub Create_Workbook()
   
         ' If the workbooks already exist, prompt to delete.
         Dim answer As MsgBoxResult
         If Dir("C:\ExcelData1.xls") <> "" Or Dir("C:\ExcelData2.xls") <> "" Then
             answer = MsgBox("Delete existing workbooks (C:\ExcelData1.xls and " & _
                      "C:\ExcelData2.xls)?", MsgBoxStyle.YesNo)
             If answer = MsgBoxResult.Yes Then
                 If Dir("C:\ExcelData1.xls") <> "" Then Kill("C:\ExcelData1.xls")
                 If Dir("C:\ExcelData2.xls") <> "" Then Kill("C:\ExcelData2.xls")
             Else
                 Exit Sub
             End If
         End If
   
   '==========================================================================
         ' Create a workbook with a table named EmployeeData. The table has 3 
         ' fields: ID (char 255), Name (char 255) and Birthdate (date).  
   '==========================================================================
         Dim conn As New OleDbConnection()
         conn.ConnectionString = m_sConn1
         conn.Open()
         Dim cmd1 As New OleDbCommand()
         cmd1.Connection = conn
         cmd1.CommandText = "CREATE TABLE EmployeeData (Id char(255), Name char(255), BirthDate date)"
         cmd1.ExecuteNonQuery()
         cmd1.CommandText = "INSERT INTO EmployeeData (Id, Name, BirthDate) values ('AAA', 'Andrew', '12/4/1955')"
         cmd1.ExecuteNonQuery()
         conn.Close()
   
   '==========================================================================
         ' Create a workbook with a table named InventoryData. The table has 3 
         ' fields: Product (char 255), Qty (float) and Price (currency). 
   '==========================================================================
   
         conn.ConnectionString = m_sConn2
         conn.Open()
         Dim cmd2 As New OleDbCommand()
         cmd2.Connection = conn
         cmd2.CommandText = "CREATE TABLE InventoryData (Product char(255), Qty float, Price currency)"
         cmd2.ExecuteNonQuery()
         cmd2.CommandText = "INSERT INTO InventoryData (Product, Qty, Price) values ('Cola', 200, 1.35)"
         cmd2.ExecuteNonQuery()
         cmd2.CommandText = "INSERT INTO InventoryData (Product, Qty, Price) values ('Chips', 550, 0.89)"
         cmd2.ExecuteNonQuery()
         conn.Close()
   
         ' NOTE: You can ALTER and DROP tables in a similar fashion.
   
   End Sub
   
   Public Sub Retrieve_Records()
   
         '==========================================================
         'Use a DataReader to read data from the EmployeeData table.
         '==========================================================
   
         Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
         conn1.Open()
         Dim cmd1 As New System.Data.OleDb.OleDbCommand("Select * From [EmployeeData$]", conn1)
         Dim rdr As OleDbDataReader = cmd1.ExecuteReader
   
         Debug.WriteLine(vbCrLf & "EmployeeData:" & vbCrLf & "=============")
         Do While rdr.Read()
            Debug.WriteLine(System.String.Format("{0,-10}{1, -15}{2}", _
               rdr.GetString(0), rdr.GetString(1), _
               rdr.GetDateTime(2).ToString("d")))
         Loop
         rdr.Close()
         conn1.Close()
   
         '========================================================
         'Use a DataSet to read data from the InventoryData table.
         '========================================================
         Dim conn2 As New OleDbConnection(m_sConn2)
         Dim da As New OleDbDataAdapter("Select * From [InventoryData$]", conn2)
         Dim ds As DataSet = New DataSet()
         da.Fill(ds)
         Debug.WriteLine(vbCrLf & "InventoryData:" & vbCrLf & "==============")
         Dim dr As DataRow
         For Each dr In ds.Tables(0).Rows'Show results in output window
            Debug.WriteLine(System.String.Format("{0,-15}{1, -6}{2}", _
               dr("Product"), dr("Qty"), dr("Price")))
         Next
         conn2.Close()
   
   End Sub
   
   Public Sub Add_Records()
   
   '==========================================================================
         ' Run an INSERT INTO command to add new records to the workbook. 
   '==========================================================================
         Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
         conn1.Open()
         Dim cmd As New System.Data.OleDb.OleDbCommand()
         cmd.Connection = conn1
         cmd.CommandText = "INSERT INTO [EmployeeData$] (ID, Name, BirthDate) values ('CCC', 'Charlie', '10/14/48')"
         cmd.ExecuteNonQuery()
         cmd.CommandText = "INSERT INTO [EmployeeData$] (ID, Name, BirthDate) values ('DDD', 'Deloris', '7/19/98')"
         cmd.ExecuteNonQuery()
         conn1.Close()
   
         '====================================================================
         'Use the InsertCommand object to add new records to the InventoryData
         'table.
         '====================================================================
         Dim conn2 As New OleDbConnection(m_sConn2)
         Dim da As New OleDbDataAdapter("Select * From [InventoryData$]", conn2)
         Dim ds As DataSet = New DataSet()
         da.Fill(ds, "MyExcelTable")
   
         ' Generate the InsertCommand and add the parameters for the command.
         da.InsertCommand = New OleDbCommand( _
            "INSERT INTO [InventoryData$] (Product, Qty, Price) VALUES (?, ?, ?)", conn2)
         da.InsertCommand.Parameters.Add("@Product", OleDbType.VarChar, 255, "Product")
         da.InsertCommand.Parameters.Add("@Qty", OleDbType.Double).SourceColumn = "Qty"
         da.InsertCommand.Parameters.Add("@Price", OleDbType.Currency).SourceColumn = "Price"
   
         ' Add two new records to the dataset.
         Dim dr As DataRow
         dr = ds.Tables(0).NewRow
         dr("Product") = "Bread" : dr("Qty") = 390 : dr("Price") = 1.89 : ds.Tables(0).Rows.Add(dr)
         dr = ds.Tables(0).NewRow
         dr("Product") = "Milk" : dr("Qty") = 99 : dr("Price") = 2.59 : ds.Tables(0).Rows.Add(dr)
   
         ' Apply the dataset changes to the actual data source (the workbook).
         da.Update(ds, "MyExcelTable")
         conn2.Close()
   
   End Sub
   
   Public Sub Update_Records()
   
   '==========================================================================
         ' Run an UPDATE command to change a record in the EmployeeData
         ' table.
   '==========================================================================
         Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
         conn1.Open()
         Dim cmd As New System.Data.OleDb.OleDbCommand()
         cmd.Connection = conn1
         cmd.CommandText = "UPDATE [EmployeeData$] " & _
                       "SET NAME = 'Aaron', BirthDate = '5/4/1975' WHERE ID = 'AAA'"
         cmd.ExecuteNonQuery()
         conn1.Close()
   
         '====================================================================
         ' Use the UpdateCommand object to modify records in the InventoryData
         ' table.
         '====================================================================
         Dim conn2 As New OleDbConnection(m_sConn2)
         Dim da As New OleDbDataAdapter("Select * From [InventoryData$]", conn2)
         Dim ds As DataSet = New DataSet()
         da.Fill(ds, "MyInventoryTable")
   
         ' Generate the UpdateCommand and add the parameters for the command.
         da.UpdateCommand = New OleDbCommand( _
            "UPDATE [InventoryData$] SET Qty = ?, Price=? WHERE Product = ?", conn2)
         da.UpdateCommand.Parameters.Add("@Qty", OleDbType.Numeric).SourceColumn = "Qty"
         da.UpdateCommand.Parameters.Add("@Price", OleDbType.Currency).SourceColumn = "Price"
         da.UpdateCommand.Parameters.Add("@Product", OleDbType.VarChar, 255, "Product")
   
         ' Update the first two records.
         ds.Tables(0).Rows(0)("Qty") = 1000
         ds.Tables(0).Rows(0)("Price") = 10.1
         ds.Tables(0).Rows(1)("Qty") = 2000
         ds.Tables(0).Rows(1)("Price") = 20.2
   
         ' Apply the dataset changes to the actual data source (the workbook).
         da.Update(ds, "MyInventoryTable")
         conn2.Close()
   
   End Sub
   
   Public Sub Update_Individual_Cells()
   
   '==========================================================================
         ' Update individual cells on the EmployeeData worksheet; 
         ' specifically, cells F3, G3, and I4 are modified.
   '==========================================================================
   
         ' NOTE: The connection string indicates that the table does *NOT* 
         ' have a header row.
         Dim conn As New System.Data.OleDb.OleDbConnection(m_sConn1.Replace("HDR=YES", "HDR=NO"))
         conn.Open()
         Dim cmd As New System.Data.OleDb.OleDbCommand()
         cmd.Connection = conn
         cmd.CommandText = "UPDATE [EmployeeData$F3:G3] SET F1 = 'Cell F3', F2 = 'Cell G3'"
         cmd.ExecuteNonQuery()
         cmd.CommandText = "UPDATE [EmployeeData$I4:I4] SET F1 = 'Cell I4'"
         cmd.ExecuteNonQuery()
         conn.Close()
   
   End Sub
   
   Public Sub Use_External_Source()
   
         ' Open a connection to the sample Northwind Access database.
         Dim conn As New System.Data.OleDb.OleDbConnection( _
               "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & m_sNorthwind & ";")
         conn.Open()
         Dim cmd As New System.Data.OleDb.OleDbCommand()
         cmd.Connection = conn
   
   '=======================================================================
         ' Run an INSERT..INTO command on the Northwind database to append 
         ' the records from a table/query to an existing table in the Excel 
         ' workbook.
   '=======================================================================
         cmd.CommandText = "INSERT INTO [EmployeeData$] IN 'C:\ExcelData1.xls' 'Excel 8.0;'" & _
            "SELECT EmployeeID AS ID, FirstName AS Name, BirthDate FROM Employees"
         cmd.ExecuteNonQuery()
   
   '==========================================================================
         ' Run a SELECT..INTO command on the Northwind database to insert 
         ' all the records from a table/query into a new sheet in the Excel 
         ' workbook.
   '==========================================================================
         cmd.CommandText = "SELECT * INTO [Excel 8.0;Database=C:\ExcelData2.xls].[ProductSales]" & _
                         "FROM [Product Sales for 1997]"
         cmd.ExecuteNonQuery()
   
         conn.Close()
   
   End Sub

7. Gerekiyorsa, kodda m_sNorthwind üyesi için Northwind örnek Access veritabanýnýn yolu deðiþtirin.

Deneyin

1. Görünüm menüsünde Diðer Windows iþaret ve Çýktý penceresini görüntülemek için Çýkýþ ' ý týklatýn.
2. Oluþturmak ve bu programý çalýþtýrmak için F5 tuþuna basýn.
3. Create_Workbook ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn. Iki yeni çalýþma kitaplarý oluþturmak için CREATE TABLE komutlarý Create_Workbook yordamýný çalýþtýrýr: C:\ExcelData1.xls ve C:\ExcelData2.xls. Bir sayfa ExcelData1.xls içeren EmployeeData (tablo) adlý ve ExcelData2.xls InventoryData adlý bir sayfa (tablo) içerir. Tablolarý, kayýtlarý ile doldurulur.
   
   Not: Bu sýnama kalan her adýmý, sonuçlarý incelemek için Excel'deki çalýþma kitaplarýný açýn. Veya, Retrieve_RecordsÇýktý pencere, Visual Studio .NET tablo içeriðini görüntülemek için týklatýn.
4. Retrieve_Records ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn. Retrieve_Records yordamý kayýtlarý tablodan gelen ayýklar ve buna benzer Çýkýþ penceresinde görüntüleyen:

   EmployeeData:
   =============
   AAA       Andrew         12/4/1955
   
   InventoryData:
   ==============
   Cola           200   1.35
   Chips          550   0.89

5. Add_Records ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn. Add_Records yordamý her tablo için iki kaydý ekler:

   EmployeeData:
   =============
   AAA       Andrew         12/4/1955
   CCC       Charlie        10/14/1948
   DDD       Deloris        7/19/1998
   
   InventoryData:
   ==============
   Cola           200   1.35
   Chips          550   0.89
   Bread          390   1.89
   Milk           99    2.59

6. Update_Records ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn. Çalýþma kitabýndaki her iki kayýt Update_Records yordamýna güncelleþtirir:

   EmployeeData:
   =============
   AAA       Aaron          5/4/1975
   CCC       Charlie        10/14/1948
   DDD       Deloris        7/19/1998
   
   InventoryData:
   ==============
   Cola           1000  10.1
   Chips          2000  20.2
   Bread          390   1.89
   Milk           99    2.59

7. Update_Individual_Cells ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn. Belirli hücreleri EmployeeData çalýþma sayfasýnda bulunan ExcelData1.xls Update_Individual_Cells yordamýna deðiþtirir; bu özellikle hücreleri F3 G3, ý4 güncelleþtirilir.
8. Use_External_Source ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn. INSERT kullandýðýnýzdaKomutu Use_External_Source yordamýna ExcelData1.xls EmployeeData çalýþma 'Çalýþanlar' Northwind tablodan kayýt ekler. Ve bir SELECT Use_External_Source kullanýrYeni bir tablo (veya sayfa) içinde ExcelData2.xls oluþturmak için komut INTO Northwind tablodaki kayýtlarýn tümünü 'Ürün' içerir.
   
   Not: Use_External_Source, birden çok kez týklatýrsanýz, çünkü birincil anahtar tanýnan ya da zorlanan çalýþanlar listesi birden çok kez eklenir.

Üste

hücre biçimlendirme

1. Oluþturmak ve örnek çalýþtýrmak için F5 tuþuna basýn.
2. Form1, Create_Workbook ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn.
3. Microsoft Excel'i baþlatýn ve C:\ExcelData1.xls açýn.
4. Kalýn yazý tipi stili, A2 hücresi için geçerlidir.
5. Bir italik biçimlendirme uygular, B2 hücresi stiline altý çizili ve Merkeze Hizala.
6. Bir uzun tarih biçimi, C2 hücresinin uygulayýn.
7. Kaydedip C:\ExcelData1.xls kapatýn.
8. Form1, Add_Records ' ý týklatýn ve sonra da <a2>Git</a2>'i týklatýn.
9. C:\ExcelData1.xls Excel'de açýn ve iki yeni satýrlarý ilk satýrdan biçimlendirme devralýnmýþ dikkat edin.

Üste

Sýnýrlamalarý

• ADO.NET kullanarak hücreleri, formül ekleyemiyor.
• Jet OLE DB saðlayýcýsý bir Excel çalýþma kitabýndaki tablolar için anahtar/dizin bilgileri deðiþtiremiyor. Bu nedenle, bir Excel çalýþma kitabýnda güncelleþtirmeler ve eklemeler kayýtlarý otomatik olarak oluþturmak için CommandBuilder kullanamazsýnýz.

Üste