>>>>>>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! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/programmer-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
