Visual Basic

Private Sub btnsearch_Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click<br />
With New Form2<br />
.Show()<br />
    End With<br />
End Sub<br />

 Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click<br />
<br />
        Dim data As New dbAccess<br />
        Dim logNumber As Long<br />
        'data.GetAllChangeControl(CDate(txtdtrqst.Text), CDate(txttrgdt.Text), CDate(txttime.Text), txtrqstby.Text, txtprojname.Text, txtdscp.Text, txtusers.Text, txtdpt.Text)<br />
        logNumber = data.GetAllChangeControl<br />
        Dim srch As Change<br />
        srch.DateRequested = txtdtrqst.Text<br />
        srch.TargetDate = txttrgdt.Text<br />
        srch.Time = txttime.Text<br />
<br />
        'txtdtrqst.Text = srch.DateRequested<br />
<br />
    End Sub

<br />
<br />
    Public Function GetAllChangeControl() As String<br />
        Dim con As OleDbConnection<br />
        Dim cmd As OleDbCommand = New OleDbCommand<br />
<br />
        con = New OleDbConnection(connectionstring)<br />
        cmd.Connection = con<br />
<br />
        cmd.CommandText = "EXECUTE GetAllChangeControl"<br />
        con.Open()<br />
        GetAllChangeControl = CStr(cmd.ExecuteScalar()):mad:<br />
        con.Close()<br />
<br />
    End Function

shakizil wrote:

I am new to VB.Net and just want to get over with this stupid project.

Dave Kreskowiak wrote:

Why does this scream "HOMEWORK ASSIGNMENT"???

Roath Kanel wrote:

But sometime i have my own idea to build an application,

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged<br />
     Me.txttrgdt.Text = Me.DateTimePicker1.Value.ToString("MM/dd/yyyy")<br />
 End Sub

jonathan15 wrote:

but the built exe generates an error

Public Class Form1
    Public Sub New()
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        setupDetail.LoadValues()
        StartMe()
        'Add any initialization after the InitializeComponent() call
    End Sub
 
    Public Sub StartMe()
        For Each parkToChange In setupDetail.Parks
            SetAvail(parkToChange.ParkCode)
        Next
    End Sub
End Class
 
Public Class setupDetail
    Public Shared Property 
        blah, blah, blah
    End Property
 
    Public Shared LoadValues()
        Dim myparks As parks = New parks
        If Not mFirstRun Then
            Do While secureReader.Read
                Dim mypark As park = New park(secureReader.GetString(1), _
                    crypto.Decrypt(secureReader.GetString(3)), secureReader.GetString(0))
                myparks.Add(mypark)
            Loop
        Else
            ...
        End If
    End Sub
End Class