Visual Basic'de veya VBA'DA alýnan Excel verileriyle ADOX nasýl kullanýlýr

• ADOX Catalogs
• Creating a Catalog


• ADOX Tables
• Creating a Table
• Deleting a Table


• ADOX Columns
• ADO Data Types Used with Excel
• Columns in General
• Creating Columns When Creating a Table
• Creating Columns in an Existing Worksheet
• Deleting Columns
• Changing the Data Type of an Existing Column


• Adding Data to Excel Tables and Columns
• Adding Data to Excel Columns That Are Created by ADOX
• Adding Data to Ordinary Excel Columns


• Using SQL CREATE, ALTER, and DROP Statements
• Conclusion

Üste

ADOX kataloglarý

• Bir ADO Connection nesnesini veya baðlantý dizesi, oluþturmak veya bir Catalog nesnesinin açmak için kullanabilirsiniz. Aþaðýdaki kod örneði, bir ADOX Kataloðu olarak Kitap1.xls açmaya verilmektedir:

  Dim cat As ADOX.Catalog
  Set cat = New ADOX.Catalog
  cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & App.Path & "\book1.xls;Extended Properties=Excel 8.0"
  					

• Katalog nesnesi Create yöntemi vardýr, ancak bir Sil yöntemine sahip deðil.

Bir Katalog oluþturma

Üste

ADOX tablolar

Bir tablo oluþturma

• ADOX yeni bir tablo oluþturma yeni bir çalýþma sayfasý hem de yeni bir adlandýrýlmýþ aralýk belirtilen adý taþýyan yeni bir çalýþma sayfasýnda oluþturur. Yeni adlandýrýlmýþ bir aralýk, sütun baþlýklarýný yayýlýr. Örneðin, iki sütunlu bir adlandýrýlmýþ aralýk Tablom tanýmlanan Tablom Tablom adlý bir tablo (çalýþma) oluþturursanýz,! $ A $ 1: $ B $ 1 ' de oluþturulur.
• Boþluk içeren bir tablo adý belirtebilirsiniz; Ancak, ADOX alaný alt çizgi, oluþturduðunuz çalýþma sayfasý ve aralýk adlarýný deðiþtirir.
• Yeni çalýþma kitabýndaki yeni bir çalýþma kitabýný Excel Seçenekleri'nde belirtilen boþ sayfalarý varsayýlan sayýsýný izleyen son sayfa olarak oluþturulur.
• Excel'de çalýþma kitabý açýkken, yeni bir tablo oluþturmak çalýþýrsanýz aþaðýdaki hata iletisini alýrsýnýz:
  Belirlenemeyen hata.
• Tanýmlanmýþ bir sütun içeren bir tablo oluþturmak çalýþýrsanýz, baþarýlý olmasý için görünür, ancak gerçekte hiçbir þey oluþturulur.
• Varolan bir tablonun adýný deðiþtirmeye çalýþýrsanýz, aþaðýdaki hata iletisini alýrsýnýz:
  Iþlem bu nesne türü için desteklenmiyor.

Tablo silme

• Çalýþma sayfasý (Tablom $) silmeye çalýþýrsanýz, hata baþarýlý olmasý için görünür, ancak çalýþma kitabýndaki çalýþma sayfasýnda kalýr. Art arda hatasýz <a2>Sil</a2> yöntemini ça??rabilirsiniz, ancak hiçbir etkisi yoktur.
• (Tablom) aralýðý silmeye çalýþýrsanýz, hata baþarýlý olmasý için görünür, ancak aralýðý çalýþma kitabýnda kalýr. Ancak, ikinci bir saat aralýðý silmeye çalýþýrsanýz, <a1>hata</a1> 3265 alýrsýnýz:
  Madde, karþýlýk gelen istenen ad veya sýra derleme içinde bulunamýyor.
• Adlandýrýlmýþ bir aralýk silmeye çalýþýrsanýz, adlandýrýlmýþ aralýk tanýmý olduðu gibi býrakýr, ancak tüm veriler silinir.

Üste

ADOX sütunlar

ADO veri türleri Excel ile birlikte kullanýlýr.

• adDouble, 5 yazýn.
• adDate, 7 yazýn.
• adCurrency, 6 yazýn.
• adBoolean, 11 yazýn.
• adVarWChar, 202 yazýn.
• ("Not") adLongVarWChar 203 yazýn

Genel sütun

• Bir tablonun herhangi bir veri satýrý içeren sürece, ek sütunlar bir daha önce oluþturulmuþ tabloya ekleyebilirsiniz.
• Boþluk içeren bir sütun adlarýný belirtebilirsiniz.
• ADOX, her zaman tek bir týrnak iþareti ('), örneðin 'F1' Sütun1, önünde sütun baþlýklarý oluþturur ' Sütun2. Ancak, bu adý týrnak iþareti alýnýr, çünkü daha sonra bir sorun neden görünmüyor.

Bir tablo oluþturma, sütunlar oluþturma

    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
	"Data Source=" & App.Path & "\book1.xls;Extended Properties=Excel 8.0"
    Set tbl = New ADOX.Table
    tbl.Name = "TestTable"
    Set col = New ADOX.Column
    With col
        .Name = "Col1"
        .Type = adDouble
    End With
    tbl.Columns.Append col
    Set col = Nothing
    Set col = New ADOX.Column
    With col
        .Name = "Col2"
        .Type = adVarWChar
    End With
    tbl.Columns.Append col
    cat.Tables.Append tbl
				

Varolan bir çalýþma sayfasýnda sütun oluþturma

Sütun silme

• Veri sütunu yok, bu hata baþarýlý olmasý için görünür, ancak sütun ve sütun baþlýðý kalýr.
• Silme iþlemi, sütun veri içeriyorsa, aþaðýdaki hata iletisiyle baþarýsýz olur:
  Geçersiz iþlem.

Varolan bir sütun veri türünü deðiþtirme

Üste

Verileri Excel tablolar ve sütunlar ekleme

ADOX tarafýndan oluþturulan, Excel sütuna veri ekleme

• Tüm metin dizesi deðerlerini tek týrnak iþareti öncesinde depolanýr. Ancak, bu deðeri týrnak iþareti alýnýr, çünkü daha sonra bir sorun neden görünmüyor.
• Bir metin dizesi içinde bir metin sütununu sayý veya sayý tanýmlanmýþ bir sütun eklemek denerseniz, hata 80040e21 alýrsýnýz:
  Birden fazla adýmlý iþlem hatalar oluþturdu. Her durum deðerini denetleyin.

Normal Excel sütun veri ekleme

• Metin dizeleri, yukarýdaki tek týrnak iþareti depolanýr.
• Sayýlar, sola hizalý görüntülenir. Excel 2002'de, "metin olarak depolanan sayýlar" uyarýr akýllý etiket ile numaralarýný bayrakla iþaretlenir. Veri ile çalýþýrken özellikle verileri Excel'e sayýsal çözümlemesi için depolanmýþ, bu sorun daha sonra neden olabilir.

Üste

SQL CREATE, DROP deyimleri ve ALTER kullanma

Üste

Sonuç

• ADOX, yeni bir tablo, Excel ile en iyi çalýþýr ve sütunlarýndan tümünü ayný anda oluþturulur.
• ADOX kullanarak oluþturulan bir çalýþma sayfasýnda depolanan verileri, ADO, Excel verileriyle en iyi þekilde çalýþýr.

Üste