SoloCodigo

Hola con todos....
por favor necesito una manito en esto
 kiero realizar una busqueda o filtro mediante un text y haciendo enter me asome el resultado de la busqueda

Ahora con mi codigo muestro todos los datos en mi tabla q eso esta muy bien hasta q no coloque ninguna palabra en el text... cuando ya busq entonces se mostrara el registro buscado...

este es mi codigo de consulta

mysql_select_db($database_papeleria, $papeleria);
$query_rs_csul_clie = "SELECT idpersonas, tipo_pers, nom_pers, apel_pers, ruc_pers, dir_pers, email_pers, telf_pers, cel_pers, descr_pers, estad_person FROM personas WHERE tipo_pers = '1' ORDER BY idpersonas ASC, nom_pers LIKE '%$buscar%' OR apel_pers LIKE '%$buscar%' OR ruc_pers LIKE '%$buscar%'";
$rs_csul_clie = mysql_query($query_rs_csul_clie, $papeleria) or die(mysql_error());
$row_rs_csul_clie = mysql_fetch_assoc($rs_csul_clie);
$totalRows_rs_csul_clie = mysql_num_rows($rs_csul_clie);

y este es mi text de busqueda (kier q se filtre por ruc, nombre, apellido y codigo)


       <input type="text" value="" id="buscar" name="buscar" />
        <img src="../IMAGENES/search.png" align="left" width="35"/></th>
      </tr>
     
Espero haber sido lo suficientemente clara.... y les agradezco x su prontas respuestas...

Holap, gracias `por tenerme paciencia..... copie tu codigo en un nuevo proyecto pero este leia aparte de la imagen q le daba click tambien la de alado.....  sabes me puse ha estar moniando ..y solo tenia este error q no van los iguales en la codificación del detector de imagenes q me diste.....jajja lo logramos......muchas gracias he.....Realmente  sos lo maximo!!!

 Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        For Each k As PictureBox In pb
            If e.X >= k.Left And e.X <= k.Left + k.Width Then
                If e.X >= k.Top And e.Y <= k.Top + k.Height Then
                    MsgBox(k.Tag)
                End If
            End If
        Next
    End Sub
End Class

Oye una pregunta mmm...queria ajustarle el codigo para q funcionara mediante  matrices; la matrices es cuadratica....pero no sé cual es el error....mmmmm...toma como limite para leer las imagenes de  arriba de diagonal principal y las lee de corrido..osea le doy click a la imagen de la ultima columna y las lee de corrido.... por fis hechale le un vistazo...para q me digas cual es el error..aki te dejo el codigo q he hecho...gracias de antemano....espero no cansarte...

Public Class Form1
    Private PB As New List(Of PictureBox)
    Dim m(100, 100) As Integer
    Dim rnd As New Random
    Private Sub ING_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ING.Click
        Dim i, j, b, k, c, f, y, t, x As Integer

        Dim pict As PictureBox
        b = Val(lim.Text)
        If b Mod 2 <> 0 Then
            MsgBox(" INGRESAR NUMERO PAR")
            lim.Text = " "
            lim.Focus()
        End If
        If b <= 10 Then
            D1.ColumnCount = b
            D1.RowCount = b
            For f = 0 To b - 1
                For c = 0 To b - 1
                    m(f, c) = 0
                    D1.Columns.Item(c).Width = 25
                Next
            Next
            If b Mod 2 = 0 Then
                t = (b * b) / 2
            End If

            y = 15
            k = 40

            For f = 0 To b - 1
                For c = 0 To b - 1
                    Randomize()
                    x = rnd.Next(1, (t + 1))
                    m(f, c) = x
                Next
            Next
            y = 10
            k = 15

            For i = 0 To b - 1
                For j = 0 To b - 1
                    D1.Item(j, i).Value = m(i, j)
                    x = Val(m(i, j))
                    pict = New PictureBox
                    pict.Image = System.Drawing.Image.FromFile("f:3image" + Trim(Str(x)) + ".jpg")
                    pict.Name = "PIC_IMAGE" & CStr(x)

                    pict.Width = 35
                    pict.Height = 35
                    pict.SizeMode = PictureBoxSizeMode.StretchImage
                    pict.Left = y
                    pict.Top = k
                    y += 50

                    pict.Tag = x
                    pict.Enabled = False

                    Me.Controls.Add(pict)
                    PB.Add(pict)
                    pict = Nothing

                Next
                y = 15
                k += 50
            Next

        Else
            MsgBox("NUMEROS MENOR A 10")
            lim.Text = " "
            lim.Focus()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        For Each s As PictureBox In PB
            If e.X > s.Left And e.X <= s.Left + s.Width Then
                If e.X > s.Top And e.Y < s.Top + s.Height Then
                    MsgBox(s.Tag)
                End If
            End If
        Next
    End Sub
End Class

Hola, espero no molestar, queria saber si me podrian ayudar con un programa,
Este genera imagenes randomicas visualizadas en picturebox pero como estos son generados cuando aparecen no los puedo seleccionar, ya ahora lo q trato de hacer es q cuando haga click en una de las imagenes selecciondas aparezca el numero de indice de la imagen q se enceuntran en una carpeta y las imagenes estan enumeradas ejemp: image1, image2......y asi hasta q llegue a 50...entonces cuando haga click en la imagen q se genero salga solo el número de la imagen... aki les dejo el codigo hasta donde se genera las imagenes....
De ante mano agradezco aquines tenga la voluntad de ayudarme con este programilla.
Public Class Form1
    Dim RND As New Random
    Dim PICT(9) As PictureBox
    Dim X, i, y, j, t, A As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        y = 10
        t = 10
        For i = 0 To 8
            X = RND.Next(1, 9)
            PICT(i) = New PictureBox
            PICT(i).Image = System.Drawing.Image.FromFile("F:3IMAGE" + Trim(Str(X)) + ".JPG")
            Me.Controls.Add(PICT(i))
            PICT(i).Width = 100
            PICT(i).Height = 100
            PICT(i).SizeMode = PictureBoxSizeMode.StretchImage
            PICT(i).Left = y
            PICT(i).Top = t
            y += 120
            If i Mod 3 = 0 Then
                y = 10
                t += 120
            End If
        Next
    End Sub

Realmenete es muy interesante este documento para hacer las preguntas........realmente como dije en el mensaje soy novata aki.......y si obte esta  medio de ayuda fue xq ya no pude realizar el ejercicio apesar q hice algunas consultas para realizarlo ........y dí todos esos detalles del ejercico es xq asi quiero que funcione ....no es q es orden ni nada de eso.....sino quien se ofresca ayudar es xq realmente sabé hacerlo y explicar .... para mi educación....y hay q hacerlo bien y completo......