Cierto me falto diferenciarte si es entero o cadena:
Para entero:
Código vb:
Ver originalDim da As New OleDbDataAdapter("SELECT * FROM Entradas WHERE Direccion= " & x , cnn)
Para Cadena:
Código vb:
Ver originalDim da As New OleDbDataAdapter("SELECT * FROM Entradas WHERE Direccion= '" & x & "'", cnn)
También te pongo la método Sub que utilizo yo:
Código vb:
Ver originalPublic Sub Cargar_DatagridView(ByVal Instruccion_Sql As String, ByVal dgv As DataGridView)
objConn = New SqlConnection(miconexion.StrConexion)
Dim MiDataReader As System.Data.SqlClient.SqlDataReader
Dim MiDataTable As New DataTable
Try
'Abro la Conexión
objConn.Open()
Dim sql As System.Data.SqlClient.SqlCommand = New SqlCommand(Instruccion_Sql, objConn)
MiDataReader = sql.ExecuteReader
MiDataTable.Load(MiDataReader)
dgv.DataSource = MiDataTable
'Cierro la Conexión
objConn.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
objConn.Close()
End Try
End Sub
Saludos!