Kwerendy i Excel aktualizacji danych przy u¿yciu obiektu ADO Z ASP

W tym artykule przedstawiono sposób tworzenia kwerend i aktualizacji informacje zawarte w arkuszu kalkulacyjnym programu Excel przy u¿yciu obiektów danych ActiveX (ADO) z Strony Active Server Pages (ASP). Opisano równie¿ ograniczeñ, nie s¹ skojarzone z tym typem aplikacji.

Wa¿ne: Jeœli Aplikacje ASP i ADO obs³ugi wielu u¿ytkowników, arkusz kalkulacyjny programu Excel nie obs³uguje. W zwi¹zku z tym nie obs³uguje tej metody tworzenia kwerend i aktualizowanie informacji równoczesny dostêp wielu u¿ytkowników.

Dostêp do danych w arkuszu kalkulacyjnym programu Excel to próbki nale¿y u¿yæ sterownik Microsoft ODBC dla programu Excel. Tworzenie tabeli dostêpu do dane, tworz¹c nazwany obszar komórek w arkuszu kalkulacyjnym programu Excel.

Kroki, aby utworzyæ aplikacjê przyk³adow¹

• Utwórz plik programu Excel ADOtest.xls z nastêpuj¹cych danych: w arkuszu Arkusz1:
  
  
  Zwiñ tê tabelêRozwiñ tê tabelê

  Kolumna1	Kolumna2	Kolumna3
  rekord zasobu	to	15
  bb	Test	20
  EE	Program Works	25

  
  Uwaga Jeœli kolumny w arkuszu kalkulacyjnym programu Excel zawiera zarówno tekst i numery, sterownik ODBC programu Excel nie mo¿e poprawnie zinterpretowaæ typu danych Kolumna powinna byæ. Upewnij siê, ¿e wszystkie komórki w kolumnie s¹ Ten sam typ danych. Trzy nastêpuj¹ce b³êdy mo¿e wyst¹piæ w przypadku ka¿dej komórki w kolumnie nie jest tego samego typu, lub mieæ typy mieszane miêdzy "tekst" i "Ogólne":
  1. Dostawca Microsoft OLE DB dla sterowników ODBC "80040e21"
     W³aœciwoœci ¿¹dania mog¹ nie byæ obs³ugiwane przez Ten sterownik ODBC.
  2. Dostawca Microsoft OLE DB dla sterowników ODBC '80004005'
     Kwerenda nie bêdzie mo¿liwa poniewa¿ go zawiera przeszukiwalnych kolumn s³u¿y jako klucz hopeful.
  3. Dostawca Microsoft OLE DB dla sterowników ODBC '80004005'
     Nie mo¿na zaktualizowaæ kwerendy oparte. Wiersza do aktualizacji nie mo¿na odnaleŸæ.

• Utworzyæ zakres o nazwie myRange1, arkusz kalkulacyjny:
  
  
  1. Podœwietl wiersze i kolumny obszar gdzie danych znajduje siê.
  2. W menu Wstaw wska¿ polecenie Nazwa, a nastêpnie kliknij przycisk Zdefiniuj.
  3. WprowadŸ zakres o nazwie myRange1 nazwy Nazwa.
  4. Kliknij przycisk OK.
  Zakres o nazwie myRange1 zawiera nastêpuj¹ce dane:
  
  
  Zwiñ tê tabelêRozwiñ tê tabelê

  Kolumna1	Kolumna2	Kolumna3
  rekord zasobu	to	15
  bb	Test	20
  EE	Program Works	25

  
  
  Uwaga Obiekty ADO zak³ada, ¿e pierwszy wiersz w kwerendzie programu Excel zawiera nag³ówki kolumn. Dlatego te¿ zakres o nazwie musi zawieraæ nag³ówki kolumn. Jest to zachowanie ró¿nych obiektów DAO.
  
  Uwaga Nag³ówki kolumn nie mo¿e byæ liczb¹. Nie mo¿na sterownika programu Excel zinterpretowane i zamiast tego odwo³ania zwraca wartoœæ komórki. Na przyk³ad w kolumnie Nag³ówek "f1" mo¿e byæ b³êdnie zinterpretowana.
