08/11/2004, 16:24
|
| | | Fecha de Ingreso: octubre-2004 Ubicación: COLOMBIA
Mensajes: 240
Antigüedad: 20 años, 5 meses Puntos: 3 | |
| A VER PARA LA PRIMERA NO MANEJO MUCHA DB PERO PUEDES HACERLOS CON SQL ASI:
Dim Datos As DataBase 'O ALGO ASI
Datos="Select Codigo,Nombre From NombreTabla" 'CREO QUE ES ASI
PARA LO SEGUNDO:
'PARA NUMEROS
Private Sub Text1_KeyPress (ByVal KeyAscii As Integer)
If KeyAscii <48 Or KeyAscii>57 Then
KeyAscii = 0
End If
End Sub
'PARA LETRAS
Private Sub Text1_KeyPress (ByVal KeyAscii As Integer)
If KeyAscii <97 Or KeyAscii>122 Then
KeyAscii = 0
End If
End Sub
OJALA TE SIRVA.
CHAO |