help

Carmen
07 de Febrero del 2006
hola, mi pregunta es como puedo capturar texto en un textBox, mas que nada lo que necesito es codigo que me ayude a hecer mi programa que es con conexion a una base de datos y necesito estar metiendo los datos que se capturen a dicha base, me pudieran proporcionar un codigo que fuese de un programa de almacen seria perfecto, gracias.

krizall
07 de Febrero del 2006
hola carmen, el sitio perfecto donde puedes encontrar la informacion k necesitas esta en www.elguille.org ahi viene todo lo k necesitas muy bien explicado.
disculpa que no pueda responderte pero ahora ya no cuento con tiempo suficiente.

espero te sirva de algo mi comentario

suerte

fonchi
07 de Febrero del 2006
lo capturas asi (textbox.text, y tabiem para un combo...)
Para crear una base de datos en Access te vas a:
complementos->Administrador visual de datos, luego en visdata seleccionas Archivo-> nuevo, eliges access(7.0) o la que quieras, la guardas. Luego en el visdata aparecera tu base, despues con el boton derecho haces click en propiedades, y eliges nueva tabla, le das el nombre y despues empiezas a llenarla de campos .

CODIGO:
Private Sub Buscar2_Click()
Dim r As Long
r = InputBox("introduce la semana a buscar")
Data1.Recordset.FindFirst "Semana=" & r
End Sub

Private Sub Command2_Click()
If Data1.Recordset.EOF Then
MsgBox " Fin Base de Datos "
Else
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Command3_Click()
If Data1.Recordset.BOF Then
MsgBox "Inicio Base de Datos"
Else
Data1.Recordset.MovePrevious
End If
End Sub

Private Sub Command4_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
If (Combo1 = "" Or Combo2 = "" Or Combo3 = "" Or Combo5 = "" Or Text1 = "" Or Text2 = "" Or Combo22 = "" Or Combo23 = "" Or Combo4 = "" Or Text3 = "" Or Label29 = "") Then
MsgBox ("Ingrese valores antes de guardar,Gracias")
Else
Data1.UpdateRecord
Data1.Refresh
MsgBox "Ok Datos Salvados"
End If
End Sub

Private Sub Command4_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
If (Combo1 = "" Or Combo2 = "" Or Combo3 = "" Or Combo5 = "" Or Text1 = "" Or Text2 = "" Or Combo22 = "" Or Combo23 = "" Or Combo4 = "" Or Text3 = "" Or Label29 = "") Then
MsgBox ("Ingrese valores antes de guardar,Gracias")
Else
Data1.UpdateRecord
Data1.Refresh
MsgBox "Ok Datos Salvados"
End If
End Sub

Private Sub Eliminar2_Click()

If MsgBox("Eliminar encuesta de: " & Combo1, 16 + 4) = 6 Then
Data1.Recordset.Delete
Data1.Refresh
Combo1.SetFocus
End If
End Sub

Private Sub Salir2_Click()
End
End Sub

Private Sub Text3_LostFocus()
Dim Fecha, días
If IsDate(Text3.Text) Then
Fecha = CDate(Text3.Text)
días = DateSerial(Year(Fecha) + 1, 1, 1) - Fecha

Else
MsgBox Text3.Text & " NO es una fecha válida."
Text3.SetFocus
End If
End Sub

Ojala te ayude a solucionar tu problema, para que termines luego tu trabajo, te deseo mucha suerte.
Chao