sql eller sql+vba

You dont say much about how you decide what gets exported to each text file so its hard to give a precise solution. You could use a query for each but thats a lot of queries, so it may be easier using VBA.

Her er den querie som skal udskrives med forskellige WHERE. Der kommer muligvis en betingelse mere på i WHERE, men ikke i første omgang.

SELECT F0107, (F0102 & F0138), F0116, F0105, F0104, F0106, F0136, F0109, F0110, F0111, F0125, F0132, F0128, F0137, F0112
FROM Y03C
WHERE F0107=10
ORDER BY F0107, F0116, F0106, F0136, F0105, F0104;

Jeg formoder at du skal bryde data op i filer udfra et eller andet fast kriterie - muligvis din sorteringsnøgle? Der er ikke nogen "eksport" funktion direkte i SQL, så jeg ville starte med at lave en simpel sorteret query, kalde den fra VBA og lade opbrydningen i separate filer foregå i VBA.

I prakisk ville jeg bygge hver fil op som en tekststreng i VBA og først skrive den til disk når der ikke skal hældes flere data i den pågældende fil.

faithless>Why reject the answer I gave to your question "Hvad ville du bruge (sql el. vba+sql)og hvorfor ?? "


VBA+SQL!

For 30 points you will have to do something yourself :o)

terry> Det var ikke hensigten at afvise. Jeg kunne bare ikke finde ud af at smide en kommentar, uden at acceptere og jeg ville godt holde spørgsmålet åbent, for det kunne være der var nogle med andre idéer.

I may have an idea, but first I'm going to get something to eat. The solution I will suggest will require some VBA and a bit of work from you :o)

terry> Jeg syntes det er sjovt, at løse problemer og det er jo også den bedste måde at lære på. Derfor er det ikke en færdig pakket løsning jeg søger, men blot nogle ideer til hvordan "eksperter" ville løse det.

OK, this is just an example of how it can be done.
I have a test table named tblTest with the primary key = ID

You need to make a query so that it alreay exists, this is going to get modified in code so dont worry too much about what it selects. Name the query qryToExport



Make a function in a module.

Function ExportData()
Dim sSQL As String
Dim ctr As Integer

    For ctr = 1 To 5
       
        'Build the SQL in code
        sSQL = "SELECT * FROM tblTest WHERE ID = " & ctr

        'Now modify the queries SQL
        CurrentDb.QueryDefs("qryToExport").SQL = sSQL
 
        'Just to make sure there are records to export
        If DCount("ID", "tblTest", "ID = " & ctr) > 0 Then
            'Now export the query to a text file
            DoCmd.OutputTo acSendQuery, "qryToExport", acFormatTXT, "C:\test" & ctr & ".txt"
        End If
       
    Next ctr
   
End Function

Hope you see what is happening :o)

In the example I use the loop counter (ctr) as the criteria in the query. If you need to use something else then you will need to find a way of finding the correct criteria for each loop. Also if you need to use another file name!

terry> du får de 30 point, da du har brugt mest tid på svaret. Jeg kan bruge det VBA du har skrevet og arbejde videre ud fra det. Takker (c;

selv tak, og god jul :o)