• Tworzenie ODBC systemu Ÿród³a danych nazwie (DSN) wskazuj¹c plik ADOTest.xls.
  1. W Panelu sterowania otwórz ODBC Administrator.
  2. Na karcie systemowe DSN kliknij przycisk Dodaj.
  3. Wybierz sterownik programu Microsoft Excel (*.xls), a nastêpnie kliknij przycisk Zakoñcz. Jeœli ta opcja nie istnieje, nale¿y zainstalowaæ sterownik ODBC firmy Microsoft dla programu Excel z programu Excel.
  4. Wybierz ADOExcel dla nazwy Ÿród³a danych.
  5. Upewnij siê, ¿e wersja jest ustawiony na odpowiedni¹ wersjê Program Excel.
  6. Kliknij przycisk "Wybierz skoroszyt...", przejdŸ do ADOTest.xls plik, a nastêpnie kliknij przycisk OK.
  7. Kliknij przycisk "Opcje >>" przycisk i wyczyϾ odczytu" Tylko"pole wyboru.
  8. Kliknij przycisk OK, a nastêpnie kliknij przycisk OK.
• Ustaw uprawnienia do pliku ADOTest.xls.

Active Server Page jest uzyskiwaæ dostêp anonimowo, nale¿y Upewnij siê, ¿e konto anonimowe (IUSR_<machinename>) ma co najmniej Dostêp do odczytu i zapisu (RW) do arkusza kalkulacyjnego. Jeœli chcesz usun¹æ informacje z arkusza kalkulacyjnego nale¿y udzieliæ uprawnieñ odpowiednio.<b00></b00></machinename>

Jeœli s¹ uwierzytelniani dostêp do strony Active Server, trzeba zapewniæ odpowiednie wszystkich u¿ytkowników uzyskuj¹cych dostêp do aplikacji uprawnienia.

Uwaga Jeœli odpowiednie uprawnienia nie jest ustawiona na Arkusz kalkulacyjny, zostanie wyœwietlony komunikat o b³êdzie podobny do nastêpuj¹cego:

Microsoft OLE DB Provider for ODBC Drivers b³¹d '80004005'

1. Tworzenie nowej strony ASP i wklej poni¿szy kod:

         <!-- Begin ASP Source Code -->
         <%@ LANGUAGE="VBSCRIPT" %>
         <%
           Set objConn = Server.CreateObject("ADODB.Connection")
           objConn.Open "ADOExcel"
   
           Set objRS = Server.CreateObject("ADODB.Recordset")
           objRS.ActiveConnection = objConn
           objRS.CursorType = 3                    'Static cursor.
           objRS.LockType = 2                      'Pessimistic Lock.
           objRS.Source = "Select * from myRange1"
           objRS.Open
      %>
      <br>
      <%
         Response.Write("Original Data")
   
         'Printing out original spreadsheet headings and values.
   
         'Note that the first recordset does not have a "value" property
         'just a "name" property.  This will spit out the column headings.
   
         Response.Write("<TABLE><TR>")
         For X = 0 To objRS.Fields.Count - 1
            Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")
         Next
         Response.Write("</TR>")
         objRS.MoveFirst
   
         While Not objRS.EOF
            Response.Write("<TR>")
            For X = 0 To objRS.Fields.Count - 1
               Response.write("<TD>" & objRS.Fields.Item(X).Value)
            Next
            objRS.MoveNext
            Response.Write("</TR>")
         Wend
         Response.Write("</TABLE>")
   
         'The update is made here
   
         objRS.MoveFirst
         objRS.Fields(0).Value = "change"
         objRS.Fields(1).Value = "look"
         objRS.Fields(2).Value = "30"
         objRS.Update
   
         'Printing out spreadsheet headings and values after update.
   
         Response.Write("<br>Data after the update")
         Response.Write("<TABLE><TR>")
         For X = 0 To objRS.Fields.Count - 1
            Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")
         Next
         Response.Write("</TR>")
         objRS.MoveFirst
   
         While Not objRS.EOF
            Response.Write("<TR>")
            For X = 0 To objRS.Fields.Count - 1
               Response.write("<TD>" & objRS.Fields.Item(X).Value)
            Next
            objRS.MoveNext
            Response.Write("</TR>")
         Wend
         Response.Write("</TABLE>")
   
         'ADO Object clean up.
   
         objRS.Close
         Set objRS = Nothing
   
         objConn.Close
         Set objConn = Nothing
      %>
      <!-- End ASP Source Code -->
   					

2. Zapisz nadaj nazwê Active Server Page i wyœwietliæ go w przegl¹darki. Zostanie wyœwietlony poni¿ej:

         Original Data:
   
         column1    column2    column3
         -----------------------------
   
         rr         this       30
         bb         test       20
         tt         works      25
   
   
         Data after the update:
   
         column1    column2    column3
         -----------------------------
   
         change     look       30
         bb         test       20
         tt         works      25
   					

Uwaga Aktualizacja zosta³a wykonana na pierwszy wiersz zakresu o nazwie (po pozycjach).