search form pada microsoft access

Private Sub Command8_Click()
Dim LSQL As String
Dim LSearchString As String

If Len(Text6) = 0 Or IsNull(Text6) = True Then
MsgBox "You must enter a search string."

Else

LSearchString = Text6

'Filter results based on search string
LSQL = "select * from SISWA"
LSQL = LSQL & " where NAMA LIKE '*" & LSearchString & "*'"

Me.RecordSource = LSQL

'Clear search string
Text6 = ""

MsgBox "Berhasil. Ditemukan nama " & LSearchString & "."

End If
End Sub

VBA Excel

Option Explicit
Private Sub menu()
Dim obj As CommandBarPopup
Dim objbutton As CommandBarButton
Set obj = Application.CommandBars("Worksheet Menu Bar").Controls("Tools")
On Error Resume Next
Set objbutton = obj.Controls("Report")
If Err.Number <> 0 Then
Set objbutton = obj.Controls.Add(Type:=msoControlButton, before:=4)
End If
On Error GoTo 0
With objbutton
.Caption = "Report"
.OnAction = "Halo"
.FaceId = 248
End With
End Sub
====================================================
Dim obj As Object
Dim baris As Integer
Option Explicit
Private Sub CommandButton1_Click()
baris = baris + 1
Cells(baris, 1).Value = TextBox1.Value
Cells(baris, 2).Value = TextBox2.Value
Cells(baris, 3).Value = ComboBox1.Value

End Sub

Private Sub UserForm_Initialize()

Cells(1, 1).Value = "Nama"
Cells(1, 2).Value = "Alamat"
Cells(1, 3).Value = "Jenis Kelamin"
With ComboBox1
.AddItem "L"
.AddItem "P"
End With

baris = 1
End Sub
=========================================================
Sub Halo()
UserForm1.Show

End Sub

REGULAR EXPRESSION

html
head
titleKATA KOTOR/title

script language="javascript"
function saring(huruf)
{
var kata=/fuck|shit/gi;
return huruf.replace(kata, function(cocok)
{
return cocok.replace(/./g,"*");
});
}

function tampil()
{
var oInput1=document.getElementById("txt1");
var oInput2=document.getElementById("txt2");
oInput2.value=saring(oInput1.value);
}
/script
/head
body
input type=text id="txt1"
input type="button" value="0k" onclick="tampil()"
br
Hasil:
br
input type=text id="txt2"

/body
/html

DHTML TEXT TICKER

html
head
title>Ticker1
/title
script language="javascript"
var delay=20;
var nextm=0;
var msg=new Array('satu','dua','tiga','empat');
function mulai()
{
ticker(msg[0], 0, 1);
}

function ticker(text, pos, dir)
{
var out='['+text.substring(0, pos)+']';
tick.innerHTML=out;
pos+=dir;
if(pos>text.length)
setTimeout('ticker("'+text+'",'+pos+','+(-dir)+')', delay*10);
else
{
if(pos<0)
{
if(++nextm>=msg.length)
nextm=0;
text=msg[nextm];
dir=-dir;
}
setTimeout('ticker("'+text+'",'+pos+','+dir+')', delay);
}
}
/script
body bgcolor=ffffff onload="mulai()"
div id="tick" style="position: absolute; top: 10; left: 10;"/div
/body
/html

DHTML TRANSITION EFFECT

HTML
HEAD
SCRIPT language=JavaScript
var g_awal="a.bmp";
var g_akhir="b.bmp";
function transisi()
{
gambar.filters.item(0).Apply();
gambar.src=g_akhir;
g_akhir=g_awal;
g_awal=gambar.src;
gambar.filters.item(0).Play();
}
/SCRIPT
/HEAD
BODY
IMG id=gambar style="FILTER: revealTrans(Duration=2)" src="a.bmp"
br
INPUT onclick="transisi()" type=button value="Mulai"
/BODY
/HTML

READING TEXT FILE

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("abc.txt", ForReading)

strContents = objFile.ReadAll
objFile.Close

i = False

Do Until i = True
intLength = Len(strContents)
If intLength < 28 Then
Exit Do
End If
strLines = strLines & Left(strContents, 28) & vbCrLf
strContents = Right(strContents, intLength - 28)
Loop

Wscript.Echo strLines

Scripting.Dictionary

Dim a, d, i 'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" 'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Items 'Get the items
For i = 0 To d.Count -1 'Iterate the array
msgbox a(i) 'Print item
Next

MERLIN

strAgentName="Merlin"
strAgentPath="C:\WINDOWS\msagent\chars\" & strAgentName & ".acs"
Set objAgent=CreateObject("Agent.Control.2")

objAgent.Connected=TRUE
objAgent.Characters.Load strAgentName, strAgentPath
Set objCharacter=objAgent.Characters.Character(strAgentName)

objCharacter.Show
objCharacter.Play "GetAttention"
objCharacter.Play "Greet"
objCharacter.Speak "Hello Dudi, Gimana Kabarnya"
objCharacter.Play "LookDown"
objCharacter.Speak "Jalan-jalan dulu di desktop, ah"
objCharacter.MoveTo 500, 400, 600
objCharacter.Play "DoMagic2"
objCharacter.Speak "Kenalin Namaku Merlin si penyihir"
objCharacter.Play "Decline"
objCharacter.Speak "Jalan jalan lagi ah"
objCharacter.MoveTo 400, 30, 3000
objCharacter.Play "DoMagic1"
objCharacter.Speak "Kamu belum tau aku bisa gini"
objCharacter.Play "Announce"
objCharacter.MoveTo 400, 300, 0
objCharacter.Speak "Makasih Dudi aku bisa muncul di desktop"
objCharacter.Play "Surprised"
objCharacter.Play "GetAttention"
objCharacter.MoveTo 500, 300
objCharacter.Play "Read"
objCharacter.Play "GestureRight"
objCharacter.Play "GestureDown"
objCharacter.MoveTo 40, 40, 0
objCharacter.Play "Search"
objCharacter.Play "Explain"
objCharacter.Play "Congratulate"
objCharacter.MoveTo 200, 400
objCharacter.Play "Pleased"
objCharacter.Play "Congratulate_2"
objCharacter.MoveTo 300, 300
objCharacter.Play "Think"
objCharacter.Play "LookDown"
objCharacter.Play "GestureDown"
objCharacter.GestureAt 700, 0
objCharacter.MoveTo 700,400
objCharacter.Play "Idle1_2"
objCharacter.Play "Idle1_3"
objCharacter.Play "Process"
objCharacter.MoveTo 600,400
objCharacter.Play "Uncertain"
objCharacter.Play "Write"
objCharacter.Play "Idle2_1"
objCharacter.Play "Idle2_2"
objCharacter.Play "WriteReturn"
objCharacter.Play "Suggest"
objCharacter.Play "Sad"
objCharacter.Play "DontRecognize"
objCharacter.Speak "Pulang dulu ya"
objCharacter.Play "Wave"
objCharacter.Hide

Do While objCharacter.Visible=TRUE
WScript.Sleep 250
Loop

ANIMASI TEKS BERJALAN PADA MICROSOFT EXCEL

Private Sub DAControl_Start()
Set m = DAControl.MeterLibrary

'// Set of number behaviors
Set zero = m.DANumber(0)
Set half = m.DANumber(0.5)
Set one = m.DANumber(1)
Set two = m.DANumber(2)

Set oscillatingNumber = m.Sin(m.LocalTime)

'// Create a time varying color
Set txtCol = m.ColorHslAnim(m.Abs(oscillatingNumber), m.DANumber(0.5), m.DANumber(0.5))

Set FontStyle = m.Font("Verdana", -24, txtCol)

Set textImg = m.StringImage("SELAMAT DATANG DI PEMROGRAMAN 2D & 3D GRAFIS MICROSOFT DIRECT X", FontStyle)

'// Get the height and width of the text.
Set scrollingTextBounds = textImg.BoundingBox

Set scrollingTextLength = m.Sub(scrollingTextBounds.Max.X, scrollingTextBounds.Min.X)
Set scrollingTextWidth = m.Sub(scrollingTextBounds.Max.Y, scrollingTextBounds.Min.Y)

'// Get the control width and hegiht.
Set icontrolWidth = m.Mul(m.DANumber(300), m.Pixel)
Set controlHeight = m.Mul(m.DANumber(40), m.Pixel)


'// first we move the text off the right hand side of the control
'// remember that text comes up centered, so we first move the left portion to the right of center
'// and then move by half the width of the control to the right. Also center the text vertically
'// across the control

Set horizontalOffset = m.Add(m.Neg(scrollingTextBounds.Min.X), m.Div(icontrolWidth, m.DANumber(2)))
Set verticalOffset = m.Neg(m.Div(scrollingTextWidth, m.DANumber(4)))

Set scrollingTextImage = textImg.Transform(m.Translate2Anim(horizontalOffset, verticalOffset))

'// Number of scrolling steps
Set scrollingSteps = m.DANumber(400)

'// how fast to scroll
Set scrollingSpeed = m.Mod(m.Mul(m.LocalTime, m.DANumber(9)), scrollingSteps)

'// we need to scroll the width of the control plus the length of the string
Set iScrollWidth = m.Add(icontrolWidth, scrollingTextLength)

'// this defines the translation
Set scrollingRate = m.Mul(m.Neg(scrollingSpeed), m.Div(iScrollWidth, scrollingSteps))

Set scrollingTextTranslation = m.Translate2Anim(scrollingRate, zero)

Set scrollingTextImage = scrollingTextImage.Transform(scrollingTextTranslation)


DAControl.TimerSource = 1

'// set the image to be displayed
DAControl.Image = m.Overlay(scrollingTextImage, m.SolidColorImage(m.Black))

DAControl.Sound = m.Silence

'// start the animation
DAControl.Start
End Sub

SQL STATEMENT IN VBA MICROSOFT ACCESS

SQL PADA VISUAL BASIC FOR APPLICATION UNTUK MICROSOFT ACCESS
1. DOUBLE KLIK FORM
2. BUAT TOMBOL PADA FORM
3. KLIK KANAN PADA FORM TERSEBUT
4. KLIK CODE BUILDER
5. KEMUDIAN COPY KODE DI BAWAH INI
6. YANG PERTAMA ADALAH CREATE TABLE PEGAWAI YAITU UNTUK MEMBUAT TABEL PADA ACCESS
7. KE DUA MENGISI TABEL DENGAN INSERT INTO
8. DST COBA SENDIRI


