MS ACCESS MAILING LIST: Re: Bls: [belajar-access] UDT --> bagimana cara cepat mencari data dari UDT

User-defined Types, menurut saya, type data diberikan user. Dalam kasus pencarian data, ini dimanfaatkan, agar ketika SQL dijalankan tidak error.

Misalnya, type database field_a adalah number. Terus user, memasukkan nilai sembarang. Sehingga begitu dieksekusi, tidak nyambung. Alias errorr. Contoh kongkretnya begini:

If IsNumeric(A_NRBU) Then 'verifikasi kalau A_NRBU adalah number
A_NRBU = Fix(A_NRBU) 'verifikasi agar dibulatkan ke atas, karena type data

'number tanpa digit

    BUAT_TABEL
    KONEKSI
    If conn.State <> 0 Then
        Set rss = conn.Execute("SELECT BU_1.ID_LEGES,BU_1.NRBU," _
        & " BU_1.BU_A FROM BU_1" _
        & " WHERE BU_1.NRBU='" & A_NRBU)
        If Not rss.EOF Then
            Set db = CurrentDb

            Do While Not rss.EOF
                Set rsp = New ADODB.Recordset
                rsp.Open "SELECT NMBUJK FROM" _
                & " BU WHERE NRBU=" & A_NRBU, conn
                    If Not rsp.EOF Then
                        s_nmbujk = rsp!NMBUJK
                    Else
                        s_nmbujk = "Not Avalaible"
                    End If
                rsp.Close
                Set rsp = Nothing

               db.Execute "INSERT INTO BU_DATA_TEM_9_" & KOM & " Values (" _
                    & rss.Fields(0) & ",'" _
                    & rss.Fields(3) & "','" & rss.Fields(4) _
                    & "','" & Format(rss.Fields(1), "000000") & "','" _
                    & s_nmbujk & "','" & Nz(rss.Fields(5), 0) & "')"
                rss.MoveNext
            Loop
            db.Close
            Set db = Nothing
     End If
     rss.Close
     Set rss = Nothing

else

     MsgBox "MASUKKAN KARAKTER ANGKA. JANGAN HURUF ATAU KARAKTER LAINNYA"
    A_NRBU = ""
    PENGAMBIL.SetFocus
    A_NRBU.SetFocus

end if

Itu pemahaman saya tentang UDT dan memanfaatkan untuk proses pencarian data.

Kalau maksud Sampeyan adalah memasukkan data dari interface MS Access ke form yang ada di web (Web base, bisa php, html), tanpa harus melalui proses copy paste, ada caranya tersendiri.

Dalam hal ini, IE harus kita masukkan di form. Dan melalui form itu pula kita control gerakan IE. Misalnya, di form kita beri active control dengan nama Webbrowser1, maka kita harus membuka codenya. Dari situ kita melakukan kontrol terhadap WebBrowser1.

Ini salah satu contoh script yang mengontrol web:

