Hola a todos, Bueno tengo una pregunta.
Si uso LIKE en un datagrid, funciona perfecto, ya que lo que escribo en un textbox, me lo muestra en la grilla.
El code que tengo en el datagrid es el siguiente:
Private Sub txtSearch_Change()
sent = "SELECT * FROM stock WHERE Descripcion LIKE '" & txtSearch & "%" & "'"
Adodc1.RecordSource = sent
Adodc1.Refresh
End Sub
Lo que quiero hacer es que esto mismo funcione en un MSHFlexGrid
Espero que puedan ayudarme.
Saludos
HOLA!!!
El codigo no es mio es de Luis Navarro (lnavarro@microdelta.es)
La funcion es simple pones esa funcion y cuando la llamaspones
call ReGrid( "sentencia SQL" , NombredelaMSFLEXGRID)
Public Sub ReGrid(strSQL As String, Grid As MSFlexGrid)
dim gDb as DataBase
Dim rRes As Recordset
Dim i As Integer
Dim iFila As Integer
Set rRes = gDb.OpenRecordset(strSQL)
Grid.Cols = rRes.Fields.Count
Grid.Row = 0
For i = 0 To rRes.Fields.Count - 1
Grid.Col = i
Grid = rRes.Fields(i).Name
Next i
Grid.Rows = 2
iFila = 1
Grid.Row = iFila
Do While Not rRes.EOF
For i = 0 To rRes.Fields.Count - 1
Grid.Col = i
If Not IsNull(rRes.Fields(i)) Then Grid = rRes.Fields(i)
If Grid.ColWidth(i) < Len(rRes.Fields(i)) * 120 Then Grid.ColWidth(i) = Len(rRes.Fields(i)) * 120
Next i
iFila = iFila + 1
Grid.Rows = iFila + 1
Grid.Row = iFila
rRes.MoveNext
Loop
Grid.Rows = iFila
End Sub
GRACIAS POR LEER!!!
Muchas gracias, ahora pruebo y comento
HOLA!!!
Ahi encontre esa funcion que te viene re bien ;)
GRACIAS POR LEER!!!
Quedaria asi?
Call ReGrid "SELECT * FROM Inventario WHERE Barcode LIKE '" & Text1.Text & "%" & "'" , flex
Cita de: [ANTRAX] en 25 Abril 2011, 16:44 PM
Quedaria asi?
Creo que si. Pero de serlo asegurate de validar bien el textbox para evitar sql injections
Estoy eternamente agradecido de 79137913 que pudo solucionar mi tema.
Por si otro llega a tener la misma duda:
Private Sub Form_Load()
' Abre la conexión
Call IniciarConexion
' carga el Recorset con todos los datos
rs.Open "select * from Consulta1", cnn, adOpenStatic, adLockOptimistic
' llena el flexgrid
Call CargarFlex(flex)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd.mdb; Persist Security Info=False"
Adodc1.RecordSource = "select * from Consulta1"
Adodc1.Refresh
End Sub
Private Sub Text1_Change()
rs.Close
rs.Open "SELECT * FROM Inventario WHERE Barcode LIKE '" & Text1.Text & "%" & "'", cnn, adOpenStatic, adLockOptimistic
Set flex.DataSource = rs
End Sub
Option Explicit
Public Declare Sub InitCommonControls Lib "Comctl32" ()
Public flex As MSHFlexGrid
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Sub CargarFlex(flex As MSHFlexGrid)
Set flex.DataSource = rs
With flex
.ColAlignmentFixed(0) = 1
.ColAlignment(0) = 1
.ColAlignmentFixed(5) = 8
.ColAlignment(5) = 8
End With
End Sub
Public Sub IniciarConexion()
With cnn
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd.mdb; Persist Security Info=False"
End With
End Sub
Sub Desconectar()
On Local Error Resume Next
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub
Modificar los nombres corerspondientes a las tablas de la BD
Saludos y muchas gracias por ayudarme
consejo importante: dejar de usar el control ADODC y usar ADO desde codigo.
saludos.
Cual es la diferencia?
Cita de: [ANTRAX] en 27 Abril 2011, 15:42 PM
Cual es la diferencia?
muchas, dejar de depender de un control ocx es una importante y la otra es la manera de manejar los recordset etc..imaginate si tengo 10 formularios, en cada uno queiro usar 10 recodset para cada recordset tengo que meter un objeto de estos adodc y en total tengo 100 controls, se hace pesadisimo y si el proyecto es muy grande olvidate de mantenerlo si tenes que cambiar algo, aparte en performance es mejor.
en cambio con ADO desde codigo, declaras un objeto publico de tipo recordset (que seria lo mismo que poner un control adodc) y lo usas en toda la aplicacion cuando tengas ganas, lo abris y lo cerras y ya queda disponible para usar, por ahi cuando tengas que usar otro recordset lo declaras local en el formulario y lo usas y destruis ahi mismo, pero te olvidas de poner controles, asignarle la cadena de conexion etc.asi estan hechos los sistemas grandes, es lo mejor que te ofrece vb 6. y para los comandos de insert, delete o update, declaras un objeto publico de tipo command y lo usas cuando tengas ganas, o sea que con pocas variables haces lo que quieras, no usar los metodos .Addnew o Delete..etc..mejor ejecutar la instruccion SQL "INSERT INTO.." o "DELETE FROM..."
saludos.
HOLA!!!
Si, lo que dice seba es mucho mejor hacerlo asi.
Despues de que diga esto van a venir las puteadas, pero bueno...
Podes usr DAO desde codigo tambien xD
GRACIAS POR LEER!!!
Cita de: 79137913 en 28 Abril 2011, 04:25 AM
HOLA!!!
Podes usr DAO desde codigo tambien xD
si, tambien se puede usar, el tema es que DAO, ya sea por codigo o con el control DATA (que usa DAO), esta totalmente obsoleto, microsoft dijo que ya no se debe usar, por eso se reemplazo todo por ADO.