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:
0 comments: