Switch between Access app and VBA code: ALT + F11

1. Open Access and click the "Tables" tab.
2. Right click in the white space.
3. Click "Link Tables".
4. In the "Files of Type" box click on "ODBC databases" (last item in list).
5. Click the "System DSN" or "Machine Data Source" Tab at the top.
6. Find your DSN.
7. Double click it and Key in the Same Login and password.

For small text corrections: select Tools > Advanced Editing > Touchup Text Tool. Then select the 
text to correct, and type over it. Note that it is for "touch ups" and not for adding whole new 
lines of text.

If you receive the error "All or part of the selection has no available system fonts...", you can select the text,
click 'Properties' and change the font on the 'Text' tab.

type *.asp > test.txt

Paste clipboard contents...

right click on cursor and select paste (can just right click in KornShell)

1. Click Start, click All Programs, click Microsoft Exchange, and then click System Manager
2. Expand Servers, expand Servername, expand Protocols, and then expand SMTP
3. Right-click Default SMTP Virtual Server and then click Properties
4. Click the Access tab
5. Click the Relay button at the bottom

import java.applet.*;
import java.awt.*;

/**
 * The HelloWorld class implements an applet that
 * simply displays "Hello World!".
 */
public class HelloWorld extends Applet {
    public void paint(Graphics g) {
        String msg = "Hello World!";
        g.drawString(msg, 50, 25);
    }
}

<applet code="HelloWorld.class" width="150" height="25" VIEWASTEXT>>

import java.applet.*;
import java.awt.*;

/**
 * The MsgBody class implements an applet that
 * displays a param value.
 */
public class MsgBody extends Applet {
	String msg;

	public void init() {
		msg = getParameter("msg");
		setBackground(Color.white);
	}

    public void paint(Graphics g) {
    	g.drawString(msg, 50, 25);
    }
}

<applet code="MsgBody.class" width="150" height="25" VIEWASTEXT>
	<param name="msg" value="Howdy there!">
</applet>

receipt.asp/?RefNumber=1234

MID($A2,1,(SEARCH(" ",A2,1)))

Sub one()
    Dim original, name, streetnum, street, city, state, zip, phone, address
    Dim AddressArray
    
    'Range("a1").Activate
    original = ActiveCell.Value
    
    While Len(original) > 0
            AddressArray = Split(original, ",")
            name = AddressArray(0)
            address = AddressArray(1)
            city = AddressArray(2)
            state = AddressArray(3)
            zip = AddressArray(4)
            phone = AddressArray(5)
            ActiveCell.Value = original
            ActiveCell.Offset(0, 1).Value = name
            ActiveCell.Offset(0, 2).Value = address
            ActiveCell.Offset(0, 3).Value = city
            ActiveCell.Offset(0, 4).Value = state
            ActiveCell.Offset(0, 5).Value = zip
            ActiveCell.Offset(0, 6).Value = phone
            ActiveCell.Offset(1, 0).Activate
            original = ActiveCell.Value
    Wend
End Sub

Tools > Options > Spelling & Grammar tab > Uncheck "Check spelling as you type" 
and uncheck "Check grammar as you type" > Ok.

-- View
Database / Schema Browser

-- Edit Proc
-- 1.
right click on proc / Load In Procedure Editor / Load Head Only

-- 2.
right click on proc / Load In Procedure Editor / Load Body Only

SELECT employee_id, first_name, 
FROM employees 
WHERE employee_id IN (:0,:1,:2)

SELECT prgm_id ||' - '|| prgm_description AS "Program"
FROM programs

-- In Oracle/PLSQL, the NVL function lets you substitute a value when a null value is encountered.
NVL( string1, replace_with )

-- ORACLE SP
PROCEDURE PO_VOLUMES_GET
	(p_BEGIN_PERIOD NUMBER,
	p_END_PERIOD NUMBER,
	p_BILL_CUST_ID VARCHAR2,
	p_RESULT OUT NUMBER)
		 
IS

BEGIN

SELECT ytd_vol INTO p_RESULT
FROM 
...;

END PO_VOLUMES_GET;


