sql-kyselyn tulos excel-formaattiin accessin vb:llä

sql-kyselijä

Asiakkaiden koneilla käytetään access-sovelluksia. Data on accessin mdb-tiedostossa serverillä. Asiakkaiden sovellukset tekevät sql-kyselyitä datalle. Onko accessin basicillä mahdollista tehdä sellaista operaatiota, että talletetaan sql-kyselyn tulos työasemalle excel-formaattiin?
Siis automaattisesti ilman mitään käyttäjän käynnistämiä export-valikkoja. Helpeissä kyllä kerrottiin, kuinka valikoista voidaan tehdä exportteja, mutta en löytänyt koodista esimerkkejä.

5

954

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • .....

      Luet esimerkiksi datan tauluista ja kirjoitat html-sivun jonka ainoana sisältönä on table-elementti jossa on taulun tavara. Excel osaa näyttää tuon tiedon oikein.

    • * * * * * * *

      Mikset rakenne exeliä käsittelemään access-kantaa?

      • sql-kyselijä

        No kun sovellus on käytössä noin 10 eri työasemalla ja näiden yhteisessä tietokannnassa on 20 taulua. Sovellus on muuten valmis ja jo käytössä, mutta muutama raportti pitäisi pystyä tulostamaan myös excel-muodossa (paperin lisäksi). En ala kirjoittamaan sovellusta uusiksi excelillä. En usko, että excel on hyvä tietokantasovellusten rakentamistyökalu. Voiko sillä edes tehdä client-server-sovelluksia?


      • * * * * * * *
        sql-kyselijä kirjoitti:

        No kun sovellus on käytössä noin 10 eri työasemalla ja näiden yhteisessä tietokannnassa on 20 taulua. Sovellus on muuten valmis ja jo käytössä, mutta muutama raportti pitäisi pystyä tulostamaan myös excel-muodossa (paperin lisäksi). En ala kirjoittamaan sovellusta uusiksi excelillä. En usko, että excel on hyvä tietokantasovellusten rakentamistyökalu. Voiko sillä edes tehdä client-server-sovelluksia?

        Tarkoitin, mikset kirjoita yhtä excel -sivupohjaa, joka hakee raportin tietokannasta automaattisesti. Ecxel -pohjan puolestaan voisi jakaa kiinnostuneille käyttäjille. Ymmärtääkseni Excel voisi käyttää vaikka sopivaa kyselyä, joka on laadittu Accessissa, jottei ohjelmointi työ kasvaisi kovin suureksi. Tämä tietysti olettaen, että itse raportti on suhteellisen yksinkertainen, vähän ohjelmoimista vaativa. Toinen oletus on, ettei tietokanta muodosta omaa toimivaa sovellusta, mitä ei tulisi rikkoa.

        Muista että Excelin VBA on formeineen joustava ohjelmointikieli ja ainakin yhteistoimintaa on kuullut mainostettavan. Ei ole kovin huono asia säästää käyttäjää ylimääräiseltä työvaiheelta, jos hän voisi käyttää simppeliä raportointipohjaa.


    • ei hän siinä tartte kuin referenssit Exceliin
      ja siirtää datan sinne.
      Tiedot voit viedä esim. toiseen tauluun ja sitten toiseen teet raportin.En ajanut koodia läpi,mutta luultavasti pitäisi toimia.musita referenssi exceliin....

      Private Sub Tulosta_Click()
      Dim xl As Excel.Application
      Dim Kohde As Workbook
      Dim objDB As Database
      Dim objRS As Recordset
      Dim SQL As String
      Dim luku As Integer
      Set xl = New Excel.Application
      Set Kohde = Workbooks.Open("C:\Lähettämö\Lähete.xls", False, False)
      Set objDB = CurrentDb()
      SQL = "SELECT Merkki,Ovityyppi,Kpl,ToimitettuKpl,OikeaLeveys,OikeaKorkeus,Huom From Tilaukset WHERE Lähetyslista=False AND LaskunNumero= " & CboLaskunnumero & " "
      Set objRS = objDB.OpenRecordset(SQL, dbOpenDynaset)

      Worksheets("Data").Activate
      Range("A2:G1000") = ""
      Range("A2").CopyFromRecordset objRS
      xl.DisplayAlerts = False
      Kohde.Close SaveChanges:=false
      'tähän tulostusalue ja tulostusjutut
      xl.DisplayAlerts = True
      Set xl = Nothing
      Set Kohde = Nothing
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Metsäkoneen kuljettaja huuteli tutkijalle

      "voisit kyllä ottaa rintaliivit pois ennen kuin tulet minulle juttelemaan, hän sanoo." https://yle.fi/a/74-20106446 On
      Suomussalmi
      704
      10250
    2. Suomi on täysin sekaisin

      Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-2000010
      Maailman menoa
      421
      4543
    3. Kaikki ei vieläkään usko luontokatoon.

      Suomussalmen Hukkajoella foliohattu metsäkoneen kuljettaja tuhosi tuhansia harvinaisia jokihelmisimpukoita eli raakkuja
      Kajaani
      92
      3084
    4. Sano vain suoraan, että nyt riittää

      ettei kiinnosta. Sano, että lopeta! En ihmettelisi, jos olet saanut tarpeeksesi ja toivot minun ymmärtävän lopettaa. Eh
      Ikävä
      43
      2875
    5. Ohhoh! Ex-pääministeri Sanna Marinin Joni-rakas paljasti ilouutisen: "Tässä kuussa..."

      Sanna Marin on ollut naimisissa Markus Räikkösen kanssa. Nyt hänen seurassaan on usein julkkishiusmuotoilija Joni Willb
      Kotimaiset julkkisjuorut
      55
      2704
    6. Mari Rantanen asettaa sairaan lapsen edun oman uransa edelle - (tekikö Marin samaa)

      Noin toimii kunnon vastuuntuntoinen äiti, mutta siitäkin nämä mt-ongelmaiset vasemmistolaiset häntä täällä haukkuvat. "
      Maailman menoa
      230
      2698
    7. Mitä ajattelet aina

      Kun hän tulee näköpiiriin?
      Ikävä
      154
      1874
    8. Luokatonta toimintaa

      Tyrmistyttävää toimintaa Stora Enson korjuu yrittäjältä Hukkajoella. Täyttä piittaamattomuutta laeista ja luontoarvoista
      Suomussalmi
      73
      1748
    9. Ensimmäisestä kohtaamisesta saakka

      minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa
      Ikävä
      14
      1640
    10. Maailmankuulu homopingviini on kuollut

      Minä niin toivoin että pariskunta olisi saatu kunniavieraiksi ensi kesän Prideen. 💔 "Maailmankuulu homopingviini on k
      Lapua
      6
      1443
    Aihe