coba pake kode ini
Sub MulaiHubungan()
If Hubungan.State = adStateOpen Then
Hubungan.Close
Set Hubungan = Nothing
End If
Hubungan.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Namadatabase.mdb;Mode=ReadWrite;Persist Security Info=False"
On Error Resume Next
Hubungan.Open
If Err Then
MsgBox "Program tidak dapat berjalan, Database tidak ada"
Exit Sub
End If
end sub
Sub AmbilData
If RsSaldoAwal .State = adStateOpen Then
RsSaldoAwal .Close
Set RsSaldoAwal = Nothing
End If
RsSaldoAwal .ActiveConnection = Hubungan
RsSaldoAwal .CursorType = adOpenStatic
RsSaldoAwal .CursorLocation = adUseClient
RsSaldoAwal .LockType = adLockOptimistic
RsSaldoAwal .Open "select c_saldoawal from tbl_saldoawal where id = 23 '
anggap id 23 = oli MEDISTRAN
If RsSaldoAwal .RecordCount = 0 Then
SaldoAwal = 0
else
SaldoAwal = RsSaldoAwal ("c_saldoawal")
end if
end sub
Semoga membantu: =(oVo)=
====================
BaceInside Publisher
Copyright @2007
Not for reproduced, republished.
Thank You
====================
----- Original Message ----
From: ungoh_0731 <[EMAIL PROTECTED]>
To: [email protected]
Sent: Monday, May 7, 2007 1:23:42 PM
Subject: [indoprog-vb] Tanya Compile VB
Viber Mania....
Saya mau tanya lagi nih.Saya udah mengcompile program yg saya buat dan
sudah saya install ke komputer.Ketika saya klik untuk menjalankan
program tersebut ga mau jalan dan katanya program tidak menemukan
databasenya. Apa salah pada connectionstringnya ? atau ada hal2 lain yg
harus saya lakukan? Pernah saya buat program yg lain dgn
connectionstring yang sama tapi ttp ga mau juga.Tolong dibantu ya
soalnya urgent banget.Terima kasih...
connectionstring nya sbb:
Public cn as New ADODB.Connection
Public rs as New ADODB.Recordset
Cn.ConnectionString = "Provider=Microsoft .Jet.oledb. 4.0;" & _
"Data Source =" & App.Path & "\database.mdb"
Cn.CursorLocation = adUseClient
Cn.Open
Debug.Print "Connection Object Created"
If Cn.State = adStateClosed Then
MsgBox "Unable to Connect Database", vbCritical, "Connection
Error!!!"
End
End If
Cn.CursorLocation = adUseClient
Rs.Open "Select * from proses", Cn, adOpenDynamic, adLockOptimistic
Debug.Print "Recordset Object Created"
____________________________________________________________________________________
Expecting? Get great news right away with email Auto-Check.
Try the Yahoo! Mail Beta.
http://advision.webevents.yahoo.com/mailbeta/newmail_tools.html
[Non-text portions of this message have been removed]
