Anónimo
Grabar con formato Hora de un text box (VB 6 y SQL)
Hola como hago para que al grabar con un insert el numero entero que se ingrese en un text box, ¿se guarde con formato hora...?
1 respuesta
Respuesta de Roberto Alvarado
1
Exactamente así me marca: error de compilación :Se esperaba fin de la instrucción...
Supongo que colocaste eso eso igual a como te lo envíe, debes asignar eso a tu textbox o a tu cadena en donde armas tu query sql
asi puse right( " 0 " & txtHoraIni.Text,2) & " : 00 "
Y en la BD lo tengo como fecha/hora al tipo de dato...
Y en la BD lo tengo como fecha/hora al tipo de dato...
si le agregastes los espacios que aparecen esta mal, es sin espacios
txtHora.text = right("0" & txtHoraini.text,2) & ":00"
Y txthora.text lo incluyes en la sentencia sql
txtHora.text = right("0" & txtHoraini.text,2) & ":00"
Y txthora.text lo incluyes en la sentencia sql
Así hago y me marca el primero cero como error y dice :error de sintaxis se esperaba fin de la instrucción...
ConsultaSQL "INSERT INTO TareasXEmpleados (legajo,idTarea,HoraIni,HoraFin,idDia,legajoCoordinador) VALUES (" & Val(txtLeg.Text) & "," & Val(cboTareas.ItemData(cboTareas.ListIndex)) & ", right("0"& txtHoraIni.Text,2)&":00 " ,right("0"&txtHoraFin.Text,2) & ":00" , " & Val(cboTareas.ItemData(cboTareas.ListIndex)) & " ," & Val(txtlegC.Text) & ")"
ConsultaSQL "INSERT INTO TareasXEmpleados (legajo,idTarea,HoraIni,HoraFin,idDia,legajoCoordinador) VALUES (" & Val(txtLeg.Text) & "," & Val(cboTareas.ItemData(cboTareas.ListIndex)) & ", right("0"& txtHoraIni.Text,2)&":00 " ,right("0"&txtHoraFin.Text,2) & ":00" , " & Val(cboTareas.ItemData(cboTareas.ListIndex)) & " ," & Val(txtlegC.Text) & ")"
Si tienes al instrucción sin espacios como se ve en el post esta mal
Debes colocar los espacios en donde van
Debes colocar los espacios en donde van