Qhaseh + Chenta

Ok ke desgin ni? Sila komen sket

Code:

OleDbConnection.open()
'OleDbCommand = New OleDbCommand("INSERT INTO PMRTable (PMRID, PMRDate, PMRTime, ReportID, PatientID, Level, Alergik, StatusReport, StatusMedication, MedDigo, MedAsprin, MedStrep, MedIso, DosMedDigo, DosMedAsprin, DosMedStrep, DosMedIso, TotalMedDigo, TotalMedAsprin, TotalMedStrep, TotalMedIso, PerDayMedDigo, PerDayMedAsprin, PerDayMedStrep, PerDayMedIso,TimeMedDigoAm, TimeMedDigoMid, TimeMedDigoPM, TimeMedAsprinAm, TimeMedAsprinMid, TimeMedAsprinPm, TimeMedStrepAm, TimeMedStrepMid, TimeMedStrepPm, TimeMedIsoAm, TimeMedIsoMid, TimeMedIsoPm, StartDate, ReminderDate, EndDate, DayDuration) VALUES ('" & txtPMRID.Text & "','" & todayDate.Text & "', '" & timeToday.Text & "', '" & txtRID.Text & "', '" & txtPID.Text & "', '" & txtRLevel.Text & "', '" & cmbAlergik.Text & "', '" & txtStatus.Text & "','" & txtStaMedi.Text & "','" & cbDigo.Text & "','" & cbAs.Text & "','" & cbStrep.Text & "','" & cbIso.Text & "','" & txtDosMedDigo.Text & "', '" & txtDosMedAsprin.Text & "', '" & txtDosMedStrep.Text & "', '" & txtDosMedIso.Text & "', '" & txtTotalMedDigo.Text & "','" & txtTotalMedAsprin.Text & "','" & txtTotalMedStrep.Text & "','" & txtTotalMedIso.Text & "','" & txtPerDayMedDigo.Text & "','" & txtPerDayMedAsprin.Text & "','" & txtPerDayMedStrep.Text & "','" & txtPerDayMedIso.Text & "','" & txtcbMedDigoAm.Text & "', '" & txtcbMedDigoMid.Text & "' , '" & txtcbMedDigoPM.Text & "', '" & txtcbMedAsprinAm.Text & "', '" & txtcbMedAsprinMid.Text & "', '" & txtcbMedAsprinPm.Text & "' , '" & txtcbMedStrepAm.Text & "', '" & txtcbMedStrepMid.Text & "', '" & txtcbMedStrepPm.Text & "', '" & txtcbMedIsoAm.Text & "', '" & txtcbMedIsoMid.Text & "', '" & txtcbMedIsoPm.Text & "', '" & txtStartDate.Text & "', '" & txtReminderDate.Text & "', '" & txtEndDate.Text & "','" & txtDayDuration.Text & "' )", OleDbConnection)

Record_Add = OleDbCommand.ExecuteNonQuery()


Interface



Error yang pus dicari solutionnya:

Siot, insert statement dikatakan salah. huhuh. jenuh dok trace x ketemu jua statement mne yg salah. rase da pairing da

Pelajaran hari ini
utk contruct code utk select tomorrow date dlm vb.net
txtNextDate.Text = DateTime.Today.AddDays(1)
Cth





Result