| |
 Mostrar Temas
|
|
Páginas: [1] 2
|
|
1
|
Programación / PHP / PHP. Controlar datos introducidos en un campo de texto (ayuda).
|
en: 23 Octubre 2007, 13:50 pm
|
Hola a todos, estoy haciendo un formulario en php, con un campo de telefono, entonces quiero controlar que en ese campo no se introduzcan caracteres,lo he hecho pero como yo lo he hecho no funciona, aqui lo pego: for($i=0;$i<=strlen($Telf);$i++)
if($Telf[$i]<'0' || $Telf[$i]>'9') {
echo '<script>';
echo 'alert("El Campo de Telefono no puede contener caracteres")';
echo '</script>';
}
Alguien me ayuda? Muchisimas gracias. Saludos. |
|
|
|
|
7
|
Programación / Programación Visual Basic / Problema al hacer un append. Help pls
|
en: 9 Agosto 2006, 01:47 am
|
Hola de nuevo,miren, aqui tienen el codigo que pongo para guardar un archivo con la fecha y hora que esta en el text12, aqui tienen el codigo: Open "C:\" & Text12.Text & ".txt" For Append As #1
Print #1, "Beneficio día:"
Write #1, Text10.Text & Text11.Text
Close #1
End Sub No me crea el archivo,alguíen me puede indicar el porqué? saludos, espero sus respuestas. |
|
|
|
|
9
|
Programación / Programación Visual Basic / Como guardar cambios en base de datos, AYUDA!! PLS
|
en: 7 Agosto 2006, 11:57 am
|
Hola, necesito ayuda urgente, queria saber como guardar los cambios de los campos de texto en una base de datos, aqui tienen el codigo: Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Debe completar todos los campos (;"
Else
If Text1.Text = "+" Then
MsgBox "Introduzca solamente numeros"
Else
If Text2.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text3.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text4.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
a = CLng(Text1.Text) + CLng(Text2.Text) + CLng(Text3.Text) + CLng(Text4.Text)
'Pasamos a integer para poder sumar numeros
Text10.Text = a
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
If Text5.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text6.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text7.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text8.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
b = CLng(Text5.Text) + CLng(Text6.Text) + CLng(Text7.Text) + CLng(Text8.Text)
Text11.Text = b
End If
End If
End If
End If
End Sub
Private Sub Command3_Click()
c = CLng(Text10.Text) - CLng(Text11.Text)
Text9.Text = c
End Sub
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Text10.Text = a
Text11.Text = b
End Sub Espero sus respuestas,gracías. |
|
|
|
|
10
|
Programación / Programación Visual Basic / Ayuda para guardar los cambios de un programa en una base de datos.
|
en: 5 Agosto 2006, 13:51 pm
|
Hola a todos, bueno, quería saber como puedo hacer para guardar los datos de este programa, (Aquí tienen el codigo) : Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Debe completar todos los campos (;"
Else
If Text1.Text = "+" Then
MsgBox "Introduzca solamente numeros"
Else
If Text2.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text3.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text4.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
a = CLng(Text1.Text) + CLng(Text2.Text) + CLng(Text3.Text) + CLng(Text4.Text)
'Pasamos a integer para poder sumar numeros
Text10.Text = a
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
If Text5.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text6.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text7.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text8.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
b = CLng(Text5.Text) + CLng(Text6.Text) + CLng(Text7.Text) + CLng(Text8.Text)
Text11.Text = b
End If
End If
End If
End If
End Sub
Private Sub Command3_Click()
c = CLng(Text10.Text) - CLng(Text11.Text)
Text9.Text = c
End Sub
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Text10.Text = a
Text11.Text = b
End Sub Quería guardarlo en una base de datos, en un archivo de word o algo,pero también quiero que se guarden,los datos junto con el día y la fecha. Como lo podría hacer? espero sus respuestas,saludos. |
|
|
|
|
|
| |
|