' VB.Net 2.0 Code
Public Function TIER1_VOLUMES_GET(ByVal BILL_CUST_ID As String, _
                                  ByVal BEGIN_PERIOD As Integer, _
                                  ByVal END_PERIOD As Integer) As String
                                  
	Dim BEGIN_PERIODVal As Object = OracleClient.OracleNumber.Null
	Dim END_PERIODVal As Object = OracleClient.OracleNumber.Null
	Dim BILL_CUST_IDVal As Object = OracleClient.OracleString.Null
	Dim f_sReturn As String = String.Empty

	BEGIN_PERIODVal = BEGIN_PERIOD
	END_PERIODVal = END_PERIOD
	NEW_RATE_STRUCTURE_BPVal = NEW_RATE_STRUCTURE_BP
	If Not BILL_CUST_ID Is Nothing Then
		BILL_CUST_IDVal = BILL_CUST_ID
	End If
    
	Using TempConnection As New OracleClient.OracleConnection(Me.Connection.ConnectionString)
		Dim TempCommand As New OracleClient.OracleCommand("12B_INVOICE.PO_TIER1_VOLUMES_GET", TempConnection)

		TempCommand.CommandType = CommandType.StoredProcedure

		TempCommand.Parameters.Add(New OracleClient.OracleParameter("p_BEGIN_PERIOD", BEGIN_PERIODVal))
		TempCommand.Parameters.Add(New OracleClient.OracleParameter("p_END_PERIOD", END_PERIODVal))
		TempCommand.Parameters.Add(New OracleClient.OracleParameter("p_BILL_CUST_ID", BILL_CUST_IDVal))
		TempCommand.Parameters.Add(New OracleClient.OracleParameter("p_RESULT", _
			OracleClient.OracleType.Number)).Direction = ParameterDirection.Output

		TempConnection.Open()

		TempCommand.ExecuteNonQuery()

		f_sReturn = TempCommand.Parameters("p_RESULT").Value.ToString
	End Using

	Return f_sReturn
End Function

SELECT to_date('20081025','yyyy/mm/dd')

CURSOR c12B_CUST_REL IS SELECT DISTINCT cust_id
	FROM 12B_CUST
	WHERE cust_id IN
	(SELECT cust_id
	FROM 12B.12B_cust_accting)
	ORDER BY cust_id;

strAgencyID 12B_CUST_REL.BILL_CUST_ID%TYPE;

OPEN c12B_CUST_REL;

	LOOP

		FETCH c12B_CUST_REL INTO strAgencyID;
		EXIT WHEN c12B_CUST_REL%NOTFOUND;

		nTestSeqNum := nTestSeqNum + 1;

		INSERT into 12B_inv (inv_num, inv_num_ver, bill_cust_id)
		VALUES (9, 0, 'A');

	END LOOP;

CLOSE c12B_CUST_REL;

- 2 ActivePerl versions: 5.8.7.813 & 5.6.1.638 (Choose 5.8.7.813) 

- 2 Windows Installs: AS Package & MSI (choose MSI) 

1. Create a cirlce by using the Elliptial Marque Tool (hold shift key)
2. edit > stroke

1. CREATE two layers; one containing a person (no colored background), one conating back color such as orange
2. RIGHT CLICK on Layer 1 (photo of person), SELECT Layer Options
3. Under Opacity, change it to 50% instead of 100%

1. Select the layer.
2. On left palette select gradient tool.
3. On top left you will have Gradient Tool properties. Select "linear gradient" if it is not default.
4. Make sure that your foreground color is set to the color to which you wish it to fade. In this case it is white.
5. Select a point on your image, click, hold and drag your mouse in the direction OPOSITE to which it should fade.

image > adjust > invert

' Standard EXE

Private Sub Command1_Click()
	Dim x As Integer
	x = 5

	MsgBox (x)
End Sub

' Active X DLL
Public Function Test() As Boolean
	Dim x As Integer
	x = 5
	Debug.Print (x)
	Test = True
End Function

' Run in command window
Set objTest = new Class1
call objTest.Test


' Create dll
- File/Make Project1.dll
- Project/Properties/General Tab - chk Unatended execution
- Project/Properties/General Tab - chk Retained In Memory
- Project/Properties/Make Tab - chk Auto Increment Version Number
- Project/Properties/Compile Tab - clk Advanced Optimizations - chck All


' Add To SourceSafe
- Tools/Source Safe/Add Project To Source Safe

' Run with ASP 3.0
Dim objProject1 : Set objProject1 = Server.CreateObject("Project1.Class1")
f_bRet = objProject1.Test()
Response.Write(f_bRet)
Set objProject1 = Nothing

- F5 = run
- CTRL/F9 = jump, skip when run
- SHIFT/F8 = skip function
- SHIFT/F9 = quick watch (see values)
- SHIFT/F2 = set cursor in method call, jump to method
- CTRL/SHIFT/F9 = Remove all breakpoints
- CTRL/SHIFT/F8 = Jump out of function

c:\windows\system32\regsvr32.exe

When registering the dll's use the following command...
regsvr32 mydll.dll

(make sure you are in the directory where the dll is and needs to be registered)

also
regsvr32.exe /s dll name

Start\Administrative Tools\Active Directory Users and Computers

- Each pool has own w3wp process

- view all app pools
iisapp

- view running applications by process ID
iisapp /p 2608

iisreset

iisreset /stop
iisreset /start

C:\WINDOWS\system32\cscript.exe C:\Work\VBScripts\UpdateContacts.vbs