Koneksi data dengan Access 2007

Bingung membuat koneksi ke access 2007 ?
Silahkan baca petunjuk berikut :



MS Access 2007 OLE DB & OleDbConnection (.NET framework) connection strings

Open connection to Access database 2007:
"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=c:\ yourdbpath \ DBName.accdb; User Id=admin; Password="

Open connection to password protected Access database 2007:
"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=c:\ yourdbpath \ DBName.accdb; Jet OLEDB:Database Password=YourPassword"

Open connection to Access database 2007 located on a network share:
"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=\\ServerName\ShareName\SharePath\ DBName.accdb"

Open connection to Access database 2007 located on a remote server:
"Provider=MS Remote; Remote Server=http://Server-IP; Remote Provider=Microsoft.ACE.OLEDB.12.0; Data Source=c:\ yourdbpath \ DBName.accdb"

MS Access ODBC connection strings

Standard Security:
"Driver= {MicrosoftAccessDriver(*.mdb)};DBQ=C:\yourdbpath\DBName.mdb;Uid=Your_Username;Pwd=YourPassword;"

Workgroup:
"Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\ yourdbpath \ DBName.mdb; SystemDB=C:\ yourdbpath \ DBName.mdw;"

Exclusive "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\ yourdbpath \ DBName.mdb; Exclusive=1; Uid=YourUsername; Pwd=YourPassword;"

MS Access OLE DB & OleDbConnection (.NET framework) connection strings

Open connection to Access database:
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\ yourdbpath \ DBName.mdb; User Id=admin; Password="

Open connection to Access database using Workgroup (System database):
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\ yourdbpath \ DBName.mdb; Jet OLEDB:System Database=c:\App1\ DBName.mdw"

Open connection to password protected Access database:
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\ yourdbpath \ DBName.mdb; Jet OLEDB:Database Password=YourPassword"

Open connection to Access database located on a network share:
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\ServerName\ShareName\SharePath\ DBName.mdb"

Open connection to Access database located on a remote server:
"Provider=MS Remote; Remote Server=http://Server-IP; Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\ yourdbpath \ DBName.mdb"

Baca selengkapnya....

Download 2007 MS-Office System Driver

Microsoft menyiapkan engine untuk membaca data dari aplikasi office 2007 mereka yang terbaru. Salah satunya seperti Driver untuk Access 2007 di ODBC.

Alamat Download adalah :



http://www.microsoft.com/downloads/details.aspx?FamilyID=7554F536-8C28-4598-9B72-EF94E038C891&displaylang=en

Besar file : l/k 25 MB
Nama : AccessDatabaseEngine.exe

Berikut uraian dari Microsoft : This download will install a set of components that can be used by non-Microsoft Office applications to read data from 2007 Office system files such as Microsoft Office Access 2007 (mdb and accdb) files and Microsoft Office Excel 2007 (xls, xlsx, and xlsb) files. Connectivity to Microsoft Windows SharePoint Services and Text files is also supported.

ODBC and OLEDB drivers are installed for application developers to use in developing their applications with connectivity to Office file formats.

Baca selengkapnya....

Classic ASP dan Access 2007

Setelah mencoba-coba sendiri mengupdate script untuk proses input di Classic ASP dengan menggunakan Database Microsoft Access 2007, maka terdapat beberapa hal yang mungkin perlu disharing disini.

Berikut contoh sintaksisnya, semoga bermanfaat.



<%
'Contoh Koneksi Classic ASP dengan Access 2007
'Oleh : Armansyah

Dim koneksi
Dim rekamdata
Dim databasenya

databasenya= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
Server.MapPath("database/accdb/07/test.accdb")
Set koneksi = Server.CreateObject("ADODB.Connection")
koneksi.open databasenya

Set rekamdata = Server.CreateObject("ADODB.Recordset")


Dim Sqlnya
Sqlnya = "select * from bukutamu"
rekamdata.CursorLocation = 3
rekamdata.CursorType = 2
rekamdata.LockType = 3
rekamdata.Open Sqlnya, koneksi
rekamdata.AddNew