Option Compare Database

Private Sub Command0_Click()
Dim dbs As Database
Set dbs = OpenDatabase("db11.mdb")
dbs.Execute "CREATE TABLE PEGAWAI " & "(NAMA CHAR, GAJI CHAR);"
dbs.Close
End Sub

Option Compare Database

Private Sub Command1_Click()
Dim dbs As Database
Set dbs = OpenDatabase("db11.mdb")
dbs.Execute "INSERT INTO PEGAWAI " & "(NAMA,GAJI) VALUES " & "('Harry', '4000000');"
dbs.Close
End Sub


Private Sub Command2_Click()
Dim dbs As Database
Set dbs = OpenDatabase("db11.mdb")
dbs.Execute "ALTER TABLE PEGAWAI " & "ADD COLUMN PAJAK CURRENCY;"
dbs.Close
End Sub

Option Compare Database

Private Sub Command0_Click()
Dim dbs As Database
Set dbs = OpenDatabase("db11.mdb")
dbs.Execute "ALTER TABLE PEGAWAI " & "DROP COLUMN PAJAK;"
dbs.Close
End Sub


Option Compare Database

Private Sub Command0_Click()
Dim dbs As Database
Set dbs = OpenDatabase("db11.mdb")
dbs.Execute "DELETE * FROM " & "PEGAWAI WHERE NAMA = 'Harry';"
dbs.Close
End Sub

MEMBUAT OBJEK BERPUTAR MENGELILINGI GARIS LINGKARAN

HAPUS DULU TAG BR / SEBELUM MENGGUNAKAN KODE DI BAWAH INI

<br /><html> <br /><body bgcolor=blue> <br /><button id=b1 style="position:absolute;left:0;top:0;z-index:2">satu</button> <br /><button id=b2 style="position:absolute;left:0;top:0;z-index:2">dua</button> <br /><button id=b3 style="position:absolute;left:0;top:0;z-index:2">tiga</button> <br /><button id=b4 style="position:absolute;left:0;top:0;z-index:2">empat</button> <br /><button id=b5 style="position:absolute;left:0;top:0;z-index:2">lima</button> <br /><button id=b6 style="position:absolute;left:0;top:0;z-index:2">enam</button> <br /><script language="javascript"> <br />var posisi; <br />var ra=100; <br />var rb=100; <br />var pi=Math.PI; <br />var inc=pi/180; <br />var b1=document.all.b1.style; <br />var b2=document.all.b2.style; <br />var b3=document.all.b3.style; <br />var b4=document.all.b4.style; <br />var b5=document.all.b5.style; <br />var b6=document.all.b6.style; <br />var obj; <br />obj=new Array(b1,b2,b3,b4,b5,b6); <br />posisi=new Array(); <br />posisi[0]=0; <br />for(var i=1;i<obj.length;i++) <br />{ <br />posisi[i]=parseFloat(posisi[i-1]+((2*pi)/obj.length)); <br />} <br />function rotasi() <br />{ <br />for(var i=0;i<posisi.length;i++) <br />{ <br />posisi[i]+=inc; <br />obj[i].left=(ra*Math.cos(posisi[i]))+450; <br />obj[i].top=(rb*Math.sin(posisi[i]))+165; <br />obj.visibility="visible"; <br />} <br />wakturotasi=window.setTimeout("rotasi()",50); <br />} <br />rotasi(); <br /></script> <br /></body> <br /></html> <br />

radio button array

HAPUS KODE BR/ SEBELUM MENGGUNAKAN KODE DI BAWAH INI

<br /><html> <br /><body> <br /><script> <br />function jawaban() <br />{ <br />var hasil=new Array("90.salah","22.salah","64.benar","72.salah") <br />for(var i=0;i<form1.radio1.length;i++) <br />{ <br />if(form1.radio1(i).checked) <br />{ <br />window.alert(hasil[i]); <br />} <br />} <br />} <br /></script> <br /><form name=form1> <br />8x8=...<br> <br /><input type=radio name=radio1>90<br> <br /><input type=radio name=radio1>22<br> <br /><input type=radio name=radio1>64<br> <br /><input type=radio name=radio1>72<br> <br /><button onclick="jawaban()">jawab</button> <br /></form> <br /></body> <br /></html> <br /> <br />

BELAJAR ARRAY 4

html>
head>
script language="javascript">
var jeda=20;
var lanjut=0;
var pesan=new Array('fitri','karmin','gupron','aan','andi','asep');

function mulai()
{
animasi(pesan[0],0,1);
}

function animasi(teks,posisi,arah)
{
var tampil='['+teks.substring(0,posisi)+']';
tulisan.innerHTML=tampil;
posisi+=arah;
if(posisi>teks.length)
setTimeout('animasi("'+teks+'",'+posisi+','+(-arah)+')',jeda*10);
else
{
if(posisi<0)
{
if(++lanjut>=pesan.length)
lanjut=0;
teks=pesan[lanjut];
arah=-arah;
}
setTimeout('animasi("'+teks+'",'+posisi+','+arah+')',jeda);
}
}
/script>
body>
button onclick="mulai()">mulai/button>
br>
h1>div id="tulisan">/div>/h1>
/body>
/html>

ARRAY 3

html>
head>
title>Window Without a Title Bar/title>
HTA:APPLICATION
ID="objNoTitleBar"
APPLICATIONNAME="Window Without a Title Bar"
SCROLL="no"
SINGLEINSTANCE="yes"
CAPTION="no"
border="no"
icon="dg.ico"
>
/head>
SCRIPT LANGUAGE="VBScript">

Sub CloseWindow
self.close
End Sub

/SCRIPT>

body onkeypress='CloseWindow'>
script language="javascript">
function ar()
{
nama=new Array("Abdul", "Karmin", "Jajang", "Pardiansyah", "Indri", "Arif", "Arum", "Windi")
nama.sort()
for(c=0; c<8;c++)
{
document.write("h2>" + nama[c] + "h2>" + "br>")
}
}
/script>
button onclick="ar()">klik/button>
/body>
/html>

BELAJAR ARRAY 2

cOPY KODE DI bawah ini! Paste pada notepad. Save as (tes2.hta)
html>
body>
script>

