a jak pozbyć się komunikatów przy kwerendzie ?

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Tylko chodzi mi o komunikaty przy konkretnej kwerendzie, a nie globalnie

Link do wypowiedzi

Bartek Borczyk Operator liczb i
słów

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

No ale jak...? Bez kodu? Się nie da, raczej.

Jakby ją ruszyć z kodu to ja bym to tak:



With DoCmd

    .SetWarnings False

    .RunSQL "tu sql"

    .SetWarnings True

End With

Bartosz Borczyk edytował(a) ten post dnia 17.09.09 o godzinie 16:59

Link do wypowiedzi

Jacek Dzwonkowski Informatyk, Bazy
danych, OEE

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

uruchomisz też kwerę makrem i tam też masz opcje okno ustaw ostrzeżenie - dajesz na nie. ale na końcu makra daj na tak :) Wyłączanie komunikatów jest groźne !!

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Dzięki.

A nie macie wrażenia że bez sęsu że nie ma tego po prostu jako właściwość kwerendy ?

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

currentproject.connection.execute "delete from costam"

dim a as adodb.recordset
set a = currentproject.connection.execute ("select from costam")

o nic nie pyta tylko robi za pomocą ADO a nie DAO tak jak docmd.runsql lub docmd.openquery

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Maciek Głuszak:
Dzięki.

A nie macie wrażenia że bez sęsu że nie ma tego po prostu jako właściwość kwerendy ?

to właściwość Accessa
docmd przepuszcza zapytanie przez jego bebechy i dopiero robi

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Panie, tak to się będę bawił ale jak się trochę z podstawami ogarnę.

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

to są podstawy :)
tyle że ADO

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Dobhra. Rozkminiam. Weź pomóż pliz bo coś słabo mi idzie.
Recordset to z tego co rozumim ileś rekordów.

Dlaczego zatem

![jakaśtamnazwa] zwróci mi wartość z jednego pola. Jakiego ? Pierwszego ? Ostatniego ?

Jak np. przeiterować po wszystkich rekordach, zwrócić wartość konkretnego, czy dostać counta ?

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

        Set aRs = aComm.Execute

        

        While Not aRs.EOF

            With Me.ListBox1

                .AddItem aRs.Fields("object_id").Value

                .List(x, 1) = aRs.Fields("name").Value

                .List(x, 2) = aRs.Fields("type").Value

                x = x + 1

                aRs.MoveNext

            End With

        Wend

ars.RecordCount

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Dzięki.
Tylko dlaczego .recordcount zawsze mi zwraca -1 ?

Link do wypowiedzi

konto usunięte

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

http://forums.mysql.com/read.php?37,25644,25649#msg-25649

Link do wypowiedzi

Bartek Borczyk Operator liczb i
słów

Temat: a jak pozbyć się komunikatów przy kwerendzie ?



Sub próba_spreju()

    Dim rcs As DAO.Recordset

    Dim ilość As Long

    Dim licznik As Long

    Dim fld As DAO.Field

    Dim rekord As String

    

    Set rcs = CurrentDb.OpenRecordset("nazwa_tabeli", dbOpenTable)

    'inny zestaw dla kwerendy: .OpenRecordset("nazwa_kwerendy", dbOpenDynaset)

    

    ilość = 0

    licznik = 0

    

    With rcs

        

        'ilość

        .MoveLast

        ilość = .RecordCount

        .MoveFirst

        

        'pętla

        Do Until .EOF

            

            licznik = licznik + 1

            SysCmd acSysCmdSetStatus, licznik & "/" & ilość & " (" & Format(licznik / ilość, "Percent") & ")"

            

            rekord = ""

            

            For Each fld In .Fields

                rekord = rekord & fld.Value & ";"

            Next fld

            

            rekord = Left(rekord, Len(rekord) - 1)

            

            Debug.Print rekord

        

            .MoveNext

        Loop

        

        .Close

    End With

    

    Set rcs = Nothing

    

    SysCmd acSysCmdClearStatus

    MsgBox "Gotowe!"

End Sub

Bartosz Borczyk edytował(a) ten post dnia 18.09.09 o godzinie 00:25

Link do wypowiedzi

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora

Wojciech Gardziński Mieć rację godzinę
wcześniej niż inni:
przez godzinę być
...

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Hej, mogę swoje trzy grosze?

Bardzo mi się podoba, że dostrzegacie tego zalety, bo SĄ!
Ale trochę (moje zdanie) chcecie "za dobrze".
Latacie po tym recordsecie i macie błędy itp.
(Ja tez miałem ten etap i z tej metody zrezygnowałem)

A może tak:
Recordset ma przecież metodę .GetRows
I.. wszystko w tablicy. A na tablicy już wolna amerykanka, kontrola błędów Wasza, ADO się nie syp(n)ie, bo to już poza nim.

Taka moja uwaga.
Pozdrawiam

