Cita:
Iniciado por Kata_Her 
Hola a todos;
Mi situacion es la siguiente, deseo llenar un datagrid en 6.0 con los datos de una base de datos, se trata de hacer una busqueda en la bd mediante un codigo, y cuando encuentre el codigo, enviar ese registro a la grilla, pero no se como hacerlo, habia pensado en una instruccion como esta:
DataGrid1.Columns(0) = rs.Fields("Codigo_Articulo")
pero me genera un error, me dice que el conjunto de filas no es disponible, el codigo del boton es el siguiente:
El rs es una variable de tipo Recorset que tiene una conexion con ado para la bd.
Gracias--------------
Hola, el control DataGrid es un control enlazado a datos, no es necesario que cargues las celdas una a una, yo creo que con esto te servirá:
Código:
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM LaTabla WHERE ECG = '" & ecg_t.Text & "'", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
En lo que estamos suponiendo que 'ECG' es el nombre de un campo de la tabla y 'ecg_.Text' es el TextBox donde se ha escrito el dato a buscar y 'cn' es la conexión a la BD que ya tienes abierta.
