saya nyoba kok error ya
 
errornya :
 
cannot start your application. the workgroup information file is missing
or opened exclusively by another user.
 
 
thanks
yoga


Mei Maesaroh <[EMAIL PROTECTED]> wrote:
>>>>>>Untuk Access :
Public ConnDB as ADODB.Connection
Public rsDB as ADODB.Recordset
Dim db_file, db_table as String
Dim user_id, user_password  as String

Sub Open_DB()
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & trim(db_file) & ";" & _
          "User ID=" & trim(user_id) & ";" & _
          "Password=" & trim(user_password) & ";" & _
          ";Persist Security Info=False"

Set rsDB = New ADODB.Recordset
rsDB.Open dbTable, connX, adOpenKeyset,
adLockOptimistic, adCmdTable
End Sub

>>>>>>>>Untuk Excell
Public Excel_App As Object
Public Excel_Sheet As Object
Dim vPassword, Sheet_Name as String

Function Excel_Opened(File_Name As String)
'Create the Excel Application
Set Excel_App = CreateObject("Excel.Application")

'Open the Excel spreadsheet
Excel_App.Workbooks.Open File_Name, , , , vPassword,
vPassword

Excel_App.Sheets(Sheet_Name).Activate
End Function


Semoga membantu...

Salam,...Mae

--- den_aly <[EMAIL PROTECTED]> wrote:
> bung bung semua.... boleh dunk minta dikirimin
> program buat buka
> file  msword excell dan acces nya  via japri
>
> thank's  sebelumnya
>
>
> Ali Akbar ( [EMAIL PROTECTED] )
>
>
>
> --- In [email protected], "FERI"
> <[EMAIL PROTECTED]> wrote:
> >
> > ----- Original Message -----
> > From: "FERI" <[EMAIL PROTECTED]>
> > To: <[email protected]>
> > Sent: Monday, April 18, 2005 8:46 AM
> > Subject: Re: [Programmer-VB] Membuka Ms Access2000
> berpassword
> >
> >
> > > Halo Bung Darsana Aku punya coding Program dari
> yang bung bilang
> > > nih aku kirimin moga membantu
> > > Trus kalo bung modifikasi bagi bagi aku yah
> > > ----- Original Message -----
> > > From: "Darsana" <[EMAIL PROTECTED]>
> > > To: <[email protected]>
> > > Sent: Tuesday, May 03, 2005 3:24 PM
> > > Subject: [Programmer-VB] Membuka Ms Access2000
> berpassword
> > >
> > >
> > > > Netters yth ,
> > > > Gimana sintaks pada coding untuk membuka
> database Ms Access
> dari coding,
> > > > dimana MDB-nya berpassword . Thanks sebelumnya
> > > >
> > > > Salam,
> > > > Darsana
> > > >
> > > >
> > > >
> > > > Untuk keluar dari millis ini, kirim email
> kosong ke:
> > > > [EMAIL PROTECTED]
> > > >
> > > >
> > > > Yahoo! Groups Links
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > > Untuk keluar dari millis ini, kirim email kosong
> ke:
> > > [EMAIL PROTECTED]
> > >
> > >
> > > Yahoo! Groups Links
> > >
> > >
> > >
> > >
> > >
>
>
>


           
__________________________________
Do you Yahoo!?
Make Yahoo! your home page
http://www.yahoo.com/r/hs


Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]




Yahoo! Mail
Stay connected, organized, and protected. Take the tour

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





Yahoo! Groups Links

Kirim email ke