Monday, April 16, 2012

btnDelete for ClientServers

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim cmdStudent As New SqlCommand Dim daStudent As New SqlDataAdapter Dim dsStudent As New DataSet Dim dtStudent As New DataTable conn = GetConnect() conn.Open() cmdStudent = conn.CreateCommand cmdStudent.CommandText = "Delete from UniversityStudent where Studentid = '" & Trim(txtSID.Text) & "'" intcheck = cmdStudent.ExecuteReader.RecordsAffected If intcheck > 0 Then MsgBox("Record Deleted") Else MsgBox("No Records Deleted") End If conn.Close() RefreshDataGrid() End Sub

Client Servers Final Add Edit Delete

Client Servers Final Add Edit Delete:
http://www.box.com/s/bd7533e04f836df67075

Sunday, April 15, 2012

Final Client Servers

http://www.box.com/s/2843e0ebd3055ee86117

Thursday, April 12, 2012

asdjfioashdfuauipshfuiphas

 use dchotel35




SELECT ResID, Arrival_Date, Departure_Date, RoomID

FROM Reservation

WHERE Eeservations.Arrival_Date > @dtpStart AND Reservations.Departure_Date < dtpEnd

ORDER BY RoomID