Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the '_4DdataDataSet.FreeSchedule' table. You can move, or remove it, as needed.
Me.FreeScheduleTableAdapter.Fill(Me._4DdataDataSet.FreeSchedule)
Me.FreeScheduleBindingSource.MoveNext()
cpdata()
ParseCurrentDateTime()
'Run the program
cn = New SqlConnection(myconn)
ds = New DataSet
dv = New DataView
Dim ad As New SqlDataAdapter("SELECT * FROM FreeSchedule WHERE (schedule_event_date <= '" & lblDate.Text & "') AND (schedule_central_time <= '" & lblTime.Text & "') AND (schedule_reminder_ampm = '" & lblampm.Text & "')", cn)
ad.Fill(ds, "FreeSchedule")
dv.Table = ds.Tables("FreeSchedule")
Me.DataGridView2.DataSource = dv
SendAndDelete()
End Sub
Sub ParseCurrentDateTime()
'Dim dateNow As String
Label9.Text = System.DateTime.Now
Dim parsedDateTime() As String = Split(Label9.Text) 'parsing the entire DateTime.Now into Date, Time, and AM/PM
Dim dateflag As String = parsedDateTime(0) 'Date - mm/dd/yyyy
Dim timeflag As String = parsedDateTime(1) 'Time - hh:mm:ss
Dim ampmflag As String = parsedDateTime(2) 'AM or PM
Dim parsedTime() As String = Split(timeflag, ":") 'parsing the Time into Hour, Minute, and Second
Dim timeHour As String = parsedTime(0) 'Hour
Dim timeMinute As String = parsedTime(1) 'Minute
Dim timeSecond As String = parsedTime(2) 'Second
Dim timeHourMinute As String = timeHour & ":" & timeMinute
If ampmflag = "PM" Then
ampmflag = "pm"
timeHour = timeHour + 12
Else
ampmflag = "am"
End If
lblampm.Text = ampmflag
lblDate.Text = dateflag
lblTime.Text = timeHourMinute
End Sub
Sub SendAndDelete()
Dim y As Integer
For y = 0 To (ds.Tables(0).Rows.Count - 1)
'First send the message
Dim number As String = ds.Tables(0).Rows(y).Item(4).ToString
Dim message As String = ds.Tables(0).Rows(y).Item(5).ToString
sendMessage("test@4DImpressions.com", number, "testing Free Text", message & " -- 4DImpressions.com")
'Then insert data into Free Audit Trail database table
Dim infoId As String = ds.Tables(0).Rows(y).Item(1).ToString
Dim cell As String = ds.Tables(0).Rows(y).Item(2).ToString
Dim datetimeEntered As String = ds.Tables(0).Rows(y).Item(3).ToString
Dim My2SQL As String = "Insert into FreeAuditTrail (info_id, cust_cell, schedule_date_entered, date_sent, schedule_message) VALUES ('" & infoId & "', '" & cell & "', '" & datetimeEntered & "', '" & Date.Now & "', '" & message & "')"
Dim Command2 As New SqlCommand(My2SQL, conn)
conn.Open()
Command2.ExecuteNonQuery()
conn.Close()
'Last, delete row from freeSchedule database table
Dim scheduleId As String = ds.Tables(0).Rows(y).Item(0).ToString
Dim MySQL As String = "DELETE FROM FreeSchedule WHERE (schedule_id = '" & ds.Tables(0).Rows(y).Item(0).ToString & "')"
Dim Command3 As New SqlCommand(MySQL, conn)
conn.Open()
Command3.ExecuteNonQuery()
conn.Close()
Next
Application.Exit()
End Sub