P.S.
Gotowa FUNKCJA. ARKUSZOWA!
(z naszego kursu VBA: http://afin.net/excel/ )



Function DaneADO(BazaDanych As String, ZdanieSQL As String)

    Dim MojaBaza As New ADODB.Connection, MojeRekordy As New ADODB.Recordset

    Dim ileRek As Integer, ilePol As Integer

    Dim rekordy() As Variant, rekordy2() As Variant

    Dim i As Integer, w As Integer, k As Integer

    

    On Error Resume Next

    

    MojaBaza.Open BazaDanych

    MojeRekordy.Open ZdanieSQL, BazaDanych, adOpenDynamic, adLockBatchOptimistic

    MojeRekordy.UpdateBatch

    

    rekordy = MojeRekordy.GetRows

    ileRek = UBound(rekordy, 2)

    ilePol = UBound(rekordy, 1)

    

    For i = 0 To ilePol             'wpisuje nazy pól do tablicy

        rekordy(i, 0) = MojeRekordy.Fields(i).Name

    Next i



    ReDim rekordy2(ileRek, ilePol)

    

    For w = LBound(rekordy, 2) To ileRek

        For k = LBound(rekordy, 1) To ilePol

            rekordy2(w, k) = IIf(rekordy(k, w) <> 0, rekordy(k, w), ".")

        Next k

    Next w

    

    DaneADO = rekordy2

    

    MojaBaza.Close

    MojeRekordy.Close

End Function

Wojciech Gardziński edytował(a) ten post dnia 18.09.09 o godzinie 12:32

Link do wypowiedzi

Bartek Borczyk Operator liczb i
słów

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

To ja mam pytanie. Chce sobie sprawdzić co szybsze na tabeli, która ma 13158 rekordów. Testuję poprzez:



Sub test1()

    Dim rcs As DAO.Recordset



    Dim ilość As Long

    Dim licznik As Long

    Dim fld As DAO.Field

    Dim rekord As String

    

    Dim start As Date

    Dim koniec As Date

    Dim różnica As Date

    

    start = Now

    Debug.Print "Test1"

    

    ilość = 0

    licznik = 0



    Set rcs = CurrentDb.OpenRecordset("tbl2", dbOpenTable)

    

    With rcs

        'ilość

        .MoveLast

        ilość = .RecordCount: Debug.Print "ilość:" & ilość

        .MoveFirst



        'pętla

        Do Until .EOF

        

            licznik = licznik + 1

            SysCmd acSysCmdSetStatus, licznik & "/" & ilość & " (" & Format(licznik / ilość, "Percent") & ")"

            

            rekord = ""



            For Each fld In .Fields

                rekord = rekord & fld.Value & ";"

            Next fld

            

            rekord = Left(rekord, Len(rekord) - 1)

            'Debug.Print rekord



            .MoveNext

        Loop



        .Close



    End With

    

    Set rcs = Nothing



    SysCmd acSysCmdClearStatus

    koniec = Now

    różnica = koniec - start

    

    Debug.Print "Gotowe! Upłynęło: " & różnica

    MsgBox "Gotowe! Upłynęło: " & różnica

    

End Sub



Sub test2()

    Dim rcs As DAO.Recordset



    Dim tablica() As Variant

    Dim ilość As Long

    Dim licznik As Long

    Dim licznik2 As Long

    Dim rekord As String



    Dim start As Date

    Dim koniec As Date

    Dim różnica As Date

    

    start = Now

    'Debug.Print "Test2"



    ilość = 0

    licznik = 0



    Set rcs = CurrentDb.OpenRecordset("tbl2", dbOpenTable)

    With rcs

        tablica = .GetRows

        .Close

    End With

    Set rcs = Nothing

    

    'ilość

    ilość = UBound(tablica) + 1: Debug.Print "ilość:" & ilość

    

    'pętla

    For licznik = LBound(tablica, 1) To UBound(tablica, 1)

        

        SysCmd acSysCmdSetStatus, licznik & "/" & ilość & " (" & Format(licznik / ilość, "Percent") & ")"

        

        rekord = ""

        

        For licznik2 = LBound(tablica, 2) To UBound(tablica, 2)

            rekord = rekord & tablica(licznik, licznik2) & ";"

        Next licznik2

        

        rekord = Left(rekord, Len(rekord) - 1)

        'Debug.Print rekord

        

    Next licznik



    SysCmd acSysCmdClearStatus

    koniec = Now

    różnica = koniec - start

    

    Debug.Print "Gotowe! Upłynęło: " & różnica

    MsgBox "Gotowe! Upłynęło: " & różnica

End Sub

W wyniku dostaję:



test1

ilość:13158

Gotowe! Upłynęło: 00:00:36



test2

ilość:90

Gotowe! Upłynęło: 00:00:00

Gdzie jest błąd w test2?Bartosz Borczyk edytował(a) ten post dnia 18.09.09 o godzinie 14:12

Link do wypowiedzi

Ms Access

Czy na pewno chcesz zrezygnować z tej grupy?

Zgłoś nieprawidłowości w wypowiedzi

a jak pozbyć się komunikatów przy...

Blokowanie użytkownika

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Temat: a jak pozbyć się komunikatów przy kwerendzie ?

Podobne tematy

Ms Access » Problem z polskimi znakami przy łączeniu się do Oracle... -

Ms Access » Czy przyda się access i jak to zrobić? -

Ms Access » a jak się grupuje elementy na formularzu ? -

Ms Access » Puste komórki w kwerendzie -

Ms Access » Baza Accessa zbliża się do swoich granic - komunikaty o... -

Ms Access » Uniemożliwienie przeglądania rekordów użytkownikom przy... -

Ms Access » Jak dodać zdjęcie w formularzu do danego id ? -

Ms Access » Pomoc przy pracy inż. Access. -

Ms Access » [Access] Relacje pomiędzy kolumnami w kwerendzie -

Ms Access » Jak w VBA odczytać ID tworzonego rekordu -

Problem z polskimi znakami ...

a jak elegancko zmienić źródłową...

a jak się grupuje elementy na...

Oferty pracy