rekamdata.Fields("nama") = request.form("form_nama")
rekamdata.Fields("alamat") = request.form("form_alamat")
rekamdata.Fields("WaktuKmptr") = now()

rekamdata.Update
rekamdata.Close
Set rekamdata = Nothing
Set koneksi= Nothing

'--- Akhiri dengan senyum keikhlasan .... :-)
'--- By : Armansyah


%>

Baca selengkapnya....

Contoh Membuka Enkripsi

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
* Membuat Tampilan Awal Program
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Do Lambang

A=" ÜÜÜ ÜÜÜ ÜÜ ÜÜ Û "
B=" ÜÛÛ Û Û Û Û Û Û Û Üß "
C=" ÛÛÜÜÜÜÜ Û Û Û Û Û Û ÛÜß "
D=" ÜÜ Û Û Û Û Û Û Û ßÜ "
E=" ÛÜÜÜÜÜÛ Û Û Û Û Û ßÜ "


* -=-=-=-=-=-=-=-=-=-=-
* Latar Belakang Box3D
* -=--=-=-=-=-=-=-=-=-=
Box3D(0,0,24,79)

* -=-=-=-=-=-=-=-=-=-=-=-
* Box3D untuk logo STMIK
* -=-=-=-=-=-=-=-=-=-=-=-
Box3D(02,04,22,50)

* -=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=--=
* Box3D untuk penampilan tulisan "Aplikasi PMB"
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Box3D(03,52,20,75)
Set colo to rb/w
@13,10 Say A
@14,10 Say B
@15,10 Say C
@16,10 Say D
@17,10 Say E

* -=-=-=-=-=-=-=-=
* Buat judul menu
* -=-=-=-=-=-=-=-=




Set Colo to r+/w
@ 04,09 Say "Praktek Kerja Lapangan"
Set colo to b/w
@ 05,09 Say REPL(CHR(4),22)
set colo to gr++/w
@ 06,09 Say "Dibuat Oleh :"
Set colo to b/w
@ 07,09 Say HakCipta() // tampilkan nama Armansyah
set colo to rb/w
@ 08,09 Say "Mahasiswa STMIK BINA DARMA" // Tahun 1996
set colo to b+/w
@ 09,09 Say Nim()
set colo to n/w
@ 10,09 Say Phone()
set colo to b/w
@ 11,08 Say repl(chr(196),39)
set colo to g+/W
@ 19,8 Say "BINA DARMA PALEMBANG "
@ 20,8 Say "Jl. Jend. A. Yani 03 Telp.(0711)-515582"
set colo to r/w
@ 05,57 Say " Aplikasi PMB "
@ 06,57 Say "Tahun Akademik"
@ 07,57 Say " 1997/1998 "
set colo to n+/w
@ 08,56 Say repl(chr(219),16)
set colo to n/w
@ 10,56 Say " UNIVERSITAS "
@ 11,56 Say " I B A "
@ 12,56 Say " PALEMBANG "
@ 13,56 Say " Telp. 351364 "
@ 14,56 Say " Fax. 372625 "
Set color to r+/w
@ 16,56 Say "Tunggu sebentar"
set colo to r*/w
@ 18,56 Say "SEDANG PROSES..."

set colo to b/w
@ 21,53 Say "Program ini dilindungi"
@ 22,53 Say "Undang-Undang Hak Cipta"

* -=-=-=-=-=-=-=-=-=-=-=-=-=-
* Membuka Enkripsi Help.Hlp
* -=-=--=-=-=-=-=-=-=-=-=-=-=

If ! File('HELP.HLP')
PopError("File HELP.HLP Tidak Ada ... !?!")
Return
EndIf

HnQ= MemoRead('Help.Hlp')
HnQ= Deskrip2(HnQ)
MemoWrit('Help.Tmp', HnQ)

tone(100,2)
tone(300,4)

set colo to w/n
clea

Baca selengkapnya....