tag:blogger.com,1999:blog-6451400285961245182024-02-21T04:21:16.369+07:00Akrosoft-LearningLearning, Microsoft Visual Basic, Troubleshooting, Tip dan Trik, ADO, Barcode, Bagan Alir, Flowchart, DatabaseMuhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.comBlogger25125tag:blogger.com,1999:blog-645140028596124518.post-46673345494311255512022-03-14T10:54:00.004+07:002022-03-14T10:54:45.548+07:00Laporan Kosong / Blank Report - Clarion Preview tidak Muncul - HAPIS<p> </p><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/a/AVvXsEg_cQNwJoV-9OVIe7cs86SdCAY_Q3GrgHK3mRyrlMxM2tjDR0_z7ezNp55D4iKRL8KP_uWkebYuXNvjqXd_yUcA1JUmeidHCTz-5fAewKNymsBW6pJgIpcGc1tCDua4zSLrAumiQh6gjgguMUrzt9m2DaMPXLqf7izXmnhrcqewb7ouRtS_mwP7JH-1cQ=s645" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="439" data-original-width="645" height="291" src="https://blogger.googleusercontent.com/img/a/AVvXsEg_cQNwJoV-9OVIe7cs86SdCAY_Q3GrgHK3mRyrlMxM2tjDR0_z7ezNp55D4iKRL8KP_uWkebYuXNvjqXd_yUcA1JUmeidHCTz-5fAewKNymsBW6pJgIpcGc1tCDua4zSLrAumiQh6gjgguMUrzt9m2DaMPXLqf7izXmnhrcqewb7ouRtS_mwP7JH-1cQ=w511-h291" width="511" /></a></div><br /><p></p><p>Untuk catatan pribadi. Masalah terjadi ketika akses program HAPIS dari komputer Client langsung shortcut ke file exe di server, tanpa ada proses installasi apa-apa di komputer client. </p><p>Ketika buka program, tidak ada masalah dan bisa digunakan dengan normal. Cuma terkendala ketika buka laporan, akan muncul tampilan kosong, cuma ada tulisan judul Clarion Preview.</p><p>Setelah ditelusuri, ternyata untuk memunculkan laporan tersebut membutuhkan file ntwdblib.dll.</p><p>Apa itu ntwdblib.dll? Kabarnya sih, itu adalah sebuah modul MS SQL Server Database dari Microsoft.</p><p>Singkat cerita, untuk mengatasi masalah tersebut, copy file tersebut dari tempat lain (atau download), kemudian diletakkan di folder C:\Windows\System32 (untuk Windows 32 bit) atau C:\Windows\SysWOW64 (untuk Windows 64 bit).</p><p>Setelah dicoba lagi, laporan sudah muncul seperti yang diharapkan.</p>Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-89048243758661976172020-01-27T11:53:00.001+07:002020-01-27T11:54:01.221+07:00Troubleshooting: Cara Reset Printer Canon G1010 error 5B00Sudah menjadi hal umum, kalau printer inkjet yang kita gunakan secara umum akan menghitung jumlah print setiap kita melakukan print (counter). Setelah digunakan beberapa lama, pada suatu titik tertentu akan sampai pada batas jumlah print yang akan direkomendasikan untuk dilakukan service. Saya pribadi menyarankan ikuti prosedur resmi yang memang didesain oleh vendor printer tersebut.<br />
<br />
Sama halnya dengan printer Canon Pixma G1010 akan mencapai titik harus melakukan service pada titik tertentu dengan error 5B00. Seperti yang ssaya sarankan sebelumnya, segera bawa ke service center terdekat. Namun, ada kalanya kita membutuhkan printer sesegerea mungkin sehingga tidak akan sempat kalau harus membawanya dulu ke service center yang notabene gak banyak seperti orang jualan kacang.<br />
<br />
Dalam keadaan terdesak dan genting (semoga tidak), kita bisa melakukan reset secara manual. Banyak yang menawarkan software bahkan chip untuk mengatasi masalah reset printer tersebut. Kalau yang pernah saya coba, masih gagal menggunakan software Service Tool yang ada. Akhirnya setelah searching, ketemu link youtube yang menyediakan tutorial cara reset printer. Ada di channelnya: https://www.youtube.com/channel/UCRByhS6sHZzjkmm6yWQJZOQ.<br />
<br />
Langkahnya:<br />
<ol>
<li>Dalam kondisi printernya mati, tekan dan tahan tombol <b>Power</b> dan <b>Resume </b>secara bersamaan. Setelah itu, penekanan tombol resume boleh dilepas.</li>
<li>Tekan tombol <b>Resume</b> 2 x.</li>
<li>Matikan printer dengan menekan tombol <b>Power</b>.</li>
<li>Masuk ke "<b>Service Mode</b>" dengan cara: </li>
<li>Tekan tombol <b>Power</b> dan tahan. </li>
<li>Sambil menahan penekanan tombol <b>Power</b>, tekan tombol <b>Resume</b> 5x.</li>
<li>Lepas penekanan tombol power.</li>
<li>Printer akan terdeteksi sebagai device baru, biarkan saja sampai selesai.</li>
<li>Tekan tombol <b>Resume</b> sebanyak 6x.</li>
<li>Tunggu beberapa saat (setengah menit).</li>
<li>Tekan tombol <b>Power </b>2 x.</li>
<li>Cabut kabel power sampai indikator power mati.</li>
<li>Tancapkan lagi kabel power.</li>
<li>Nyalakan printer dengan tekan tombol power seperti biasa,</li>
<li>Printer sudah bisa digunakan lagi.</li>
</ol>
<br />
Sudah saya praktekkan sendiri, dan bisa. Semoga beruntung.<br />
<br />
Terimakasih. Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-58370622884143091882018-05-31T08:41:00.003+07:002018-05-31T08:41:54.232+07:00Troubleshooting error: Failed to connect to windows service di windows 7 (solved)<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: Arial, Helvetica, sans-serif;">Ceritanya, lagi asik menata dokumen di ruangan yang cukup berantakan, telpon kantor berdering keras memekikkan telinga, sebenarnya sih biasanya memang suaranya seperti itu...tapi karena sekarang kondisinya lagi gak biasa...jadi terdengar sedikit mengganggu...agak-agak gimana gitu....! Ya...seperti perasaan anak kecil yang setiap hari selama satu bulan menyisihkan uang jajannya untuk ditabung...setelah terkumpul dipake buat beli es krim kesukaannya...terus..di perjalanan mau pulang naik ojek...es krimnya jatuh ke jalan....kemudian digilas sama buldozer yang sedang lewat...lalu tiba-tiba hujan deres (pake petir dan angin)...dan ojeknya mogok persis 300 meter sebelum gang masuk rumah...padahal jalannya barusan dibongkar untuk diperbaiki </span><br />
<span style="font-family: Arial, Helvetica, sans-serif;">(gak segitunya juga sih).</span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Arial, Helvetica, sans-serif;">Kembali ke masalah awal, telpon tadi adalah panggilan meminta bantuan untuk benerin komputer...masalahnya sih cuma gak bisa login meskipun user dan passwordnya sudah dipastikan benar.</span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Arial, Helvetica, sans-serif;">Akhirnya setelah meluncur ke TKP, ketika user login, muncul pesan "<b>Failed to connect to windows service</b>" yang isinya "<b>Windows could not connect to the system event Notification Service service. This problem prevents standard users from logging on to the system. As an Administrative......dst</b>.". </span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Arial, Helvetica, sans-serif;">Setelah nyari-nyari referensi, muncul beberapa alternatif penyelesaian dan akhirnya saya pilih solusi berikut:</span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Arial, Helvetica, sans-serif;"><b>Reset the Winsock Catalog<br /><br /> 1. </b>Buka<b> Command Prompt </b>sebagai Administrator <b>"Run as Administrator."<br /> 2. </b>Ketik pada command prompt<b> “netsh winsock reset” </b>(tanpa tanda petik) dan tekan tombol <b>Enter.<br /> 3. </b>Kemudian <b>Restart </b>komputernya<b>.</b></span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Arial, Helvetica, sans-serif;">Setelah dicoba lagi, user sudah bisa login seperti biasa.</span><br />
<span style="font-family: Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Arial, Helvetica, sans-serif;">"demi apa?"... (jadi ingat teman saya Rahma... )</span><br />
<br />
<span style="font-family: Arial, Helvetica, sans-serif;"> </span></div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-31986145082440109872017-10-18T10:58:00.000+07:002017-10-18T10:58:03.772+07:00Error ETAX-30009 Tidak Bisa Buat PDF Faktur - Solved<div dir="ltr" style="text-align: left;" trbidi="on">
Permasalahan Error <strong>ETAX-30009</strong> ketika membuat file pdf dari komputer client banyak dialami ketika efaktur diupdate menjadi versi 2.0 (karena memang ada arahan untuk update Efaktur ETaxInvoice ke <strong>versi 2.0</strong>). Padahal ketika dibuat di computer server, tidak ada masalah error tersebut. Termasuk di tempat saya bekerja juga mengalami hal yang sama pada computer client.<br />
<br />
Setelah googling, ada beberapa solusi di beberapa tempat dan dianggap berhasil sesuai penjelasan masing-masing yang berbagi solusi. <br />
<br />
Namun ketika dicoba beberapa alternative cara tersebut, masalah ETAX-30009 masih belum bisa diselesaikan.<br />
<br />
Akhirnya, mencoba mencari cara sendiri karena masih ada celah variasi solusi yang bias diselesaikan. Kalau dilihat penjelasan dari berbagai sumber, intinya ada masalah <strong>SE (Sertifikat Elektronik)</strong> di client meskipun SE di server sudah diupdate dengan SE yang terbaru.<br />
<br />
Cara yang menurut saya berhasil dilakukan di tempat kerja saya adalah menggabungkan beberapa saran cara yang sudah diposting di tempat lain.<br />
<br />
<strong>Berikut langkahnya:</strong><br />
<strong>Langkah 1:</strong><br />
<br />
Rename folder database client yang ada sekarang (biasanya di C:\EFaktur_Windows_32bit\db\ETaxInvoice) menjadi ETaxInvoiceOld<br />
<br />
<strong>Langkah 2:</strong><br />
<br />
Copy folder database (ETaxInvoice) yang ada di server ke lokasi database di client.<br />
Jangan lupa copykan juga SE (Sertifikat Elektronik) terbaru yang digunakan server ke komputer client (saran lokasi di folder "<strong>C:\EFAktur_Windows_32bit</strong>\" saja).<br />
<br />
<strong>Langkah 3:</strong><br />
<br />
Buka ETaxInvoice dengan mengakses database local/lokal, kemudian login dengan user dengan level Administrator. Tujuannya untuk menambahkan SE.<br />
<br />
<strong>Langkah 4:</strong><br />
<br />
Tambahkan SE melalui menu <strong>Referensi - Administrasi Sertifikat</strong>. Lakukan seperti menambahkan SE di komputer server.<br />
<br />
<strong>Langkah 5:</strong><br />
<br />
Coba buat pdf di menu yang biasanya digunakan. Kalau bisa, tutup ETaxInvoice kemudian jalankan lagi sebagai client dengan konek database ke server. Login menggunakan user client seperti biasanya. Kemudian dicoba lagi buat pdf. Kalau menurut pengalaman di tempat kerja saya, cara di atas sudah berhasil.<br />
<br />
Semoga di tempat lain juga bisa diselesaikan dengan cara di atas.<br />
<br />
<br />
</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0Lawang, Malang, East Java, Indonesia-7.8455121 112.70329449999997-7.9713531 112.54193299999997 -7.7196710999999993 112.86465599999997tag:blogger.com,1999:blog-645140028596124518.post-12308267109199799802015-05-08T13:58:00.002+07:002015-05-08T16:05:27.589+07:00Cara Downgrade dan Aktivasi Lisensi Windows 8 Pro dengan Preinstalled Windows 7 Pro 64bit menjadi Windows 7 Pro 32bit<div dir="ltr" style="text-align: left;" trbidi="on">
Komputer built-up baru yang sekarang banyak beredar untuk target pasar business kebanyakan menggunakan lisensi Windows 8 Pro OEM yang kadang-kadang sudah preinstalled Windows 7 Professional 64 bit. Dan kadang juga sudah disertakan OS Recovery DVD Windows 8 Pro dan Windows 7 Pro 64 bit beserta DVD Drivernya. Sehingga bisa digunakan jika ingin menginstall ulang kembali Windows dengan kedua versi Windows tersebut.<br />
<br />
Masalah muncul ketika di tempat kerja kita masih menggunakan aplikasi 16bit atau aplikasi berbasis DOS karena dua jenis program tersebut sudah tidak disupport oleh Windows 7 Pro 64bit, apalagi Windows 8 Pro 64bit. Seperti pengalaman saya pribadi sebagai teknisi IT di perusahaan yang masih menggunakan program tersebut. Sehingga opsi yang paling aman menurut saya adalah mengganti OSnya menjadi Windows 7 Pro 32bit meskipun ada alternatif lain yaitu menggunakan virtual mesin seperti Virtual PC, Virtual Box atau sejenisnya. Karena di perusahaan tempat saya bekerja berkomitmen untuk menggunakan software legal, daripada beli lisensi windows tambahan untuk virtual mesin, satu-satunya cara yang paling “aman” adalah menginstall ulang OSnya dengan syarat, sudah tersedia driver untuk perangkat-perangkat komputer tersebut (bisa dilihat di website resminya).<br />
<br />
Stiker COA Windows 8 Pro sudah tidak seperti Windows sebelumnya. Pada stiker tidak dicantumkan Product Keynya karena Product Keynya tersimpan di BIOS. Dengan menggunakan tool tertentu (bisa disearching di Google), bisa kita dapatkan Product Key tersebut dari BIOS. Tapi tenang, bukan itu yang jadi masalah, cuma info saja. <br />
<br />
Kalau kita berfikir normal sederhana, akan jadi masalah ketika downgrade Windows 7 Professional 64 bit menjadi Windows 7 Professional 32 bit adalah kita butuh DVD OS Recovery Windows 7 Pro 32bit yang notabene tidak disertakan pada pembelian komputer baru tersebut atau bisa menggunakan installer Windows 7 Pro 32 bit yang umum tapi kita tidak punya Product Key windows tersebut untuk aktivasi.<br />
<br />
Untuk mengatasi masalah tersebut, banyak alternatif cara yang disarankan oleh netizen di berbagai forum menggunakan tool tertentu atau cara tertentu. Bagi saya, sekali lagi saya akan memilih cara yang paling “aman” dari berbagai solusi yang ditawarkan tersebut.<br />
<br />
<b>Langkah pertama</b> adalah mencoba memahami preinstalled Windows 7 64 bit yang sekarang terinstall di komputer tersebut yaitu sebagai berikut:<br />
1. Preinstalled Windows 7 64bit biasanya sama hasilnya jika kita melakukan installasi Windows menggunakan CD/DVD OS Recovery Windows 7 64 bit yang sudah disediakan pada saat pembelian komputer tersebut.<br />
2. Install Windows 7 Pro 64bit menggunakan OS DVD Recovery biasanya tidak membutuhkan Product Key dan OSnya sudah teraktivasi.<br />
3. Ada beberapa perbedaan pada hasil installasi Windows 64 bit menggunakan OS DVD Recovery dengan hasil installasi menggunakan installer umum, salah satunya adalah folder OEM yang ada di C:\Windows\System32\ yang tidak kita jumpai jika install OS menggunakan installer umum. Di dalam folder ini berisi file lisensi windows OEM yang digunakan.<br />
<br />
<b>Langkah kedua</b> adalah backup file atau folder dan registry untuk kepentingan aktivasi windows dan mengubah tampilan windowsnya mirip dengan yang sekarang terinstall. Berikut adalah daftar yang harus dibcakup untuk jaga-jaga: (contoh yang saya gunakan adalah komputer HP Prodesk 490 G2)<br />
- <b>%SystemRoot%\system32\oobe\INFO</b> (folder ini berfungsi untuk merubah background awal windows startup defaultnya HP)<br />
- <b>%SystemRoot%\system32\OEM</b> (folder beratribut hidden ini berisi file lisensi yang kita butuhkan. Dalam kasus saya, nama filenya <b>oem-cert.xrm-ms</b>)<br />
- <b>C:\SYSTEM.SAV</b> (folder ini ber-atribut system dan hidden, sehingga harus disetting dulu explorernya agar bisa melihat folder atau file yang ber-atribut hidden dan system. Folder ini berisi logo merk komputer, dalam kasus saya merk HP).<br />
- <b>C:\Users\NamaUser\AppData\Local\Microsoft\Windows\Themes\oem.theme</b> (ini adalah file theme HP defaultnya komputer HP).<br />
- <b>%SystemRoot%\web\wallpaper\HP1.jpg</b> (ini adalah file image yang digunakan untuk wallpaper sesuai dengan settingan yang ada pada oem.theme)<br />
- Export registry key berikut melalui regedit: <b>[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]</b> (registry ini menyimpan informasi OEM komputer tersebut)<br />
<br />
Kalau sudah dibackup, kita siap dengan langkah berikutnya.<br />
<br />
<b>Langkah Ketiga</b>, download dan jalankan tool <b>ABR (Activation Backup and Restore)</b> dari <b>http://directedge.us/content/abr-activation-backup-and-restore</b>. Tool ini bisa digunakan untuk membackup aktivasi windows, tapi saya menggunakannya cuma untuk mengetahui product key yang digunakan oleh Preinstalled Windows 7 Pro 64 bit yang nantinya saya gunakan kembali untuk aktivasi Windows 7 Pro 32 bit.<br />
<br />
<b>Langkah Keempat</b>, install Windows 7 Professional 32 bit menggunakan installer Windows 7 Professional OEM umum yang bisa didownload dari Microsoft. Usahakan lebih baik install tanpa harus memformat harddisknya. Kalau tidak diformat, installer windows akan otomatis mengubah installasi windows yang sekarang adamenjadi Windows.old, sehingga jika masih ada yang lupa kita backup masih ada di folder tersebut. Ketika diminta product key, dikosongi dulu saja dan lanjutkan proses installasi windowsnya sampai selesai. Jika sudah selesai, install semua driver perangkat yang dibutuhkan.<br />
<br />
<b>Langkah Keempat</b>, letakkan kembali folder yang dibackup pada langkah kedua tadi ke posisi masing-masing persis seperti ketika membackupnya serta jalankan juga file reg yang kita export sebelumnya. Khusus file theme, bisa kita letakkan di <b>C:\Windows\Resources\Themes\</b> kemudian restart komputernya.<br />
<br />
<b>Langkah Kelima</b>, jalankan command prompt (cmd) dengan mode <b>“Run as administrator”</b>. Setelah muncul, ketikkan perintah <b>“slmgr -ilc C:\Windows\System32\OEM\oem-cert.xrm-ms”</b> (untuk menginstall file lisensi yang sudah kita backup sebelumnya) lalu tekan enter dan tunggu sampai ada popup windows yang mengatakan kalau lisensi berhasil diinstall.<br />
<br />
<b>Langkah Keenam</b>, lakukan aktivasi windowsnya dengan cara klik kanan <b>Computer – Properties</b>. Pada bagian <b>Windows Activation</b>, klik <b>change product key</b>, masukkan product key yang kita backup sebelumnya menggunakan tool <b>ABR</b> pada langkah ketiga. Lanjutkan sampai proses aktivasi selesai tanpa harus terkoneksi internet.<br />
<br />
<br />
Itulah yang saya lakukan untuk mendowngrade Preinstalled Windows 7 Professional 64bit menjadi Windows 7 Professional 32 bit pada beberapa komputer yang dibeli perusahaan.<br />
<br />
Semoga sharing pengalaman ini bermanfaat.</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-74871137244549225312014-01-13T14:44:00.004+07:002014-01-13T14:44:49.776+07:00Masalah "Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent" di PHP - bagian 2<div dir="ltr" style="text-align: left;" trbidi="on">
Pada tulisan sebelumnya:<br />
<a href="http://akrosoft-learning.blogspot.com/2010/02/masalah-warning-sessionstart.html" target="_blank">"Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent" </a><br />Pesan error di atas muncul bukan karena
salah ngetik script php. karena itulah hal ini membuat saya bingung sampai
beberapa hari. Apalagi jika settingan web servernya tidak menampilkan pesan
error, malah tambah bingung...! ...<br />
============================<br />
<br />
Setelah beberapa lama, ada lagi permasalahan yang sama yang dialami teman waktu belajar php. Katanya sudah mencoba solusi yang saya tawarkan...tapi tetep aja muncul masalahnya. (sambil garuk-garuk kepala yang sebenarnya gak gatal)<br />
<br />
Untuk membantu teman tersebut, akhirnya saya coba cari-cari lagi di google. Eh...ternyata pada halaman hasil pencarian di google...di baris kedua ada hasil pencarian yang depannya ada tulisan [RESOLVED]...dst. (aha...ini mungkin jawabannya..)<br />
<br />
Akhirnya saya buka link tersebut (<a href="http://board.phpbuilder.com/showthread.php?10310794-RESOLVED-Warning-session_start()-Cannot-send-session-cookie-headers-already-sent">http://board.phpbuilder.com/showthread.php?10310794-RESOLVED-Warning-session_start()-Cannot-send-session-cookie-headers-already-sent</a>) yang juga merupakan forum yang ternyata juga ada bahasan masalah yang sedang kami (saya dan teman saya) alami. <br />
<br />
Dibaca-baca...ternyata masalahnya juga bukan karena salah script tapi adalah program editor yang digunakan. Kaitannya dengan jenis atau metode penyimpanan program editor tersebut. Sehingga disitu disarankan agar isi script yang ada dicopy lagi dan buat file baru dengan notepad (editor paling sederhana) kemudian disimpan menjadi file php dengan ENCODINGnya menggunakan ASCII atau UTF-8 <i>without</i> the BOM (byte order mark). Akhirnya saya coba saja...copy script ke file notepad baru dan menyimpannya "Save as Type"nya "All Files" dengan "ENCODING"nya "ANSI".<br />
<br />
Dicoba deh...ternyata bisa...! akhirnya masalahnya sudah ketemu. Akhirnya teman saya harus melakukan langkah di atas tersebut pada setiap file php yang muncul masalah serupa.<br />
<br />
<br /></div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com1tag:blogger.com,1999:blog-645140028596124518.post-20749232287280880342012-10-31T20:54:00.004+07:002012-10-31T20:56:34.240+07:00Tutorial Contoh Membuat Data Report Database Sederhana dengan Microsoft Visual Basic 6.0<div dir="ltr" style="text-align: left;" trbidi="on">
Setelah kita membuat program database sederhana pada posting <a href="http://akrosoft-learning.blogspot.com/2012/09/tutorial-contoh-program-database.html" rel="nofollow" target="_blank">Tutorial Contoh Program Database Sederhana dengan Microsoft Visual Basic 6.0</a>, kita akan melanjutkan program yang dibuat tersebut dengan membuat laporan untuk menampilkan record yang ada dalam database.<br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><br />
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if !mso]><img src="//img2.blogblog.com/img/video_object.png" style="background-color: #b2b2b2; " class="BLOGGER-object-element tr_noresize tr_placeholder" id="ieooui" data-original-id="ieooui" />
<style>
st1\:*{behavior:url(#ieooui) }
</style>
<![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Calibri","sans-serif";
mso-bidi-font-family:Arial;}
</style>
<![endif]-->
<br />
<div class="MsoNormal">
Ada
dua langkah utama untuk membuat data report yang sudah disediakan oleh Microsoft Visual Basic 6.0:</div>
<ol start="1" style="margin-top: 0in;" type="1">
<li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;">Membuat
<b>Data Environment</b>.</li>
<li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;">Membuat <b>Data Report</b>.</span> </li>
</ol>
Kita buka kembali project sebelumnya yang sudah ada.
Misalkan: project program data teman. Kemudian kita buat reportnya.
Dengan 2 langkah umum sebagai berikut:<br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><br />
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Calibri","sans-serif";
mso-bidi-font-family:Arial;}
</style>
<![endif]-->
<br />
<div class="MsoNormal" style="margin-left: .25in;">
<br /></div>
<div class="MsoNormal" style="margin-left: .25in; mso-list: l0 level1 lfo1; tab-stops: list .25in; text-indent: -.25in;">
<b><span style="mso-list: Ignore;">1.<span style="font: 7.0pt "Times New Roman";"> </span></span></b><b>Membuat
Data Environment</b></div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">a.<span style="font: 7.0pt "Times New Roman";"> </span></span>Pada
menu <b>Project</b>, pilih sub menu <b>More ActiveX Designer…,</b> klik <b>Data
Environment</b>.</div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2U5ud15ITdo269S0FRv7GMWiAvW1VMc4YoK3SY2-zRmnRoF9FTHmn1qDLqmkwQ8xQNCnPXu7K-tM0mNogpTMLoSo6gOs3oywC5sBSe819pM7wL7KnrKl1aRBNHt_bpMSpcqNu6NkrHhLc/s1600/rpt1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="189" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2U5ud15ITdo269S0FRv7GMWiAvW1VMc4YoK3SY2-zRmnRoF9FTHmn1qDLqmkwQ8xQNCnPXu7K-tM0mNogpTMLoSo6gOs3oywC5sBSe819pM7wL7KnrKl1aRBNHt_bpMSpcqNu6NkrHhLc/s320/rpt1.png" width="320" /></a></div>
<div class="MsoNormal" style="margin-left: 27.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 27.0pt;">
</div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">b.<span style="font: 7.0pt "Times New Roman";"> </span></span>Dalam
jendela <b>Data Environment</b>, </div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>pilih <b>Connection1</b> kemudian klik kanan dan pilih <b>Properties</b>.</div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjo8Pako2-b7m3K-2stzuuiq9xS_r26ds2OZ9bDHDwp3K3XM4IhycK08Es61jZx8IpYZF8cZIpEjTgA__B32KS0Rojv6Zxmg1qVV_BGZl_X-jd8Gblfv6KnzLsRW8Bz5l9IXqWHVdytuOXM/s1600/rpt2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjo8Pako2-b7m3K-2stzuuiq9xS_r26ds2OZ9bDHDwp3K3XM4IhycK08Es61jZx8IpYZF8cZIpEjTgA__B32KS0Rojv6Zxmg1qVV_BGZl_X-jd8Gblfv6KnzLsRW8Bz5l9IXqWHVdytuOXM/s1600/rpt2.png" /></a></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Dalam dialog box <b>Data Link Properties</b>, pilih <b>Microsoft
Jet 4.0 OLE DB Provider</b>.</div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6xvWA5M-JYRDOOI7NPtM_lfGTB2wzPMGSTb5E1ApzVlUd7eXEFUSrfkwoWiZiffoOCXfYFkNOY1U1bPoO-WfkGprQX6wKfSiJ4qwGbwVK5HoclX7IgKuzXBU1KyLmYm0O1szmRkpkU8J-/s1600/rpt3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6xvWA5M-JYRDOOI7NPtM_lfGTB2wzPMGSTb5E1ApzVlUd7eXEFUSrfkwoWiZiffoOCXfYFkNOY1U1bPoO-WfkGprQX6wKfSiJ4qwGbwVK5HoclX7IgKuzXBU1KyLmYm0O1szmRkpkU8J-/s320/rpt3.png" width="255" /></a></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Klik <b>Next </b>untuk berpindah ke tab <b>Connection</b>.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Klik tombol <b>Elipsis (…). </b>Cari file database data
teman (<b>DataTeman.mdb</b>).</div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjkF1HkvoroFPsAj405qG2WqR2g6rk_fIcvIMm14h954LNv7w_F0l5_1Bu9quX8StN-ToM9tM-w7zcfCPUIbfCRt6NfTMES5osOKp55JN6GbxqfPe-_zQiVqWVMwZbjIgjOscrRNz9GjzTC/s1600/rpt4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjkF1HkvoroFPsAj405qG2WqR2g6rk_fIcvIMm14h954LNv7w_F0l5_1Bu9quX8StN-ToM9tM-w7zcfCPUIbfCRt6NfTMES5osOKp55JN6GbxqfPe-_zQiVqWVMwZbjIgjOscrRNz9GjzTC/s320/rpt4.png" width="255" /></a></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Klik <b>OK </b>untuk menambah designer pada menu anda.</div>
<div class="MsoNormal" style="margin-left: 45.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">c.<span style="font: 7.0pt "Times New Roman";"> </span></span>Sekarang
kita akan mengenalkan <b>Data Environment</b> dengan database. </div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Klik kanan tab <b>Connection1 </b>dan klik <b>Rename </b>untuk
mengubah nama koneksinya. Ubahlah nama tersebut dengan nama <b>Teman</b>.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Klik kanan nama tab yang baru (Teman) dan klik <b>Add
Command</b> untuk membuat tab <b>Command1</b>.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Klik kanan tab tersebut (Command1) dan pilih <b>Properties</b>.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Isilah propertinya dengan nilai berikut:</div>
<div class="MsoNormal" style="margin-left: 63.0pt; tab-stops: 2.5in;">
<b>Command Name<span style="mso-tab-count: 1;"> </span>= </b>DataTeman</div>
<div class="MsoNormal" style="margin-left: 63.0pt; tab-stops: 2.5in;">
<b>Connection<span style="mso-tab-count: 1;"> </span>= </b>Teman</div>
<div class="MsoNormal" style="margin-left: 63.0pt; tab-stops: 2.5in;">
<b>Database
Object<span style="mso-tab-count: 1;"> </span>= </b>Table</div>
<div class="MsoNormal" style="margin-left: 63.0pt; tab-stops: 2.5in;">
<b>Object Name<span style="mso-tab-count: 1;"> </span>= </b>Tteman</div>
<div class="MsoNormal" style="margin-left: 63.0pt; tab-stops: 2.5in;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAWYqfylezU70szkuQpe2m0iHV8V3AE66zOWX2-S0XWRoCqmnpDsymfahIIeHv2aFEtCyhuqzycBfRQrRMbL_IzoN-JPMVu-_YkCqgfmbKEGV5RILQRXcqKy6U5pE8UgIAMNn1jSnNWrnj/s1600/rpt5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="269" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAWYqfylezU70szkuQpe2m0iHV8V3AE66zOWX2-S0XWRoCqmnpDsymfahIIeHv2aFEtCyhuqzycBfRQrRMbL_IzoN-JPMVu-_YkCqgfmbKEGV5RILQRXcqKy6U5pE8UgIAMNn1jSnNWrnj/s320/rpt5.png" width="320" /></a></div>
<div class="MsoNormal" style="margin-left: 63.0pt; tab-stops: 2.5in;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt; tab-stops: 2.5in;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Klik <b>OK</b>. Semua yang dibutuhkan untuk koneksi ke
database kita sudah selesai.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<br /></div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">d.<span style="font: 7.0pt "Times New Roman";"> </span></span>Tampilkan
jendela properties dan berikan nama untuk data environment dengan nama <b>DenvTeman</b>.
Simpan Environment ini pada folder project anda dengan cara klik <b>File --</b><b><span style="font-family: Wingdings; mso-ascii-font-family: "Times New Roman"; mso-char-type: symbol; mso-hansi-font-family: "Times New Roman"; mso-symbol-font-family: Wingdings;"><span style="mso-char-type: symbol; mso-symbol-font-family: Wingdings;"></span></span>
Save DenvTeman.dsr</b></div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi029MbvmNRVrWUliNfD7qc-JAkJRegMEsIF-geW4ggBQtBGtOP_fR83X-exkp0flrbzNcCWrH-pINeMjHMrDUxpt8YAOl7CEQBv20qCoayAcliEC4wesGOagd-YwLqEinOYvietl7D7Kr-/s1600/rpt6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi029MbvmNRVrWUliNfD7qc-JAkJRegMEsIF-geW4ggBQtBGtOP_fR83X-exkp0flrbzNcCWrH-pINeMjHMrDUxpt8YAOl7CEQBv20qCoayAcliEC4wesGOagd-YwLqEinOYvietl7D7Kr-/s1600/rpt6.png" /></a></div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
Tampilan akhir
langkah 1:</div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi912GyKv8m7_YNbRWzqQvvEuFYBhFA7v0XUO5WWP5n_n4yZTVpIFITA9kO3kuFmRTWPqZoIMcmS9sfN4c-RTDAFxWim8MjrY0fRxxjaaBO5net-F_RkOk_rgHW0lucxZ2slogkKt13WSBN/s1600/rpt7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi912GyKv8m7_YNbRWzqQvvEuFYBhFA7v0XUO5WWP5n_n4yZTVpIFITA9kO3kuFmRTWPqZoIMcmS9sfN4c-RTDAFxWim8MjrY0fRxxjaaBO5net-F_RkOk_rgHW0lucxZ2slogkKt13WSBN/s1600/rpt7.png" /></a></div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--></div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if !mso]><img src="//img2.blogblog.com/img/video_object.png" style="background-color: #b2b2b2; " class="BLOGGER-object-element tr_noresize tr_placeholder" id="ieooui" data-original-id="ieooui" />
<style>
st1\:*{behavior:url(#ieooui) }
</style>
<![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Calibri","sans-serif";
mso-bidi-font-family:Arial;}
</style>
<![endif]-->
</div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: .25in; mso-list: l0 level1 lfo1; tab-stops: list .25in; text-indent: -.25in;">
<b><span style="font-size: 9.0pt; mso-bidi-font-size: 12.0pt;"><span style="mso-list: Ignore;">2.<span style="font: 7.0pt "Times New Roman";">
</span></span></span></b><b>Membuat Data Report</b><b><span style="font-size: 9.0pt; mso-bidi-font-size: 12.0pt;"></span></b></div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">a.<span style="font: 7.0pt "Times New Roman";"> </span></span>Pada
menu <b>Project</b>, klik <b>Add</b> <b>Data Report</b></div>
<div class="MsoNormal" style="margin-left: .5in;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXPeJPmspm08myyRZM27TJvAAFsDarWfS0-PPCvBZhAO_zEUduwmZmSfSYjnKO8OlMS-UHGxzA1lyHMtL4jflR5WjLPjehy-cXSpACCPNstzgIZLsX8x60uiJwu5CLEUs79XeqV3id3iaH/s1600/rpt8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="253" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXPeJPmspm08myyRZM27TJvAAFsDarWfS0-PPCvBZhAO_zEUduwmZmSfSYjnKO8OlMS-UHGxzA1lyHMtL4jflR5WjLPjehy-cXSpACCPNstzgIZLsX8x60uiJwu5CLEUs79XeqV3id3iaH/s320/rpt8.png" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoNormal" style="margin-left: .5in;">
<br /></div>
<div class="MsoNormal" style="margin-left: .5in;">
<br /></div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">b.<span style="font: 7.0pt "Times New Roman";"> </span></span>Isilah
properties pada report seperti berikut:</div>
<div class="MsoNormal" style="margin-left: 45.0pt; tab-stops: 153.0pt;">
<b>Name<span style="mso-tab-count: 1;"> </span>= </b>rptTeman</div>
<div class="MsoNormal" style="margin-left: 45.0pt; tab-stops: 153.0pt;">
<b>Caption<span style="mso-tab-count: 1;"> </span>= </b>Daftar Nama Teman</div>
<div class="MsoNormal" style="margin-left: 45.0pt; tab-stops: 153.0pt 279.0pt;">
<b>DataSource<span style="mso-tab-count: 1;"> </span>= </b>DEnvTeman <span style="mso-tab-count: 1;"> </span>(dipilih, jgn dketik)</div>
<div class="MsoNormal" style="margin-left: 45.0pt; tab-stops: 153.0pt 279.0pt;">
<b>DataMember<span style="mso-tab-count: 1;"> </span>= </b>DataTeman<span style="mso-tab-count: 1;"> </span>(dipilih, jgn dketik)</div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-align: justify; text-indent: -.25in;">
<span style="mso-list: Ignore;">c.<span style="font: 7.0pt "Times New Roman";"> </span></span>Klik kanan Report dan klik menu <b>Retrieve Structure</b>.
Hal ini akan membentuk report dengan dasar format seperti pada Data
Environment.</div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">d.<span style="font: 7.0pt "Times New Roman";"> </span></span>Dalam
file report terdapat lima
bagian: <b>Report Header, Page Header, Detail Section, Page Footer, </b>dan <b>Report
Footer</b>. </div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-align: justify; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";"> </span></span>Page Header dan Page Footer berisi informasi yang ingin
ditampilkan pada setiap halaman.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-align: justify; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";"> </span></span>Detail Section digunakan untuk membuat layout informasi
yang ingin anda cetak dari setiap record pada file database anda.</div>
<div class="MsoNormal" style="margin-left: 45.0pt; mso-list: l0 level2 lfo1; tab-stops: list 45.0pt; text-align: justify; text-indent: -.25in;">
<span style="mso-list: Ignore;">e.<span style="font: 7.0pt "Times New Roman";"> </span></span>Tambahkan <b>data report controls</b> yang diperlukan
untuk menampilkan infrmasi yang kita inginkan.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-align: justify; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Untuk menambahkan contrrol yang digunakan dengan klik
kanan, pilih <b>Insert Control</b>, kemudian pilih control yang diperlukan
untuk dipasang.</div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgua5ftp79ON1jNRg6OxiP603OuYNVCKE4bpRUccTr9_brQswx2pfr6kNLSZRJ06q3V8fCtad3RbybmZLT__RPc7jPHDQ3j9gslVSJiyWO-IfPaW7myM6_UOBfln3Y_74xAm4qTw4Q4mryj/s1600/rpt9.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="247" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgua5ftp79ON1jNRg6OxiP603OuYNVCKE4bpRUccTr9_brQswx2pfr6kNLSZRJ06q3V8fCtad3RbybmZLT__RPc7jPHDQ3j9gslVSJiyWO-IfPaW7myM6_UOBfln3Y_74xAm4qTw4Q4mryj/s320/rpt9.png" width="320" /></a></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-align: justify; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";"> </span></span>Khusus untuk <b>detail sections</b>, kita bisa
menambahkan textbox untuk menampilkan data pada bagian ini dengan cara: pada
jendela Data Environment (DEnvTeman), klik field yang diinginkan (misal: <b>Nama</b>)
kemudian <b>drag </b>ke bagian <b>detail </b>pada data report. Dua item akan
ditampilkan: sebuah label <b>Nama</b> dan sebuah textbox <b>Nama(DataTeman)</b>.
Labelnya untuk informasi header, karena itu, pindahkan (drag) ke bagian <b>page
header</b>. Sedangkan textboxnya untuk bagian detail, jadi biarkan saja
letaknya pada bagian <b>detail sections</b>.</div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-align: justify; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";"> </span></span>Atur control-control lainnya sedemiikian rupa sesuai
dengan informasi yang kita butuhkan.</div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinfyYZk0mDAgVTA6U8kVH7tJPp8Q1eJiIIcPEtsmDOmc9oJrwS3g445UWpLbFHKvolQSxH0TuTJT_idzziS21t0Fq4T9l8cg48thYQP1YW5VjjsECMCxhaX8Rcppj7beInSbJxpA1L9pwM/s1600/rpt10.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="" border="0" height="189" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinfyYZk0mDAgVTA6U8kVH7tJPp8Q1eJiIIcPEtsmDOmc9oJrwS3g445UWpLbFHKvolQSxH0TuTJT_idzziS21t0Fq4T9l8cg48thYQP1YW5VjjsECMCxhaX8Rcppj7beInSbJxpA1L9pwM/s320/rpt10.png" title="datareport" width="320" /></a></div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
</div>
<div class="MsoNormal" style="margin-left: 63.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 63.0pt; mso-list: l0 level3 lfo1; tab-stops: list 63.0pt; text-indent: -.25in;">
<span style="mso-list: Ignore;">-<span style="font: 7.0pt "Times New Roman";">
</span></span>Simpan Data reportnya dengan klik menu <b>File </b><b>-
Save rptTeman</b>. Simpan pada direktori tempat project anda.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal" style="margin-left: .25in;">
<br /></div>
<div class="MsoNormal" style="margin-left: .25in; text-align: justify;">
Data report
sudah selesai kita buat. Sekarang kita tambahkan <b>CommandButton</b> pada form
yang ada untuk menampilkan laporan yang sudah kita buat sebelumnya. </div>
<div class="MsoNormal" style="margin-left: .25in; text-align: justify;">
Ubah
propertiesnya sebagai berikut:</div>
<div class="MsoNormal" style="margin-left: 45.0pt; tab-stops: 1.5in; text-align: justify;">
<b>Name
<span style="mso-tab-count: 1;"> </span>= </b>CmdReport</div>
<div class="MsoNormal" style="margin-left: 45.0pt; tab-stops: 1.5in; text-align: justify;">
<b>Caption<span style="mso-tab-count: 1;"> </span>= </b>Report</div>
<div class="MsoNormal" style="margin-left: .25in; text-align: justify;">
Kemudian pada
event <b>click, </b>ketikan kode berikut:</div>
<div class="MsoNormal" style="margin-left: .25in; text-align: justify;">
<br /></div>
<div style="background: #D9D9D9; border: dashed windowtext 1.0pt; margin-left: .25in; margin-right: 0in; mso-border-alt: dashed windowtext .5pt; mso-element: para-border-div; padding: 0in 4.0pt 1.0pt 4.0pt;">
<div class="MsoNormal" style="background: #D9D9D9; border: none; mso-border-alt: dashed windowtext .5pt; mso-padding-alt: 0in 4.0pt 1.0pt 4.0pt; padding: 0in; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 9.0pt; mso-bidi-font-size: 12.0pt;">Private
Sub CmdReport_Click()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; border: none; mso-border-alt: dashed windowtext .5pt; mso-padding-alt: 0in 4.0pt 1.0pt 4.0pt; padding: 0in; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 9.0pt; mso-bidi-font-size: 12.0pt;"><span style="mso-spacerun: yes;"> </span>rptTeman.Show 1</span></div>
<div class="MsoNormal" style="background: #D9D9D9; border: none; mso-border-alt: dashed windowtext .5pt; mso-padding-alt: 0in 4.0pt 1.0pt 4.0pt; padding: 0in; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: 9.0pt; mso-bidi-font-size: 12.0pt;">End
Sub</span></div>
</div>
<span style="font-family: "Times New Roman","serif"; font-size: 9.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 12.0pt; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"><br clear="all" style="mso-special-character: line-break; page-break-before: always;" />
</span><br />
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<br /></div>
<div class="MsoNormal" style="margin-left: 27.0pt; text-indent: 9.0pt;">
<br /></div>
</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-63903836158144428012012-09-29T22:24:00.001+07:002012-10-03T16:05:49.588+07:00Tutorial Contoh Program Database Sederhana dengan Microsoft Visual Basic 6.0<div dir="ltr" style="text-align: left;" trbidi="on">
<style>
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
p.MsoBodyTextIndent, li.MsoBodyTextIndent, div.MsoBodyTextIndent
{mso-style-link:"Body Text Indent Char";
margin-top:0cm;
margin-right:0cm;
margin-bottom:0cm;
margin-left:18.0pt;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-link:"Balloon Text Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";}
span.BalloonTextChar
{mso-style-name:"Balloon Text Char";
mso-style-link:"Balloon Text";
font-family:"Tahoma","sans-serif";}
span.BodyTextIndentChar
{mso-style-name:"Body Text Indent Char";
mso-style-link:"Body Text Indent";
font-family:"Times New Roman","serif";}
@page WordSection1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
{page:WordSection1;}
/* List Definitions */
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
</style><br />
<div class="WordSection1">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:TargetScreenSize>800x600</o:TargetScreenSize>
</o:OfficeDocumentSettings>
</xml><![endif]-->
<br />
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="mso-bidi-font-weight: normal;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Akhir-akhir lebih sering lihat-lihat postingan di blog ini…akhirnya
jadi ingat pernah bikin tutorial buat bantu teman belajar database di Microsoft
Visual Basic 6. Pertama kali yang dipelajari tentunya menggunakan database
Microsoft Access.</span></span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="mso-bidi-font-weight: normal;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Waktu itu aku kasih aja langkah-langkah buat program database yang
sederhana.</span></span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="mso-bidi-font-weight: normal;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Contoh project Microsoft Visual Basic 6.0 menggunakan database
Microsoft Access step by step:</span></span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<b style="mso-bidi-font-weight: normal;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Langkah-langkah</span></b></div>
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:TargetScreenSize>800x600</o:TargetScreenSize>
</o:OfficeDocumentSettings>
</xml><![endif]-->
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
</div>
<ol start="1" style="margin-top: 0cm;" type="1">
<li class="MsoNormal" style="line-height: 150%; mso-list: l1 level1 lfo2; tab-stops: list 36.0pt; text-align: justify;"><span style="font-family: "Arial","sans-serif"; mro-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Buat project baru</span></li>
</ol>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<b><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">File
- New Project</span></b></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Pilih <b>STANDAR
EXE</b> kemudian klik OK</span></div>
<ol start="2" style="margin-top: 0cm;" type="1">
<li class="MsoNormal" style="line-height: 150%; mso-list: l1 level1 lfo2; tab-stops: list 36.0pt; text-align: justify;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Tambahkan komponen pada toolbox. Klik
kanan pada toolbox - component - Microsoft Datagrid Control 6.0 (OLEDB) -
OK</span></li>
<li class="MsoNormal" style="line-height: 150%; mso-list: l1 level1 lfo2; tab-stops: list 36.0pt; text-align: justify;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Aturlah property formnya sebagai berikut :</span></li>
</ol>
<ol start="1" style="margin-top: 0cm;" type="1"><ul style="margin-top: 0cm;" type="disc">
<li class="MsoNormal" style="line-height: 150%; mso-list: l0 level2 lfo1; tab-stops: list 72.0pt left 126.0pt 135.0pt; text-align: justify;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Name<span style="mso-tab-count: 1;"> </span>: Frm_Utama</span></li>
<li class="MsoNormal" style="line-height: 150%; mso-list: l0 level2 lfo1; tab-stops: list 72.0pt left 126.0pt 135.0pt; text-align: justify;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Caption<span style="mso-tab-count: 1;"> </span>:<span style="mso-tab-count: 1;"> </span>..::|| Data Teman
||::..</span></li>
</ul>
</ol>
<ol start="4" style="margin-top: 0cm;" type="1">
<li class="MsoNormal" style="line-height: 150%; mso-list: l1 level1 lfo2; tab-stops: list 36.0pt; text-align: justify;"><span style="font-family: "Arial","sans-serif"; mso-ascii-theme-font: minor-bidi; mso-bidi-theme-font: minor-bidi; mso-hansi-theme-font: minor-bidi;">Pada Frm_Utama aturlah objek-objek seperti
tampilan berikut :</span></li>
</ol>
<br />
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjtNgWWMtkGNHloKinIHXtHTjXPAeYppsfqfSVFBq7Bbe9tDbN5f_5Hl0lvsdtHB0yNA6-VnEHbWpTNZPZ7XRDYLQp_Nb5ISgdMlnmVuoAC00HSBYaDskUacfUGJUahGM_ETYnqEYKRSpw8/s1600/image001.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjtNgWWMtkGNHloKinIHXtHTjXPAeYppsfqfSVFBq7Bbe9tDbN5f_5Hl0lvsdtHB0yNA6-VnEHbWpTNZPZ7XRDYLQp_Nb5ISgdMlnmVuoAC00HSBYaDskUacfUGJUahGM_ETYnqEYKRSpw8/s1600/image001.jpg" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br />
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br />
<br /></div>
<table border="1" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="border-collapse: collapse; border: none; margin-left: 41.4pt;">
<tbody>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><b><span style="font-family: "Arial","sans-serif";">Obyek</span></b></span></div>
</td>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><b><span style="font-family: "Arial","sans-serif";">Property</span></b></span></div>
</td>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 100.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><b><span style="font-family: "Arial","sans-serif";">Setting</span></b></span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Label1</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Nama</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Label2</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Alamat</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Label3</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">TTL</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Label4</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Telp</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text1</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">TNama</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><br /></span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text2</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">TAlamat</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><br /></span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text3</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">TLahir</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text4</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none rolid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">TTelp</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Command1</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">CmdBaru</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Baru</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Command2</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">CmdSimpan</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Simpan</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Command3</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">CmdEdit Edit </span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Command4</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">CmdUpdate</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Update</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Command5</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">CmdBatal</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Batal</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Command6</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Caption</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">CmdHapus</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Hapus</span></div>
</td>
</tr>
<tr>
<td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 66.8pt;" valign="top" width="89"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">DataGrid1</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 75.5pt;" valign="top" width="101"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Name</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">AllowUpdate</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 70.85pt;" valign="top" width="94"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">DB</span></div>
<div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">False</span></div>
</td>
</tr>
</tbody></table>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<ol start="5" style="margin-top: 0cm;" type="1">
<li class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Arial","sans-serif";">Buat database data teman.Mdb</span></li>
</ol>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";">a.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Dari jendela Visual Basic Klik menu
Add-Ins dan pilih Visual Data Manager dan akan muncul tampilan sbb:</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlV3Xd6j1GOtvaLmXS5jQoHxRTXmyp802tcme_dgwEsjO8fkwP6h2BKP45mxkA7oOYWZYH2AsfhhrgDm_ZS3CTsjgXwDPtCjp1c5GomQXZkE0_sNF56_bGM4v6fNy_YGO7Mzuc9R5z1y5X/s1600/image002.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlV3Xd6j1GOtvaLmXS5jQoHxRTXmyp802tcme_dgwEsjO8fkwP6h2BKP45mxkA7oOYWZYH2AsfhhrgDm_ZS3CTsjgXwDPtCjp1c5GomQXZkE0_sNF56_bGM4v6fNy_YGO7Mzuc9R5z1y5X/s320/image002.jpg" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";">b.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Klik menu File - New - Microsoft Acces
kemudian pilihlah Version 7.0 seperti gambar berikut :</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpMPa31qEfONVW7qoD5qBwif04j3w-ITDs8vOTt6oA0Gagq2PeI3bqN-XdfoNg5TDiPFQ6_xoIUrcpV0TRPoSOG8uwy4JVUnX5DOv6SOibzb5OiW6e1JQjwzKkz16PjMH3KJSTyAMZkTUI/s1600/image003.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpMPa31qEfONVW7qoD5qBwif04j3w-ITDs8vOTt6oA0Gagq2PeI3bqN-XdfoNg5TDiPFQ6_xoIUrcpV0TRPoSOG8uwy4JVUnX5DOv6SOibzb5OiW6e1JQjwzKkz16PjMH3KJSTyAMZkTUI/s320/image003.jpg" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";"> c.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Selanjutnya ditampilkan kotak dialog
Select Microsoft Acces Database to Create. Tentukan tempat untuk menyimpan
database yang dibuat dengan nama DataTeman. Seperti pada gambar berikut :</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 45.0pt; text-align: justify;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMLINnMLT4XYNR-kteHqdyxQ1_tCtdCc64OGqP9ouNQQGWBzOP8UsgUrJQK4du_6qKY4lz39wBdIFO5R6i4SuOuanbcQJohiyYQY4fpUapLnr0xj1tWSKSg940Hbqtwwml5QW0uWNNMGMp/s1600/image004.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMLINnMLT4XYNR-kteHqdyxQ1_tCtdCc64OGqP9ouNQQGWBzOP8UsgUrJQK4du_6qKY4lz39wBdIFO5R6i4SuOuanbcQJohiyYQY4fpUapLnr0xj1tWSKSg940Hbqtwwml5QW0uWNNMGMp/s1600/image004.jpg" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";">d.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Klik Save</span></div>
<ol start="6" style="margin-top: 0cm;" type="1">
<li class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Arial","sans-serif";">Buat table Data Teman</span></li>
</ol>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.8pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";">a.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Klik kanan pada
jendela Database window, kemudian pilihlah New Table dari popup menu yang
ditampilkan.</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8WWDkU3k9rLNW52UPuo16dKiz_fOm9_UtBK3ZjxI6aNjb6J2PsUt0FlCMILBB2wioNOMG9ntZf5SeLljivo6XbMvLvm9YfXKGDXeZp4iKWn2Y0aU4kgJMr4SF4TbsQumOhBJXAHmEGOFq/s1600/image005.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8WWDkU3k9rLNW52UPuo16dKiz_fOm9_UtBK3ZjxI6aNjb6J2PsUt0FlCMILBB2wioNOMG9ntZf5SeLljivo6XbMvLvm9YfXKGDXeZp4iKWn2Y0aU4kgJMr4SF4TbsQumOhBJXAHmEGOFq/s400/image005.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRTLXrF0h6EULqI_j8icUVGRc3eyk9QT1sMysqNRa_RJrBS3YLRp43tPUVGj5wwZOLPiU2nykL9E9ItmpGHxn2Qnt8zp99AG_dHl4fMdCyniyDe9DIJGCLBSoSK_lETchaydA9lME0j0tP/s1600/image006.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<span style="font-family: "Arial","sans-serif";">Sehingga ditampilkan
jendela berikutnya dengan nama Table Structure, ketikkan nama tabelnya <b>=
TTeman</b> pada kotak <b>Table Name</b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRTLXrF0h6EULqI_j8icUVGRc3eyk9QT1sMysqNRa_RJrBS3YLRp43tPUVGj5wwZOLPiU2nykL9E9ItmpGHxn2Qnt8zp99AG_dHl4fMdCyniyDe9DIJGCLBSoSK_lETchaydA9lME0j0tP/s1600/image006.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="273" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRTLXrF0h6EULqI_j8icUVGRc3eyk9QT1sMysqNRa_RJrBS3YLRp43tPUVGj5wwZOLPiU2nykL9E9ItmpGHxn2Qnt8zp99AG_dHl4fMdCyniyDe9DIJGCLBSoSK_lETchaydA9lME0j0tP/s320/image006.jpg" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.8pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";">b.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Klik tombol <b>Add
field</b> untuk membuat field baru dan buatlah field sbb :</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 45.0pt; text-align: justify;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiUR5JEpwX3Uehi8zl-EFW4-5tMsZUtTItiz9onkUWlIBejPqA81YzSgx3OerxP3N1DkwlL_vgFLlgc67f76E41FDvxcBLuInUDgGXQ5OqM9-v5-InIUbdU18RLnsQyI4mgBcUUhyrTUPQq/s1600/image007.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiUR5JEpwX3Uehi8zl-EFW4-5tMsZUtTItiz9onkUWlIBejPqA81YzSgx3OerxP3N1DkwlL_vgFLlgc67f76E41FDvxcBLuInUDgGXQ5OqM9-v5-InIUbdU18RLnsQyI4mgBcUUhyrTUPQq/s320/image007.jpg" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.0pt; text-align: justify;">
<br /></div>
<table border="1" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="border-collapse: collapse; border: none; margin-left: 68.4pt;">
<tbody>
<tr style="height: 13.0pt;">
<td style="border: 1pt solid windowtext; height: 13pt; padding: 0cm 5.4pt; width: 73.5pt;" valign="top" width="98"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><b><span style="font-family: "Arial","sans-serif";">Nama_Field</span></b></span></div>
</td>
<td style="border: 1pt solid windowtext; height: 13pt; padding: 0cm 5.4pt; width: 61.5pt;" valign="top" width="82"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><b><span style="font-family: "Arial","sans-serif";">Type</span></b></span></div>
</td>
<td style="border: 1pt solid windowtext; height: 13pt; padding: 0cm 5.4pt; width: 54pt;" valign="top" width="72"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><b><span style="font-family: "Arial","sans-serif";">Size</span></b></span></div>
</td>
</tr>
<tr style="height: 14pt;">
<td style="border: 1pt solid windowtext; height: 14pt; padding: 0cm 5.4pt; width: 73.5pt;" valign="top" width="98"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Nama</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 61.5pt;" valign="top" width="82"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 54pt;" valign="top" width="72"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">50</span></div>
</td>
</tr>
<tr style="height: 14pt;">
<td style="border: 1pt solid windowtext; height: 14pt; padding: 0cm 5.4pt; width: 73.5pt;" valign="top" width="98"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Alamat</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 61.5pt;" valign="top" width="82"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Memo</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 54pt;" valign="top" width="72"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-size: x-small;"><br /></span></div>
</td>
</tr>
<tr style="height: 14pt;">
<td style="border: 1pt solid windowtext; height: 14pt; padding: 0cm 5.4pt; width: 73.5pt;" valign="top" width="98"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Lahir</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 61.5pt;" valign="top" width="82"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 54pt;" valign="top" width="72"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">30</span></div>
</td>
</tr>
<tr style="height: 14.0pt;">
<td style="border: 1pt solid windowtext; height: 14pt; padding: 0cm 5.4pt; width: 73.5pt;" valign="top" width="98"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Telp</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 61.5pt;" valign="top" width="82"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">Text</span></div>
</td>
<td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; height: 14pt; padding: 0cm 5.4pt; width: 54pt;" valign="top" width="72"><div class="MsoNormal" style="line-height: 150%; text-align: justify;">
<span style="font-family: "Arial","sans-serif"; font-size: x-small;">20</span></div>
</td>
</tr>
</tbody></table>
<div class="MsoNormal" style="line-height: 150%; margin-left: 45.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.8pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";">c.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Deklarasikan
variable untuk membuka database</span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;">Option Explicit</span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="font-size: x-small;"><i><span style="color: black; font-family: "Arial","sans-serif";">'Koneksi merupakan variabel untuk dihubungkan dengan file
databasenya</span></i></span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;">Public Koneksi As New ADODB.Connection</span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="font-size: x-small;"><i><span style="color: black; font-family: "Arial","sans-serif";">'rsteman merupakan variabel untuk memanggil data record</span></i></span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif&qtot;; font-size: x-small;">Public Rsteman As New ADODB.Recordset</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 18.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.8pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-f`mily: "Arial","sans-serif";">d.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Buat prosedur
(Sub) untuk membuka database</span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;">Private Sub BukaDatabase()</span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="font-size: x-small;"><i><span style="color: black; font-family: "Arial","sans-serif";">'Perintah untuk memanggil database</span></i></span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;"> Koneksi.CursorLocation = adUseClient</span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;"> Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security
Info=False"</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: black; font-family: "Arial","sans-serif";">‘(Jika tidak tau provider maka tambahkan adodc dan konekkan terus
copy</span></i><span style="color: black; font-family: "Arial","sans-serif";"> <b>conection</b></span><b><span style="font-family: "Arial","sans-serif";"> stringnya)</span></b><br />
<b><span style="font-family: "Arial","sans-serif";">'Untuk alamat file databasenya bisa dibuat dinamis mengikuti alamat aplikasi dengan mengganti<span style="font-size: x-small;">:</span></span></b><br />
<b><span style="font-family: "Arial","sans-serif";"><span style="font-size: x-small;"> </span></span></b><span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;">Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security
Info=False"</span><b><span style="font-family: "Arial","sans-serif";"> </span></b><br />
<b><span style="font-family: "Arial","sans-serif";">menjadi</span></b><br />
<b><span style="font-family: "Arial","sans-serif";"><span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;">Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & App.Path &<span style="font-size: x-small;"> "</span>DataTeman.mdb;Persist Security
Info=False"</span> </span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDfDpMToPqhcDUt2otiMtxn-zRw_hOGOfR21P2UOSOFKPNp6j8PZBXdrPEbYU8GKTyG7YX21y-vPmsjfkP77y7C1pEM2j9Ctc7vZMlOjHVS6id7dbUzDO4NsDivARIXEA81i7XGF0s-bnf/s1600/image009.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="246" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDfDpMToPqhcDUt2otiMtxn-zRw_hOGOfR21P2UOSOFKPNp6j8PZBXdrPEbYU8GKTyG7YX21y-vPmsjfkP77y7C1pEM2j9Ctc7vZMlOjHVS6id7dbUzDO4NsDivARIXEA81i7XGF0s-bnf/s320/image009.jpg" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 126.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 126.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: black; font-family: "Arial","sans-serif";">'<span style="font-size: x-small;">perintah untuk memanggil record dari masing2 tabel</span></span></i></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;"> Rsteman.Open "tteman", Koneksi, adOpenStatic,
adLockOptimistic</span></div>
<div class="MsoNormal" style="background: none repeat scroll 0% 0% rgb(217, 217, 217); line-height: 150%; margin-left: 36pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: x-small;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 63.8pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "Arial","sans-serif";">e.<span style="font: 7.0pt "Times New Roman";"> </span></span><span style="font-family: "Arial","sans-serif";">Dan ketik Script
dibawah ini</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>Tombol Baru</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub CmdBaru_Click()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial",&qtot;sans-serif"; font-size: 10.0pt; line-height: 150%;">‘Untuk membersihkan field
ketika tombol baru diklik</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TNama.Text = ""</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TAlamat.Text = ""</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TLahir.Text = ""</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TTelp.Text = ""</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">‘untuk meletakkan kursor pada
TNama Saat Tombol baru diklik</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TNama.SetFocus</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> buka</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBaru.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdSimpan.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdEdit.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdUpdate.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBatal.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdHapus.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>Tombol Batal</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub CmdBatal_Click()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> kunci</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBaru.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdSimpan.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdEdit.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdUpdate.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBatal.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdHapus.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>Tombol Edit</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub CmdEdit_Click()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">‘untuk memanggil procedure buka</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> buka</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBaru.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdSimpan.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdEdit.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdUpdate.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBatal.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdHapus.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>Tombol Hapus</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub CmdHapus_Click()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">‘ketika tidak ada data yang dihapus
maka tidak eror</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> If Rsteman.RecordCount = 0
Then Exit Sub</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">‘ketika kursor tidak pada grid
maka tdk eror</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> If
Rsteman.AbsolutePosition < 0 Then</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> MsgBox "Pilih
yang akan dihapus", vbOKOnly + vbInformation, "Info"</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> End If</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">‘perintah utnuk menghapus data</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Delete</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>Tombol Simpan</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub CmdSimpan_Click()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> 'Rsteman nama variabel u/
memanggil data record</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> 'jika menggunakan komponen
adodc maka scriptx adodc1.recordset.addnew</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.AddNew</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Fields(0).Value =
Trim(TNama.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Fields(1).Value =
Trim(TAlamat.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Fields(2).Value =
Trim(TLahir.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> </span><span style="color: black; font-family: "Arial","sans-serif"; font-size: 9.0pt; line-height: 150%;">Rsteman.Fields(3).Value = Trim(TTelp.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 9.0pt; line-height: 150%;"> Rsteman.</span><span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Update</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> kunci</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBaru.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdSimpan.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdEdit.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdUpdate.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBatal.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdHapus.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>Tombol Update</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub CmdUpdate_Click()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Fields(0).Value =
Trim(TNama.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Fields(1).Value =
Trim(TAlamat.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Fields(2).Value =
Trim(TLahir.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Fields(3).Value =
Trim(TTelp.Text)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Rsteman.Update</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> kunci</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBaru.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdSimpan.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdEdit.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdUpdate.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBatal.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdHapus.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>DataGrid</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub
DB_RowColChange(LastRow As Variant, ByVal LastCol As Integer)</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TNama.Text =
Rsteman.Fields(0).Value</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TAlamat.Text = Rsteman.Fields(1).Value</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TLahir.Text =
Rsteman.Fields(2).Value</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TTelp.Text =
Rsteman.Fields(3).Value</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Script
pada <b>Form load</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub Form_Load()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> 'untuk membuka/mengkonekkan
databasenya</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> BukaDatabase</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> </span><i><span style="color: #3366ff; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">'untuk menghubungkan datagrid ke datasource</span></i></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> Set DB.DataSource = Rsteman</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> kunci</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBaru.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdSimpan.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdEdit.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdUpdate.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdBatal.Enabled = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> CmdHapus.Enabled = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Procedure<b>
Buka </b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub buka()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TNama.Locked = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TAlamat.Locked = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TLahir.Locked = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TTelp.Locked = False</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-left: 72.0pt; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol;">·<span style="font: 7.0pt "Times New Roman";">
</span></span><span style="font-family: "Arial","sans-serif";">Procedure<b>
Kunci</b></span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">Private Sub kunci()</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TNama.Locked = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TAlamat.Locked = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TLahir.Locked = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;"> TTelp.Locked = True</span></div>
<div class="MsoNormal" style="background: #D9D9D9; line-height: 150%; margin-left: 36.0pt; text-align: justify;">
<span style="color: black; font-family: "Arial","sans-serif"; font-size: 10.0pt; line-height: 150%;">End Sub</span></div>
<div class="MsoNormal">
<br /></div>
</div>
</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com2tag:blogger.com,1999:blog-645140028596124518.post-64948953583605109402012-03-21T11:08:00.001+07:002012-09-29T09:16:34.400+07:00Cara Membaca/Import File Text Hasil WinAudit ke Dalam Tabel Database Menggunakan ADO di Microsoft Visual Basic 6.0 <p style="MARGIN-BOTTOM:0mm">Kalau anda bekerja menjadi tenaga IT di sebuah perusahaan yang mengutamakan penggunaan software yang legal, pasti anda akan kenal dengan software gratisan WinAudit. WinAudit adalah software sederhana yang digunakan untuk mendata informasi sebuah komputer termasuk software yang terinstall di komputer tersebut. Biasanya perusahaan yang beritikad baik terhadap HKI akan ikut Piagam HKI yang diselenggarakan oleh BSA bekerjasama dengan Kepolisian Republik Indonesia. </p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Informasi lengkap tentang cara pendaftaran Piagam HKI bisa diakses melalui situs resminya <a href="http://piagam-hki.org/">http://piagam-hki.org/</a>. Sedangkan informasi tentang BSA serta merek software yang tergabung dalam BSA bisa dilihat di situs resminya <a href="http://www.bsa.org/country.aspx?sc_lang=id-ID">http://www.bsa.org/country.aspx?sc_lang=id-ID</a> (bahasa Indonesia).</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">BSA akan mengirimkan auditor untuk mengaudit semua komputer yang ada di perusahaan. Jika perusahaan tersebut bisa comply atau bisa membuktikan bahwa software yang digunakan legal dengan bukti-bukti lisensi, maka atas persetujuan piagam HKI, perusahaan tersebut akan diberikan reward berupa piagam HKI.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Hubungannya dengan hal tersebut, auditor yang dikirim untuk mengaudit komputer kadang-kadang menggunakan software WinAudit. Agar memudahkan kita dan auditor, sebaiknya kita harus melakukan internal audit dulu dan mempersiapkan dokumen lisensinya untuk diberikan kepada auditor nanti. Software gratisan yang bisa digunakan adalah winaudit.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Hasil pendataan winaudit bisa disimpan dengan berbagai macam tipe file termasuk file text (.txt). Satu komputer akan menghasilkan satu file hasil winaudit. Jika jumlah komputer yang diaudit cukup banyak, tentunya kita akan kesulitan membaca satu-satu file hasil winaudit tersebut dan menghitung jumlah softwarenya secara manual. Hal itu juga yang menjadi permasalahan saya waktu itu.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Untuk mempermudah penghitungan software hasil winaudit tersebut, akhirnya saya mencoba untuk membuat program kecil-kecilan di Microsoft Visual Basic 6.0 untuk membaca semua file hasil winaudit dan meng-importnya menjadi satu dalam file database agar lebih mudah untuk dioproses.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Berikut akan saya paparkan langkah-langkah yang saya pikirkan waktu membuat program tersebut.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Bismillahirrohmanirrohiim...!</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><b>Langkah Pertama: Mempersiapkan Database</b></p> <p style="MARGIN-BOTTOM:0mm">Tentunya kita harus mempersiapkan databasenya terlebih dahulu sebagai tempat penyimpanan data hasil import dari file winaudit. Untuk menentukan field apa saja yang digunakan, bisa kita sesuaikan dengan kebutuhan dan mengacu pada file hasil winaudit. Untuk mempermudah, saya buat dan buka databasenya menggunakan script dalam sebuah module. Berikut adalah scriptnya:</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Option Explicit</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'untuk buat database</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public XDBAuditReport As New ADOX.Catalog</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public XTblInstalledSoftware As New ADOX.Table</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public XTblInstalledPrograms As New ADOX.Table</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public XTblOperatingSystem As New ADOX.Table.</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'untuk buka database</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public CnDBAuditReport As New ADODB.Connection</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public RsInstalledSoftware As New ADODB.Recordset</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public RsInstalledPrograms As New ADODB.Recordset</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Public RsOperatingSystem As New ADODB.Recordset</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Sub BuatDB(Alamatnya As String)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XDBAuditReport.Create "Provider=Microsoft.jet.oledb.4.0;data source=" & Alamatnya</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XDBAuditReport.ActiveConnection = "Provider=Microsoft.jet.oledb.4.0;data source=" & Alamatnya</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'=============================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'tabel tblInstalledSoftware</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledSoftware.Name = "TblInstalledSoftware"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledSoftware.Columns.Append "No", adInteger 'buat auto number</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledSoftware.Columns.Append "Komputer", adVarWChar, 30</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledSoftware.Columns.Append "AuditDate", adVarWChar, 30</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledSoftware.Columns.Append "SWName", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledSoftware.Columns.Append "Version", adVarWChar, 16</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledSoftware.Columns.Append "Installed", adVarWChar, 3</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>With XTblInstalledSoftware.Columns!No</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Set .ParentCatalog = XDBAuditReport</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Properties("Autoincrement") = True 'AutoNumber.</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End With</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XDBAuditReport.Tables.Append XTblInstalledSoftware</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'=============================</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'=============================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'tabel tblInstalledPrograms</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Name = "TblInstalledPrograms"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "No", adInteger 'buat auto number</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "Komputer", adVarWChar, 30</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "AuditDate", adVarWChar, 30</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "SWName", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "Vendor", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "Version", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "ProductLanguage", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "InstallDate", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "InstallLocation", adVarWChar, 200</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "InstallSource", adVarWChar, 200</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "InstallState", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "AssignmentType", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "PackageCode", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "PackageName", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "LocalPackage", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "ProductID", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "RegisteredCompany", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "RegisteredOwner", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "TimesUsed", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "LastUsed", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "ExecutablePath", adVarWChar, 200</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "ExecutableVersion", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "ExecutableDescription", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblInstalledPrograms.Columns.Append "SoftwareID", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>With XTblInstalledPrograms.Columns!No</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Set .ParentCatalog = XDBAuditReport</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Properties("Autoincrement") = True 'AutoNumber.</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End With</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monnspace"><font>XDBAuditReport.Tables.Append XTblInstalledPrograms</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'=============================</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'=============================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'tabel tblOperatingSystem</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Name = "tblOperatingSystem"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "No", adInteger 'buat auto number</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "Komputer", adVarWChar, 30</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "AuditDate", adVarWChar, 30</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "OSName", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "Edition", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "InstallDate", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "RegisteredOwner", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "RegisteredOrganization", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "ProductID", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "MajorVersionNumber", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "MinorVersionNumber", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "BuildNumber", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "ServicePack", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "ServicePackVersion", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "PlusVersionNumber", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "DirectXVersion", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "WindowsDirectory", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "SystemDirectory", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XTblOperatingSystem.Columns.Append "TemporaryDirectory", adVarWChar, 100</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>With XTblOperatingSystem.Columns!No</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Set .ParentCatalog = XDBAuditReport</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Properties("Autoincrement") = True 'AutoNumber.</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End With</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>XDBAuditReport.Tables.Append XTblOperatingSystem</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'=============================</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Set XDBAuditReport = Nothing</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Sub BukaDB(Alamatnya As String)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim strKonek As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>strKonek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Alamatnya & ";Persist Security Info=False"</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If CnDBAuditReport.State = 0 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>CnDBAuditReport.CursorLocation = adUseClient</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>CnDBAuditReport.Open strKonek</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>RsInstalledSoftware.Open "tblInstalledSoftware", CnDBAuditReport, adOpenKeyset, adLockOptimistic</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>RsInstalledPrograms.Open "tblInstalledPrograms", CnDBAuditReport, adOpenKeyset, adLockOptimistic</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>RsOperatingSystem.Open "tblOperatingSystem", CnDBAuditReport, adOpenKeyset, adLockOptimistic</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'===============================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><b>Langkah Kedua: Mengenali Pola Penanda File</b></p> <p style="MARGIN-BOTTOM:0mm">Kok mengenali pola? Yup....mengenali pola file text hasil winaudit tersebut. Coba perhatikan beberapa baris awal file hasil winaudit berikut ini:</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">-------------</p> <p style="MARGIN-BOTTOM:0mm">| ________ |</p> <p style="MARGIN-BOTTOM:0mm">-------------</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Computer Audit :: 5/20/2010 10:42:41 AM </p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Installed Software </p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Active Setup </p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">-----------------------------------------------------------------------------</p> <p style="MARGIN-BOTTOM:0mm">| Name | Version | Installed |</p> <p style="MARGIN-BOTTOM:0mm">-----------------------------------------------------------------------------</p> <p style="MARGIN-BOTTOM:0mm">| .NET Framework | 2,0,50727,0 | |</p> <p style="MARGIN-BOTTOM:0mm">| Active Directory Service Interface | 5,0,00,0 | Yes |</p> <p style="MARGIN-BOTTOM:0mm">...dst</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Kalau kita perhatikan pada baris pertama sampai baris ketiga, terdapat beberapa karakter garis (- | _ ). Kalau dilihat di semua file hasil text winaudit pasti terdapat karakter tersebut. Karakter inilah yang saya gunakan untuk mengenali apakah file text tersebut adalah file hasil Winaudit.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Sehingga saya merasa perlu membuat function untuk mengecek (memeriksa) apakah file yang akan diproses adalah file hasil Winaudit. Berikut script seadanya:</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'===================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Function CekFileAudit(filenya As String) As Boolean</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Textnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Hasilnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim JmlGrsMin As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim I As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>I = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Open filenya For Input As I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>While Not EOF(I)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Line Input #I, Textnya</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If I = 1 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) <> "-------------" Then CekFileAudit = False: Close I: Exit Function</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf I = 2 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) <> "| ________ |" Then CekFileAudit = False: Close I: Exit Function</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf I = 3 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) <> "-------------" Then CekFileAudit = False: Close I: Exit Function</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>CekFileAudit = True</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Exit Function</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Wend</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End Function</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'===========================================================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Script tersebut akan memeriksa pada baris pertama sampai baris ketiga, apakah ada karakter yang menjadi ciri khas file hasil winaudit. Jika ada, maka function tersebut akan bernilai TRUE tetapi jika tidak ada, maka akan bernilai FALSE.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><b>Langkah Ketiga: Mengenali Pola Untuk Pembacaan Data</b></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Dengan mendeteksi karakter-karakter yang digunakan dalam file hasil winaudit tersebut (seperti pengenalan pola pada penanda file), berikut adalah script yang saya gunakan untuk membaca datanya:</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'======================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'untuk mengambil data Installed Software</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Sub BacaInsSoft(filenya As String, NamaKomp As String)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Textnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Hasilnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim JmlGrsMin As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim TglAudit As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Mulai As Boolean</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>JmlGrsMin = 0</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim I As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>I = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Open filenya For Input As I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>While Not EOF(I)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>langsung:</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Line Input #I, Textnya</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) = "Computer Audit" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>TglAudit = Trim(Mid(Textnya, 19, Len(Textnya) - 17))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Textnya) = "Installed Software" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Mulai = True</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>GoTo langsung</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Mulai = True Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'pengecekan garis pembatas</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) = "---------------" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>JmlGrsMin = JmlGrsMin + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf JmlGrsMin = 3 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'sudah sampai batas akhir datanya</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Exit Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf JmlGrsMin = 2 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'mulai pembacaan data disimpan ke database</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flName As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flVersion As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flInstalled As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Panjang As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Panjang = Len(Textnya)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Panjang = 0 Then GoTo langsung</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flName = Mid(Textnya, 2, Panjang - 33)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flVersion = Mid(Textnya, Len(flName) + 4, 16)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flInstalled = Mid(Textnya, Len(flName) + Len(flVersion) + 5, 12)</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'simpan ke database</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'diasumsikan sudah ada pengecekan nama komputer yang sama</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>With RsInstalledSoftware</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.AddNew</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'field(0) auto increment</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(1).Value = IIf(IsNull(Trim(NamaKomp)) = True, "", Trim(NamaKomp))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(2).Value = IIf(IsNull(Trim(TglAudit)) = True, "", Trim(TglAudit))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(3).Value = IIf(IsNull(Trim(flName)) = True, "", Trim(flName))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(4).Value = IIf(IsNull(Trim(flVersion)) = True, "", Trim(flVersion))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(5).Value = IIf(IsNull(Trim(flInstalled)) = True, "", Trim(flInstalled))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Update</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End With</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flName & "#" & flVersion & "#" & flInstalled & vbCrLf</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Wend</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'==================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'untuk mengambil data Installed Programs</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Sub BacaInsProgs(filenya As String, NamaKomp As String)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Textnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Hasilnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim JmlGrsMin As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim TglAudit As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Mulai As Boolean</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Kolom As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flName As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flVendor As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flVersion As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flProductLanguage As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flInstallDate As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flInstallLocation As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flInstallSource As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flInstallState As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flAssignmentType As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospabe"><font>Dim flPackageCode As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flPackageName As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flLocalPackage As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flProductID As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flRegisteredCompany As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flRegisteredOwner As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flTimesUsed As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flLastUsed As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flExecutablePath As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flExecutableVersion As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flExecutableDescription As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flSoftwareID As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>JmlGrsMin = 0</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim I As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>I = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Open filenya For Input As I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>While Not EOF(I)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>langsung:</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Line Input #I, Textnya</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) = "Computer Audit" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>TglAudit = Trim(Mid(Textnya, 19, Len(Textnya) - 17))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Textnya) = "Installed Programs" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Mulai = True</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>GoTo langsung</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Textnya) = "Software Updates" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Mulai = False</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Exit Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'sejak tanda pertama</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Mulai = True Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'pengecekan garis pembatas</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) = "---------------" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>JmlGrsMin = JmlGrsMin + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf JmlGrsMin = 4 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'sudah sampai batas akhir datanya</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'simpan ke database</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'diasumsikan sudah ada pengecekan nama komputer yang sama</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>With RsInstalledPrograms</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.AddNew</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'field(0) auto increment</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(1).Value = IIf(IsNull(Trim(NamaKomp)) = True, "", Trim(NamaKomp))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(2).Value = IIf(IsNull(Trim(TglAudit)) = True, "", Trim(TglAudit))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(3).Value = IIf(IsNull(Trim(flName)) = True, "", Trim(flName))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(4).Value = IIf(IsNull(Trim(flVendor)) = True, "", Trim(flVendor))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(5).Value = IIf(IsNull(Trim(flVersion)) = True, "", Trim(flVersion))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(6).Value = IIf(IsNull(Trim(flProductLanguage)) = True, "", Trim(flProductLanguage))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(7).Value = IIf(IsNull(Trim(flInstallDate)) = True, "", Trim(flInstallDate))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(8).Value = IIf(IsNull(Trim(flInstallLocation)) = True, "", Trim(flInstallLocation))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(9).Value = IIf(IsNull(Trim(flInstallSource)) = True, "", Trim(flInstallSource))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(10).Value = IIf(IsNull(Trim(flInstallState)) = True, "", Trim(flInstallState))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(11).Value = IIf(IsNull(Trim(flAssignmentType)) = True, "", Trim(flAssignmentType))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(12).Value = IIf(IsNull(Trim(flPackageCode)) = True, "", Trim(flPackageCode))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(13).Value = IIf(IsNull(Trim(flPackageName)) = True, "", Trim(flPackageName))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(14).Value = IIf(IsNull(Trim(flLocalPackage)) = True, "", Trim(flLocalPackage))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(15).Value = IIf(IsNull(Trim(flProductID)) = True, "", Trim(flProductID))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(16).Value = IIf(IsNull(Trim(flRegisteredCompany)) = True, "", Trim(flRegisteredCompany))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(17).Value = IIf(IsNull(Trim(flRegisteredOwner)) = True, "", Trim(flRegisteredOwner))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(18).Value = IIf(IsNull(Trim(flTimesUsed)) = True, "", Trim(flTimesUsed))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(19).Value = IIf(IsNull(Trim(flLastUsed)) = True, "", Trim(flLastUsed))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(20).Value = IIf(IsNull(Trim(flExecutablePath)) = True, "", Trim(flExecutablePath))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(21).Value = IIf(IsNull(Trim(flExecutableVersion)) = True, "", Trim(flExecutableVersion))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(22).Value = IIf(IsNull(Trim(flExecutableDescription)) = True, "", Trim(flExecutableDescription))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(23).Value = IIf(IsNull(Trim(flSoftwareID)) = True, "", Trim(flSoftwareID))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Update</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End With</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'reset jmlgrsmin</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>JmlGrsMin = 0</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf JmlGrsMin = 2 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'mulai pembacaan data</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Panjang As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Panjang = Len(Textnya)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Panjang = 0 Then GoTo langsung</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Kolom = 1 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flName = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flName & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 2 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flVendor = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flVendor & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 3 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flVersion = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flVersion & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 4 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flProductLanguage = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flProductLanguage & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 5 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flInstallDate = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallDate & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 6 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flInstallLocation = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallLocation & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 7 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flInstallSource = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallSource & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 8 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flInstallState = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallState & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 9 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flAssignmentType = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flAssignmentType & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 10 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flPackageCode = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flPackageCode & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 11 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flPackageName = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flPackageName & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 12 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flLocalPackage = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flLocalPackage & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 13 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flProductID = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flProductID & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 14 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flRegisteredCompany = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flRegisteredCompany & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 15 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flRegisteredOwner = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flRegisteredOwner & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 16 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flTimesUsed = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flTimesUsed & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 17 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flLastUsed = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flLastUsed & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 18 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flExecutablePath = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flExecutablePath & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 19 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flExecutableVersion = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flExecutableVersion & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 20 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flExecutableDescription = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flExecutableDescription & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 21 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flSoftwareID = Trim(Mid(Textnya, 28, Panjang - 28))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'selesai pembacaan data</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Mulai = False</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flSoftwareID & vbCrLf</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Wend</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Exit Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'untuk mengambil data Operating System</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Sub BacaOprSys(filenya As String, NamaKomp As String)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Textnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Hasilnya As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim JmlGrsMin As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim TglAudit As String</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Mulai As Boolean</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Kolom As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'======================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flName As String '1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flEdition As String '2</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flInstallDate As String '3</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flRegisteredOwner As String '4</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flRegisteredOrganization As String '5</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flProductID As String '6</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flMajorVersionNumber As String '7</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flMinorVersionNumber As String '8</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flBuildNumber As String '9</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flServicePack As String '10</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flServicePackVersion As String '11</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flPlusVersionNumber As String '12</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flDirectXVersion As String '13</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flWindowsDirectory As String '14</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flSystemDirectory As String '15</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim flTemporaryDirectory As String '16</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>JmlGrsMin = 0</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim I As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>I = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Open filenya For Input As I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>While Not EOF(I)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>langsung:</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Line Input #I, Textnya</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) = "Computer Audit" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>TglAudit = Trim(Mid(Textnya, 19, Len(Textnya) - 17))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Textnya) = "Operating System" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Mulai = True</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>GoTo langsung</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'sejak tanda pertama</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Mulai = True Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'pengecekan garis pembatas</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Trim(Left(Textnya, 15)) = "---------------" Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>JmlGrsMin = JmlGrsMin + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf JmlGrsMin = 3 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'sudah sampai batas akhir datanya</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'simpan ke database</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'diasumsikan sudah ada pengecekan nama komputer yang sama</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>With RsOperatingSystem</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.AddNew</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'field(0) auto increment</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(1).Value = IIf(IsNull(Trim(NamaKomp)) = True, "", Trim(NamaKomp))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(2).Value = IIf(IsNull(Trim(TglAudit)) = True, "", Trim(TglAudit))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'===</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(3).Value = IIf(IsNull(Trim(flName)) = True, "", Trim(flName))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(4).Value = IIf(IsNull(Trim(flEdition)) = True, "", Trim(flEdition))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(5).Value = IIf(IsNull(Trim(flInstallDate)) = True, "", Trim(flInstallDate))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(6).Value = IIf(IsNull(Trim(flRegisteredOwner)) = True, "", Trim(flRegisteredOwner))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(7).Value = IIf(IsNull(Trim(flRegisteredOrganization)) = True, "", Trim(flRegisteredOrganization))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(8).Value = IIf(IsNull(Trim(flProductID)) = True, "", Trim(flProductID))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(9).Value = IIf(IsNull(Trim(flMajorVersionNumber)) = True, "", Trim(flMajorVersionNumber))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(10).Value = IIf(IsNull(Trim(flMinorVersionNumber)) = True, "", Trim(flMinorVersionNumber))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(11).Value = IIf(IsNull(Trim(flBuildNumber)) = True, "", Trim(flBuildNumber))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(12).Value = IIf(IsNull(Trim(flServicePack)) = True, "", Trim(flServicePack))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(13).Value = IIf(IsNull(Trim(flServicePackVersion)) = True, "", Trim(flServicePackVersion))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(14).Value = IIf(IsNull(Trim(flPlusVersionNumber)) = True, "", Trim(flPlusVersionNumber))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(15).Value = IIf(IsNull(Trim(flDirectXVersion)) = True, "", Trim(flDirectXVersion))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(16).Value = IIf(IsNull(Trim(flWindowsDirectory)) = True, "", Trim(flWindowsDhrectory))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(17).Value = IIf(IsNull(Trim(flSystemDirectory)) = True, "", Trim(flSystemDirectory))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Fields(18).Value = IIf(IsNull(Trim(flTemporaryDirectory)) = True, "", Trim(flTemporaryDirectory))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>.Update</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End With</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'tutup perulangan</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'selesai</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Exit Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf JmlGrsMin = 2 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'mulai pembacaan data</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Dim Panjang As Integer</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Panjang = Len(Textnya)</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Panjang = 0 Then GoTo langsung</font></font></p> <p style="MARGIN-BOTTOM:0mm"></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>If Kolom = 1 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flName = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flName & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 2 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flEdition = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flVendor & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 3 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flInstallDate = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flVersion & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 4 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flRegisteredOwner = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flProductLanguage & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 5 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flRegisteredOrganization = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallDate & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 6 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flProductID = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallLocation & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 7 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flMajorVersionNumber = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallSource & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 8 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flMinorVersionNumber = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flInstallState & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 9 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flBuildNumber = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flAssignmentType & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 10 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flServicePack = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flPackageCode & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 11 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flServicePackVersion = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flPackageName & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 12 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flPlusVersionNumber = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flLocalPackage & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 13 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flDirectXVersion = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flProductID & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 14 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flWindowsDirectory = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flRegisteredCompany & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 15 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flSystemDirectory = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flRegisteredOwner & "#"</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>ElseIf Kolom = 16 Then</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>flTemporaryDirectory = Trim(Mid(Textnya, 29, Panjang - 29))</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = Kolom + 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'selesai</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Kolom = 1</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Mulai = False</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'Hasilnya = Hasilnya & flSoftwareID & vbCrLf</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End If</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Wend</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Close I</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>Exit Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>End Sub</font></font></p> <p style="MARGIN-BOTTOM:0mm"><font face="Courier New, monospace"><font>'=====================</font></font></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Kalau kita perhatikan dengan seksama, script yang saya buat tersebut menggunakan pengenalan pola dengan cara sederhana yaitu memeriksa satu-persatu tiap baris dari file hasil winaudit (karena keterbatasan kemampuan saya tentunya).</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm"><b>Langkah Berikutnya: Lengkapi Programnya.</b></p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Lengkapi program? maksudnya program di atas tadi cuma intinya saja...untuk kelengkapan mulai dari komponen/reference yang digunakan dan script-script yang lain bisa ditambahkan sendiri sesuai dengan algoritma dan logika pemrograman masing-masing.</p> <p style="MARGIN-BOTTOM:0mm"><br></p> <p style="MARGIN-BOTTOM:0mm">Semoga bermanfaat. Insya Alloh...! Amiin...!</p> <p style="MARGIN-BOTTOM:0mm">(Akr)</p>Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com1tag:blogger.com,1999:blog-645140028596124518.post-60618235767847610912011-12-08T07:31:00.001+07:002012-09-29T09:18:57.047+07:00Cara Import atau Memindah Data dari Sheet di File Microsoft Excel Menjadi Tabel di File Microsoft Access Menggunakan ADO Microsoft Visual Basic 6.0<div dir="ltr" style="text-align: left;" trbidi="on">
Pada posting sebelumnya sudah saya sebutkan contoh cara membuka file Excel di Microsoft Visual Basic 6. menggunakan ADO. Karena file Excel memang bukan "real" database, sehingga biasanya file Excel tidak dijadikan database utama dalam suatu program. Karena Microsoft Excel sudah menjadi aplikasi yang sudah umum digunakan, sehingga biasanya data-data kebanyakan disimpan ke dalam File Excel. Begitu juga dengan data-data yang dibutuhkan dalam sebuah program yang kita buat seringkali user meminta kita untuk memindahkkan data yang sudah ada dari file Excel ke dalam program yang kita buat karena user tentunya tidak mau repot untuk mengetik ulang dan menginputkan semua datanya ke dalam program kita.<br />
<br />
Karena latar belakang itulah, perlu kita buatkan ataun tambahkan fasilitas untuk mengambil data dari file Microsoft Excel ke database yang digunakan oleh program kita. Sebagai contoh, database yang digunakan oleh program kita adalah Microsoft Access.<br />
<br />
Kali ini akan saya berikan contoh untuk mengambil data dari File Excel menjadi tabel di File Microsoft Access menggunakan ADO. <br />
<br />
<span style="font-family: "Courier New", Courier, monospace;"><strong>Sub</strong> ImportExcel<strong>(Dlg As CommonDialog)</strong></span><br />
<span style="font-family: "Courier New", Courier, monospace;"></span><br />
<span style="color: lime; font-family: "Courier New", Courier, monospace;"> 'variabel untuk koneksi database</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <strong>Dim</strong> Koneksi <strong>As</strong> New ADODB.Connection</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <strong>Dim</strong> rsExcel <strong>As</strong> New ADODB.Recordset</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <strong>Dim</strong> strAlamat <strong>As</strong> String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <strong>Dim</strong> strKonek <strong>As</strong> String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dlg.ShowOpen</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <strong>If</strong> Dlg.FileName <strong>=</strong> "" <strong>Then</strong> Exit Sub</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span><br />
<span style="font-family: "Courier New", Courier, monospace;"><strong>On</strong> Error Resume Next</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> strAlamat = Dlg.FileName</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> strKonek = "Provider=Microsoft.jet.OLEDB.4.0;"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> strKonek = strKonek & "data source=" </span><br />
<span style="font-family: "Courier New", Courier, monospace;"> strKonek = strKonek & App.Path & "\Dataku.mdb" & ";"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span><br />
<span style="color: lime; font-family: "Courier New", Courier, monospace;">'Lakukan koneksi ke file database/excel</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Koneksi.CursorLocation = adUseClient</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Koneksi.Open strKonek</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span><br />
<span style="color: lime; font-family: "Courier New", Courier, monospace;">'buka tabel/sheet</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> strKueri = "SELECT * INTO tblIdentitas FROM " &</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> strKueri = "[Excel 8.0;Database=" & strAlamat & "].[Sheet1$]"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> rsExcel.Open strKueri, Koneksi, adOpenKeyset, adLockOptimistic</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> If Err.Number <> 0 Then </span><br />
<span style="font-family: "Courier New", Courier, monospace;"> MsgBox Err.Description, vbOKOnly + vbInformation, "informasi"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Exit Sub</span><br />
<span style="font-family: Courier New;"> end if</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> MsgBox "Import Data selesai"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> rsExcel.Close</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Set rsExcel = Nothing</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Koneksi.Close</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Set Koneksi = Nothing</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><strong>End Sub</strong></span><br />
<br /><span style="font-family: Times, "Times New Roman", serif;">Script di atas akan mengambil data dari Sheet1 di file Excel menjadi tabel "tblIdentitas" di File "dataku.mdb". Agar script tersebut berjalan dengan baik, file Dataku.mdb sudah harus terbentuk dan tblIdentitas masih belum ada dalam database Dataku.mdb.</span><br />
<br />
<span style="font-family: Times;">Selamat Mencoba</span></div>Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com8tag:blogger.com,1999:blog-645140028596124518.post-57112205822099374012011-11-20T09:28:00.001+07:002012-09-29T09:19:41.638+07:00Cara Membuka File Excel Menggunakan ADO pada Microsoft Visual Basic 6.0<div dir="ltr" style="text-align: left;" trbidi="on">
Meskipun Excel tidak ditujukan menjadi database dalam pemrograman Visual Basic 6.0 tetapi kita bisa membuka file Excel tersebut menggunakan Microsoft Visual Basic 6.0 menggunakan ADO.<br />
<br />
<b>Kenapa Menggunakan ADO?</b><br />
Koneksi ke file Excel lebih baik menggunakan ADO karena meskipun di komputer atau PC tersebut tidak terinstall Microsoft Office, kita masih bisa menggunakan ADO untuk membuka file Excel tersebut.<br />
<br />
<b>Bagaimana Cara Membuka File Excel Menggunakan ADO?</b><br />
Caranya cukup mudah, dan mirip dengan cara membuka file database lainnya semisal Access (mdb). Perbedaannya cuma ada beberapa tambahan pada Connection String-nya.<br />
<br />
Misalkan kita punya file Excel dengan nama"Dataku.xls" yang berisi Sheet1, Sheet2, Sheet3.<br />
Pastikan di MS VB6-nya sudah kita aktifkan Referensi Micsosoft ActiveX Data Object 2.0 Library.<br />
Pada awal script kita definiskan dahulu variabelnya seperti berikut:<br />
<span style="font-size: small;"><span style="color: lime;">'==================</span></span><br />
<div style="font-family: "Courier New", Courier, monospace;">
<span style="font-size: small;"><b>Option Explicit</b><br /><br /><span style="color: lime;">'variabel untuk koneksi ke file excel</span><br /><b>Public</b> Conn <b>As</b> New ADODB.Connection</span><br />
<br />
<span style="font-size: small;"><b><span style="color: lime;">'variabel untuk koneksi ke tabel/sheet</span> </b></span><br />
<span style="font-size: small;"><b>Public</b> rsIdentitas <b>As</b> New ADODB.Recordset</span></div>
<div style="color: lime; font-family: "Courier New", Courier, monospace;">
<span style="font-size: small;">'==================</span></div>
<br />
Kemudian kita buat Sub baru berisi prosedur untuk mengkoneksikan file Excel seperti contoh berikut:<br />
<br />
<span style="font-size: small;"><b style="font-family: "Courier New", Courier, monospace;">Sub</b><span style="font-family: "Courier New", Courier, monospace;"> BukaExcel()</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> </span><b style="font-family: "Courier New", Courier, monospace;"> Dim</b><span style="font-family: "Courier New", Courier, monospace;"> strAlamat </span><b style="font-family: "Courier New", Courier, monospace;">As</b><span style="font-family: "Courier New", Courier, monospace;"> String</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> </span><b style="font-family: "Courier New", Courier, monospace;"> Dim</b><span style="font-family: "Courier New", Courier, monospace;"> strKonek</span><b style="font-family: "Courier New", Courier, monospace;"> As</b><span style="font-family: "Courier New", Courier, monospace;"> String</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> </span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> strAlamat = App.Path & "\dataku.xls"</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> strKonek = "Provider=Microsoft.jet.OLEDB.4.0;"</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> strKonek = strKonek & "data source=" & strAlamat & ";"</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> strKonek = strKonek & "Extended Properties='Excel 8.0;HDR=Yes;IMEX=0';"</span><br style="font-family: "Courier New", Courier, monospace;" /><br style="font-family: "Courier New", Courier, monospace;" /><span style="color: lime; font-family: "Courier New", Courier, monospace;">'Lakukan koneksi ke file database/excel</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> Conn.CursorLocation = adUseClient</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> Conn.Open strKonek</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> </span><br style="font-family: "Courier New", Courier, monospace;" /><span style="color: lime; font-family: "Courier New", Courier, monospace;">'buka tabel/sheet</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> </span><b style="font-family: "Courier New", Courier, monospace;"> Dim</b><span style="font-family: "Courier New", Courier, monospace;"> strKueri</span><b style="font-family: "Courier New", Courier, monospace;"> As</b><span style="font-family: "Courier New", Courier, monospace;"> String</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> strKueri = "Select * from [Sheet1$]"</span><br style="font-family: "Courier New", Courier, monospace;" /><span style="font-family: "Courier New", Courier, monospace;"> rsIdentitas.Open strKueri, Conn, adOpenKeyset, adLockOptimistic</span><br style="font-family: "Courier New", Courier, monospace;" /><b style="font-family: "Courier New", Courier, monospace;">End Sub</b></span><br />
<br />
Pada saat form Load, kita panggil sub yang kita buat tersebut seperti contoh berikut:<br />
<div style="font-family: "Courier New", Courier, monospace;">
<br /></div>
<div style="font-family: "Courier New", Courier, monospace;">
<span style="font-size: small;"><b>Private Sub</b> Form_Load()<br /> BukaExcel<br /><b>End Sub</b></span></div>
<br />
Selanjutnya, bisa kita olah data tersebut seperti pengolahan database pada umumnya. Tapi ingat, Excel bukan untuk database sehingga ada keterbatasan pada pengolahan file Excel misalnya: tidak bisa dilakukan perintah recordset.delete (menghapus record) sehingga harus disiasati menggunakan cara lain.</div>Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com1tag:blogger.com,1999:blog-645140028596124518.post-29323733512571179612011-11-19T10:20:00.001+07:002011-11-19T10:39:20.658+07:00Telkomsel Flash error Network Connection Problem "The current operating system is not supported" pada Windows XPSuatu ketika, seperti biasanya saya mau buka om google nyari referensi buat kuliah. Dan seperti biasanya juga...laptop saya nyalakan dan saya tancepin modem USB Telkomsel Flash merk Huawei yang sudah dikasih logonya Telkomsel Flash. Tapi ketika mau koneksi, kok gak seperti biasanya....!!! Muncul error pada koneksinya. <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvHjkwPFKcMcWLE7SIfv7UKXpUHo75FtqY2ZW2-2_NeXkJKJVTBa6BiUA-2ZaY3qIcjSOY3spF0RAv0R1N_cKOBhJMzi6a86UHU40AKmGKpkdjm-3hSyQG-PGTtPVuMdyba4TI2vD6T9ZN/s1600/Error+Telkomsel+Flash.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" hda="true" height="122" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvHjkwPFKcMcWLE7SIfv7UKXpUHo75FtqY2ZW2-2_NeXkJKJVTBa6BiUA-2ZaY3qIcjSOY3spF0RAv0R1N_cKOBhJMzi6a86UHU40AKmGKpkdjm-3hSyQG-PGTtPVuMdyba4TI2vD6T9ZN/s320/Error+Telkomsel+Flash.JPG" width="320" /></a></div>
Pesan errornya Network Connection Prompt "<strong>The current operating system is not supported</strong>" padahal selama ini bisa dan saya gak ganti-ganti operating sistem. Saya pikir ada masalah dengan modem atau SIM Cardnya, lalu saya coba di komputer lain...lha...kok bisa....! Berarti modemnya gak ada masalah. Terus saya coba lagi berulang kali koneksinya di Laptop saya tetap gak bisa. Saya coba uninstall dengan bersih pake Revo Uninstaller, terus diinstall lagi tetep aja gak bisa. Sampai saya frustasi.<br />
<br />
Akhirnya pake komputer yang lain saya cari di Google, ketemunya cuma masalah waktu nginstall karena sistem operasinya gak support. Karena frustasi, akhirnya saya biarkan aja laptopnya tergeletak tak berdaya.<br />
<br />
Besok harinya saya coba lagi, tetep aja gak bisa. Kemudian muncul ide jahat di benak saya untuk melempar modem itu jauh-jauh dan beli modem yang lain tapi saya urungkan niat tersebut karena emang bukan salah modemnya. Lalu saya iseng-iseng bikin user baru lewat control panel...lalu saya gunakan user itu untuk masuk ke windows XP. Saya setting tampilan dan sebagainya untuk sekedar refresing. Waktu lihat icon telkomsel Flash, saya tergoda untuk men-doubleclick-nya. Modemnya saya tancepin dan saya double click icon telkomsel flashnya (karena autorun saya matikan). Saya coba koneksinya....alhamdulillah bisa....!<br />
<br />
Dengan laptop yang sama, sistem operasi yang sama tapi <strong>beda user modem telkomsel flashnya bisa koneksi lagi.</strong> Saya coba lagi user lama saya...telkomsel flashnya tetep gak bisa. Cuma bisa menggunakan user yang baru. Berarti kesimpulan saya, ada masalah sama profile user-nya. So, daripada nginstall ulang Windows XP-nya....lebih baik bikin user name baru aja. Problem Solved..!<br />
<br />Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-29291379510429877872010-12-28T07:46:00.000+07:002012-09-29T09:20:28.810+07:00Buat Database Menggunakan Script pada Microsoft Visual Basic 6.0Pada Microsoft VB 6.0 sudah disediakan Tool untuk membuat file database yaitu Visual Data Manager. Selain menggunakan tool tersebut, kita bisa membuat database dengan menggunakan printah / script / coding. Berikut ini tahapan yang harus dilakukan: <br />
<br />
<ul>
<li> Buat project baru</li>
<br /><b>File</b> -> <b>New Project</b> <br />Pilih <b>STANDAR EXE</b> kemudian klik OK
<li> Aktifkan Library yang dibutuhkan yaitu: <b>Microsoft ADO Ext.2.8 for DDL and Security </b>lewat menu:</li>
<br /><b>Project</b>-><b>References</b>-><b>Microsoft ADO Ext.2.8 for DDL and Security</b> (dicentang) lalu klik Ok <br />
<li> Tambahkan Modul dan ketikkan script dibawah ini:</li>
<br /> <br /> <br /> <br />
<b>Option Explicit</b> <br />
<b>Public </b>CrCd <b>As New ADOX.Catalog</b> <br /><b>Public</b> Cd <b>As New ADOX.Table</b> <br />
<b>Sub</b> BuatDB() <br /> Dim alamat As String <br />
alamat = App.Path & "\CD.mdb" <br /> CrCd.Create "Provider=Microsoft.jet.oledb.4.0;data source=" & alamat <br /> CrCd.ActiveConnection = "Provider=Microsoft.jet.oledb.4.0;data source=" & alamat <br />
Cd.Name = "TblCD" <br /> Cd.Columns.Append "Judul", adVarWChar, 30 <br /> Cd.Columns.Append "Jenis", adVarWChar, 20 <br /> Cd.Columns.Append "Keping", adVarWChar, 10 <br /> Cd.Columns.Append "Jumlah", adVarWChar, 10 <br /> Cd.Columns.Append "Status", adVarWChar, 15 <br /> Cd.Columns.Append "Peminjam", adVarWChar, 30 <br /> Cd.Columns.Append "Tanggal", adDate <br /> CrCd.Tables.Append Cd <br /> <br />
<b> Set</b> CrCd = Nothing <br />
<b>End Sub</b> <br /> <br />
<li> Pada saat Form_Load ketikkan script di bawah ini:</li>
<br /> <br /> <br /> <br />
<b>If</b> <b>Dir(</b>App.Path & "\cd.mdb"<b>)</b> = "" <b>Then</b> <br /> BuatDB <br /><b>End If</b> <br /> <br />
<li> Simpan project tersebut dan jalankan.</li>
</ul>Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-63679633557456422912010-09-03T13:04:00.001+07:002012-09-29T09:21:37.443+07:00Menambahkan port mySQL (3306) ke dalam Exception di Firewall Windows<div dir="ltr" style="text-align: left;" trbidi="on">
Pada posting sebelumnya, langkah pertama untuk mengatasi masalah koneksi yaitu Menambahkan port mySQL (3306) ke dalam Exception di Firewall Windows pada server. <br />
Langkahnya mudah... <br />
contoh di Windows XP: <br />
- Masuk <b>Control Panel</b> (Start->Control Panel) <br />
- Pilih <b>Windows Firewall</b> <br />
- Pada bagian <b>Exceptions</b>, tambahkan port MySQLnya dengan cara mengklik tombol <b>Add Port.</b> <br />
- Bagian <b>Name</b> diisi nama port (terserah diisi apa ex:MySQL). <br />
- Bagian <b>Port number</b> diisi <b>3306 </b>(maksudnya port yang dipakai MySQL). <br />
- Option <b>TCP dan UDP</b> biarkan defaultnya (<b>TCP</b>). <br />
- Lalu klik <b>OK </b>lalu klik <b>OK </b>lagi. <br />
<br />
</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-50148522619260451592010-05-02T11:04:00.002+07:002011-11-20T09:15:42.924+07:00Masalah Koneksi VB (Visual Basic) ke MySQL : [MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on (10060)Beberapa hari ini aku dipusingkan dengan masalah koneksi program yang dibuat pake VB ke MySQL. Program VB yang aku buat tidak bisa konek ke MySQL Server yang aku install di komputer lain...padahal kalau programnya dipake di komputer MySQL Servernya sendiri (localhost) gak ada masalah...! Pada kasus ini aku menggunakan XAMPP.<br />
<br />
Ternyata setelah baca-baca di forum...masalahnya bisa diselesaikan dengan 3 macam langkah saja...:<br />
<br />
<ol>
<li>Kalau firewall aktif/diaktifkan, harus ditambahkan port mySQL (3306) ke dalam Exception di Firewallnya</li>
<li>Pada MySQL Server-nya: di Database <span style="font-weight: bold;">mysql</span> ada tabel<span style="font-weight: bold;"> </span><span style="font-weight: bold;">host, </span>tambahkan record baru untuk mengijinkan host mengakses ke MySQL yaitu dengan mengisi field <span style="font-weight: bold;">host</span> berisi alamat ip komputer client misal <span style="font-weight: bold;">192.168.1.10 </span>kemudian field-field yang lain diisi nilai <span style="font-weight: bold;">Y</span>.</li>
<li>Pada MySQL Server-nya: di Database <span style="font-weight: bold;">mysql</span> ada tabel<span style="font-weight: bold;"> </span><span style="font-weight: bold;">user, </span>tambahkan record baru untuk mengijinkan host mengakses ke MySQL yaitu dengan mengisi field <span style="font-weight: bold;">user </span>diisi <span style="font-style: italic;">root</span>, <span style="font-weight: bold;">password</span> diisi <span style="font-style: italic;">paswordmysqlnya</span><span style="font-weight: bold;"> </span>(kalau xampp defaultnya kosong)<span style="font-weight: bold;">, </span> <span style="font-weight: bold;">host</span> berisi alamat ip komputer client misal <span style="font-weight: bold;">192.168.1.10 </span>kemudian field-field yang lain diisi nilai <span style="font-weight: bold;">Y</span>.</li>
</ol>
Setelah langkah-langkah tersebut dilakukan...koneksi programku bisa berjalan mulus...! Akhirnya....!Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com8tag:blogger.com,1999:blog-645140028596124518.post-63128663266287689592010-02-19T09:46:00.000+07:002014-01-13T14:24:38.918+07:00Masalah "Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent" di PHP<div dir="ltr" style="text-align: left;" trbidi="on">
"<b>Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent</b>" <br />
Pesan error di atas muncul bukan karena salah ngetik script php. karena itulah hal ini membuat saya bingung sampai beberapa hari. Apalagi jika settingan web servernya tidak menampilkan pesan error, malah tambah bingung...! <br />
Setelah cari-cari di Google (terimakasih Google), banyak forum yang membahas hal serupa. Ternyata masalahnya sangat sederhana. <br />
Penyebab: <br />
Peletakkan baris perintah <b>session_start() </b>tidak di paling awal halaman. jika diilustrasikan seperti ini: <br />
<b>Sebelum diperbaiki:</b> <br />
baris <br />
==================== <br />
1 <br />
2 <php <br />
3 session_start() <br />
==================== <br />
Perhatikan pada baris pertama, meskipun pada baris pertama kosong, tapi hal itulah yang menyebabkan pesan error di atas muncul. <br />
Harus diperbaiki menjadi seperti berikut: <br />
<b>Sesudah diperbaiki:</b> <br />
baris <br />
==================== <br />
1 <php <br />
2 session_start() <br />
==================== <br />
pada baris pertama diketikkan tag PHP, dan baris kedua diketikkan session_start(). <br />
Fiuh.......!</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com13tag:blogger.com,1999:blog-645140028596124518.post-52928605024213988262008-09-24T16:07:00.001+07:002012-09-29T09:25:12.399+07:00Open Office - diPrint Preview Halaman Terputus? Asw:Manual Break<div dir="ltr" style="text-align: left;" trbidi="on">
Untuk menghindari penggunaan software bajakan, sering digunakan Open<br />
Office yang Free. Namun masalahnya, tidak semua orang mudah cepat<br />
familiar dengan software yang satu ini.<br />
Hari ini, pagi-pagi sekali saya disuguhi permasalahan yang berkaitan<br />
dengan Open Office ini.<br />
komplainnya ketika data yang ada sudah diketik sedemikian rupa kedalam<br />
Open Calc (mirip MS Excel), setelah diprint preview yang seharusnya jadi<br />
2 halaman terlihat menjadi 3 halaman karena pada halaman kedua dan<br />
ketiga seolah-olah dipotong dan diletakkan pada halaman yang berbeda...<br />
....padahal gak dipisah...!<br />
Karena belum familiar, saya cari dulu kemungkinan penyebabnya..<br />- Apa karena print areanya? ternyata bukan...<br />
Ternyata setelah diliat dengan seksama ada garis biru yang menyebabkan<br />halaman tersebut terpisah...<br />garis biru itu ternyata (lagi) adalah manual break.<br />
untuk menghilangkan itu,<br />- klik cell yang paling dekat dengan garis biru itu.<br />- Pilih menu Edit->Delete Manual Break->Row Break<br />
garis birunya hilang, print previewnya sudah seperti yang diharapkan.<br />
fiuh...harus banyak belajar lagi nich...!<br />
<br />
<br />
<br />
</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-39110662372368749622008-07-25T13:32:00.002+07:002009-01-12T17:45:09.377+07:00Membaca file docx di Office 2000Aku kesulitan membuka file yang berekstensi docx dari MS Word 2007.<br>Padahal aku menggunakan Office 2000. Akhirnya aku searching..dapat<br>program freeware untuk merubah (convert) file docx menjadi rtf (doc2rtf)<br>yang aku download di<br><a href="http://www.nativewinds.montana.com/downloads/Docx2Rtf.zip">http://www.nativewinds.montana.com/downloads/Docx2Rtf.zip</a>.<p>Aku juga dapat link untuk mendownload file pendukung dari microsoft agar<br>Office 2000 ke atas bisa membuka file dari office 2007.<br>Linknya:<br><a href="http://www.microsoft.com/downloads/details.aspx?familyid=941B3470-3AE9-4AEE-8F43-C6BB74CD1466&displaylang=en">http://www.microsoft.com/downloads/details.aspx?familyid=941B3470-3AE9-4AEE-8F43-C6BB74CD1466&displaylang=en</a><p>Ada temanku yang menggunakan Office 97, jadi tetep gak bisa buka file<br>office 2007, akhirnya dia aku suruh nginstall Office 2003 viewer yang<br>aku download di<br><a href="http://www.microsoft.com/DOWNLOADS/details.aspx?familyid=95E24C87-8732-48D5-8689-AB826E7B8FDF&displaylang=en">http://www.microsoft.com/DOWNLOADS/details.aspx?familyid=95E24C87-8732-48D5-8689-AB826E7B8FDF&displaylang=en</a><p>Akhirnya, bisa juga...! fiuh...!Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-79717289364812467642008-07-21T08:11:00.001+07:002011-11-15T21:34:40.932+07:00Tip dan Trik: Membuat menarik CV (Curriculum Vitae) atau Ikhtisar Riwayat Hidup kitaSekarang sangat sulit untuk mencari kerja dikarenakan lapangan kerja<br />
yang sedikit sedangkan pelamar kerja yang "bejibun" (red:banyak<br />
buanget..!) tiap tahunnya. Karena itu, sangat dibutuhkan kemampuan untuk<br />
bersaing dengan rekan-rekan (kalau "musuh" terlalu ekstrim) pencari<br />
kerja lainnya. Selain kemampuan intelektual (wajib nich..!), kita juga<br />
harus melengkapi diri dengan kemampuan lainnya (ex:ESQ).<br />
Salah satu kunci untuk membuka peluang kerja kita adalah bagaimana<br />Bapak/Ibu HRD (atau personalia) bisa melirik lamaran kerja kita.<br />Salah satu caranya adalah dengan membuat CV (Curriculum Vitae) yang<br />menarik dan atraktif.<br />
Eits....jangan langsung ditafsirkan secara gamblang dulu....<span class="fullpost"></span><br />
Menarik dan atraktif bukan berari CVnya warna-warni...trus ada<br />pernak-perniknya...bahkan dikasih gambar hati merah jambu di pojok kiri<br />atasnya...emangnya mau bikin surat cinta buat "nembak" HRDnya?!$#!..<br />
Be cool man..! sabar dulu...<br />
Bikin CV harus menarik dan atraktif tapi liat sikonnya dulu dong...Apa<br />kata dunia..?! (ref: Bonar, Naga. Naga Bonar Jadi 2. Jakarta:2007)<br />
Bikinnya harus sesuai dengan norma formalitas yang ada tapi dikemas<br />semenarik mungkin.<br />
Berikut ini ada beberapa hal yang harus diperhatikan dalam membuat CV<br />biar menarik dan dilirik:<br />(ketentuan di bawah ini mungkin tidak berlaku untuk lowongan kerja di<br />bidang desain grafis atau lainnya yang membutuhkan kreatifitas bebas)<br />
+ CV harus diketik dengan rapi, dan jangan sampai ada "sebiji" huruf<br />pun yang salah.(kecuali ada instruksi untuk menulis CV dengan tulisan<br />tangan).<br />
+ Gunakan SALAH SATU SAJA huruf/font standard (Arial, New Times Roman,<br />Tahoma) dengan warna hitam. Jangan menggunakan bermacam-macam font<br />apalagi berwarna-warni.<br />
+ Untuk bagian data pribadi, cantumkan sedetil-detilnya data pribadi<br />anda (yang penting dan dibutuhkan) seperti golongan darah, kondisi<br />kesehatan, tinggi badan, berat badan, dsb.<br />(HRD gak mau menerima pelamar kerja yang sakit-sakitan)<br />
+ Pada bagian riwayat pendidikan, masukkan pendidikan yang paling akhir<br />terlebih dahulu baru dilanjutkan pendidikan yang sebelumnya. Istilahnya<br />alur mundur, misal: dari Sarjana, SMA, SMP, SD, dan yang paling akhir TK<br />(kalau ada).<br />
+ Pada bagian riwayat pendidikan, berikan semua informasi tentang<br />prestasi-prestasi anda sedetil mungkin meskipun itu adalah hal yang<br />sepele. misalnya: pernah juara cerdas cermat waktu kelas 6 SD, Rangking<br />6 waktu kelas 5, dapat sertifikat predikat mahasiswa terbaik untuk<br />matakuliah Kalkulus. Masukkan juga informasi tentang karya-karya anda,<br />misal:pernah membuat karya tulis ilmiah waktu SMP, Modul praktikkum di<br />perkuliahan, Program Interaktif/Pembelajaran, dsb.<br />
+ Jika anda pernah bekerja sebelumnya, masukkan informasi utama tentang<br />tempat kerja anda sebelumnya, mis: Nama perusahaan, jenis perusahaan dan<br />alamatnya.<br />
+ Cetak tebal kata atau kalimat yang menjadi nilai tambah anda tapi<br />jangan terlalu banyak...yang penting-penting aja...fungsinya buat<br />menarik perhatian pada HRD untuk melihat point-point plus yang ada pada<br />kita. Tapi kalau cetak tebalnya kebanyakan..jadi gak menarik perhatian<br />lagi.<br />
+ Yang paling penting...jangan lupa berdoa sebelum bikin CV...secara<br />psikologi doa tu membuat kita tenang sehingga bisa berfikir dengan<br />jernih biar meminimalisir kesalahan yang kita buat. Mau gak mau, kita<br />harus percaya dengan doa karena tanpa bantuan dari-Nya, kita gak akan<br />bisa apa-apa...pokoknya pasti ada hal-hal yang diluar nalar kita. Kita<br />harus meyakini itu.<br />
Untuk sementara, itu dulu yang bisa saya sharing. Kalau ada yang kurang<br />atau tidak sesuai dengan konsep yang anda miliki, mohon maaf<br />saja...namanya juga pendapat..pasti ada kelemahan, kekurangan dan<br />kelebihan masing-masing tergantung sudut pandang dan pola pikir kita.<br />Informasi diatas saya terjemahkan sendiri dari informasi yang saya<br />terima dari dengerin acara talkshow "Mencari Kerja Itu Gampang" yang<br />pembicaranya Bpk. Agus Setiawan (Agus Piranhamas, blog:<br /><a href="http://www.pembicarainternetmarketing.com/">http://www.pembicarainternetmarketing.com</a>) di radio Kencana FM Malang. Semoga bisa<br />bermanfaat.<br />
---ooOOOoo--Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com3tag:blogger.com,1999:blog-645140028596124518.post-62591106496770490382008-07-18T14:23:00.002+07:002012-09-29T09:26:37.946+07:00Netscape Messenger 4 Error<div dir="ltr" style="text-align: left;" trbidi="on">
Saya sering mendapat keluhan dari rekan-rekan kerja saya tentang<br />
Netscape Messenger versi 4.<br />
Keluhannya adalah ketika Netscape Messenger dijalankan, setelah beberapa<br />detik, muncul pesan error dan Netscape ditutup secara paksa.<br />Kemungkinannya, masalah itu terjadi karena index untuk inbox (inbox.snm)<br />rusak. Masalah itu terjadi karena ukuran file inbox sudah lumayan besar<br />(sampe hitungan GByte) karena banyaknya email yang masuk.<br /><br /><span class="fullpost"></span><br />
<span class="fullpost">Cara mengatasi masalah tersebut (solusi):<br />Jika masalah itu terjadi, kita harus membuat index yang baru<br />(reindexing). Caranya adalah sebagai berikut:</span><br />
<span class="fullpost">1. Masuk kedalam folder mail profile user email anda.<br />(defaultnya: C:\Program Files\Netscape\Users\NamaUser\Mail)</span><br />
<span class="fullpost">2. Cari file inbox.snm. Pindahkan (move) kedalam folder lain (untuk<br />jaga-jaga saja jika proses reindexing tidak berhasil) sehingga file<br />inbox.snm tidak ada lagi dalam folder mail tersebut.</span><br />
<span class="fullpost">3. Jalankan kembali Netscape Messenger. Biarkan beberapa saat karena<br />proses reindexing sedang dilakukan. Tunggu progress (tahap proses sudah<br />selesai - dalam hitungan persen) dari proses tersebut sampai selesai<br />(100%).</span><br />
<span class="fullpost">4. Jika proses reindexing berhasil, Netscape Messenger bisa digunakan<br />seperti biasa lagi.</span><br />
<span class="fullpost"><br />Pencegahan Error:<br />-------------------------<br />Seperti disebutkan sebelumnya, error tersebut kemungkinan disebabkan<br />karena banyaknya email yang masuk pada inbox. Karena itu, untuk mencegah<br />masalah itu terjadi lagi, pindahkan email yang ada pada inbox ke dalam<br />folder baru menurut kriteria yang anda inginkan.</span><br />
<span class="fullpost">(misalkan dipisah-pisah berdasarkan tahun)<br />Caranya adalah sebagai berikut:<br />1. Klik kanan "Local Mail", pilih "New Folder" dan masukkan nama<br />foldernya (mis: Tahun2007), lalu tekan OK.<br />2. Masuk kedalam "inbox", pilih (blok) email yang mau dipindah,<br />kemudian klik kanan, pilih "Move Message", lalu pilih nama folder yang<br />dibuat tadi (mis: Tahun2007).</span><br />
<span class="fullpost">3. Tunggu beberapa saat sampai proses pemindahan selesai. Lama proses<br />tergantung jumlah email yang dipindahkan.</span><br />
<span class="fullpost">4. Lakukan langkah yang sama dengan nama folder berbeda untuk kriteria<br />email yang berbeda. (misal: folder "Tahun2006" untuk email yang diterima<br />pada tahun 2006, dsb)</span><br />
<span class="fullpost">5. Setelah pemindahan email selesai, lakukan Pemampatan file inbox<br />(compacting) agar ukuran file inbox efisien, dengan cara pilih menu<br />"File" lalu pilih sub menu "Compact Folders".</span><br />
<span class="fullpost">Semoga berguna</span><br />
<span class="fullpost">N/B: backup dulu file "inbox" dan "inbox.snm" sebagai cadangan jika<br />proses diatas belum berhasil dilakukan.</span><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-40569998939260228972008-07-18T13:17:00.002+07:002008-07-18T14:32:16.011+07:00Cara Installasi USP 26-NF 21 Second SupplementSaya pernah menemui kesulitan ketika menginstall CD USP 26-NF 21 Second<br>Supplement. Setelah diinstall, programnya tidak bisa dijalankan dan akan<br>muncul pesan error (kalau gak salah, pesannya berhubungan dengan<br>"title") Kemudian saya searching diInternet dan menemukan artikel solusi<br>permasalahan itu. Berikut ini langkah-langkah yang saya terapkan untuk<br>windows XP (pada Windows Vista cara dibawah ini tidak berhasil)<p>Cara Installasi USP 26-NF 21 Second Supplement:<p>1. Masukkan CD USP 26-NF 21 kedalam CD-ROM.<br>2. Jalankan Setup.exe yang ada dalam CD.<br>3. Klik Next untuk memulai proses installasi<br>4. Masukkan Name dan Company. Masukkan CD Key sesuai dengan yang tertera<br>pada kartu "Certificate of Authenticity" (case sensitive). Tekan tombol<br>Next untuk melanjutkan proses installasi.<br>5. Tentukan tempat installasinya. Tekan tombol Next untuk melanjutkan.<br>6. Lanjutkan proses installasi pada langkah-langkah berikutnya dengan<br>menekan tombol Next.<p><br>Cara Setting pertama kali setelah installasi:<br>==================================<p>1. Masukkan CD USP 26-NF 21 kedalam CD-ROM.<br>2. Cari dan jalankan file AccUtility62a.exe.<br>3. Masuk ke dalam direktori tempat installasi programnya. Masuk ke dalam<br>folder DB (mis secara default: C:\USP26-NF21S2\DB). Cari dan buka file<br>first.ini.<br>4. Ubah nilai Title_Was_Loaded_Once=0 menjadi Title_Was_Loaded_Once=1<p>Semoga bermanfaat.Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-77448911454594221182008-06-16T11:03:00.007+07:002012-09-29T09:27:44.935+07:00Error 0x00000866 part 2<div dir="ltr" style="text-align: left;" trbidi="on">
Melanjutkan masalah sebelumnya...<br />
karena saya nggak tau penyebab masalah+solusinya apa..saya nyoba searching...<br />
saya temukan beberapa solusi yang ditawarkan di dalam forum-forum yang ada.<br />
beberapa solusi diantaranya adalah:<br />
-------------------------------------------------------------------------------<br />
solusi pertama saya temukan di http://www.jimmah.com/vista/net/ntlm.aspx<br />
<span id="body"></span><br />
<h2>
<span id="body"><span style="font-size: 100%;">Pengguna Windows Vista Home Basic dan Home Premium</span></span></h2>
<span id="body"> <b>Peringatan:perubahan yang tidak sesuai pada registry bisa membahayakan sistem.</b><br />
<ol>
<li>Klik start</li>
<li>pilih menu Run</li>
<li>ketik: regedit</li>
<li>tekan enter</li>
<li>di bagian sebelah kiri, expand folder: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\</li>
<li>di seblah kiri klik pada folder yang bernama: Lsa</li>
<li>Di bagian sebelah kanan, double-click "LmCompatibilityLevel"</li>
<li>ketik angka 1 dan tekan enter</li>
<li>Restart komputermu</li>
</ol>
<h2>
<span style="font-size: 100%;">Pengguna Windows Vista Business, Enterprise, dan Ultimate</span></h2>
<ol>
<li>Klik Start</li>
<li><span id="body">Klik</span> Control Panel</li>
<li><span id="body">Masuk</span> System and Maintenance</li>
<li>Masuk Administrative Tools</li>
<li>Double-Click Local Security Policy</li>
<li>di bagian sebelah kiri, klik segitiga disebelah Local Policy</li>
<li><span id="body">di bagian sebelah kiri, </span>klik Security Options</li>
<li><span id="body">di bagian sebelah kanan bawah, </span>double-click "Network security: LAN manager authentication level"</li>
<li>Klik kotak drop-down, dan klik "Send LM & NTLM - use NTLMv2 session security if negotiated"</li>
<li>klik OK</li>
</ol>
---------------------------------------------------------------<br /><br />Solusi kedua saya dapat dari http://forums.techguy.org/windows-vista/525885-cannot-connect-printer-operation-could.html yang dimuat oleh bigslick2007<br /></span><b>Final Solution<!-- google_ad_section_end --></b> <br />
<div class="tsgmessage" id="post_message_4617054">
<!-- google_ad_section_start --><span style="font-size: 180%;">SOLUTION</span><br />
<br />
I can't image this is how Mr. Gates imagined users would have to set up a networked printer, so this is a workaround until they get their act together. (yang ini artikan sendiri aja)<br />
<br />
<br />
dari DOS prompt (ketik "command" atau "cmd" pada menu "Run" di start menu) ketik ini:<br />
<br />
net use LPT# \\server\printer /persistent:yes<br />
<br />
keterangan:<br />
<br />
# : nomor port LPT yang digunakan mis:LPT1<br />
server : nama komputer tempat printer sharing berada<br />
printer : nama sharing printer (Share Name)<br />
<br />
Contoh<br />
<br />
net use LPT1 \\Ita\Canon2100sp / persistent:yes<br />
<br />
<br />
Kalau sudah berhasil, tambahkan printer (StartMenu->ControlPanel->Printer->Add Printer)<br />
Pilih "Local Printer",gunakan LPT# port yang sudah ditentukan sebelumnya (kalau contoh di atas menggunakan Port1) dan tentukan jenis printer yang sesuai. Lanjutkan proses installasi sampai selesai.<br />
<br />
Cara kedua ini sudah saya coba dan berhasil sesuai harapan.</div>
<br />
<span id="body">==============================<br /></span></div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-83940094257230139842008-06-16T10:50:00.003+07:002012-09-29T09:28:19.003+07:00Error 0x00000866<div dir="ltr" style="text-align: left;" trbidi="on">
Saya pernah mengalami masalah ketika menginstall printer yang disharing dWindows 98 di windows vista Basic. Ketika add printer, trus milih yang Network , terus milih printer yang ada ...terus ketika diinstall nggak bisa..ada pesan error:<br />
<br />
Windows cannot connect to the printer.<br />
Operation could not be completed (error 0x00000866).<br />
<br />
AKhirnya saya coba add printernya milih yang local tapi port yang dipilih adalah printer yang di sharing \\namakomp\namashareprinter (misal: \\Ita\Canon2100sp), trus lanjutkan sampe selesai. printer jaringan sudah bisa digunakan dengan baik.<br />
<br />
Tetapi masih ada masalah ketika PC/Notebook windows Vistanya dimatikan dan dinyalakan lagi...printer yang diinstall tadi dianggap offline..padahal sebenarnya online dan sudah dicoba pada PC lain dijaringan yang sama yang SOnya Windows XP dan 98, printernya online dan bisa digunakan. akhirnya diinstall ulang lagi dengan cara yang sama di atas, printernya bisa digunakan lagi. Jadi, kalau mau menggunakan printer yang disharing tersebut di WIndows Vista, saya harus menginstall ulang lagi setiap kali komputernya dimatikan dan dinyalakan lagi.</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-88218649578844949842008-05-22T09:19:00.004+07:002012-10-01T15:46:28.975+07:00Active X Code 39 Source Code<div dir="ltr" style="text-align: left;" trbidi="on">
Dari flowchart tsb, saya nyoba bkin programnya...! Mngkn msh ada yg error...emang sengaja c..klo gk error ntar gk mau mempelajari source codenya. Source Codenya aq bentuk jd kumpulan-kumpulan prosedur:<br />
<br />
<span style="color: lime; font-family: "Courier New", Courier, monospace;">'FUNGSI & Prosedur Code39</span><br />
<span style="color: lime; font-family: "Courier New", Courier, monospace;">'++++++++++++++++++++++++++++++++++++++++++++++++++++++</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><b>Private </b>Function KodeCode39(ByVal Kodenya As String) As String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dim hasil As String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dim Karakter As String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dim i As Integer</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> For i = 1 To Len(Kodenya)</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Karakter = Mid(Kodenya, i, 1)</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Select Case Karakter</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "0": hasil = hasil & Ubah("000110100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "1": hasil = hasil & Ubah("100100001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "2": hasil = hasil & Ubah("001100001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "3": hasil = hasil & Ubah("101100000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "4": hasil = hasil & Ubah("000110001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "5": hasil = hasil & Ubah("100110000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "6": hasil = hasil & Ubah("001110000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "7": hasil = hasil & Ubah("000100101") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "8": hasil = hasil & Ubah("100100100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "9": hasil = hasil & Ubah("001100100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "A": hasil = hasil & Ubah("100001001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "B": hasil = hasil & Ubah("001001001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "C": hasil = hasil & Ubah("101001000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "D": hasil = hasil & Ubah("000011001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "E": hasil = hasil & Ubah("100011000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "F": hasil = hasil & Ubah("001011000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "G": hasil = hasil & Ubah("000001101") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "H": hasil = hasil & Ubah("100001100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "I": hasil = hasil & Ubah("001001100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "J": hasil = hasil & Ubah("000011100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "K": hasil = hasil & Ubah("100000011") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "L": hasil = hasil & Ubah("001000011") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "M": hasil = hasil & Ubah("101000010") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "N": hasil = hasil & Ubah("000010011") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "O": hasil = hasil & Ubah("100010010") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "P": hasil = hasil & Ubah("001010010") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "Q": hasil = hasil & Ubah("000000111") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "R": hasil = hasil & Ubah("100000110") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "S": hasil = hasil & Ubah("001000110") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "T": hasil = hasil & Ubah("000010110") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "U": hasil = hasil & Ubah("110000001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "V": hasil = hasil & Ubah("011000001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "W": hasil = hasil & Ubah("111000000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "X": hasil = hasil & Ubah("010010001") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "Y": hasil = hasil & Ubah("110010000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "Z": hasil = hasil & Ubah("011010000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "-": hasil = hasil & Ubah("010000101") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case ".": hasil = hasil & Ubah("110000100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case " ": hasil = hasil & Ubah("011000100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "*": hasil = hasil & Ubah("010010100") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "$": hasil = hasil & Ubah("010101000") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "/": hasil = hasil & Ubah("010100010") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "+": hasil = hasil & Ubah("010001010") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Case "%": hasil = hasil & Ubah("000101010") & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> End Select</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Next i</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> KodeCode39 = hasil</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><b>End</b> Function</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
<span style="font-family: "Courier New", Courier, monospace;"><b>Private</b> Function Ubah(KodeC39 As String) As String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dim i As Integer</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dim Kar As String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dim hasil As String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> For i = 1 To Len(KodeC39)</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Kar = Mid(KodeC39, i, 1)</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> If (i Mod 2) = 0 Then</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <span style="color: lime;">'jika posisi genap (spasi)</span></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> If Kar = "1" Then</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <span style="color: lime;">'jika 1 berarti garis lebar</span></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> hasil = hasil & "00"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Else</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> hasil = hasil & "0"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> End If</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Else</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <span style="color: lime;">'jika posisi ganjil (baris)</span></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> If Kar = "1" Then</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> <span style="color: lime;">'jika 1 berarti garis lebar</span></span><br />
<span style="font-family: "Courier New", Courier, monospace;"> hasil = hasil & "11"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Else</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> hasil = hasil & "1"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> End If</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> End If</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Next i</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Ubah = hasil</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><b>End</b> Function</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
<span style="font-family: "Courier New", Courier, monospace;"><b>Private </b>Sub Code39()</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Dim kodeBinernya As String</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> Pr_Value = UCase(Pr_Value)</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> kodeBinernya = KodeCode39("*" & Pr_Value & "*")</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.Width = (TPX * Pr_Lebar * (Len(kodeBinernya) + 15))</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> GambarCode39 kodeBinernya, Pr_Lebar, UserControl.ScaleHeight - 30, Pr_WarnaBar</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><b>End</b> Sub</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
<span style="font-family: "Courier New", Courier, monospace;"><b>Private</b> Sub GambarCode39(KodeBiner As String, ByVal lebar As Integer, Tinggi As Integer, Warna As ColorConstants)</span><br />
<span style="font-family: "Courier New", Courier, monospace;">Dim x As Long, y As Long</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.Cls</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> x = (TPX * lebar) * 9</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> y = UserControl.Height * 0.1</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
<span style="font-family: "Courier New", Courier, monospace;"> Garis KodeBiner, x, y, lebar, Warna</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
<span style="color: lime; font-family: "Courier New", Courier, monospace;">'jika label tidak ingin ditampilkan</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> If Pr_ShowLabel = False Then Exit Sub</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
<span style="color: lime; font-family: "Courier New", Courier, monospace;">'tempat buat tulisan</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.Line (x, UserControl.Height * 0.8)-Step(Len(KodeBiner) * lebar * TPX, UserControl.Height), UserControl.Backcolor, BF</span><br />
<span style="color: lime; font-family: "Courier New", Courier, monospace;">'tulis tulisan</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.ForeColor = Warna</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.CurrentX = x + (Len(KodeBiner) * lebar * TPX) - ((Len(KodeBiner) * lebar * TPX) \ 2) - (Len(Pr_Value) * 3 * lebar * TPX)</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.CurrentY = UserControl.Height * 0.8</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.FontSize = 8 * lebar '* TPX</span><br />
<span style="font-family: "Courier New", Courier, monospace;"> UserControl.Print Pr_Value</span><br />
<span style="font-family: "Courier New", Courier, monospace;"><b>End</b> Sub</span><br />
<br />
========================<br />
NB:<br />
*** Klo ada variabel yang depannya Pr_ (mis: Pr_Value) itu artinya..variabel tsb digunakan untuk menampung hasil dari inputan user....source code diatas aku comot dari komponen activeX Control yang aq buat.<br />
<br />
(Sumber:<br />
Tugas Akhir: M.Akroma, Perancangan dan Pembuatan ActiveX Control Pembuat label barcode satu dimensi.2007:STT Stikma Internasional, Malang)</div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0tag:blogger.com,1999:blog-645140028596124518.post-35222857297734890792008-05-16T13:43:00.006+07:002012-10-01T15:45:29.832+07:00Flowchart program Code39<div dir="ltr" style="text-align: left;" trbidi="on">
Berbagai macam referensi dan uraian bisa kita baca tentang barcode dan cara pengkodeannya. Nah..dari referensi tersebut, kita dapat membuat sebuah program sederhana pembuat label barcode menggunakan Visual Basic. Kunci utamanya adalah bagaimana kita menterjemahkan konsep yang ada sebelumnya menjadi sebuah bahasa pemrograman. Kata dosen saya, kalo mo buat program tu ada langkah-langkah yang harus ditempuh. Tapi yang namanya mahasiswa, hampir gak ada yang mengamalkan titah beliau tersebut...kecuali emang ada tugas..biar dapat nilai. Karena menghormati beliau...kali ini saya akan berusaha mengikuti step-step yang ada tapi gak semuanya lho...soalnya saya juga lupa langkah-langkahnya apa aja.<br />
<br />
Ya udah..kalo gitu langsung aja...<br />
=====================<br />
Step 1: Buat blok diagramnya...tapi yang ini dilewati aja ya..<br />
======================<br />
Step 2: Buat flowchart program.<br />
<br />
nah..kalo yang ini saya masih bisa..meskipun sedikit dan kemungkinan masih keliru.<br />
Kali ini saya coba membuat flowchart program pengkodean Code39-nya:<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7ZmIqLv7qWNWu47nkwfUQy1TChkhKuclN32Qfk9qX4e-X0Ot0O_eIftvyz8DFDgoUgzooT2kJVJ8hdse-lWlwYWPLEdJE91D853HqHBmxM-qeZnqcmHJQRTN0-Cq-fyYdlaEbBcO-IDPx/s1600-h/code39.GIF" onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5200866181937493858" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7ZmIqLv7qWNWu47nkwfUQy1TChkhKuclN32Qfk9qX4e-X0Ot0O_eIftvyz8DFDgoUgzooT2kJVJ8hdse-lWlwYWPLEdJE91D853HqHBmxM-qeZnqcmHJQRTN0-Cq-fyYdlaEbBcO-IDPx/s320/code39.GIF" style="cursor: pointer; display: block; height: 283px; margin: 0px auto 10px; text-align: center; width: 184px;" /></a></div>
Muhammad Akromahttp://www.blogger.com/profile/16201738879997159364noreply@blogger.com0