Visual Basic

kostasdiktia2 wrote:

I know the way to send these values by code, I dont know how I make the connection with the .xls file!

xlBook = xlApp.Workbooks.Open("C:\whatever.xls")

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