Just nu i M3-nätverket
Jump to content

Skapa textfil från databas


Patronbutiken

Recommended Posts

Patronbutiken

Går det att via en asp-sida skapa en textsträng innehållande data från två tabeller så att de blir semikolonseparerade typ:

select from kund, vagn

Så att det skrivs så här i textfilen

"Kundavd" (skrivs inte)

Kundnr; Adress; Postnr; (nästa kund)

 

"Vagnavd" (skrivs inte)

Kundnr; Artikelnr; Artikel

(nästa artikel som motsvarar Kundnr)

 

En annan beskrivning

Kunduppgifter hämtas från tabell kund

Alla rtiklar hämtas från tabell artiklar som motsvarar kundnr.

Alla resultat skall skrivas i en text-fil för att sedan importeras till ett bokföringsprg.

 

Tack så länge!

/Peter

 

Link to comment
Share on other sites

Magnus Gladh

JA!

 

- Magnus

-----------------------------------------------------

Ropen skalla, BBB (eller BOSTREAM) åt alla!!!

 

Link to comment
Share on other sites

Olle Nyrén

Rem Set Conn = databasanslutning
SQL = "SELECT k.Kundnr, k.Adress, k.Postnr, a.Artikelnr, a.Artikel FROM Kund AS k LEFT OUTER JOIN Artiklar AS a ON k.Kundnr = a.Kundnr ORDER BY k.Kundnr, a.Artikelnr"
Set RS = Conn.Execute(SQL)

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.CreateTextFile(Server.MapPath("/filen.txt"), True)
senasteKundnr = ""
While Not RS.EOF
If senasteKundnr <> RS("Kundnr") Then
senasteKundnr = RS("Kundnr")
fil.WriteLine("(Ny kund)")
fil.WriteLine(RS("Kundnr") & ";" & RS("Adress") & ";" & RS("Postnummer"))
End If
fil.WriteLine(RS("Kundnr") & ";" & RS("Artikelnr") & ";" & RS("Artikel"))
RS.MoveNext
Wend
fil.Close

 

mvh

Olle

 

EDIT: liten buggfix

[inlägget ändrat 2003-08-07 09:21:31 av Olle Nyrén]

Link to comment
Share on other sites

Patronbutiken

Provade detta som du skrev och det funkade klockrent, med ett undantag, alla kunder i kundregistret skrevs ut.

 

Det jag tror behövs är väl nåt liknande i selectsatsen

Where k,kundnr = Request.QueryString("Kundnr") eller har jag fel? jag får det inte att funka iallafall.

Kundnr kommer från ett Rs från förg sida och är textfält i databasen om det är till nån hjälp.

 

Mvh

Peter

 

Link to comment
Share on other sites

Olle Nyrén

Aha, du ville bara ha en kund?

Rem Set Conn = databasanslutning
SQL = "SELECT k.Kundnr, k.Adress, k.Postnr, a.Artikelnr, a.Artikel FROM Kund AS k LEFT OUTER JOIN Artiklar AS a ON k.Kundnr = a.Kundnr WHERE k.Kundnr = '" & Request.QueryString("Kundnr") & "' ORDER BY a.Artikelnr"
Set RS = Conn.Execute(SQL)

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.CreateTextFile(Server.MapPath("/filen.txt"), True)
If Not RS.EOF Then
fil.WriteLine(RS("Kundnr") & ";" & RS("Adress") & ";" & RS("Postnummer"))
End If
While Not RS.EOF
fil.WriteLine(RS("Kundnr") & ";" & RS("Artikelnr") & ";" & RS("Artikel"))
RS.MoveNext
Wend
fil.Close

 

mvh

Olle

 

Link to comment
Share on other sites

Patronbutiken

jag provade detta men det funkade inte, kan det vara så att den förg. sidan tolkar rs.kundnr som ett tal? och därför blir det fel? när man skickar det till den koden du hjälper mig med?

 

Mvh

Peter

 

Link to comment
Share on other sites

Patronbutiken

Ska försöka förklar mig lite bättre,

Jag har tre tabeller. Kunder, Artiklar samt NyaOrder

Tabellen kunder innehåller alla kunduppgifter.

Tabellen NyaOrder innehåller bara de artiklar som kunden har lagt i kundvagnen

Tabellen Artiklar innehåller Artikeluppg.

Fält Artnr är texttyp

Fälten i NyaOrder är |Kundnr|Artnr|Antal|

Fält Kundnr,Artnr är text. Antal är Tal

Nyckelfält i Kunder är Kundnr vilken är texttyp

Selectsatsen skall alltså bli typ:

Select KUND.*, NyaOrder.Kundnr, NyaOrder.Artnr, Artiklar.Artnr Where Kund.Kundnr = NyaOrder.Kundnr And kundnr = request.QueryString kundnr and and NyaOrder Artnr = Artiklar.Artnr

 

Hoppas det klarnade lite :-)

 

Mvh

Peter

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...