Visual Basic.NET - Filtro de datos de una tabla de SQL SERVER

   
Vista:
Imágen de perfil de nano

Filtro de datos de una tabla de SQL SERVER

Publicado por nano (20 intervenciones) el 04/08/2015 12:03:25
Muy buenas a todos...
He creado un pequeño formulario donde poder filtrar los campos de una tabla de SQL Server. El código es el siguiente:
El problema reside que los operadores me dan error. o eso es el mensaje que me aparece y del que os dejo una imagen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Imports System.Data.SqlClient
Public Class Formulario
    Dim texto As String
    Private Sub listacampos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listacampos.SelectedIndexChanged
        Lblresultado.Text = listacampos.SelectedItem.ToString
    End Sub
    Private Sub listaoperadores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listaoperadores.SelectedIndexChanged
        Lblresultado.Text = Lblresultado.Text & listaoperadores.SelectedItem.ToString
        texto = Lblresultado.Text
    End Sub
    Private Sub botonfiltrar_Click(sender As Object, e As EventArgs) Handles botonfiltrar.Click
        Dim conexion As String
        conexion = "Data Source=NANO-HPDV6\SQLEXPRESS;Initial Catalog=Blacksense;Integrated Security=True"
        Dim nombre_campo As String = listacampos.SelectedItem.ToString
        Dim valoroperador As String = listaoperadores.SelectedItem.ToString
        Dim clave = valorcampo.Text
        Dim seleccion As String = "SELECT * FROM socios where" + nombre_campo + "" + valoroperador + "" + clave + ""
        Dim adaptador As SqlDataAdapter
        Dim tabladedatos As New DataTable
        Dim tabla As New BindingSource
        Try
            adaptador = New SqlDataAdapter(seleccion, conexion)
            adaptador.Fill(tabladedatos)
            tabla.DataSource = tabladedatos
        Catch ex As Exception
            MsgBox("Error:" & ex.Message)
        End Try
    End Sub
End Class


Muchas gracias y un saludo,
Nano.
filtrardatos_error
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de giancarlo

Filtro de datos de una tabla de SQL SERVER

Publicado por giancarlo (280 intervenciones) el 04/08/2015 23:04:55
Intenta con:

Dim nombre_campo As String = listacampos.SelectedItem.ToString
Dim valoroperador As String = listaoperadores.SelectedItem.ToString
Dim clave = valorcampo.Text

Dim seleccion As String = "SELECT * FROM socios where " + nombre_campo + " " + valoroperador + " '"+ clave + "'"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de nano

Filtro de datos de una tabla de SQL SERVER

Publicado por nano (20 intervenciones) el 05/08/2015 09:57:15
Muchas gracias Giancarlo...
Tal y como me pones lo he sustitudo por tu línea pero no acabo de distinguir sin son comillas dobles(") o simple(').
es correcto de esta forma:
valoroperador (dobles) (espacio)(simple)(dobles) ??
clave(dobles)(simple)(dobles) ??
Sin embargo he copiado la línea y ya no me aparece el error aunque no muestra los resultados!!! Que puede fallar ahora?

es adaptador.fill(tabladedatos) la instrucción que entiendo rellena la tabla con los campos filtrados

Adjunto una imagen de VB y de SQL SERVER...
Muchas gracias por tu tiempo y un saludo,
Nano.


clientes_error
clientes_error2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar