Dator > hur man kör en SQL-sats mot ett Excel-kalkylblad

  • hur man kör en SQL-sats mot ett Excel-kalkylblad


  • Att veta hur man ska utföra Structured Query Language uttalanden mot ett Excel-ark kan vara värdefulla . Microsoft Excel är ett kalkylprogram som ingår i Microsoft Office-paketet . SQL används främst i relationsdatabaser , men kan också användas för att läsa ett Excel- kalkylblad . Visual Basic for Applications ( VBA ) används för att automatisera rutinuppgifter i Microsoft Office- program . I några få steg kan du skriva VBA- kod som ska köras en SQL-sats och läsa data sparas i ett Excel- kalkylblad .
    1 .
    Starta Microsoft Excel 2007 och skriv " COLUMN1 " i " A1 ", " kolumn2 " i " B1 ".

    Typ "A " i " A2 " , "B " i " A3 " , " C " i " A4 " , "D " i " A5 ".

    typ " 1 " i " B2 " , "2 " i " B3 " , "3 "i " B4 " , " 4 " i " B5 "



    Spara ditt kalkylblad till " C . : \ " som " book1. xls . "
    2 .
    Starta Microsoft Office Access 2007 och klicka på " tom databas "och välj sedan "Skapa ". Klicka på " Databas Verktyg "och välj " Visual Basic . "Klicka på " Infoga " och välj " Module "
    3
    Skriv följande för att skapa . " runSQLExcel " subrutin .



    Private Sub runSQLExcel ( )



    Tryck på " Enter ".
    4 .
    Skriv följande för att definiera variabler :



    Const adOStatic=3

    Const adLkOpt=3

    Const adCmdString= H1

    5
    Skriv följande för att definiera och öppna anslutningar till Excel- kalkylblad .



    Set objectConn=CreateObject ( " adodb . Anslutning " )

    Set objectRst=CreateObject ( " ADODB. Recordset " )



    objectConn. Open " Provider=Microsoft. Jet. OLEDB . 4,0 , " _

    " Data Source=C: \ Book1. xls , " _

    " Extended Properties=" " Excel 8. 0 , HDR=Ja ; "";"

    6
    Skriv följande för att köra en SQL-sats och öppna ett nytt Recordset .



    objectRst . Öppna " SELECT * FROM [ Blad1 $ ] " , _

    objectConn , adOStatic , adLkOpt , adCmdString
    7 .
    Skriv följande för att loopa igenom din Recordset och Visa resultat för båda kolumnerna i kalkylbladet :



    duga tills objectRst . EOF

    MsgBox " Colum1 : " objectRst. Fields. Item ( " COLUMN1 " ) Värdet "" _

    " Colum2 . " objectRst . Fields. Item ( " COLUMN2 " ) . Value

    objectRst. MoveNext

    Loop



    Tryck " F5 " att köra din subrutin .


Previous:nothing Next:hur man läser en CSV -fil med VB





Relaterade artiklar


  • hur man bifoga en befintlig Excel-filen i Visual Basic
  • hur man använder välja var att matcha på alla kolumner i DB2
  • medelaktivt javascript tutorial
  • hur man skapar ett Excel-ark från Visual Basic
  • hur man skapar MDI formulär
  • Visual Basic 6 projekt för nybörjare
  • vad är Visual Basic ide ?
  • Visual Basic-program tutorial
  • Vad är JavaScript ogiltigt ?
  • hur man dela upp en sträng i C