• Domingo 12 de Mayo de 2024, 19:01

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - gradyus

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: Validar Un Textbox Que Contenga Un Mail
« en: Viernes 24 de Diciembre de 2004, 08:33 »
:hola:

prueba este codigo, no es mio.

Para validar el email puedes utilizar el objeto RegExp (dicho objeto valida cadenas mediante expresiones regulares), para poder utilizarlo tienes que agregar la siguiente referencia a tu proyecto:

Microsoft VBScript Regular Expressions v1.0

Este es un ejemplo de como validar el email

CODE  

Dim objRegExp As New RegExp

Private Sub Command1_Click()

   objRegExp.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
   
   MsgBox (objRegExp.Test(txtEmail.Text))
   
   If objRegExp.Test(txtEmail.Text) Then
       MsgBox "Email correcto."
   Else
       MsgBox "Email incorrecto."
   End If
End Sub
 
espero te sirva.

2
Visual Basic 6.0 e inferiores / Re: Clase Ctooltip.cls
« en: Domingo 14 de Noviembre de 2004, 04:35 »
:hola:

revisa esto, espero te ayude.

3
Visual Basic 6.0 e inferiores / Re: Buscar Registros De Una Base De Datos
« en: Sábado 23 de Octubre de 2004, 00:29 »
:hola:

prueba esto:

Dim strsql, buscar As String
buscar = Text1.Text

strsql = "SELECT * FROM [Empresas]"
strsql = strsql & " WHERE [Compañía] LIKE '" & buscar & "'"

Adodc1.RecordSource = strsql

Adodc1.Refresh

si no encuentra nada

If Adodc1.Recordset.EOF = True Then

tu codigo

text1.text = cuadro de texto para realizar la busqueda

Empresas = nombre de la tabla

Compañía = nombre de registro donde buscar

esto busca exactamente lo que pongas en el cuadro de texto    LIKE '" & buscar & "'"
 
esto que empiezen   LIKE '" & buscar & "%'"

esto que terminen    LIKE '%" & buscar & "'"

esto que contengan  LIKE '%" & buscar & "%'"

has referencia a dao 3.6

4
Visual Basic 6.0 e inferiores / Re: Error 3343
« en: Jueves 7 de Octubre de 2004, 07:56 »
:hola:

puerba esto:

Dim dbE As New DAO.DBEngine ' Declare a new DBEngine variable
Dim x$ ' To capture the DIR return string
Dim sd As String

sd = App.Path & "\mi base de datos.mdb"

x = dir(App.Path & "\repairedDB.mdb")

If x <> "" Then Kill App.Path & "\repairedDB.mdb"


dbE.CompactDatabase sd, App.Path & "\RepairedDB"    

Kill sd  

Name App.Path & "\repairedDB.mdb" As sd


mi base de datos es el nombre de tu base de datos
debe estar cerrada y no tener password

activar referencia a microsoft dao 3.6 object library

adjunto archivo original

5
Visual Basic 6.0 e inferiores / Re: Textbox
« en: Domingo 5 de Septiembre de 2004, 05:51 »
Gracias jose!  :hola:

por responderme lo que pasa es que me falta mucha experiencia ya que solo me enseñaran lo basico.

Gracias por tu comentario ya que buscare tutoriales sobre el manejo de arrays.

6
Visual Basic 6.0 e inferiores / Textbox
« en: Viernes 3 de Septiembre de 2004, 07:38 »
Saludos!

mi problema es el siguiente  :(
tengo varios textbox en dos colomnas, en la primera columna se pondran numeros en orden enpezando con el 1 en adelante solo cuando tenga datos en la segunda columna sino continuara el orden hasta donde tenga datos.

ejemplo:


primera columna        segunda colunma
          1                            datos
          2                            datos
          3                            datos
          4                            datos
          5                            datos
          6                            datos


primera columna        segunda colunma
          1                            datos
                                          " "
          2                            datos
          3                            datos
                                          " "
          4                            datos

espero que me entiendan con el ejemplo que los texbox de la primera columna se llenaran en orden solo cuando tengan datos la segunda columna si continua en el siguiente.

los textbox no son array.

primera columna        segunda colunma
        text1                         text2
        text3                         text4
        text5                         text6
 
alguien tiene alguna idea de como hacer que funcione Gracias!  :hola:

Páginas: [1]