function jawaban()
{
var hasil=new Array("90.salah","22.salah","64.benar","72.salah")
for(var i=0;i{
if(form1.radio1(i).checked)
{
window.alert(hasil[i]);
}
}
}
/script>

form name=form1>
8x8=...br>
input type=radio name=radio1>90br>
input type=radio name=radio1>22br>
input type=radio name=radio1>64br>
input type=radio name=radio1>72br>
button onclick="jawaban()">jawab/button>
/form>
/body>
/html>

BELAJAR ARRAY 1

cOPY KODE DI BAWAH INI Pada NoTEPAD. Save as (tes.hta). Sengaja tanda < dihapus... ketik saja sendiri lagi oleh Anda.
html>
head>
title>Window Without a Title Bar
HTA:APPLICATION
ID="objNoTitleBar"
APPLICATIONNAME="Window Without a Title Bar"
SCROLL="no"
SINGLEINSTANCE="yes"
CAPTION="no"
border="no"
icon="dg.ico"
>
/head>
SCRIPT LANGUAGE="VBScript">

Sub CloseWindow
self.close
End Sub

/SCRIPT>

body onkeypress='CloseWindow'>
script language="javascript">
function ar()
{
nama=new Array("abdul", "Karmin", "Jajang", "Pardiansyah", "Indri", "Arif", "arum", "windi")
for(c=0; c<7;c++)
{
document.write("h2>" + nama[c] + "h2>" + "br>")
}
}
/script>
button onclick="ar()">klik/button>
/body>
/html>

WEB PART Menu pada halaman web

PUBLIC:COMPONENT
PUBLIC:ATTACH EVENT="oncontentready" ONEVENT="fnInit()" />
PUBLIC:ATTACH EVENT="onmousedown" ONEVENT="fnGrab()" />
PUBLIC:ATTACH EVENT="ondragstart" ONEVENT="fnCancel()" />


SCRIPT LANGUAGE="JScript">

window.onerror = function fnNoOp() {return true; };

// globals
var m_iSpacingTop = 10;
var m_iSpaceBetween = 5;
var m_iTop = 15;
var bUserData = false;
var bVisited = false;

//---- Setting the id for user data store ---------

if ("undefined" == typeof(sContentID) || sContentID == "" )
{
sContentID = fnFormatFileName(window.location.href) ;
}
else
{
sContentID = sContentID;
}


//////////////////////////////////////////////////////////////////////////////
////// Initializing the top and height values for the parts //////////////////
function fnInit()
{
var oStateArray = fnGetUserDataList();
element.parts = fnGetPartArray();
var oDragWindow = window.document.createElement( "SPAN" );
oDragWindow.className = "clsDragWindow";
element.dragwindow = oDragWindow;
element.rows(0).cells(0).insertAdjacentElement( "beforeEnd" , oDragWindow );
fnReOrder( oStateArray );

}


function fnReOrder( oStateArray )
{
if( null == oStateArray ) return;
var bDirty = false;
var oLastPart = null;
for( var i = 0; i < oStateArray.length; i++ )
{
if( bDirty || element.parts[i].id != oStateArray[i][0] )
{
bDirty = true;
var oPart = fnGetPartById( oStateArray[i][0] );
if( i != 0 ) oLastPart = element.parts[i-1];
if( null != oLastPart )
{
oLastPart.insertAdjacentElement( "afterEnd" , oPart );
}
else
{
element.rows(0).cells(0).insertAdjacentElement( "afterBegin" , oPart );
}
oLastPart = oPart;
}
if( !bDirty )
{
try{bClosed = ( oStateArray[i][1] == "close" );}
catch(e){bClosed = false;}
element.parts[i].state = bClosed ? "close" : "open";
if( bClosed ) fnShowHideContent( element.parts[i] , !bClosed );
}
}
if( bDirty )
{
element.parts = fnGetPartArray();
for( var i = 0; i < element.parts.length; i++ )
{
try{bClosed = oStateArray[i][1] == "close"}
catch(e){bClosed = false;}
element.parts[i].state = bClosed ? "close" : "open";
if( bClosed ) fnShowHideContent( element.parts[i] , !bClosed );
}
}
}

function fnGetPartById( sId )
{
return element.all( sId );
}

function fnGetPartArray()
{
var oParts = element.all.tags( "TABLE" );
var oReturn = new Array();
for( var i = 0; i < oParts.length; i++ )
{
if( oParts[i].className == "clsPart" )
{
oReturn[oReturn.length] = oParts[i];
}
}
return oReturn;
}

function fnGetMinMaxImg( oPart )
{
var oImgs = oPart.all.tags( "img" );
for( var i = 0; i < oImgs.length; i++ )
{
if( oImgs[i].className == "clsMinimize" ) return oImgs[i];
}
}

/////////////////////////////////////////////////////////////////////////////////////
/////// On mouse down grab the element and capture its ondrag event /////////////////

function fnGrab()
{
var oEl = event.srcElement;
var bCollapsed

if( oEl.className.indexOf( "clsPartRight" ) != -1 )
{
var oTableRow2 = oEl.parentElement.parentElement.parentElement.rows[1];
var bCollapsed = ( (oTableRow2.style.display == "none") ? true : false);
fnShowHideContent(oEl,bCollapsed);
}
else if( oEl.className == "clsPartHead")
{

if("img" == oEl.tagName.toLowerCase())
{
oEl.onDragStart = fnCancel;
oEl = oEl.parentElement;
}

m_iTop = event.clientY;
oEl = fnGetPart( oEl );
element.offsetY = event.offsetY + element.offsetTop;
element.offsetX = event.offsetX + element.offsetLeft + 15;
element.current = oEl;
fnShowDragWindow( oEl );

window.document.attachEvent( "onmousemove" , fnMove );
window.document.attachEvent( "onscroll" , fnMove );
window.document.attachEvent( "onmousemove" , fnCheckState );
window.document.attachEvent( "onmouseup" , fnRelease );
window.document.attachEvent( "onselectstart", fnSelect );
}

}

function fnShowDragWindow( oEl )
{
element.dragwindow.style.height = oEl.offsetHeight - 3;
element.dragwindow.style.top = oEl.offsetTop + 3;
element.dragwindow.style.left = oEl.offsetLeft;
element.dragwindow.style.width = oEl.offsetWidth;
element.dragwindow.zIndex = 100;
element.dragwindow.style.display = "block";
}

function fnHideDragWindow()
{
element.dragwindow.style.display = "none";
element.dragwindow.style.height = "";
element.dragwindow.style.top = "";
element.dragwindow.style.left = "";
element.dragwindow.style.width = "";
element.dragwindow.zIndex = "";
}

function fnGetPart( oEl )
{
while( null != oEl && oEl.className != "clsPart" )
{
oEl = oEl.parentElement;
}
return oEl;
}

////////////////////////////////////////////////////////////////////////////////
///////// function to set the top style for the object /////////////////////////
function fnMove()
{
if (event.button != 1)
{
fnRelease();
return;
}

element.dragwindow.style.top = event.clientY - element.offsetY + window.document.body.scrollTop;
element.dragwindow.style.left = event.clientX - element.offsetX + window.document.body.scrollLeft;
if (event.clientY > window.document.body.clientHeight - 10 )
{
window.scrollBy(0, 10);
}
else if (event.clientY < 10)
{
window.scrollBy(event.clientX, -10);
}

}

//////////////////////////////////////////////////////////////////////////////////////
////// on mouse up, detach the events and reposition the webparts ////////////////////

function fnRelease()
{

var oEl = event.srcElement;

//fnSaveState();

window.document.detachEvent( "onmousemove" , fnMove );
window.document.detachEvent( "onscroll" , fnMove );
window.document.detachEvent( "onmousemove" , fnCheckState );
window.document.detachEvent( "onmouseup" , fnRelease );
window.document.detachEvent( "onselectstart", fnSelect );


if( "object" == typeof(element.current) );
{

if (null != element.current )
{
fnSetPosition( element.dragwindow );
//element.current.style.position = "relative";
//element.current.style.top = "";
//element.current.style.zIndex = -1;
element.current = null;
fnHideDragWindow();
}
else
{
return false;
}

}

}

////////////////////////////////////////////////////////////////////////////////////////
/////// function to reorder the webparts after dragging ////////////////////////////////
function fnSetPosition( oEl )
{
var oPrevEl = fnGetPrevEl( oEl );
if( null != oPrevEl )
{
oPrevEl.insertAdjacentElement( "afterEnd" , element.current );
}
else
{
element.rows(0).cells(0).insertAdjacentElement( "afterBegin" , element.current );
}
element.parts = fnGetPartArray();
fnSaveState();
}

function fnGetPrevEl( oEl )
{
var oReturn = null;
for( var i = 0; i < element.parts.length; i++ )
{
if( element.parts[i].offsetTop < oEl.offsetTop ) oReturn = element.parts[i];
}
return oReturn;
}

//////////////////////////////////////////////////////////////////////////////
//////// function to strip out non-alpha numeric chars from input string /////

function fnFormatFileName(sFileName)
{
if( "string" == typeof( sFileName ) )
{
sFileName = sFileName.replace( /[\W]/gi , "" );
return sFileName;
}
}

//////////////////////////////////////////////////////////////////////////////
//////// This is a innerloop for function fnCheckWebPartIDs //////////////////

function fnInternalLoop(i,strElements)
{
for(j=0;j {
if ( parentElement.children[i].id == strElements[j].split("=")[0] )
{
bUserData = true;
return;
}
else
{
bUserData = false;
}
}
}


//////////////////////////////////////////////////////////////////////////////
////// function to get user data content /////////////////////////////////////
function fnGetUserDataList()
{

var oUserData = window.document.all("oLayout");
var oReturn = null;
try
{
oUserData.load(sContentID);
}
catch(e)
{
oUserData = null;
}

if (null != oUserData && oUserData != "" && "undefined" != oUserData )
{
var sUserData = oUserData.getAttribute( "userdata" );
if( null != sUserData )
{
oReturn = fnParseUserData( oUserData.getAttribute( "userdata" ) );
}
}
return oReturn;

}

function fnParseUserData( sUserData )
{
var oTmpArray = sUserData.split( ";" );
var oReturnArray = new Array( oTmpArray.length - 1 );
for( var i = 0; i < oTmpArray.length -1; i++ )
{
oReturnArray[i] = oTmpArray[i].split( "=" );
}
return oReturnArray;
}







/////////////////////////////////////////////////////////////////////////////////////
////// To expand and collapse the web part //////////////////////////////////////////

function fnShowHideContent(oEl,bCollapsed)
{
var oPart = fnGetPart( oEl );
var oTopBar = oPart.rows[0];
var oContent = oPart.rows[1];

var idName = oEl.parentElement.parentElement.parentElement.tagName;

var oTab1 = oPart.cells[0];
var oTab2 = oPart.cells[1];
var oTab3 = oPart.cells[2];
var oSwapImg = oTab1.children[0];

if ( bCollapsed )
{

// -- if the table row is already collapsed, expand it & swap the images --
oContent.style.display = "inline";
//oEl.src = "/library/shared/webparts/images/chevronUp.gif";

oTab1.style.backgroundColor="#6699cc";
oTab1.style.borderBottom='1px solid #6699cc';
oTab2.style.backgroundColor="#6699cc";
oTab2.style.borderTop='1px solid #6699cc';
oTab2.style.borderBottom='1px solid #6699cc';
oTab2.parentElement.cells[1].children[0].style.backgroundColor= "#6699cc";
oTab2.parentElement.cells[1].children[0].style.color = "#ffffff"
oTab3.style.backgroundColor="#6699cc";
oTab3.style.borderBottom='1px solid #6699cc';
oTab3.className = "clsPartRight";
oSwapImg.src = "/library/shared/webparts/images/gripBlue.gif";
//----- writing back the state info to the array -------
var id = oEl.parentElement.parentElement.parentElement.parentElement.id;
oPart.state = "open";
}
else
{
// expand the table row & swapping the images
oContent.style.display = "none";
//oEl.src = "/library/shared/webparts/images/chevronDown.gif";

oTab1.style.backgroundColor="#cccccc";
oTab1.style.borderBottom='1px solid #aaaaaa';

oTab2.style.backgroundColor="#cccccc";
oTab2.style.borderTop='1px solid #aaaaaa';
oTab2.style.borderBottom='1px solid #aaaaaa';
oTab2.parentElement.cells[1].children[0].style.backgroundColor= "#cccccc";
oTab2.parentElement.cells[1].children[0].style.color = "#003399"

oTab3.style.backgroundColor="#cccccc";
oTab3.style.borderBottom='1px solid #aaaaaa';
oTab3.className = "clsPartRightHidden";


oSwapImg.src = "/library/shared/webparts/images/gripGray.gif";
oPart.state = "close";

}

fnSaveState();

}

///////////////////////////////////////////////////////////////////////////////////
//////// function to cancel the dragstart event ///////////////////////////////////
function fnCancel()
{
if( event.srcElement.className == "clsPartHead" )
{
window.event.returnValue = false;
}
}



//////////////////////////////////////////////////////////////////////////////////////
//////// To save the order and state of web parts ////////////////////////////////////
function fnSaveState()
{
var oUserData = window.document.all["oLayout"];
var sUserData = "";
var sState = "";

for (i=0;i {
sState = "undefined" == String( element.parts[i].state ) ? "open" : element.parts[i].state;
sUserData += (element.parts[i].id + "=" + sState + ";");
}

oUserData.setAttribute("userdata",sUserData);
oUserData.save(sContentID);
}




////////////////////////////////////////////////////////////////////////////////////////
///////// function to check the state and release the element ////////////////
///////// if a mouse button is not depressed ////////////////

function fnCheckState()
{
if( event.button != 1 ) fnRelease();
}

///////////////////////////////////////////////////////////////////////////////
///////// function to return false ////////////////////////////////////////////
function fnSelect()
{
return false;
}


/SCRIPT>
/PUBLIC:COMPONENT>

XML Menu

Menu seperti START MENU Pada WINDOWS XP (Kode di bawah ini membutuhkan file xml), dan dibuat oleh Microsoft Corp.
var mnpMenuTop = null;
var mnpMenuKill = null;
var mnpMenuPopup = null;
var mnpMenuUrl = null;
var mnpMenuParent = null;
var mnpMenuScrollTimer = null;
var mnpMenuShadows = new Array();
var mnpMenuDirSave = "LTR";
var mnpMenuCTSave = false;
var mnpMenuRenderStart = null;
var mnpMenuShadowsEnabled = true;

window.attachEvent("onload", mnpMenuInit);

function mnpMenuInit()
{
try
{
mnpMenuDirSave = mnpMenuDir();
mnpMenuCTSave = mnpMenuCT();
}
catch(e)
{
return;
}
mnpMenuTop = document.getElementById("mnpMenuTop");
mnpMenuUrl = mnpMenuTop.getAttribute("url");
mnpMenuParent = mnpMenuTop.getAttribute("parent");
mnpMenuAttach(mnpMenuTop);
}

function mnpPage(label, url, target, menu, linkID)
{
this.label = label;
this.url = url;
this.target = target;
this.menu = menu;
this.linkID = linkID;
}

function mnpLabel(label)
{
this.label = label;
}

function mnpMenuEnter()
{
if (mnpMenuKill)
{
window.clearTimeout(mnpMenuKill);
mnpMenuKill = null;
}
}

function mnpMenuLeave()
{
mnpMenuKill = window.setTimeout("mnpMenuKiller()", 200);
}

function mnpMenuKiller()
{
mnpKillMenu(mnpMenuTop.getAttribute("currentMenu"));
mnpMenuTop.removeAttribute("currentMenu");
}

function mnpMenuAttach(el)
{
el.attachEvent("onmouseenter", mnpMenuEnter);
el.attachEvent("onmouseleave", mnpMenuLeave);
var divs = el.getElementsByTagName("DIV");
var t = divs.length;
for (var i=0; i < t; i++)
{
var div = divs.item(i);
if (div.className == "mnpMenuRow")
{
div.attachEvent("onmouseenter", mnpMenuMouseover);
div.attachEvent("onmouseleave", mnpMenuMouseout);
div.attachEvent("onmousedown", mnpMenuMousedown);
div.attachEvent("onmouseup", mnpMenuMouseup);
div.setAttribute("save-background", div.style.background);
div.setAttribute("save-border", div.style.borderColor);
var a = div.getElementsByTagName("A");
if (a.length > 0)
{
var a0 = a[0];
if (a0.getAttribute("aoff"))
a0.outerHTML = a0.innerHTML;
else
{
div.setAttribute("status", a0.href);
div.attachEvent("onclick", mnpMenuClick);
}
}
if (div.getAttribute("menu"))
{
var imgs = div.getElementsByTagName("IMG");
if (imgs.length > 0)
{
var img = imgs[0];
img.style.visibility = "visible";
}
else
{
var x;
if (mnpMenuDirSave == "LTR")
x = (div.offsetWidth - 10) + "px";
else if (mnpMenuTop.contains(div))
x = "4px";
else
x = "6px";
var img = "";
div.insertAdjacentHTML("afterBegin", img);
}
}
}
}
}

function mnpMenuClick()
{
var div = window.event.srcElement;
var a = div.getElementsByTagName("A");
if (a.length == 0) return;
if (window.event.shiftKey)
{
var target = a[0].target;
a[0].target = "_new";
a[0].click();
a[0].target = target;
}
else
a[0].click();
}

function mnpKillMenu(id)
{
if (id == null) return;
var menu = document.getElementById(id);
var current = menu.getAttribute("currentMenu");
if (current)
{
mnpKillMenu(current);
menu.removeAttribute("currentMenu");
}
var temp = mnpMenuShadows[id];
if (temp)
{
var i;
var tempLength = temp.length;
for (i=0; i if (temp[i])
document.body.removeChild(temp[i]);
mnpMenuShadows[id] = null;
}
var parent = document.getElementById(menu.getAttribute("parentMenu"));
var rows = parent.getElementsByTagName("DIV");
var rLength = rows.length;
for (var i=0; i {
var row = rows.item(i);
var m = row.getAttribute("menu");
if (m == id)
{
row.style.background = row.getAttribute("save-background");
row.style.borderColor = row.getAttribute("save-border");
}
}
show_elements("SELECT", menu);
show_elements("OBJECT", menu);
menu.style.display = "none";
}

function mnpMenuOpen(id, parentId, x, y)
{
var parent;
try
{
parent = document.getElementById(parentId);
}
catch(e)
{
return;
}
var current = parent.getAttribute("currentMenu");
if (id == current) return;
mnpKillMenu(current);
if (id)
parent.setAttribute("currentMenu", id);
else
{
parent.removeAttribute("currentMenu");
return;
}

var div = document.getElementById(id);
if (div == null)
{
var menu = eval("new " + id + "()");
var html = "

";
html += "

";
html += "

";
var isThisPage = false;
var mLength = menu.items.length;
for (var i=0; i {
var item = menu.items[i];
var url = item.url;
if (url == mnpMenuUrl)
{
isThisPage = true;
break;
}
}
for (var i=0; i {
var item = menu.items[i];
var label = item.label;
var re = /'/g;
var url = item.url;
if (url)
url = url.replace(re, "'");
var target = item.target;
var submenu = item.menu;
var linkID = item.linkID;
html += " if (submenu)
html += " menu='" + submenu + "'";
if (url)
{
html += " class='mnpMenuRow'";
if (url == mnpMenuUrl)
html += " style='border-color: #999999; background: white; cursor: default";
else if (!isThisPage && (url == mnpMenuParent))
html += " style='border-color: #999999; background: #F1F1F1";
else
html += " style='border-color: #F1F1F1; background: #F1F1F1";
if (mnpMenuDirSave == "LTR")
html += "; padding-left: 11px";
else
html += "; padding-right: 11px";
html += "'";
}
else
html += " class='mnpMenuLabel'";
html += ">";
if (url && (url != mnpMenuUrl))
{
var targetAttr = target == "" ? "" : " target='" + target + "'";
if (mnpMenuCTSave)
html += "" + label + "";
else
html += "" + label + "";
}
else
html += "" + label + "";
html += "

";
}
html += "

";
html += "

";
html += "

ADODB RECORDSET

Microsoft Office Applications

Welcome to Office Space, the column that offers tips and tricks for scripting Microsoft® Office applications. We’ll post new tips every Thursday; to see an archive of previous tips, visit the Office Space Archive. And if you have particular questions about Microsoft Office scripting, feel free to send them to scripter@microsoft.com. We can’t promise to answer all the questions we receive, but we’ll do our best.

Adding New Records to and Modifying Existing Records in a Microsoft Access Database
We’ve decided to let you in on a little secret: the Scripting Guys (unlike the rest of you, of course) have their good days and their bad days. Some days we come in excited and ready to work; other days (well, OK, most days) it’s a bit different. How are you, the readers of the Office Space column, supposed to know whether you’ve hit the Scripting Guys on a good day or a bad day? Well, here’s a hint: any time the Scripting Guys decide to “expand upon a previous column” then you know they’re taking the lazy way out and not even trying to think up something new.
So what does that have to do with this week’s column? Why, nothing, nothing at all…. Since you mentioned it, though, this week we’ve decided to expand upon a previous column, one in which we showed you how to connect to and read from a Microsoft Access database. Today we’re going to take the next logical step and show you how you can add records to an Access database. And then, just for the heck of it, we’ll take another step and show you how to modify existing records as well.
OK, we admit it: we didn’t exactly knock ourselves out trying to come up with a brand-new topic for this week’s column. But we’ll rationalize that by pointing out that, as useful as it is to be able to extract data from a database, it’s just as useful (if not more so) to be able to add data to that database. So while we are being a tad bit lazy at least we’re covering an important topic. Besides, you can simply think of this as the second part in a multi-part series: you don’t have to worry that we’re just taking the easy way out!
Seeing as how we are being a tad bit lazy, we won’t review any of basic concepts behind connecting to an Access database; if you need a brief refresher on that, take a look at last week’s column. Today we’re going to get right down to business: let’s show you how to add a new record to an existing database.
To begin with, we’re assuming you have an Access database named Inventory.mdb living in the C:\Scripts folder. We’re also assuming that this database has a table named GeneralProperties, and that the GeneralProperties table includes the following fields:
• ComputerName
• Department
• OperatingSystem
• Owner
Needless to say, if you don’t have such a database then none of these sample scripts will work. That doesn’t mean you can’t learn anything from them; you just won’t be able to run them and get them to do anything.
With that in mind, let’s take a look at a script that adds a new record to the database:
On Error Resume Next

Const adOpenStatic = 3
Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = c:\scripts\inventory.mdb"

objRecordSet.Open "SELECT * FROM GeneralProperties" , _
objConnection, adOpenStatic, adLockOptimistic

objRecordSet.AddNew
objRecordSet("ComputerName") = "atl-ws-99"
objRecordSet("Department") = "Human Resources"
objRecordSet("OperatingSystem") = "Microsoft Windows XP Professional"
objRecordSet("Owner") = "Ken Myer"
objRecordSet.Update

objRecordSet.Close
objConnection.Close
Note. We should note that this is not the only way to add a new record to a database. For example, SQL aficionados can also use an Insert Into query. We’re using the AddNew method simply because it’s easier; Insert Into queries can get extremely complicated, especially when you’re dealing with many fields, values stored in variables, and fields of different data types. In the lazy spirit of the day, we’re taking the easy way out.
The script starts out by connecting to the database C:\Scripts\Inventory.mdb. Like we said, we won’t discuss this in any detail, but that’s what these lines of code are for:
Const adOpenStatic = 3
Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = c:\scripts\inventory.mdb"
After making the connection we then use the Recordset object’s Open method to run a SQL query that retrieves all the records from the GeneralProperties table; that’s what we do here:
objRecordSet.Open "SELECT * FROM GeneralProperties" , _
objConnection, adOpenStatic, adLockOptimistic
What gives us is a recordset that we can add a new record to. And that’s what we do here:
objRecordSet.AddNew
objRecordSet("ComputerName") = "atl-ws-99"
objRecordSet("Department") = "Human Resources"
objRecordSet("OperatingSystem") = "Microsoft Windows XP Professional"
objRecordSet("Owner") = "Ken Myer"
objRecordSet.Update
We begin by calling the AddNew method; this sets up a blank template to work with, but doesn’t actually add anything to the database. (At the moment, all the work we’re doing is taking place solely in memory.) We then have a series of lines that assign values to the individual fields for this new record. (These fields, of course, are the fields found in the table GeneralProperties.) For example, this line sets the value of the ComputerName field to atl-ws-99:
objRecordSet("ComputerName") = "atl-ws-99"
Note that the value being assigned (atl-ws-99) is enclosed in double quote marks; that’s because ComputerName is a text field and is expecting to be assigned a string value. If a database field is numeric or Boolean (true/false) then you should not enclose the values in double quote marks:
objRecordSet("IsLaptop") = False
objRecordSet("NumberOfPrcoessors") = 2
But you knew that already, didn’t you?
Finally, we call the Update method, which actually writes the new record to the database:
objRecordSet.Update
Don’t forget that line of code: if you do, the recordset in memory will be updated to contain the new record, but the actual database will remain unchanged.
As you can see, adding a new record to an Access database is pretty easy. But what about modifying an existing record? For example, suppose we no sooner add the computer atl-ws-99 to the database then Ken Myer gets transferred from the Human Resources department to the Finance department. That means we now have to update the department field for that particular computer. How hard is that going to be?
Relax: it’s not going to be hard at all. Again, there are different ways to update records in a database, but for now we’ll focus on what we feel is the easiest way to update a record: you search for the record, update the appropriate field (or fields), and then call the Update method. In other words, a process that looks remarkably like this:
On Error Resume Next

Const adOpenStatic = 3
Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = c:\scripts\inventory.mdb"

objRecordSet.Open "SELECT * FROM GeneralProperties" , _
objConnection, adOpenStatic, adLockOptimistic

strCriteria = "ComputerName = 'atl-ws-99'"

objRecordSet.Find strCriteria
objRecordset.Fields.Item("Department") = "Finance"
objRecordset.Update

objRecordSet.Close
objConnection.Close
You probably already noticed that the first half of this script is identical to the script that adds a new record: we connect to the database, then use the Open method to return a recordset consisting of all the records in the GeneralProperties table. In fact, you won’t find any differences between the two scripts until we get to here:
strCriteria = "ComputerName = 'atl-ws-99'"
In this line of code we’re simply assigning the search criteria to a variable named strCriteria. We want to update the record for the computer named atl-ws-99; as you might expect, that becomes our search criteria, using the format FieldName = Value. Or, ComputerName = ‘atl-ws-99’.
After establishing the search criteria we call the Find method to locate that record in the recordset:
objRecordSet.Find strCriteria
We then use these two lines of code to update the Department field and then to save the changes:
objRecordset.Fields.Item("Department") = "Finance"
objRecordset.Update
Note the somewhat unusual syntax we use when referring to the Department field: objRecordset.Fields.Item(“Department”). Don’t worry too much about that; that’s just the way you have to do things. On the bright side, odd as it might look, at least it’s the same way we refer to fields when reading from a database (as we did last week).
Also, don’t overlook the Update method; once again a record will not be changed in the database until you call Update.
As we said, there are other ways we can modify existing records; however, those will have to wait for another day. Which day? Let’s put it this way: the next time we’re too lazy to think up a brand-new topic for this column, well, you can probably figure out for yourself what the topic will be.
Office Space: Tips and Tricks for Scripting Microsoft Office Applications

Welcome to Office Space, the column that offers tips and tricks for scripting Microsoft® Office applications. We’ll post new tips every Tuesday and Thursday; to see an archive of previous tips, visit the Office Space Archive. And if you have particular questions about Microsoft Office scripting, feel free to send them to scripter@microsoft.com. We can’t promise to answer all the questions we receive, but we’ll do our best.

Using ADO to Query an Excel Spreadsheet
A month or so ago CBS aired the final episode of the beloved sitcom Everybody Loves Raymond, a show that had been ranked No. 1 in viewership for hundreds of years, despite the fact that at least one of the Scripting Guys never caught even the briefest glimpse of the program. (Of course, cultural literacy isn’t exactly this Scripting Guy’s forte: he’s never seen American Idol or Survivor either, and has absolutely no idea which one is Nelly and which one is P Diddy.) With Raymond gone CBS has a void to fill in its schedule, but the rest of the world has an empty spot to fill as well: now who are we all supposed to love?
Personally, we’d like to nominate Microsoft Excel as a candidate to fill that void. After all, what’s not to love about Excel? Do you need a traditional spreadsheet program, something that can help you with budgets, accounting and other financial-type things? Excel can do that. Do you need to make charts and graphs? Excel can do that. Create an organizational chart? Calculate statistics? Excel has you covered; Excel can do anything.
Of course, some of you might not be convinced of that. “Excel can do anything?” you muse. “Well, how about this: can Excel function as a flat-file database? Can you use ADO to access the information found in an Excel spreadsheet? Can you send SQL queries to Excel and get back information?”
We’ll put it this way: the Office Space column is published on the Internet, and obviously something couldn’t be published on the Internet if it wasn’t 100% true. Of course Excel can function as a flat-file database that can be accessed using ADO and SQL queries. And in today’s column we’ll explain how to do just that.
Let’s take a look at a very simple spreadsheet and then explain how we can access the data using ADO (ActiveX Data Objects). Here’s a rudimentary spreadsheet – named C:\Scripts\Test.xls – that consists of two columns, one labeled Name, the other labeled Number. To better ensure that your database queries work against an Excel spreadsheet, make sure your spreadsheets are set up in a similar fashion; that is, make row 1 a header row, start the data itself in row 2, and don’t skip any rows or columns. And to make coding easier, don’t include blank spaces in your headers; for example, use a column header like SocialSecurityNumber and don’t use a column header like Social Security Number. It just makes life much easier. (Incidentally, that’s true when using any kind of database, not just Excel.)
Here’s what our spreadsheet looks like:


And, yes, we did put a lot of time and effort into creating this sample spreadsheet. All part of the service we offer.
But now for the big question: how do we access this data using ADO? Well, one way is to use a script that looks like this:
On Error Resume Next

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Scripts\Test.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"

objRecordset.Open "Select * FROM [Sheet1$]", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordset.EOF
Wscript.Echo objRecordset.Fields.Item("Name"), _
objRecordset.Fields.Item("Number")
objRecordset.MoveNext
Loop
We should probably start by pointing out that the first half of the script simply defines some constants and creates the two objects – ADODB.Connection and ADODB.Recordset – that are required to connect to and retrieve data from a data source. This is largely boilerplate code that you use as-is in any ADO script. And because this is boilerplate you can use as-is we won’t discuss the first half of the script in any detail; for more information you might take a look at the Working with Databases section of the Microsoft Windows 2000 Scripting Guide.
We’ll begin our discussion with this bit of code, which actually opens a connection to the Excel spreadsheet:
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Scripts\Test.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
Again, this is largely boilerplate code. The only section you need to worry about is the Data Source, where you specify the path to your spreadsheet.
Note. What if the path to your spreadsheet includes spaces, something that can cause problems for ADO scripts working with text files (for more information, see this Hey, Scripting Guy! column)? In this case, there’s no problem whatsoever; just write out the entire file path, spaces and all:
Data Source=C:\Scripts\My Spreadsheet.xls
Incidentally, you should resist the temptation to change Excel 8.0 to whatever version of Excel you happen to be running on your machine. In this case the Excel 8.0 refers not to your version of Excel but to the ADO provider used to access Excel. Leave the provider as Excel 8.0 and everything will be fine.
As long as we’re on the subject we should also mention that the code HDR=Yes simply indicates that our spreadsheet has a header row; if our spreadsheet didn’t have a header row we’d set HDR to No. But seeing as how we said you should always have a header row and seeing as how people always do what the Scripting Guys tell them to, well, this is a moot point.
After making a connection to the data source we can use a SQL query to retrieve the information stored in that data source. Here’s the code we use to return a recordset consisting of all the rows in the spreadsheet:
objRecordset.Open "Select * FROM [Sheet1$]", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
Again, there’s a lot of ADO boilerplate in here; the only part we’re really concerned about for now is the actual SQL query:
Select * FROM [Sheet1$]
This is a standard SQL query, one that selects all the fields (columns) in the database (worksheet). Notice that we specify the name of an individual worksheet in the query, the same way that we would specify an individual table name were we connecting to a database. Notice, too, that the worksheet name is enclosed in square brackets and that the actual name – Sheet1 – has a $ appended to it. Make sure you do both those things when writing your own ADO scripts for accessing data in a spreadsheet.
The recordset returned to us is exactly the same sort of thing we’d get back were we making a connection to, say SQL Server. Because of that we can use these lines of code to simply report back the Name and Number for each record in the recordset, something that corresponds to each row in our spreadsheet:
Do Until objRecordset.EOF
Wscript.Echo objRecordset.Fields.Item("Name"), _
objRecordset.Fields.Item("Number")
objRecordset.MoveNext
Loop
When we run the script we should get back a report that looks like this:
A 1
B 1
C 2
D 2
E 1
F 1
Yes, very cool, but some of you are skeptical: after all, couldn’t we retrieve this same information using a plain-old Excel script? Yes, we could, which means that in this case, there’s really no reason to use ADO at all.
So then why did we even bother writing this column? (That, by the way, is something we get asked pretty much any time we write a column.) Well, we admit it: if all you want to do is echo back every row in the spreadsheet there’s no point in using ADO (unless you’re more comfortable writing ADO scripts than you are writing Excel scripts). However, suppose we wanted to echo back only the rows where Number was equal to 2. Using a standard Excel script we’d need to examine each row, determine whether the Number column was equal to 2, and then echo (or not echo) the row based on that value. This isn’t necessarily hard, but it can be a bit cumbersome, especially if you need to look at values in more than one column (for example, if you were looking for all users with the title Administrative Assistant who work for the Finance department).
With ADO, by contrast, we can get back this same information without having to individually examine each row in the spreadsheet. In fact, we can use pretty much the exact same script we just showed you; all we have to do is modify the SQL query. Because we want only those rows where the Number is equal to 2 we just need to use a SQL query like this:
objRecordset.Open "Select * FROM [Sheet1$] Where Number = 2", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
That’s it; the preceding query will give us back data like this:
C 2
D 2
Why use ADO? There’s your answer: because you can easily use SQL queries to return a subset of the information found in the spreadsheet. That’s why you might want to use ADO to access an Excel file.
By the way, here’s a complete script that returns just the rows where the Number column is equal to 2:
On Error Resume Next

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Scripts\Test.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"

objRecordset.Open "Select * FROM [Sheet1$] Where Number = 2", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordset.EOF
Wscript.Echo objRecordset.Fields.Item("Name"), _
objRecordset.Fields.Item("Number")
objRecordset.MoveNext
Loop
Before you ask, yes, there are other things you can do with ADO besides simply retrieve data. In a future column we’ll show you how you can use ADO to write data to a spreadsheet.
Hey, is it any wonder why everyone loves Excel?

Menubar pada Halaman Web

MEMBUAT MENU PADA INTERNET EXPLORER DENGAN ICON DI SEBELAH KIRI (SAMA DENGAN PROGRAM MICROSOFT OFFICE)
COPY KODE DI BAWAH INI! JALANKAN PADA INTERNET EXPLORER

HAPUS TAG BR/

<br /><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <br /><!-- saved from url=(0082)http://msdn.microsoft.com/workshop/samples/author/dhtml/howto/MouseCaptureDDM3.htm --> <br /><HTML><HEAD><TITLE>Mouse Capture Menu Sample #3</TITLE> <br /><META http-equiv=Content-Type content="text/html; CHARSET=iso-8859-1"> <br /><META content=InetSDK name=AUTHOR> <br /><META content=EN-US name=MS.LOCALE> <br /><META content=noindex name=ROBOTS><!-- The styles are used to give the menu visual appeal --> <br /><STYLE>.menucontainer { <br /> BORDER-RIGHT: #505050 1px solid; BORDER-TOP: #cfcfcf 1px solid; FONT-SIZE: 8pt; Z-INDEX: 6; LEFT: 0px; BORDER-LEFT: #cfcfcf 1px solid; BORDER-BOTTOM: #505050 1px solid; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0px; BACKGROUND-COLOR: #000000 <br />} <br />.menulabel { <br /> BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; Z-INDEX: 7; BORDER-LEFT: #000000 1px solid; WIDTH: 75px; CURSOR: hand; COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; POSITION: absolute; BACKGROUND-COLOR: #000000; TEXT-ALIGN: center <br />} <br />.menulabel2 { <br /> BORDER-RIGHT: #505050 1px solid; BORDER-TOP: #cfcfcf 1px solid; Z-INDEX: 7; BORDER-LEFT: #cfcfcf 1px solid; WIDTH: 75px; CURSOR: hand; COLOR: #ffffff; BORDER-BOTTOM: #505050 1px solid; POSITION: absolute; BACKGROUND-COLOR: #000000; TEXT-ALIGN: center <br />} <br />.menulabel3 { <br /> BORDER-RIGHT: #cfcfcf 1px solid; BORDER-TOP: #505050 1px solid; Z-INDEX: 7; BORDER-LEFT: #505050 1px solid; WIDTH: 75px; CURSOR: hand; COLOR: #ffffff; BORDER-BOTTOM: #cfcfcf 1px solid; POSITION: absolute; BACKGROUND-COLOR: #000000; TEXT-ALIGN: center <br />} <br />.menugroup { <br /> BORDER-RIGHT: #505050 1px solid; BORDER-TOP: #cfcfcf 1px solid; DISPLAY: none; PADDING-LEFT: 0px; FONT-SIZE: 8pt; Z-INDEX: 7; LEFT: 0px; PADDING-BOTTOM: 2px; BORDER-LEFT: #cfcfcf 1px solid; WIDTH: 150px; PADDING-TOP: 2px; BORDER-BOTTOM: #505050 1px solid; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0px; BACKGROUND-COLOR: #000000 <br />} <br />.scratch { <br /> BORDER-RIGHT: #999900 1px solid; PADDING-RIGHT: 5px; BORDER-TOP: #ffffdd 1px solid; DISPLAY: none; PADDING-LEFT: 5px; FONT-SIZE: 8pt; Z-INDEX: 4; LEFT: 0px; PADDING-BOTTOM: 5px; OVERFLOW: auto; BORDER-LEFT: #ffffdd 1px solid; WIDTH: 250px; PADDING-TOP: 5px; BORDER-BOTTOM: #999900 1px solid; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0px; HEIGHT: 250px; BACKGROUND-COLOR: #ffffcc <br />} <br />.scratchx { <br /> BORDER-RIGHT: #999900 1px solid; BORDER-TOP: #ffffdd 1px solid; FONT-WEIGHT: bold; FONT-SIZE: 12pt; Z-INDEX: 4; LEFT: 0px; BORDER-LEFT: #ffffdd 1px solid; CURSOR: hand; BORDER-BOTTOM: #999900 1px solid; FONT-FAMILY: Arial; POSITION: relative; TOP: 0px; HEIGHT: 12px; BACKGROUND-COLOR: #ffffcc <br />} <br /></STYLE> <br /> <br /><SCRIPT id=oScript> <br />// Integer used to track the total number of menu groups. <br />var iGroupCount=0; <br /> <br />// Integer used to track the total number of menu items. <br />var iItemCount=0; <br /> <br />// Object placeholder for the srcElement of an event. <br />var oWorkItem=""; <br /> <br />// Object placeholder for the last know menu. <br />var oDistinctMenu=""; <br /> <br />// Object placeholder for the last known menu group. <br />var oDistinctGroup=""; <br /> <br />// Boolean used to monitor the overall status of the menu. <br />var bOpenMenu=false; <br /> <br />// Integer used to specify the location of the History group. <br />var iHistoryID=-1; <br /> <br />// Additional information for sample menu item action. <br />var sScratchInclude='<div component="scratch" class=scratchx>DHTML Menu Sample #1</div>'; <br /> <br />// When the body loads, setup intial settings. <br />function fnInit(){ <br /> // Set the menu container to the width of the body. <br /> //oMenuContainer.style.width=document.body.clientWidth-2; <br /> // Use new setExpression to set the menu container to the width of the body. <br /> oMenuContainer.style.setExpression("width","document.body.clientWidth-2"); <br /> <br /> // Add in additional objects and set intial settings for sample menu item action. <br /> oMenuContainer.innerHTML='<div id=oScratch class="scratch"></div>'; <br /> oScratch.style.top=document.body.clientHeight/2 - oScratch.offsetHeight/2; <br /> oScratch.style.left=document.body.clientWidth/2 - oScratch.offsetWidth/2; <br /> oScratch.innerHTML=sScratchInclude; <br /> <br /> // Add in menu groups and menu items. <br /> fnAddMenuGroup("Search"); <br /> fnAddMenuItem(1,"Search Engines","fnSearch","folder"); <br /> fnAddMenuItem(1,"More Searching","fnSearch2","folder"); <br /> fnAddMenuGroup("Stuff"); <br /> fnAddMenuItem(2,"Random Nonsense","fnRandomNonsense","folder"); <br /> fnAddMenuGroup("My Records"); <br /> fnAddMenuItem(3,"Letter to Mom","fnNote1","document2"); <br /> fnAddMenuItem(3,"Letter to Herbie","fnNote2","document2"); <br /> fnAddMenuItem(3,"Grocery List","fnNote3","document2"); <br /> <br /> // A special condition is set for the fnAddMenuItem ... if it has a value of ~SPACER, then a separator is used. <br /> fnAddMenuItem(3,"~SPACER","Invalid"); <br /> fnAddMenuItem(3,"Certificates","fnNote4","certificate"); <br /> <br /> // The HISTORY menu group is a special name within this script, so the name should not be used for other menu groups. <br /> fnAddMenuGroup("History"); <br /> <br /> // Set the height of the menu container to the height of the menu items plus a little extra slack space. <br /> if(oMenuContainer.innerHTML!=""){ <br /> oMenuContainer.style.height=oLabel1.offsetHeight + oLabel1.offsetTop + 4; <br /> } <br />} <br /> <br />// All click events for the menu go through here. <br />// When mouse capture is set, all click events for everything goes through here. <br />function fnSwitchMenu(){ <br /> oWorkItem=event.srcElement; <br /> <br /> // If the object that was clicked is a menu label, then continue. <br /> if(oWorkItem.component=="menulabel"){ <br /> // If the last known menu is different than the menu that was clicked, close that previous menu item. <br /> // This is what makes the menu follow the mouse. It works in part with the fnHighlight function. <br /> if((oDistinctMenu!=oWorkItem)&&(oDistinctMenu!="")){ <br /> oDistinctGroup=eval("oGroup" + oDistinctMenu.groupid); <br /> oDistinctGroup.style.display="none"; <br /> oDistinctMenu.menustatus="closed"; <br /> oDistinctMenu.className="menulabel"; <br /> } <br /> // Set the last known menu and menu group to the current object. <br /> oDistinctMenu=oWorkItem; <br /> oDistinctGroup=eval("oGroup" + oWorkItem.groupid); <br /> // If the current menu is closed, open it and give the menu mouse capture. <br /> if(oDistinctMenu.menustatus=="closed"){ <br /> oDistinctMenu.menustatus="open"; <br /> oDistinctMenu.className="menulabel3"; <br /> oDistinctGroup.style.display="block"; <br /> if(bOpenMenu==false){ <br /> bOpenMenu=true; <br /> oMenuContainer.setCapture(); <br /> } <br /> } <br /> else{ <br /> // If the menu is not closed, then close it and remove mouse capture. <br /> bOpenMenu=false; <br /> oMenuContainer.releaseCapture(); <br /> oDistinctMenu.menustatus="closed"; <br /> oDistinctGroup.style.display="none"; <br /> } <br /> } <br /> if(oWorkItem.component=="menuitem"){ <br /> // If the object is a menu item, then process its MENUACTION. <br /> if(oWorkItem.menuaction!="Invalid"){ <br /> eval(oWorkItem.menuaction + "()"); <br /> // If the HISTORY group exists, then add the menu item to the history list. <br /> if(iHistoryID!=-1){ <br /> fnAddMenuItem(iHistoryID,oWorkItem.innerText,oWorkItem.menuaction,"document"); <br /> } <br /> } <br /> // Remove capture from the menu and close it by clicking on the same menu item. <br /> oMenuContainer.releaseCapture(); <br /> oDistinctMenu.click(); <br /> // Since the mouse is probably not over the menu anymore and the menu was closed, go ahead and set the className back to the original setting. <br /> oDistinctMenu.className="menulabel"; <br /> } <br /> // If the object is not any part of the menu, and the menu is open, close the menu, remove capture, but stop the event from processing. <br /> if(!oWorkItem.component){ <br /> if(bOpenMenu==true){ <br /> oDistinctMenu.className="menulabel"; <br /> oMenuContainer.releaseCapture(); <br /> oDistinctMenu.click(); <br /> event.returnValue=false; <br /> } <br /> } <br /> // Close the scratch pad used for the sample menu item action code. <br /> if(oWorkItem.component=="scratch"){ <br /> oScratch.style.display="none"; <br /> } <br />} <br /> <br />// This function is used when the mouse moves over menu labels and menu items. <br />function fnHighlight(){ <br /> // Only continue if the mouse is within the client area. This is only a concern when setCapture has been used. <br /> if((event.clientX>0)&&(event.clientY>0)&&(event.clientX<document.body.offsetWidth)&&(event.clientY<document.body.offsetHeight)){ <br /> oWorkItem=event.srcElement; <br /> // If the clicked object is a menu label, continue. <br /> if(oWorkItem.component=="menulabel"){ <br /> // If the clicked object's label is the original, use the menulabel2 to highlight it. <br /> if(oWorkItem.className=="menulabel"){ <br /> oWorkItem.className="menulabel2"; <br /> // If the last known menu is open, close it. We know this menu is not open because of the className. <br /> if((oDistinctMenu!="")&&(oDistinctMenu.menustatus=="open")){ <br /> fnSwitchMenu(oWorkItem); <br /> event.returnValue=false; <br /> } <br /> } <br /> else{ <br /> // If the clicked object's label is not the original, and its menustatus is closed, set it back to the original. <br /> if(oWorkItem.menustatus=="closed"){ <br /> oWorkItem.className="menulabel"; <br /> } <br /> } <br /> } <br /> // If a menu item was clicked, continue. <br /> if(oWorkItem.component=="menuitem"){ <br /> // if the menu item's menustatus is not active, then make it active. <br /> if(oWorkItem.menustatus!="active"){ <br /> oWorkItem.style.borderBottomColor="#505050"; <br /> oWorkItem.style.borderRightColor="#505050"; <br /> oWorkItem.style.borderTopColor="#CFCFCF"; <br /> oWorkItem.style.borderLeftColor="#CFCFCF"; <br /> oWorkItem.menustatus="active"; <br /> } <br /> // if the menu item's menustatus is active, set it to passive. <br /> else{ <br /> oWorkItem.style.borderColor="#000000"; <br /> oWorkItem.menustatus="passive"; <br /> } <br /> } <br /> } <br /> // If the mouse strays outside the clientarea and a menu is open, shut everything down. <br /> else{ <br /> if((oDistinctMenu!="")&&(oDistinctMenu.menustatus=="open")){ <br /> fnSwitchMenu(); <br /> oDistinctMenu.className="menulabel"; <br /> event.returnValue=false; <br /> } <br /> } <br />} <br /> <br />// The fnAddMenuGroup function is used to dynamically add new menu groups. <br /> <br />function fnAddMenuGroup(sGroupName){ <br /> // Increment the total number of menu groups. <br /> iGroupCount++; <br /> // Add the new menu group (label and drop down menu) to the menu container. <br /> oMenuContainer.innerHTML+='<span groupid=' + iGroupCount + ' component="menulabel" id=oLabel' + iGroupCount + ' class="menulabel">' + sGroupName + '</span><div id=oGroup' + iGroupCount + ' class="menugroup"></div>'; <br /> // Refer to the new label and group using the iGroupCount. <br /> var oNewLabel=eval("oLabel" + iGroupCount); <br /> var oNewGroup=eval("oGroup" + iGroupCount); <br /> // If this is the history group, record the iGroupCount. <br /> if(sGroupName=="History"){ <br /> iHistoryID=iGroupCount; <br /> } <br /> // Align the label and group with the rest of the menu labels and groups. <br /> fnAlign(oNewLabel,oNewGroup); <br />} <br /> <br />// Align the menu labels and groups with each other. <br />function fnAlign(oLabel,oGroup){ <br /> oLabel.menustatus="closed"; <br /> oLabel.style.top=2; <br /> oLabel.style.left=75 * (iGroupCount-1) + 2; <br /> oGroup.style.top=oLabel.offsetHeight + oLabel.offsetTop+2; <br /> oGroup.style.left=oLabel.offsetLeft; <br /> oGroup.style.display="none"; <br />} <br /> <br />// Add new menu items. The iGroupID is 1 - #Menu Labels. The sItemName is what will be displayed. sItemAction is a function call that will be made when the item is clicked. sItemImage is an optional image to go with the menu item. The source is hard coded, so will have to be changed to your favorite graphics directory. Image extensions are hard coded as ".gif". <br />function fnAddMenuItem(iGroupId,sItemName,sItemAction,sItemImage){ <br /> // Increment the total number of menu items. <br /> iItemCount++; <br /> // Set the temporary image source to nothing. <br /> var sTmpSrc=""; <br /> // If the sItemImage is not defined, set the temporary image source to the default. <br /> if(sItemImage + ""=="undefined"){ <br /> sTmpSrc="canvas.gif"; <br /> } <br /> // If sItemImage is defined, set the temporary image source to the name plus ".gif". <br /> else{ <br /> sTmpSrc=sItemImage + ".gif"; <br /> } <br /> // Assign a variable to the group the menu item will be added to using the iGroupID. <br /> var oNewGroup=eval("oGroup" + iGroupId); <br /> // If there is no tilde in the menu item name, then continue. I used tildes in this case to identify special cases, such as the ~SPACER. <br /> if(sItemName.indexOf("~")==-1){ <br /> // Add the new menu item to the menu group. <br /> oNewGroup.innerHTML+='<span groupid=' + iGroupId + ' component="menuitem" id="oItem' + iItemCount + '" itemid=' + iItemCount + ' menuaction="' + sItemAction + '"> <img id="oItemImg' + iItemCount + '" src="/workshop/graphics/' + sTmpSrc + '" width=15 height=15 alt="">' + sItemName + '</span><br>'; <br /> // Assign a variable to the new menu item. <br /> var oNewItem=eval("oItem" + iItemCount); <br /> // Set the default styles for the new menu item. <br /> oNewItem.style.fontSize="12"; <br /> oNewItem.style.cursor="hand"; <br /> oNewItem.style.backgroundColor="#000000"; <br /> oNewItem.style.color="#FFFFFF"; <br /> oNewItem.style.textDecoration="none"; <br /> oNewItem.style.marginLeft="5px"; <br /> oNewItem.style.width=parseInt(oNewGroup.currentStyle.width) - 15; <br /> oNewItem.style.border="1 solid"; <br /> oNewItem.style.borderColor="#000000"; <br /> } <br /> // If there was a tilde, and if the name is ~SPACER, then just add a horizontal rule. <br /> if(sItemName=="~SPACER"){ <br /> oNewGroup.innerHTML+='<hr>'; <br /> } <br />} <br /> <br />/* These functions provide the ACTION for menu items. */ <br /> <br />function fnNote1(){ <br /> oScratch.innerHTML=sScratchInclude; <br /> oScratch.innerHTML+="<b>Letter to Mom</b><p><span style='font-family: Tahoma'>Dear Mom,<p>College is real swell. Thanks for the preserves.<p>Say, mom, did Dad tell you I called last week? Yeah, A bunch of us are driving down to the dunes next week for a class project and I have to bring the <span style='text-decoration: underline line-through;'>beer</span> (lousy pen .. beans, it should read <span style='text-decoration: underline;'>beans</span>). When you send it, remember to sign your maiden name so it doesn't look like my mother is sending me money. Thanks mom. Lots of love, Herbie.<p><b>PS: </b> Regular mail is good. Next day air is better</b></span>"; <br /> oScratch.style.display="block"; <br />} <br />function fnNote2(){ <br /> oScratch.innerHTML=sScratchInclude; <br /> oScratch.innerHTML+="<b>Letter to Herbie</b><p><span style='font-family: Tahoma'>Dear Herbert,<p>I'm glad to hear that you're making so many new friends. Your father and I were worried about culture shock so thought that this weekend would be a great time for a surprise visit. I know this is short notice, but we just thought it would be a great opportunity. We're very exciting about meeting your teachers and friends; isn't this the weekend of your class project? We could go there with you and meet everyone. It will be a grand time.<p>Everyone here is fine. Your sister made the cheer leading squad, so why don't you call her or send her a card and congratulate her. Your father is doing well. Still no word from the cable company so he has to live with only eight channels. Anyway, I have a pot roast in the oven. By the way, your grandmother may decide to drop in on you in a few weeks, so your father and I may plan on a second 'surprise' visit. Be a good boy.<p>Love Mom.</span>"; <br /> oScratch.style.display="block"; <br />} <br />function fnNote3(){ <br /> oScratch.innerHTML=sScratchInclude; <br /> oScratch.innerHTML+="<b>Grocery List</b><p><span style='font-family: Tahoma'><ul><li>Chips<li>Cookies<li>Smoked cheddar<li>Any frozen stuff<li>Pop<li>Stamps</ul><p><b>Note to self:</b> <i>Bring mom's Credit Card # to pay for it!</i></span>"; <br /> oScratch.style.display="block"; <br />} <br />function fnNote4(){ <br /> oScratch.innerHTML=sScratchInclude; <br /> oScratch.innerHTML+="<b>Herbie's List of Certificates</b><p><ul><li>CPR Certified<li>Water Safety Qualified<li>Emergency Medical Certified.<li>Certified Channel 2 Kids Club Member(expired)</ul></span>"; <br /> oScratch.style.display="block"; <br />} <br /> <br />function fnSearch(){ <br /> var aSearch=new Array(); <br /> var aThrash=new Array(); <br /> aSearch[aSearch.length]="AltaVista|http://www.altavista.digital.com"; <br /> aSearch[aSearch.length]="Infoseek|http://www.infoseek.com"; <br /> aSearch[aSearch.length]="Lycos|http://www.lycos.com"; <br /> aSearch[aSearch.length]="Yahoo!|http://www.yahoo.com"; <br /> oScratch.innerHTML=sScratchInclude; <br /> oScratch.innerHTML+="<b>Search Engines (" + aSearch.length + ")</b><p>"; <br /> for(var i=0;i<aSearch.length;i++){ <br /> aThrash=aSearch[i].split("|"); <br /> oScratch.innerHTML+='<a href="' + aThrash[1] + '">' + aThrash[0] + '</a><br>'; <br /> } <br /> oScratch.style.display="block"; <br />} <br /> <br />function fnSearch2(){ <br /> var aSearch2=new Array(); <br /> var aThrash=new Array(); <br /> aSearch2[aSearch2.length]="Microsoft's Web Site|http://search.microsoft.com/"; <br /> oScratch.innerHTML=sScratchInclude; <br /> oScratch.innerHTML+="<b>Search Engines (" + aSearch2.length + ")</b><p>"; <br /> for(var i=0;i<aSearch2.length;i++){ <br /> aThrash=aSearch2[i].split("|"); <br /> oScratch.innerHTML+='<a href="' + aThrash[1] + '">' + aThrash[0] + '</a><br>'; <br /> } <br /> oScratch.style.display="block"; <br />} <br /> <br />function fnRandomNonsense(){ <br /> var aNonsense=new Array(); <br /> aNonsense[aNonsense.length]="The Book of Random Nonsense (volume 1)"; <br /> aNonsense[aNonsense.length]="Random Nonsense: Book II"; <br /> aNonsense[aNonsense.length]="Random Nonsense for the Whole Family"; <br /> aNonsense[aNonsense.length]="Another Book of Random Nonsense"; <br /> aNonsense[aNonsense.length]="The Condensed Book of Random Nonsense"; <br /> aNonsense[aNonsense.length]="Random Nonsense: The Comic Book"; <br /> aNonsense[aNonsense.length]="Random Nonsense: The Movie (coming this summer)"; <br /> aNonsense[aNonsense.length]="Random Nonsense Forever"; <br /> aNonsense[aNonsense.length]="Random Nonsense For Kids"; <br /> aNonsense[aNonsense.length]="Saturday Morning Random Nonsense"; <br /> aNonsense[aNonsense.length]="Volume 92 of Political Random Nonsense (8th Release)"; <br /> aNonsense[aNonsense.length]="The Great Big Book of Random Nonsense"; <br /> oScratch.innerHTML=sScratchInclude; <br /> var iRand=parseInt(Math.random()*aNonsense.length); <br /> oScratch.style.display="block"; <br /> oScratch.innerHTML+="<b>Random Nonsense is Coming! #" + iRand + " of " + aNonsense.length + "</b><p>"; <br /> oScratch.innerHTML+="<i>" + aNonsense[iRand] + "</i>"; <br /> oScratch.innerHTML+="<hr>"; <br /> oScratch.innerHTML+='<p><a href="javascript:fnRandomNonsense()">More Nonsense!</a>'; <br />} <br /></SCRIPT> <br /><!-- SAMPLE_STYLE_START --><LINK <br />href="Mouse Capture Menu Sample #3_files/basicSDKIE4.css" type=text/css <br />rel=stylesheet><!-- SAMPLE_STYLE_END --><!--TOOLBAR_START--><!--TOOLBAR_EXEMPT--><!--TOOLBAR_END--> <br /><META content="MSHTML 6.00.2800.1141" name=GENERATOR></HEAD> <br /><BODY vLink=#808080 aLink=#000000 link=#000000 bgProperties=fixed <br />bgColor=#ffffff leftMargin=0 topMargin=0 onload=fnInit()> <br /><BLOCKQUOTE class=body><!-- CONTENTS_START --> <br /> <DIV class=menucontainer id=oMenuContainer onmouseover=fnHighlight() <br /> onclick=fnSwitchMenu() onmouseout=fnHighlight()></DIV> <br /> <DIV style="POSITION: absolute; TOP: 50px"> <br /> <H1>Mouse Capture Menu Sample #3</H1> <br /> <P>This sample uses the mouse capture functionality of Microsoft® Internet <br /> Explorer 5 and later. The menu at the top of the page will use the <br /> <B>setCapture</B> method when a menu item is opened. While the menu has mouse <br /> capture, all <B>onclick</B>, <B>onmouseover</B>, and <B>onmouseout</B> events <br /> will go through the functions defined on the menu for these events.</P> <br /> <P>When any menu item is clicked, or when any object outside the menu is <br /> clicked, the <B>releaseCapture</B> method will be used to remove mouse capture <br /> from the menu. </P></DIV><!-- CONTENTS_END --> <br /> <DIV <br /> style="POSITION: relative; TOP: 200px"><!-- START_PAGE_FOOTER --><BR><BR><BR>© <br /> <A class=clsIncCpyRt <br /> href="http://www.microsoft.com/isapi/gomscom.asp?TARGET=/info/cpyright.htm" <br /> target=_top>2005 Microsoft Corporation. All rights reserved. Terms of use</A>. <br /><!-- END_PAGE_FOOTER --></DIV></BLOCKQUOTE></BODY></HTML> <br />

Intel Web Design Effect 9 membuat efek api

Buat tag HTML,HEAD dan SCRIPT
Copy dan paste rumus di bawah ini pada tag SCRIPT LANGUAGE=VBSCRIPT:

sub window_onload
screen.bufferDepth=-1
Call doThem()
Call doInit()
end sub

sub dodetach
theTetonImg.filters.item("IntelAdditive").enabled=false
end sub

sub doThem
theTetonImg.filters.item("IntelAdditive").enabled=true
theTetonImg.filters.item("IntelAdditive").GenerateSeed=1
end sub

sub doInit
theTetonImg.filters.item("IntelAdditive").NoiseScale=8
theTetonImg.filters.item("IntelAdditive").NoiseOffset=-40
theTetonImg.filters.item("IntelAdditive").ScaleX=2
theTetonImg.filters.item("IntelAdditive").ScaleY=2
theTetonImg.filters.item("IntelAdditive").ScaleT=3
theTetonImg.filters.item("IntelAdditive").TimeY=2

theTetonImg.filters.item("IntelAdditive").Harmonics=4
theTetonImg.filters.item("IntelAdditive").ColorKey=65280
theTetonImg.filters.item("IntelAdditive").Alpha=0
theTetonImg.filters.item("IntelAdditive").MaskMode=1
end sub

sub OnTetonPokeEffect
n=theTetonImg.filters.item("IntelAdditive").NoiseScale
theTetonImg.filters.item("IntelAdditive").NoiseScale=n
end sub

sub theTetonImg_OnFilterChange
Call SetTimeout("OnTetonPokeEffect",400)
end sub

Setelah itu buat tag BODY
Copy dan Paste kode di bawah ini pada tag IMG
src=awan.bmp width=500 height=140 id="theTetonImg" style="filter:IntelAdditive(enabled=false)"

Anda membutuhkan file awan.bmp supaya terlihat animasi, buat file gambar bmp di
Start, Accessories, Paint. Gunakan warna hijau pada gambar tersebut. Bila tidak ada animasi
ganti oleh warna merah.

Jalankan program di atas di Internet Explorer versi 5.0 pada windows XP.

Intel Web Design Effect 8

Buat tag HTML,HEAD dan SCRIPT
Copy dan paste rumus di bawah ini pada tag SCRIPT LANGUAGE=VBSCRIPT:

sub window_onload
screen.bufferDepth=-1
Call doThem()
Call doInit()
end sub

sub dodetach
theTetonImg.filters.item("IntelAdditive").enabled=false
end sub

sub doThem
theTetonImg.filters.item("IntelAdditive").enabled=true
theTetonImg.filters.item("IntelAdditive").GenerateSeed=2
end sub

sub doInit
theTetonImg.filters.item("IntelAdditive").NoiseScale=10
theTetonImg.filters.item("IntelAdditive").NoiseOffset=80
theTetonImg.filters.item("IntelAdditive").ScaleX=4
theTetonImg.filters.item("IntelAdditive").ScaleY=2
theTetonImg.filters.item("IntelAdditive").ScaleT=3
theTetonImg.filters.item("IntelAdditive").TimeY=-1
theTetonImg.filters.item("IntelAdditive").TimeX=-4
theTetonImg.filters.item("IntelAdditive").Harmonics=4
theTetonImg.filters.item("IntelAdditive").ColorKey=65280
theTetonImg.filters.item("IntelAdditive").Alpha=1
theTetonImg.filters.item("IntelAdditive").MaskMode=1
end sub

sub OnTetonPokeEffect
n=theTetonImg.filters.item("IntelAdditive").NoiseScale
theTetonImg.filters.item("IntelAdditive").NoiseScale=n
end sub

sub theTetonImg_OnFilterChange
Call SetTimeout("OnTetonPokeEffect",400)
end sub

Setelah itu buat tag BODY
Copy dan Paste kode di bawah ini pada tag IMG
src=awan.bmp width=500 height=140 id="theTetonImg" style="filter:IntelAdditive(enabled=false)"

Anda membutuhkan file awan.bmp supaya terlihat animasi, buat file gambar bmp di
Start, Accessories, Paint. Gunakan warna hijau pada gambar tersebut. Bila tidak ada animasi
ganti oleh warna merah.

Jalankan program di atas di Internet Explorer versi 5.0 pada windows XP.