validar una consulta sql

[oskar5]

hola a todos tengo el siguiente problema,
tengo un programa con el que quiero calcular la diferencia de tiempo entre una fecha-hora y otra fecha-hora de dos campos en elmismo form y tengo la siguiente consulta para verificar si los que acabo de meter son rangos que ya existen en la base de datos... luego de verificar quiero cancelar el proceso de guardado pues para dar un mensaje de advertencia q no se puede guardar y q intenten otra fecha

Código:

Dim strConexion As String
        Dim SQL As String
        Dim msq As New SqlCommand
        Dim reader As SqlDataReader
        Dim fecprog As String
        Dim feconfirm As String

        fecprog = Format(CDate(txtfechaprog.Value), "yyyy-MM-dd hh:mm")
        feconfirm = Format(CDate(txtconfirm.Value), "yyyy-MM-dd hh:mm")

        strConexion = "Server=" & "OSKAR-PC\desarrollo" & ";Initial Catalog=" & "ClinicTurnos" & ";" & "Integrated Security=True;"

        ObjConexionSql = New SqlConnection(strConexion)
       

        SQL = "SELECT FechaProg, FechaConfirm FROM Cirugias WHERE FechaProg >= convert(datetime, '" & fecprog & "', 102) and FechaConfirm <= convert(datetime, '" & feconfirm & "', 102)"

imaginandome entonces como puedo validar esto lo he puesto en un IF pero todo me saca error... no deja guardarlo q es lo que deseo pero se daña todo y saca errores no se que hacer... ayuda no soy tan bueno en esto

Código:

  msq.CommandText = SQL
        msq.Connection = ObjConexionSql
        ObjConexionSql.Open()
        reader = msq.ExecuteReader()

       
        If SQL = False Then
            Exit Sub

        End If

[edbc92]

Haber primero, en tu consulta iguala tus campos:

Código VBasic:

SQL = "SELECT FechaProg, FechaConfirm FROM Cirugias WHERE FechaProg = convert(datetime, '" & fecprog & "', 102) and FechaConfirm = convert(datetime, '" & feconfirm & "', 102)"
 

Y en tu condición debería de ser así:

Código VBasic:

If reader.HasRows Then
MsgBox("Inserte otra fecha")
Exit Sub
End If
 

Solo le estas diciendo si es que tu consulta realizada encuentra algunas filas en la bd entonces que te mande un mensaje diciendo que las fechas coinciden y son iguales...

P.D: lo que si no entiendo es por qué pones( convert(datetime,""& fecprog&"'",102)"...102? ....