Visual Basic

lesstraveled wrote:

If i were to use a control array for the checkboxes...can i still use the 'controls.add' to add new members to the array and to frame3 as in 'Set chkObject = frmEmployer.Controls.Add("VB.CheckBox", ctrlName, Frame3)'...? I do not believe that the 'load' statement will accomplish this.

Dim newControl As New CheckBox
' setup the properties of the control here...
Me.Controls.Add(newControl)

 Dim i As Integer

 Set Check1(0).Container = Frame1
 Check1(0).Top = 10
 Check1(0).Left = 10


 For i = 1 To 10
     Load Check1(i)
     Set Check1(i).Container = Frame1
     Check1(i).Left = 10
     Check1(i).Top = Check1(i - 1).Top + Check1(i).Height
     Check1(i).Visible = True
Next

Public Function count(ByVal search As String, ByVal startDate As String, ByVal endDate As String) As Integer<br />
        Dim number As Integer<br />
        Dim pubs As New SqlConnection(ConfigurationManager.ConnectionStrings("WIA_Report_Builder.My.MySettings.wiaConnectionString").ConnectionString)<br />
        'pubs = ConfigurationManager.ConnectionStrings("wiaconnectionstring")<br />
        'pubs.ConnectionString = ConfigurationManager.ConnectionStrings("WIA_Report_Builder.My.MySettings.wiaConnectionString").ConnectionString<br />
        Dim connection As DbConnection = New SqlConnection()<br />
        connection.ConnectionString = pubs.ConnectionString<br />
        Dim cmd As DbCommand = connection.CreateCommand()<br />
        cmd.CommandType = CommandType.Text<br />
        Select Case search<br />
            Case "TotalAdultPart"<br />
                cmd.CommandText = "Select Count (*) from Demographics where AgeatEnroll >= 22"<br />
                Try<br />
                    connection.Open()<br />
                    number = cmd.ExecuteScalar<br />
<br />
                Catch ex As Exception<br />
                Finally<br />
                    connection.Close()<br />
                End Try<br />
....<br />
<br />
 End Select<br />
        Return number<br />
<br />
end function<br />

Aptiva Dave wrote:

Dim pubs As New SqlConnection(ConfigurationManager.ConnectionStrings("WIA_Report_Builder.My.MySettings.wiaConnectionString").ConnectionString)