| Respuesta: asignar estados segun el usuario
hola
pues mira lo deje asi
estadosuser = Session("IDESTADOS".ToString)
consulta3 = "select id_estados from USUARIO where id_estados = " & estadosuser & ""
dtUsuario = ExecuteQueryDataTable(consulta3)
txtestado.Text = dtUsuario.Rows(0)("id_estados").ToString
y funciona
gracias por responder pues no quedo como queria pero bueno.
tengo una pregunta es que me sale un error en un pedazo de codigo que tengo me podrias ayudar
es este el codigo es para insertar un registro
If Exists(id_area) Then
Dim result As Boolean = Insert(ddlconsecutivo.Text, txtidarea.Text, txtfecha.Text, txtcantidad0.Text, DropDownList2.Text, txtidenti.Text, txtobservacion.Text, txtestado.Text)
If result Then
Response.Write("El registro se ha ingresado correctamente.")
End If
End If
End Sub
Private Function Insert(ByVal id_solicitud As Integer, ByVal id_area As String, ByVal fecha As DateTime, ByVal cantidad_solicitada As String, ByVal id_materiales As String, ByVal id_usuario As Integer, ByVal observaciones As String, ByVal id_estados As String) As Boolean
Dim sql As String = "INSERT INTO SOLICITUD(id_solicitud ,id_area,fecha,cantidad_solicitada,id_materiales,i d_usuario,observaciones,id_estados) VALUES (@id_solicitud, @id_area, @fecha, @cantidad_solicitada, @id_materiales, @id_usuario, @observaciones, @id_estados)"
Using conn As New SqlConnection("Data Source=STEFANNY-HERRER\SQLEXPRESS;Initial Catalog=papeleria;User ID=admin;Password=rscorp2011")
Dim Nextid_solictud As Integer = Maxid_solicitud() + 1
Dim command As New SqlCommand(sql, conn)
command.Parameters.AddWithValue("@id_solicitud", Nextid_solictud)
command.Parameters.AddWithValue("@id_area", id_area)
command.Parameters.AddWithValue("@fecha", fecha)
command.Parameters.AddWithValue("@cantidad_solicit ada", cantidad_solicitada)
command.Parameters.AddWithValue("@id_materiales", id_materiales)
command.Parameters.AddWithValue("@id_usuario", id_usuario)
command.Parameters.AddWithValue("@observaciones", observaciones)
command.Parameters.AddWithValue("@id_estados", id_estados)
conn.Open()
Dim rowsAffected As Integer = command.ExecuteNonQuery()
If rowsAffected > 0 Then
Return True
Else
Return False
y este es el error sale en esta parte del codigo
Dim result As Boolean = Insert(ddlconsecutivo.Text, txtidarea.Text, txtfecha.Text, txtcantidad0.Text, DropDownList2.Text, txtidenti.Text, txtobservacion.Text, txtestado.Text)
La conversión de la cadena "" en el tipo 'Integer' no es válida.
ojala me puedan ayudar
gracias |