Uso de SQL en visual basic

[jrubio]

Hola hola amigos antes que nada y como este es mi primer POST en este foro ps dejenme decirles que el foro esta muy bueno y felicito a todos los creadores y por supuesto a toda la mara que lo conforma y lo hace viviv  .

bueno ahora si vamos al problema  la cosa es que la poca experiencia que tengo en base de datos la he tenido en acces y ps ahora no tengo eleccion de hacerlo en SQL bueno hacer la coneccion de manera asistida no fue problema las tablas almacenan de modifican y todo bien la cosa es esta que quiero hacer una consulta diferente a la que me permite el asistente.

en uno de los campos que posee la tabla varia en 2 opciones "Activo" o "Inactivo" y quiero mostrar en un DataGridView todos aquellos campos donde este la opcion "Activo" el problema es que con el asistente solo se puede mostrar toda la tabla mmmm o almenos no se como hacerlo jejeje

la consulta no es mi problema si siento que manejo lo basico como les digo trabaje algo con acces y ahy se ejecuntan las consultas SQL el problema que no se como trabajar con los datos de SQL en visual basic.

MUCHAS GRACIAS

SALUDOS.

[tekun]

por la forma en como estás trabajando, creo que una de las soluciones más faciles para tí es la siguiente:

en sql, debe de haber una herramienta que te permita realizar scripts, QueryAnalyzer (talvez te suene)... ahí escribe la siguiente consulta

create view registros_activos as 
select * from mi_tabla where estado ='activo'

luego en visual basic, usando siempre el asistente, te debe aparecer una tabla nueva llamada "registros_activos", de ahí ya sabes que sigue ....

si no aparece la tabla cierra visual basic e intentas nuevamente.

[jrubio]

Hola amigo muchas gracias por la ayuda cree la consulta todo bien nomas que no me aparecia en la aplicacion por mas que la actualizaba asi que conecte nuevamente la base de datos y por fin logre verla.

ahora bien cuando deseo visualizarla me da el siguiente error como podria hacer para solucionarlo. ?



Gracias

[fre_saga]

lo que te entiendo es que quieres mostrar los activos y inactivos en un datagrid vas amostrar los dos a la vez o como
por que puedes llenar el grid con los dos cuando muestres el frm y tienes 1 textbox para que te de la opción de llenarlo con solo activos o inactivos

[jrubio]

se mostraran en datagrid separados me funciono la forma de generar consultas de tekun.

el mensaje de error que coloque arriba lo solucione actualizando el frame.

SALUDOS

[jrubio]

Ahora bien y si deseo ejecutar una consulta dentro del visual como le hago ??

es decir que compare los valores de textboxt de esta manera no podria hacerla desde el SQL.

como por ejemplo el login tiene que comparar por poner un ejemplo el usuario y la contraseña con los valores que se encuentran en 2 textbox.

SALUDOS

[tekun]

El error que te dá es sencillamente, porque lo que has creado se llama una vista de los datos, estas ondas no son "actualizables" por sí solas.... porque eso es que te da el error el asistente al intentar generar el comand para el Update.. al menos eso es lo que entiendo del error....

pero eso sólo es importante si necesitas guardar valores modificados desde el gridView...

con lo otro del formulario login, te sugiero buscar ejemplos en google de formularios login en .net, para que despejes dudas generales, luego si te dá error asiste nuevamente a este foro....

o si algún comuniter te puede ayudar sería bueno para tí...

[jrubio]

si lo del erros ps ya lo sulucione era problema del frame instale la version 4.0 y ya no hay problema.

con lo demas ps lo que busco en si es saber como ejecutar consultas desde el visual y no desde el SQL es porq en muchos casos los datos que se desean comparar son tomados de textbox y eso me impide hacerlo desde el SQL.

SALUDOS

[jrubio]

ok conseguido por fin jejejeje

dejo el codigo por cualquiera que busque la misma ayuda

Dim conexion As New SqlClient.SqlConnection
        Dim comando As New SqlClient.SqlCommand
        Dim adaptor As New SqlClient.SqlDataAdapter
        Dim dataset As New DataSet

        conexion.ConnectionString = "Data Source=Nombre_servidor;Initial Catalog=Nombre_DB;Integrated Security=True"
        comando.CommandText = "SELECT * FROM [Table_Usuarios] WHERE (Login_Usuario='" + txtusuario.Text + "')AND (Contraseña='" + PasswordTextBox.Text + "') AND (Permisos='" + ComboBox1.Text + "');"
        conexion.Open()

        comando.Connection = conexion

        adaptor.SelectCommand = comando
        adaptor.Fill(dataset, "0")

        Dim con = dataset.Tables(0).Rows.Count

        If con > 0 Then
            Dim x As New Form1
            x.Show()
            Me.Close()

        Else
            MessageBox.Show("ERROR: Introduzca los datos nuevamente")
            txtusuario.Text = ""
            PasswordTextBox.Text = ""
        End If

SALUDOS

[Eramos]

Podria usarlo de esta forma, Usando un Funcion Tambien pasando solo los parametros a la Funcion


Function Verifica(ByVal Usuario As String, ByVal Pass As String, ByVal Permiso As String)
        Dim SQL As Conexion.Settings = New Conexion.Settings
        Dim sqlcon As New SqlConnection("Data Source=Nombre_servidor;Initial Catalog=Nombre_DB;Integrated Security=True")
        If sqlcon.State = ConnectionState.Closed Then sqlcon.Open()
        Dim Consulta As String = "select * from [Table_Usuarios] where (Login_Usuario=@user) and (Contrasena=@password) and (Permisos=@Permisos)"
        Dim comando As New SqlCommand(Consulta, sqlcon)
        comando.CommandType = CommandType.Text
        comando.Parameters.AddWithValue("@user", Usuario.Trim)
        comando.Parameters.AddWithValue("@password", Pass.Trim)
      comando.Parameters.AddWithValue("@Permisos", Permiso.Trim)
        Try
            comando.ExecuteScalar()
            If comando.ExecuteScalar <> "" Then
                Principal.Opacity = 100
                Principal.Show()
                Me.Close()
            Else
                MessageBox.Show("Usuario o Contraseña Incorrectos")
            End If

        Catch ErrorCapturado As Exception
            MessageBox.Show("Error en Sistema:  " + ErrorCapturado.ToString)
        End Try
        Return 0
    End Function


Modo de Aplicacion

 Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Verifica(txtusuario.Text, PasswordTextBox.Text, ComboBox1.Text)
    End Sub

Por si te sirve aun o a alguien mas le sirve