Foro de elhacker.net

Private Sub txtSearch_Change()
sent = "SELECT * FROM stock WHERE Descripcion LIKE '" & txtSearch & "%" & "'"
Adodc1.RecordSource = sent
Adodc1.Refresh
End Sub

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

Call ReGrid "SELECT * FROM Inventario WHERE Barcode LIKE '" & Text1.Text & "%" & "'" , flex

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