Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Coś trzeba zmienić
anonim




Typ: Nie zarejestrowany
Coś trzeba zmienić

Dim rts As Recordset
    Dim Kategoria As String

    Set rts = CurrentDb.OpenRecordset("SELECT * from Katalog where (ID < 500000) And (Cena > 0)", dbOpenDynaset)
    Open Sciezka & "\nazwa_pliku.txt" For Output As #1
   
    Print #1, "category"
        Do Until rts.EOF
          Print #1, cs(rts!ID_kategorii)
        rts.MoveNext
    Loop
    rts.Close

Taki skryp który wybiera mi Id_kategorii z bazy, a ja potrzebował bym coś takiego, że jeśli on w wyciągnie wartość 6 żeby była zamieniana na 612, a 8 na 343, itd. Jak to zrobic ?

18-02-2005 18:05
  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

A jaki jest algorytm tej zamiany bo to tylko 2 przykłady i piszesz itd... i gdzie zamienić tylko wpisując do pliku ?

[Post edytowany dnia 18-02-2005 19:14 przez karolinavb]


_____________________________________________
Karolina

18-02-2005 19:12
Pokaż profil karolinavb  Wyślij email do karolinavb   
anonim




Typ: Nie zarejestrowany
I tu jest problem bo niewiem jak to ma wygladac do konca

prubuje cos w stylu

If (rts!ID_kategorii = 6) Then
                ID_kategorii = 66
End If

ele wypisuje mi na ekran ID_kategorii = 6, a jesli chodzi o to itd. to ze takich zamian bedzie ok 30 wiec poco wszystkie mam wypisywac, mnie chodzi o to jak zrobic to na jednym a reszte sobie przerobie.

18-02-2005 19:18
  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Pytałam gdzie masz to zmieniać czy podczas zapisywania do pliku tylko, jeśli tak to, traktując Twoj przykład dosłownie:

....

Select Case rts!ID_kategorii   
    Case 6
      Print #1, cStr(612)
    Case 8
      Print #1, cStr(343)
    ......
End Select
         
....

I dobrze radzę używać deklaracji w postaci
Dim rts As DAO.Recordset
Dim Kategoria As String


_____________________________________________
Karolina

18-02-2005 19:49
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1