19/05/2005, 16:54
|
 | | | Fecha de Ingreso: septiembre-2004 Ubicación: Mexico
Mensajes: 64
Antigüedad: 20 años, 5 meses Puntos: 0 | |
| es una funcion que me devuelve de la tabla de usuarios el id del usuario misma que utilizo para situarme dentro del dropdownlist e aqui el codigo
Public Function situa_status() As Integer
Dim myConnection As SqlConnection
Dim adaptador As New DataSet
myConnection = New SqlConnection("data source=desarrollo;initial catalog=dbmayorista;persist security info=False;user id=web;password=makmv540")
Dim sql As String = "SELECT * FROM Cata_Users WHERE ID_user = " & Session("datos_usu") & " "
Dim comando As New SqlDataAdapter(sql, myConnection)
comando.Fill(adaptador)
Dim reg As DataRow
reg = adaptador.Tables(0).Rows(0)
situa_status = reg("status_usuario")
DataBind()
myConnection.Close()
End Function |