Connecting to an Access Database from Excel Using VBA

Sub GetMyData()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\josh\Investment.mdb;User id=admin;"
cn.Open

Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = cn
'cmd.CommandText = "Delete * From Clients Where FirstName='" & Range("E2") & "'"
cmd.CommandText = "Update Clients Set FirstName='John' Where SSN='111111111'"

cmd.Execute
Exit Sub

Dim rs As ADODB.Recordset
Set rs = cmd.Execute
Dim I As Integer
I = 1
While Not rs.EOF
Range("A" & I).FormulaR1C1 = rs("FirstName")
Range("B" & I).FormulaR1C1 = rs("LastName")
I = I + 1
rs.MoveNext
Wend
End Sub

Circular References In Excel, Pt 2

4) Circular References In Excel, part 4


5) Circular References In Excel, part 5


6) Circular References In Excel, part 6


7) Circular References In Excel, part 7

Circular References In Excel, Pt 1

Take-home Test to be posted later...

1: Circular References in Excel part 1:


1: Circular References in Excel part 2:


3: Circular References in Excel part 3:

A Homework

Ch 17, do the Progress towards a goal, and the Gantt chart.

Take home midterm #1

The midterm is available here.

Take home midterm

is still in development. Sorry.
:(
Check back later.

Schedule for coming weeks

Wednesday, Oct 8 -- no class
Monday, Oct 13 -- Columbus Day, no class
Tuesday, Oct 14 -- Monday schedule, but even so, no class
Wednesday, Oct 15 - no class
Monday, Oct 20 -- no class
Wednesday, Oct 22 -- no lab, but there will be lecture. (at 7:30 PM-8:20 PM)
Monday, Oct 27 -- there will be class