Llenar data grid con sentencia sql en visual basic

[HOSIER]

Hola que tal a todos pero les agradeceria que me ayudaran a resolver el siguiente problema.

Tengo un datagrid pero lo quiero llenar y mi base de datos la tengo enlazada con un dataenvironment a sql y la quiero llenar de un commman pero le quiero hacer un filtro atraves de un dato que haya ingresado el usuario.



Agradeceria que me ayudara es muy importante

[erbuson]

Hola, lamentablemente no puedo ayudarte al respecto porque no utilizo BBDD sin embargo me gustaría darte un pequeño consejo.

Si has estado leyendo en el foro, te habrás podido dar cuenta de que normalmente la gran mayoría de los mensajes tienen un mismo tipo de letra ya que los tipos de letra especiales, colores, etc, los utilizamos para destacar algunos datos importantes en ellos.

No dudo de que tu mensaje sea sumamente importante para ti, como lo es para cualquiera que pueda echarte una mano, pero no porque lo pongas en letras más grandes vas a tener una respuesta antes, afortunadamente con el tamaño habitual todos los que aquí colaboramos podemos leerlo.

No lo tomes como una regañina, sino como un consejo para mejor uso del foro, simplemente he querido aclararte una norma que tal vez desconocías.

Gracias por tu comprensión.

Saludos

[-rommel_]

no eh usado mucho el DataEnviroment.. pero en el Buscador del Foro pude ver varios temas sobre ese Objeto... espero puedas encontrar tu solucion...

Saludos!!!

[rubencho5413]

Option Explicit

' variable Connection y Recordset
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub Form_Load()

With TabStrip1
.Tabs.Clear ' borra todos los tabs con el método Clear

Dim i As Integer
' crea un tab para cada letra del abecedario
For i = 65 To 90
.Tabs.Add , , Chr$(i)
Next
End With

' Crea y abre la conexión
Set cn = New ADODB.Connection

With cn
.CursorLocation = adUseClient
' cadena de conexión
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db1.mdb" & _
";Persist Security Info=False"
End With
' Crea y abre el recordset
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient

cn.Open
TabStrip1_Click
End Sub

Private Sub TabStrip1_Click()

Dim sql As String
Dim Letra As String

' Comprueba que el valor de la ficha no es nulo
If Not TabStrip1.SelectedItem Is Nothing Then
' letra a filtrar
Letra = TabStrip1.SelectedItem

' comando sql
sql = "SELECT * From tPaises " & _
"where paises Like " & _
"'" & Letra & "%'" & _
"Order By Paises"

'.. si el recordset está abierto lo cierra
If Not Rs Is Nothing Then
If Rs.State = adStateOpen Then
Rs.Close
End If
End If

' Trae los registro
Rs.Open sql, cn, adOpenStatic, adLockReadOnly

' Pasa los registro a la grilla
With MSHFlexGrid1
Set .DataSource = Rs

.ColWidth(0) = 800
.ColWidth(1) = 3000
End With
End If

End Sub

Intente esto