03/06/2005, 15:18
|
 | | | Fecha de Ingreso: octubre-2004 Ubicación: Maracaibo, Venezuela
Mensajes: 314
Antigüedad: 20 años, 7 meses Puntos: 0 | |
| Function GetSQL(SQL,Param,Value,Type)
Select Case Type
Case "Cadena"
Return Replace(SQL, Param, "'" + Value + "'")
Case "Fecha"
Dim fechastring As String = "'" + Convert.ToDateTime(Value).Year.ToString + "-" + Convert.ToDateTime(Value).Month.ToString + "-" + Convert.ToDateTime(Value).Day.ToString + "'"
GetSQL=Replace(SQL, Param, fechastring)
Case "FechaHora"
Dim fechahorastring As String = "'" + Convert.ToDateTime(Value).Year.ToString + "-" + Convert.ToDateTime(Value).Month.ToString + "-" + Convert.ToDateTime(Value).Day.ToString + " " + Convert.ToDateTime(Value).Hour.ToString + ":" + Convert.ToDateTime(Value).Minute.ToString + ":" + Convert.ToDateTime(Value).Second.ToString + "'"
GetSQL=Replace(SQL, Param, fechahorastring)
Case "Hora"
Dim horastring As String = "'" + Convert.ToDateTime(Value).Hour.ToString + ":" + Convert.ToDateTime(Value).Minute.ToString + ":" + Convert.ToDateTime(Value).Second.ToString + "'"
GetSQL=Replace(SQL, Param, horastring)
Case "Numero"
GetSQL=Replace(SQL, Param, Value)
End Select
End Function
__________________
Nada es verdad, nada es mentira, todo esta en el cristal con que lo miras. :si: |