Dear Be-Exceller,
Lebih jauh mengenai topik ini, untuk proses Input Alhamdulillah sudah
bisa.Permasalahannya adalah untuk proses Edit dan Hapus yang masih belum ketemu
caranya.Mohon pencerahannya ya.
Terima kasih & Wassalam,
Harry
Pada Jumat, 30 November 2012 14:40, Mr. Kid <[email protected]> menulis:
Pak Harry,
Coba file terlampir.
Syarat :
1. Ada library Microsoft ActiveX Data Object yang telah ter-install dan
terdaftar dalam komputer setempat.
>> Download dari Microsoft dan install
2. Tabel yang dikoneksi harus berkaidah database
>> Cari pada posting-posting lama di milis tentang kaidah database
3. Menguasai bahasa SQL, terutama varian bahasa SQL yang digunakan oleh data
provider.
>> Cari di internet tentang SQL MS Access
4. Memahami cara penggunaan object dalam library di nomor 1
>> Cari di internet tentang ADO (bukan ADODC, tapi cukup ADO atau ADODB)
5. Memahami karakteristik data provider yang digunakan.
>> Cari di internet tentang Microsoft Jet 4.0 yang digunakan dalam file
terlampir atau provider yang Anda gunakan sesuai keadaan nyata dilapangan.
Wassalam,
Kid.
2012/11/29 Harry <[email protected]>
Dear BeExceller,
Lebih jauh mengenai proses penginputan data oleh banyak PC secara bersamaan,
selama ini saya menggunakan proses buka tutup file data sebagaimana rumus
berikut:
Private Sub UserForm_Initialize()
'deklarasi variabel workbook
Dim wbkA As Workbook, wbkAKTIF As Workbook
'init workbooknya
Set wbkA = ThisWorkbook
'--- WBK READ ONLY ??? ---' >> START
Dim lTry As Long, lJeda As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
CobaBuka:
For lTry = 1 To 20
Set wbkAKTIF = Workbooks.Open(wbkA.Path & "\DATA.xls")
If wbkAKTIF.ReadOnly Then
wbkAKTIF.Close False
If lTry = 20 Then
If MsgBox("Sudah dicoba membuka " & lTry & _
" kali, dan masih digunakan oleh instansi Excel yang
lain" & vbCrLf & _
"Coba lagi ?", vbExclamation + vbYesNo, "Akses ke
DATABASE PROGRAM") = vbYes Then
GoTo CobaBuka
Else
Application.ScreenUpdating = False
Exit Sub
End If
End If
Else
wbkA.Activate
Exit For
End If
For lJeda = 1 To 100000000
Next lJeda
Next lTry
Application.ScreenUpdating = True
'--- WBK READ ONLY ??? ---' >> END
End Sub
Tetapi seiring banyaknya data yang harus diinput, membuat sistem buka-tutup
file data tersebut menjadi tidak efisien karena user harus bergantian melakukan
proses buka-tutup file.
Sebagaimana yang pernah diinformasikan oleh Mr. Kid yaitu dengan menggunakan
ADO (ActiveX Data Objects) seya mengalami kesulitan untuk merealisasikan hal
tersebut.Pernah saya mencoba untuk memanipulasi rumus yang pernah dibahas pada
milis dengan subject : Add data from xl to Access, tetapi tidak berhasil.
Besar harapan kiranya teman-teman BeExceller dapat memberikan informasi
(berbagi ilmu) mengenai bagaimana caranya melakukan proses input ke file data
dengan tidak adanya proses buka-tutup file data sehingga banyak PC bisa
melakukan proses input secara bersamaan waktu.
Terima kasih atas berkanan informasi dari teman-teman BeExceller.
Wassalam,
Harry
N/B:* Terlampir 2 file (Master.xls & Data.xls) sebagai referensi* File-file
tersebut diatas masih tersimpan pada 1 folder yang sama.* Yang diinginkan
adalah file Master.xls disimpan pada folder D: sedangkan file Data.xls disimpan
pada folder C:.
* File Data.xls masih membutuhkan proses buka tutup* Yang diinginkan adalah
file Data.xls tetap dalam keadaan terbuka tanpa proses buka tutup
<!--#yiv7949801542 #yiv7949801542ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7949801542
#yiv7949801542ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7949801542
#yiv7949801542ygrp-mkp #yiv7949801542hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv7949801542 #yiv7949801542ygrp-mkp #yiv7949801542ads
{margin-bottom:10px;}#yiv7949801542 #yiv7949801542ygrp-mkp .yiv7949801542ad
{padding:0 0;}#yiv7949801542 #yiv7949801542ygrp-mkp .yiv7949801542ad p
{margin:0;}#yiv7949801542 #yiv7949801542ygrp-mkp .yiv7949801542ad a
{color:#0000ff;text-decoration:none;}#yiv7949801542 #yiv7949801542ygrp-sponsor
#yiv7949801542ygrp-lc {font-family:Arial;}#yiv7949801542
#yiv7949801542ygrp-sponsor #yiv7949801542ygrp-lc #yiv7949801542hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7949801542
#yiv7949801542ygrp-sponsor #yiv7949801542ygrp-lc .yiv7949801542ad
{margin-bottom:10px;padding:0 0;}#yiv7949801542 #yiv7949801542actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7949801542
#yiv7949801542activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7949801542
#yiv7949801542activity span {font-weight:700;}#yiv7949801542
#yiv7949801542activity span:first-child
{text-transform:uppercase;}#yiv7949801542 #yiv7949801542activity span a
{color:#5085b6;text-decoration:none;}#yiv7949801542 #yiv7949801542activity span
span {color:#ff7900;}#yiv7949801542 #yiv7949801542activity span
.yiv7949801542underline {text-decoration:underline;}#yiv7949801542
.yiv7949801542attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv7949801542 .yiv7949801542attach div a
{text-decoration:none;}#yiv7949801542 .yiv7949801542attach img
{border:none;padding-right:5px;}#yiv7949801542 .yiv7949801542attach label
{display:block;margin-bottom:5px;}#yiv7949801542 .yiv7949801542attach label a
{text-decoration:none;}#yiv7949801542 blockquote {margin:0 0 0
4px;}#yiv7949801542 .yiv7949801542bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv7949801542
.yiv7949801542bold a {text-decoration:none;}#yiv7949801542 dd.yiv7949801542last
p a {font-family:Verdana;font-weight:700;}#yiv7949801542 dd.yiv7949801542last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7949801542
dd.yiv7949801542last p span.yiv7949801542yshortcuts
{margin-right:0;}#yiv7949801542 div.yiv7949801542attach-table div div a
{text-decoration:none;}#yiv7949801542 div.yiv7949801542attach-table
{width:400px;}#yiv7949801542 div.yiv7949801542file-title a, #yiv7949801542
div.yiv7949801542file-title a:active, #yiv7949801542
div.yiv7949801542file-title a:hover, #yiv7949801542 div.yiv7949801542file-title
a:visited {text-decoration:none;}#yiv7949801542 div.yiv7949801542photo-title a,
#yiv7949801542 div.yiv7949801542photo-title a:active, #yiv7949801542
div.yiv7949801542photo-title a:hover, #yiv7949801542
div.yiv7949801542photo-title a:visited {text-decoration:none;}#yiv7949801542
div#yiv7949801542ygrp-mlmsg #yiv7949801542ygrp-msg p a
span.yiv7949801542yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7949801542
.yiv7949801542green {color:#628c2a;}#yiv7949801542 .yiv7949801542MsoNormal
{margin:0 0 0 0;}#yiv7949801542 o {font-size:0;}#yiv7949801542
#yiv7949801542photos div {float:left;width:72px;}#yiv7949801542
#yiv7949801542photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv7949801542
#yiv7949801542photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7949801542
#yiv7949801542reco-category {font-size:77%;}#yiv7949801542
#yiv7949801542reco-desc {font-size:77%;}#yiv7949801542 .yiv7949801542replbq
{margin:4px;}#yiv7949801542 #yiv7949801542ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv7949801542 #yiv7949801542ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7949801542
#yiv7949801542ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7949801542
#yiv7949801542ygrp-mlmsg select, #yiv7949801542 input, #yiv7949801542 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv7949801542
#yiv7949801542ygrp-mlmsg pre, #yiv7949801542 code {font:115%
monospace;}#yiv7949801542 #yiv7949801542ygrp-mlmsg *
{line-height:1.22em;}#yiv7949801542 #yiv7949801542ygrp-mlmsg #yiv7949801542logo
{padding-bottom:10px;}#yiv7949801542 #yiv7949801542ygrp-msg p a
{font-family:Verdana;}#yiv7949801542 #yiv7949801542ygrp-msg
p#yiv7949801542attach-count span {color:#1E66AE;font-weight:700;}#yiv7949801542
#yiv7949801542ygrp-reco #yiv7949801542reco-head
{color:#ff7900;font-weight:700;}#yiv7949801542 #yiv7949801542ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv7949801542 #yiv7949801542ygrp-sponsor
#yiv7949801542ov li a {font-size:130%;text-decoration:none;}#yiv7949801542
#yiv7949801542ygrp-sponsor #yiv7949801542ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv7949801542
#yiv7949801542ygrp-sponsor #yiv7949801542ov ul {margin:0;padding:0 0 0
8px;}#yiv7949801542 #yiv7949801542ygrp-text
{font-family:Georgia;}#yiv7949801542 #yiv7949801542ygrp-text p {margin:0 0 1em
0;}#yiv7949801542 #yiv7949801542ygrp-text tt {font-size:120%;}#yiv7949801542
#yiv7949801542ygrp-vital ul li:last-child {border-right:none !important;}-->
