[pic]
CODE:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim j As String
Dim d As String
Dim rseat As Integer
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from airlines_ticket where pnr=" & Text1.Text
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
With rs
.Source = "Select * from airlines_ticket where PNR=" & Text1.Text
.Open
.Fields("STATUS") = "CANCELLED"
.Fields("CANCEL_DATE") = CDate(Text2.Text)
.Update
End With
MsgBox "TICKET CANCELLED", VBINFORMAION, "CANCEL"
Adodc1.RecordSource = "select* from irlines_ticket where pnr=" & Text1.Text
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
With rs
.Close
.Source = "select * from airlines_ticket where pnr=" & Text1.Text
.Open
d = .Fields("DESTINATION")
j = .Fields("JOURNEY_DATE")
End With
If d = "DELHI-BANKOK-DELHI" Then
With rs1
.Close
.Source = "select * from airlines_bankok where To_char(Journey_date,'fmMM/DD/YYYY')='" + j + "'"
.Open
rseat = .Fields("REMAIN_SEAT")
.Fields("REMAIN_SEAT") = rseat + 1
.Update
End With
ElseIf d = "DELHI-SINGAPORE-DELHI" Then
With rs1
.Close
.Source = "SLELECT * FROM AIRLINES_SINGAPORE WHERE TO_CHAR (JOURNEY -DATE,'fmMM/DD/YYYY')='" + j + "'"
.Open
rseat = .Fields("Remain_Seat")
.Fields("REMAIN_SEAT") = rseat + 1
.Update
End With
ElseIf d = "DELHI-BAHRAIN-DELHI" Then
With rs1
.Close
.Source = "select * from ailines_bhairain where TO_CHAR(JOURNEY_DATE,'fmMM/DD/YYYY')='" + j + "'"
.Open
rseat = .Fields("REMAIN_SEAT")
.Fields("REMAINS_SEAT") = rseat + 1
.Update
End With
ElseIf d = "DELHI-DUBAI-DELHI" Then
With rs1
.Close
.Source = "select* from airlines_dubai where To_Char(journey_date,'fmMM/DD/YYYY')='" + j + "'"
.Open
rseat = Fields("remain_seat")
.Fields("remain_seat") = rseat + 1
.Update
End With
ElseIf d = "DELHI-UK-DELHI" Then
With rs1
.Close
.Source = "SELECT *...