ACCESS FEED: Re: [belajar-access] Query group [1 Attachment]

Selasa, 28 Januari 2014

Re: [belajar-access] Query group [1 Attachment]

[Attachment(s) from hari yanto included below]

Dari data yang disampaikan, menurut saya, mempunyai model mirip dengan deret ukur. Pembedanya, dan yang diingin dicari adalah pengelompokkan maj_rock berdasarkan deret ukur itu.

Saya berpendapat, mengeksekusinya, harus menggunakan tabel temporer melalui VBA. Gambarannya begini.

1. Karena type data maj_rock text, kita harus buat control variabel (variant). Misalnya bernama x. Dim x As Variant.
2. Default nilai x kita tetapkan kosong "". Kenapa kosong, soalnya nanti akan dibandingkan dengan maj_rock dari tabel. Setelah dibandingkan, barulah variabel x kita beri nilai maj_rock record sedang berjalan.
3. Saat x tidak sama dengan record maj_rock, kita rekam ke dalam tabel temporer (semua field).

Ini contoh script yang saya maksud:

Function ambilData(tb)
Dim rbs As Recordset
Dim db As DAO.Database
Dim x As Variant

    Set rbs = CurrentDb.OpenRecordset("select * from t2")
    If Not rbs.EOF Then
        x = ""

        Set db = CurrentDb
        Do While Not rbs.EOF
            If x <> rbs.Fields(3) Then 'jika x tidak sama dengan maj_rock
            'pengubahan koma menjadi titik, karena koma bagian
            'dari bahasa vba ==> ubah_koma = Replace(nil, ",", ".")
                db.Execute "insert into " _
                & tb & " values ('" _
                & rbs.Fields(0) & "'," _
                & ubah_koma(rbs.Fields(1)) & "," _
                & ubah_koma(rbs.Fields(2)) & ",'" _
                & rbs.Fields(3) & "','" _
                & rbs.Fields(4) & "')"
            'else
                'ini tempat yang maj_rocknya sama
                'tidak perlu direkam
            End If

            x = rbs.Fields(3)   'kita berikan x sama dengan record maj_rock
                                'terakhir record sedang running
            rbs.MoveNext        'pindah ke record selanjutnya
        Loop
        db.Close
        Set db = Nothing
    End If
    rbs.Close
    Set rbs = Nothing

End Function

Terlampir adalah contoh mdb 2003 yang merekam aktivitas script diatas.

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

On Wednesday, 29 January 2014, 12:15, aksan kurdin <aksan.kurdin@gmail.com> wrote:

Ilustrasi dengan gambar lebih gampang di mengerti:

maksud mbak ira dotel, kita group di hole_id, maj_rock, dan seam.
lalu depth_from diambil first, depth_to diambil last.
querynya sort by hole_id, deptfhrom

hasilnya:

Ternyata hasilnya tidak sama dengan keinginan mbak ira, walaupun secara logika sudah benar (seam yang null tetep di anggap satu data semua).
Untuk seam, sepertinya tetep harus diberikan pengkodean unik agar hasil yang diinginkan sama seperti yang diilustrasikan:

regards,
aksan kurdin

On 1/29/2014 11:34 AM, Ira Idotel wrote:

��

Dear Mas cgsatu(Elang)

untuk depth_form adalah meter awal mulai nya bore dan 17.4 adalah angka meteran arti nya 17 meter point 40, dan 22.8 adalah meter depth ( botom nya )

jadi misal nya di 17.4 sampai 22.8 MS ngga bisa di group karena maj_rock nya MS satu saja
Nah kalau 22.8�� sampai 23.15 CO
�� 23.15 sampai 26.15 CO
�� 26.15 sampai 28.55 CO��
�� 28.55 sampai 28.9�� CO
demikain juga dengan yang lain yg maj_rock nya sama

Apakah bisa di group jadi Meter Top nya 22.8 dan botom nya 28.9 CO ��

demikian

Salam, Ira borneo

On Wednesday, January 29, 2014 10:40 AM, CGSATU <cgsatu@yahoo.com> wrote:

��

Mbak, saya tidak paham maksudnya :

Penjelasan file :

-untuk depth_from mau nya di ambil kedalaman awal,

-untuk depth_to mau nya di ambil kedalaman akhir,

-untuk maj_rock mau nya kalau nama batuan nya sama di group jadi satu kali saja

-untuk seam otomatis tergroup juga.

contoh depth_form diambil kedalaman awal.

Kalau di data saya lihat angkanya 17,4�� atau 22,8 dsb. Maksudnya angka dibelakang koma dihilangkan atau dibulatkan ?

Atau kolom depth_form tersebut diurutkan dari yang nilai kecil atau bagaimana ?

Misal cuma mau ambil beberapa karakter saja, mungkin artikel ini bisa membantu. http://mugi.or.id/blogs/elang/archive/2011/01/26/manipulating-text-using-sql-in-ms-access.aspx��

Mungkin Mbak Ira bisa lebih jelas lagi maksudnya bagaimana ?

cgsatu (Elang)

On Wednesday, January 29, 2014 7:17 AM, Ira Idotel <iraidotel@yahoo.com> wrote:

��

[Attachment(s) from Ira Idotel included below]

Dear All Pakar Access, semangat Pagi

salam hangat semuanya , mohon bantuan nya

saya punya problem ngegroup pada query , terlampir attachment exel file untuk tampilan yang di ingin kan

Penjelasan file :

-untuk depth_from mau nya di ambil kedalaman awal,

-untuk depth_to mau nya di ambil kedalaman akhir,

-untuk maj_rock mau nya kalau nama batuan nya sama di group jadi satu kali saja