Bueno tengo una conexión a una base de datos, esta base de datos cuenta con dos tablas. Tabla Pacientes y Tabla Consultas, el problema que tengo es en la tabla consultas.
Tabla pacientes con campo clave
- Paciente *
- Foto
- FechaNacimiento
- Domicilio
- Telefono
- FechaRegistro
- Padre
- PadreOcupacion
- Madre
- MadreOcupacion
- PediatraOMedicoFamiliar
- HermanosNombresEdades
Tabla Consultas sin campo clave
- Paciente
- Fecha
- TipoTratamiento
- Motivo
- CostoTotal
- Inicio
- Mensualidad
- MensualidadActual
- TotalMensualidad
- Abonos
- Adeudo
- Estado
En la tabla pacientes puedo agregar y eliminar como si nada, pero la tabla consultas que originalmente la agregue sin un campo clave he tenido muchos problemas, uno de ellos era para subir datos, tuve que copiar el código UPDATE de la tabla pacientes y remplazar los campo por los campos de la tabla consultas, trate de repetir el procedimiento en DELETE, sin embargo, me arroja el error "No coinciden los tipos de datos en la expresión de criterios".
Todo se maneja a través de los comandos creados por default de Visual Basic.
Código CommandDelete
Código:
DELETE FROM Consultas
WHERE (Paciente = ?) AND (? = 1 AND Fecha IS NULL OR
Fecha = ?) AND (? = 1 AND TipoTratamiento IS NULL OR
TipoTratamiento = ?) AND (? = 1 AND Motivo IS NULL OR
Motivo = ?) AND (? = 1 AND CostoTotal IS NULL OR
CostoTotal = ?) AND (? = 1 AND Inicio IS NULL OR
Inicio = ?) AND (? = 1 AND Mensualidad IS NULL OR
Mensualidad = ?) AND (? = 1 AND MensualidadActual IS NULL OR
MensualidadActual = ?) AND (? = 1 AND TotalMensualidad IS NULL OR
TotalMensualidad = ?) AND (? = 1 AND Abonos IS NULL OR
Abonos = ?) AND (? = 1 AND Adeudo IS NULL OR
Adeudo = ?) AND (? = 1 AND Estado IS NULL OR
Estado = ?)