Usuwanie wybranych wierszy w wybranym pliku csv z poziomu Accessa

Thread View: pl.comp.bazy-danych.msaccess

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by piotr1011 Thu, 20 Aug 2015 13:37

#133681

Author: piotr1011
Date: Thu, 20 Aug 2015 13:37

10 lines
343 bytes

Witam
Potrzebujê z poziomu accessa usuwaæ wybrane wiersze  w pliku który znajduje siê w ustalonej lokalizacji.Plik CSV LUB TXT
Ilo¶æ wierszy do usuniêcia powinna byæ mo¿liwa do wybrania.
Nastêpnie plik powinien byæ zaimportowany do bazy.

Mo¿e Kto¶ z Was ma ju¿ taki kod ?

Bêde wdziêczny za pomoc

Pozdrawiam

Re: Usuwanie wybranych wierszy w wybranym pliku csv z poziomu Accessa

#133682

Author: Wyluzowany
Date: Fri, 21 Aug 2015 01:46

26 lines
766 bytes

W dniu czwartek, 20 sierpnia 2015 22:37:28 UTC+2 u¿ytkownik piotr1011 napisa³:
> Witam
> Potrzebujê z poziomu accessa usuwaæ wybrane wiersze  w pliku który znajduje siê w ustalonej lokalizacji.Plik CSV LUB TXT
> Ilo¶æ wierszy do usuniêcia powinna byæ mo¿liwa do wybrania.

[..]

6.5 Jak sprawdziæ ile linii zawiera plik ?
http://www.faq.accdb.pl/15a_VbaFileFaq.htm#vba15a_05

6.6 Jak pobraæ kolejne linie z pliku ?
http://www.faq.accdb.pl/15a_VbaFileFaq.htm#vba15a_06

6.7 Jak usun±æ kolejne linie z pliku ?
http://www.faq.accdb.pl/15a_VbaFileFaq.htm#vba15a_07

> Nastêpnie plik powinien byæ zaimportowany do bazy.
> Mo¿e Kto¶ z Was ma ju¿ taki kod ?
> Bêde wdziêczny za pomoc

http://tinyurl.com/ns233bb


-- 
Luzak

Re: Usuwanie wybranych wierszy w wybranym pliku csv z poziomu Accessa

#133683

Author: piotr1011
Date: Fri, 21 Aug 2015 06:34

2 lines
33 bytes

Dzieki za wskazówki

Pozdrawiam

Re: Usuwanie wybranych wierszy w wybranym pliku csv z poziomu Accessa

#133685

Author: piotr1011
Date: Mon, 24 Aug 2015 04:20

35 lines
927 bytes

Witam
Podstawi³ek dane do kodu , ale niestety wywala b³±d 438.
Co ¼le zrobi³em.


Private Sub Command110_Click()

 Dim arrRet() As String
 Dim lRet As Long
 Dim i As Long
 Const MY_PATHFILE As String = "C:\Users\---\Desktop\Baza s\DaneL\dsd.csv"

    On Error Resume Next
        ' usuñ (trzy) linie: nr 2, 3 i 4
        lRet = Command110(MY_PATHFILE, 1, 4)
        If lRet > 0 Then
            Debug.Print "Usuniêto linii: "; lRet
            Debug.Print String(25, "=")
        ElseIf lRet = 0 Then
            Debug.Print "lRet = " & lRet
            Debug.Print "B³±d nr: " & Err.Number
            Debug.Print "Opis b³êdu: " & Err.Description
            Debug.Print "¬ród³o b³êdu: " & Err.Source
        Else
            Debug.Print "lRet = "; lRet, "pusty lub za krótki plik"
        End If
    On Error GoTo 0

    DoCmd.RunCommand acCmdDebugWindow


End Sub


Pozdrawiam

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads