Program Genap-Ganjil

Program ganjil_genap;
Uses Crt;
Var x: integer;
Begin

Write(‘Masukkan angka:’);
Readln(x);
If x mod 2 = 0 then
Write(‘Bilangan Genap’)
Else
Write(‘Bilangan Ganjil’);
End.

Baca selengkapnya....

ACCDB dengan Password

Dim strConnection As String
Dim cnn As ADODB.Connection

' strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
' "Data Source=C:\Users\Brendan Reynolds\Documents\test.accdb;" & _
' "Jet OLEDB:Database Password=test"

strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

Set cnn = New ADODB.Connection
cnn.ConnectionString = strConnection
cnn.Properties("Jet OLEDB:Database Password") = "test"
cnn.Open

Debug.Print cnn.State = adStateOpen

cnn.Close


Alternatif lain :

Dim cnn As New ADODB.Connection

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Test Files\DatabasewPassword.accdb;Jet OLEDB:Database Password='currentpassword';Mode=Share Exclusive"

cnn.Execute "ALTER DATABASE PASSWORD newpassword currentpassword"

cnn.Close

Baca selengkapnya....

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....