Hola Chicos de nuevo.

Sigo con mis inquietudes...

Como podria hacer una consulta sql en tiempo de ejecucion por ejemplo esta:
Select * from Historico where fecha like '%* 2007%';

Porcierto solo tengo un Dataset, un Tableadapter y un blindingsource y un DataGridview, con esto puedo hacerlo en tiempo de ejecucion o necesitaria otros componentes.



Gracias por vuestra ayuda.

Creo que tendrias un mejor manejo si puedieras hacer el dataset, DataAdapter por medio de codigo

Ejemplo
Aqui esta el ejemplo tanto para Sql
Importas la clase de Sql
Imports System.Data.Sqlclient
dim conexion as New Sqlconnection("Data source=tabla; Initial Catalog=basededatos; Integrated Security=true;

dim adaptador as New SqlDataAdapter("Select*from NombreTabla",conexion)

dim constructor as new SqlcommandBuilder(adaptador)

dim dataset as new dataset

adaptador.fill(dataset,"tabla")

datagrid.datasource=dataset

y de esta forma podras hacer todo lo que quieras y mucho mas personalizado

Si aprendes a crear dataset, conexion y DataAdapter por codigo tedras mas facilidad y mucha mayor seguridad

si necesitas un ejemplo me avisas y te enviare una

Buena suerte :smt023 :smt024

__________________
Jesus Mendez
______________________________

he usado tu codigo pero no consigo ningun resualtado solo erroes.

Podrias ponerme un ejemplo simple.

Gracias Jesus11

Buenas:

Tengo un problema parecido.
Tengo el codigo como comentas, definiendo la conexion, el sqldataadapter...
Ademas, tengo hecho un Imports System.Data y un Imports.Data.SqlClient.

El VB me dice que 'SqlDataAdapter' es ambiguo en el espacio de nombres 'System.Data.SqlClient'

¿Sabeis porque pasa esto?

Gracias y saludos
Jose Carlos

con este ejemplo podas hacer la consulta y guardarlo en un dataset
***** = Servidor del sql
88888= nombre de la base de datos
espero que te sea de ayuda
Dim strConn As String = "Integrated security=True;server=******;database=888888"
Dim conn As SqlConnection = New SqlConnection(strConn)
conn.Open()
Dim CmdCuenta As SqlDataAdapter
CmdCuenta = New SqlDataAdapter("SELECT * FROM PLANC", conn)
Dim Ds As DataSet
Ds = New DataSet
CmdCuenta.Fill(Ds, "PLANC")
conn.Close()

__________________
Si eres yunque, soporta; si eres martillo, golpea.

Aquí va un ejemplo. Espero que te sirva!

Public Class Form1
Dim Proveedor As String = "Microsoft.Jet.OLEDB.4.0"
'Motor de base de datos
Dim Archivo As String
Dim CadenaConexion As New System.Data.OleDb.OleDbConnectionStringBuilder
'Objeto para generar cadenas de conexion
Dim DataAdapter1 As OleDb.OleDbDataAdapter
'objeto de enlace a Bases de datos
Dim DataSet1 As DataSet
'base de datos
Dim DataTable1 As DataTable
'tabla
Dim SQL1 As String
Dim TextoAbuscar as String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Archivo = "C:\Mis documentos\BasedeDatos.mdb"
'se establece la ruta de acceso y archivo a utilizar
CadenaConexion("Provider") = Proveedor
' Se establece el proovedor
CadenaConexion("Data Source") = Archivo
' Se establece el archivo
TextoAbuscar = textBox1.text
SQL1 = "select campos from tabla1 where campo1 like '%" & TextoAbuscar & "%'"
'se establece el código SQL para consultas
'-------------
Using Conexion As New OleDb.OleDbConnection(CadenaConexion.ConnectionStr ing)
'se genera la conexion a la base de datos mediante la cadena de conexion generada en CadenaConexion
Dim Comando As New OleDb.OleDbCommand(SQL1)
' se establece la consulta

Dim Adapter1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(Comando.CommandText, Conexion.ConnectionString)
'se enlaza Adapter1 con la base de datos (Consulta -SQL-, Conexion -cadena de conexion-)
Dim DataSet1 As DataSet = New DataSet
'se crea objeto DataSet (contenedor de la base de datos)
Dim DataTable1 As DataTable = DataSet1.Tables.Add("tabla1")
'se crea objeto DataTable (contenedor de la tabla elegida) que pertenece al DataSet

Adapter1.Fill(DataSet1)
' se rellena el DataSet
Adapter1.Fill(DataTable1)
' se rellena el DataTable
DataGridView1.DataSource = DataTable1
' se rellena el DataGridView con los datos de la tabla
End Using 'se cierra la conexion
'--------------

End Sub
End Class