Sejatinya, ini berguna buat kawan-kawan yang biasa ngentry di form web. Kalau biasanya copy paste. Diubah menjadi sekali klik. Data di Form Ms Access berpindah ke Form yang ada di web... Private Sub Go_URL() Me.WebBrowser1.Navigate url
End Sub Yang ini juga perlu, karena saya jadikan pegangan: Private Sub WebBrowser1_TitleChange(ByVal Text As String)
L_URL.Caption = WebBrowser1.LocationURL
url = WebBrowser1.LocationURL
url.Requery
End Sub
Semoga bisa bermanfaat dan memberi semangat... Hariyanto (Surabaya)
--- On Thu, 26/5/11, sudarsono <jkssbma@yahoo.com> wrote:
From: sudarsono <jkssbma@yahoo.com>
Subject: Re: Bls: [belajar-access] UDT --> bagimana cara cepat mencari data dari UDT
To: belajar-access@yahoogroups.com
Date: Thursday, 26 May, 2011, 7:20 PM
Sebuah pengalaman dan teknik yang bagus dan menarik .
Oh ya koding untuk Go_URL , mana ? bisa di teruskan pelajarannya... WebBrowser1 itu active control berjenis browser web ? ( access 2003 , untuk tipe web ) '=========== Trim's banyak sekali pada Pak Har..
--- In belajar-access@yahoogroups.com, hari yanto <har_i20002000@... wrote:
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
&n bsp; '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
/SPAN> s_nmbujk = "Not Avalaible"
End If
rsp.Close
Set rsp = Nothing
SPAN> 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
&n bsp; 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
&n bsp; Call Command73_Click
End If
End If
End Sub
Semoga bisa membantu dan bermanfaat.
Hariyanto (Surabaya)
--- On Thu, 26/5/11, Erwin Sugiawan esugiawan@... wrote:
From: Erwin Sugiawan esugiawan@...
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@...
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@... wrote:
From: Erwin Sugiawan esugiawan@...
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
|
Tidak ada komentar:
Posting Komentar