Visual Basic

Dave Kreskowiak wrote:

New to VB6?

Private Sub cmdOk_Click()
    Dim conn As New Adodb.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Documents and Settings\db1.mdb"
    conn.Open

    Dim cmd As New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandText = "UPDATE FileTbl SET [date] = " & Me.txtData & " WHERE [Number]=" & Me.txtNum
    cmd.CommandType = adCmdText
    cmd.Execute
    Set cmd = Nothing

    conn.Close
    Set conn = Nothing

End Sub

I are Troll

Dim shapeArray(3, 2) As Integer
Dim containerWidth As Integer = 11
Dim containerHeight As Integer = 7

shapeArray(0, 0) = 5
shapeArray(0, 1) = 5

shapeArray(1, 0) = 2
shapeArray(1, 1) = 5

shapeArray(2, 0) = 1
shapeArray(2, 1) = 1

shapeArray(3, 0) = 5
shapeArray(3, 1) = 6

Dim totalArea As Integer = 0
For i As Integer = 0 To UBound(shapeArray)
    totalArea += (shapeArray(i, 0) * shapeArray(i, 1))
Next

If totalArea > (containerWidth * containerHeight) Then
    MsgBox("Shapes are unable to fit into container")
    Exit Sub
End If