Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Private Sub btnRtvOutlook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRtvOutlook.Click
' *** Delete all records in databse, which has been uploaded today
Dim myConnection As New System.Data.SqlClient.SqlConnection(myConnString)
Dim myQuery As String = "DELETE FROM tblXIST_ESR_OPP WHERE DATEDIFF(day, UPLOAD_TIME, GETDATE()) = 0"
Dim myCommand As New System.Data.SqlClient.SqlCommand(myQuery, myConnection)
myCommand.Connection = myConnection
myCommand.Connection.Open()
myCommand.ExecuteScalar()
myCommand.Parameters.Clear()
myCommand.Connection.Close()
myConnection.Close()
' *** INSERT TODAYS OUTLOOK INFORMATION INTO THE DATABASE
Dim qs As String
'This one works perfectly at returns the Unit_Revenue__c result being "26000"
'qs = "SELECT Id, Unit_Revenue__c FROM Equipment_Data__c"
'This one also works and returns the deal type perfectly being "Cash"
'qs = "SELECT Id, Deal_Type__c FROM Equipment_Data__c"
'This one also works, and return both field being "26000 - Cash"
'qs = "SELECT Id, Unit_Revenue__c, Deal_Type__c FROM Equipment_Data__c"
'This one doesn't work, it only returns "- - 14-06-2012 11:09:59"
qs = "SELECT Id, Unit_Revenue__c, Deal_Type__c, CreatedDate FROM Equipment_Data__c"
Dim qr As apex.QueryResult = binding.query(qs)
If (qr.size = 0) Then
Else
For i As Integer = 1 To qr.records.GetUpperBound(0)
Dim equipment As apex.Equipment_Data__c = CType(qr.records(i), apex.Equipment_Data__c)
'*** HERE I NORMALLY HAVE A FUNCTION THAT RETURNS THE VALUES INTO A SQL DATABASE, BUT
'*** I HAVE CUT IT OUT TO REDUCE PLACES OF ERRORS AND ARE ONLY RETURNING VALUES IN MSGBOX
MsgBox(equipment.Unit_Revenue__c & " - " & equipment.Deal_Type__c & " - " & equipment.CreatedDate)
Next
End If
End Sub