consultas en vb 6.0 paso a paso

"LUIS GUILLERMO" escribió en el mensaje
news:

tengo tres diuas de estas buscando en la net y solo encuentro basura.
explican a medias y el error sale en cada paso. soy novato. y quiero
de una tabla en access hacer una consulta en un db grid con un datos
en un text.text1 , es mucho pedir ayuda. por favor el que tenga
conocimiento sobre este tema ayudeme.

Hola,

El ejemplo más sencillo posible es este:

Private Sub cargarDataGrid()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de
programa\ClearLightegvars.mdb;Persist Security Info=False"
Dim rs As New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
Set .ActiveConnection = cn
.Open "SELECT * FROM Elementos WHERE grupo = '" & Text1.Text & "'"
End With
Set DataGrid1.DataSource = rs
End Sub

Los valores de los controles de texto (TextBox) son de tipo cadena. Y la
columna [grupo] de la tabla [Elementos] tambien es de tipo cadena.

Los argumentos de tipo cadena en SQL se delimitan mediante apóstrofes (').

Si Text1 contiene, por ejemplo, el dígito 1, la sentencia SQL para la
consulta sería:

SELECT * FROM Elementos WHERE grupo = '1'

Por eso debemos insertar los apóstrofes antes y despues del identificador de
la variable. Nota su uso antes del cierre de la cadena que comeinza con
SELECT, y despues de Text1.Text &


Salud!