Private Sub Command15_Click()
    If x_jenis = 1 And Me.WebBrowser1.doc.title = "Admin Profesi : Cek Person Tenaga Ahli" Then
        Me.WebBrowser1.Document.all("Nama").Value = Nama
        Me.WebBrowser1.Document.all("No_KTP").Value = NoKTP
        Me.WebBrowser1.Document.all("Tgl_Lahir_day").Value = Val(Left(Lahir, 2))
        Me.WebBrowser1.Document.all("Tgl_Lahir_month").Value = Val(Mid(Lahir, 3, 2))
        Me.WebBrowser1.Document.all("Tgl_Lahir_year").Value = "19" & Val(Right(Lahir, 2))
        Me.WebBrowser1.Document.all("submit_submit").Click
    ElseIf x_jenis = 2 And Me.WebBrowser1.doc.title = "Admin Profesi : Cek Person Tenaga Trampil" Then
        Me.WebBrowser1.Document.all("Nama").Value = Nama
        Me.WebBrowser1.Document.all("No_KTP").Value = NoKTP
        Me.WebBrowser1.Document.all("Tgl_Lahir_day").Value = Val(Left(Lahir, 2))
        Me.WebBrowser1.Document.all("Tgl_Lahir_month").Value = Val(Mid(Lahir, 3, 2))
        Me.WebBrowser1.Document.all("Tgl_Lahir_year").Value = "19" & Val(Right(Lahir, 2))
        Me.WebBrowser1.Document.all("submit_submit").Click
    ElseIf x_jenis = 1 And Me.WebBrowser1.doc.title = "Admin Profesi : Cek Person Tenaga Trampil" Then
        MsgBox "WEB ADMIN LPJK untuk tenaga ahli. Bukan Terampil. Klik, Tenaga Terampil" & vbCrLf _
        & "> Tambah di Web LPJKN, karena data kita adalah data Terampil", , "SALAH ALAMAT"
    ElseIf x_jenis = 2 And Me.WebBrowser1.doc.title = "Admin Profesi : Cek Person Tenaga Ahli" Then
        MsgBox "WEB ADMIN LPJK untuk tenaga terampil. Bukan Ahli. Klik, Tenaga Ahli" & vbCrLf _
        & "> Tambah di Web LPJKN, karena data kita adalah data Ahli", , "SALAH ALAMAT"
    Else
        MsgBox "ALAMAT WEB KELIRU", , "SALAH ALAMAT"
    End If

    If Me.WebBrowser1.Document.body.innerText Like "*Maaf, Nama*" Then
        If x_jenis = 1 Then
            url = "http://admin-profesi.lpjk.org/modules/lpjkd/tenaga_ahli/index.php"
            Go_URL
            Call Command73_Click
        Else
            url = "http://admin-profesi.lpjk.org/modules/lpjkd/tenaga_trampil/index.php"
            Go_URL
            Call Command73_Click
        End If
    End If

End Sub

Semoga bisa membantu dan bermanfaat.

Hariyanto (Surabaya)

--- On Thu, 26/5/11, Erwin Sugiawan <esugiawan@yahoo.com> wrote:

From: Erwin Sugiawan <esugiawan@yahoo.com>
Subject: Bls: [belajar-access] UDT --> bagimana cara cepat mencari data dari UDT
To: belajar-access@yahoogroups.com
Date: Thursday, 26 May, 2011, 4:50 PM

contoh UDT , http://www.vb6.us/tutorials/user-defined-types-udt-vb

Mas Hari, saya belum mengerti, gimana cara nya UDT bisa mempergunakan insert into ? saat ini saya memasuk kan data satu persatu cos data ini realtime didapat dari vendor mempergunakan internet dgn bandwitdh 1MB, 1 detik sekitar 100 record pada jam sibuk dan data yang di kirim berbentuk string

Best regard
Erwin Sugiawan

Dari: hari yanto <har_i20002000@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Kam, 26 Mei, 2011 16:00:29
Judul: Re: [belajar-access] UDT --> bagimana cara cepat mencari data dari UDT

Menurut pengalaman saya begini:

1. Type data yang akan dikirim ke database harus benar. Kalau misalnya type data di datase number, di FE bisa dicek dengan cara isNumeric. Atau dikalikan 1 (kalau hasilnya lebih dari 0, berarti number).

2. Untuk menampilkan ke user, pakai tabel temporer dengan metode insert into. Sebelum diinsertkan type data text harus dibersihkan dulu dari tanda ' dengan memakai replace. Sehingga ketika dilakukan proses insert into tidak terjadi error.

3. Menggunakan metode recordset, memang bisa. Tapi, kecepatannya masih kalau dibandingkan dengan insert into. Keunggulannya, pada proses recordset, tidak perlu merubah tanda '.

Semoga memberi semangat dan bermanfaat.

Hariyanto (Surabaya)

--- On Thu, 26/5/11, Erwin Sugiawan <esugiawan@yahoo.com> wrote:

From: Erwin Sugiawan <esugiawan@yahoo.com>
Subject: [belajar-access] UDT --> bagimana cara cepat mencari data dari UDT
To: belajar-access@yahoogroups.com
Date: Thursday, 26 May, 2011, 1:38 PM

Dear all,

saat ini masih dalam project, butuh bantuan lagi... hihih project bisa selesai , cos banyak teman2 yg bantu..thx all

masalah
Project sudah di buat akan tetapi dapat komplain dari rekan2 di kantor, yang mengatakan kurang cepat.
jadi saya membuat UDT, (User Defined Data Types) yang mana data di simpan ke memory tidak di table atau pun di table temp
cara saya mencari sebuah record UDT dengan cara looping satu persatu.

menurut teman2 disini gimana, apakah ada cara yang lebih cepat ?

Best regard
Erwin Sugiawan