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

941

    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. Tärkeä kysymys!

      Haluatko sinä, mies, minut?
      Ikävä
      88
      1184
    2. Asiallinen lähestyminen

      Mitä on asiallinen lähestyminen?? Tietääkö tai tajuaako kukaan, varsinkaan miehet??? Eilen NELJÄNNEN kerran jouduin isk
      Sinkut
      151
      1016
    3. En tiedä..

      Yhtään minkälainen miesmaku sinulla on. itse arvioin sinua moneenkin otteeseen ja joka kerta päädyin samaan lopputulokse
      Ikävä
      50
      701
    4. Jennika Vikman avoimena - Isosisko Erika Vikman ohjeisti napakasti Tähdet, tähdet -kisaan: "Älä.."

      Jennika ja Erika - niin ovat kuin kaksi marjaa! Ilmeiltään, ääneltään ja eleiltään hyvinkin samanlaiset - toinen on kyll
      Suomalaiset julkkikset
      14
      700
    5. Vedalainen metafysiikka

      Termi ”metafysiikka” kuuluu Aristoteleelle. Metafysiikka tarkoittaa ”fysiikan jälkeen” eli tietoa siitä, mikä on tavalli
      Hindulaisuus
      287
      685
    6. Mitäs nainen

      Meinaat tehdä viikonloppuna.
      Ikävä
      60
      674
    7. Ai jaa sinä oletkin ahnas

      Ja romanttinen luonne, nyt vasta hiffasin että olet naarastiikeri. Parempi myöhään kuin ei milloinkaan.
      Ikävä
      107
      660
    8. En oikeastaan usko että sinä tai kukaan

      Olisi oikeasti ihastunut tai rakastunut. Se on joku harhakuva joka minusta miehestä syntyi. Ja kun se särkyy, niin "tunt
      Ikävä
      42
      614
    9. Viime yönä mietin paikkoja luonnossa, missä olen kulkenut

      kävellyt ja ikävöinyt, ja ollut niin yksin. Monet kerrat. Ne palauttavat mieleeni sinut ja sen, kuinka kipeää on se kaip
      Ikävä
      57
      602
    10. Milloin viimeksi näit ikäväsi kohteen?

      Oliko helppo tunnistaa hänet? Millaisia tunteita tuo näkeminen herätti sinussa?
      Ikävä
      35
      585
    Aihe