Código para el botón de búsqueda.

 Daré algunos códigos para algunas funciones básicas en Visual Basic 6.0

 BOTÓN DE BUSCAR

El botón de buscar se verá y funcionará de la siguiente manera:
Crearás un botón  y en este tendrás vinculada una base de datos:
Pegarás esto en el botón:

Private Sub buscar_Click()
Dim buscar As String, criterio As String
buscar = InputBox("¿Que Accesorio desea buscar?", "busqueda por nombre", vbQuestion)
If buscar = "" Then Exit Sub
criterio = "Accesorio like '*" & buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
respuesta = MsgBox("Accesorio no encontrado", vbCritical)
End If
End If
End Sub

Derechos Reservados. :3 Kushina-san

Visual Basic 6.0 (Link para descarga)

Mi deber como principiante en programación (bueno no tan exajerado) es que les traigo el programa de Visual Basic 6.0, compatible para cualquier  versión de  Windows  pero que este sea de 32 bits (para ver de cuantos bits es usa : tecla Inicio+Pausa  ó  Entra a Inicio  >  Panel de control  >Sistema y seguridad        
 > Sistema )

• Pero antes ¿QUÉ ES VISUAL BASIC 6.0?

Es un software que usa el lenguaje de programación, es una perfecta alternativa para los programadores de cualquier nivel que deseen desarrollar aplicaciones compatibles con Windows.Es posible con ello generar de manera automática, conectividad entre controles y datos mediante la acción  de arrastar y colocar sobre formularios o informes.

Es funcional y efectivo, bueno ya no los entretengo y pondré el link para que lo descargen
El archivo contiene :

• El setup para instalar (viene el icono en colores y no está enla carpeta, es un archivo suelto)
• Es un archivo con formato RAR
• El archivo pesa 376.17 MB.

Si hay dudas  a cerca de la descarga o del programa, avisame por el contacto que está en la parte derecha.-

 Clic en la imagen :3

Derechos Reservados. :3 Kushina-san

Improvisando -En mis noches-

Bueno de nuevo eh vuelto, (pero esta vez será por más tiempo), eh estado en varios periodos de examen, y en verdad eh extrañado lo que hago por aqui ( a demás de que por las noches suenen demaciado  cuando "tecleo") en fin, tengo un poco de nostalgía y me puse a ver los primeros Openings y Endings de Naruto, y viendo lo bueno que estaba, aún me gusta pero era diferente,-suspiro- bueno, estoy atrasada con Naruto Shippuden ¡Pero me repondré! , sigo pensativa, aún me trae recuerdos, la extraño.....¡Extraño a SHOKO! ....
Creo que hablaré más de ella por a qui, me ah dejado marcada la vida :') me ah enseñado lo que es una amiga♥.
Bueno anunciaré también que haré un video (así es...me grabaré), lo haré, no sé sobre qué  pero lo haré hahaha,lo dejo por lo tanto y nos vemos en la siguiente entrada.


 Dejo el link del video que estaba viendo:
http://www.youtube.com/watch?v=6L2mWrmUGb0

Derechos Reservados. :3 Kushina-san