error sql/grid con ado
Publicado por Fons (3 intervenciones) el 07/04/2008 21:19:34
Private Sub rellenargrid()
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
'tipo_mueble,material,altura,anchura,fondo,peso,descripcion,precio,oferta,fecha_oferta,usado,cod_taller
SQL = "precio"
rs.Open "SELECT " & SQL & " FROM Stock_Muebles WHERE cod_taller like '" & txtcampo(1).Text & "'", Conn, , , adCmdText
Set DataGridcatalogo.DataSource = rs
End Sub
tengo ese código.
si pongo SQL = "*" el datagrid se me rellena perfectamente con todos los campos, pero si en AQL meto el nombre de alguno de los campos que están en el comentario, me da el error "Subscription out of range".
Podeis ayudarme? :)
gracias de antemano!
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
'tipo_mueble,material,altura,anchura,fondo,peso,descripcion,precio,oferta,fecha_oferta,usado,cod_taller
SQL = "precio"
rs.Open "SELECT " & SQL & " FROM Stock_Muebles WHERE cod_taller like '" & txtcampo(1).Text & "'", Conn, , , adCmdText
Set DataGridcatalogo.DataSource = rs
End Sub
tengo ese código.
si pongo SQL = "*" el datagrid se me rellena perfectamente con todos los campos, pero si en AQL meto el nombre de alguno de los campos que están en el comentario, me da el error "Subscription out of range".
Podeis ayudarme? :)
gracias de antemano!
Valora esta pregunta


0