necesito ayuda urgente si no no me graduo

luis carlos
07 de Octubre del 2005
necesito haser un programa en visual basic, que pormedio de textbox pueda ingresar nuevos datos a una tabla en access? como lo ago 1000 gracias si me re`sponden

Luster
07 de Octubre del 2005
mira pana lo primero que debes hacer es crear un proyecto y generar un forulario. la base de datosla creas a comveniencia en acces. los txtbox requieren de un elace con la base de datos la cual debes hacerla con un control dat enlazado con la base de datos .
data control(proiedades)
1 connect = acces segun version
2data base name = nombre de la base de datos
recorset type = table para manejar la tabla especificamente donde vas a grabardatos
3recorsource= nombre de la tabla a ser afectada.
Adjunto codigo para los botones mas frecuentes
Private Sub buscar_Click()
guardar.Enabled = True
buscar.Enabled = True
salir.Enabled = True
Nuevo.Enabled = True
editar.Enabled = True
eliminar.Enabled = True
Var = InputBox("Introduzca Codigo a Buscar")
flag = False
Do While Not Data1.Recordset.EOF
If (Val(Var) = Data1.Recordset.Fields("Codespe")) Then
TXTCODIGO = Data1.Recordset.Fields("Codespe")
TXTNOMBRE = Data1.Recordset.Fields("nomespe")
MsgBox ("lo encontre")
Exit Sub
End If
Data1.Recordset.MoveNext
Loop
If Not flag Then
MsgBox ("No Esta")
End If
Data1.Refresh
End Sub
Private Sub editar_Click()
guardar.Enabled = False
buscar.Enabled = True
salir.Enabled = True
Nuevo.Enabled = True
editar.Enabled = False
eliminar.Enabled = False
Data1.Refresh
flag = False
Do While Not Data1.Recordset.EOF
If (Val(TXTCODIGO) = Data1.Recordset.Fields("Codespe")) Or ((TXTNOMBRE) = (Data1.Recordset.Fields("nomespe"))) Then
With Data1.Recordset
.Edit
.Fields("CODespe") = Val(TXTCODIGO)
.Fields("NOMespe") = TXTNOMBRE
.Update
MsgBox ("Registro cambiado")
End With
Exit Sub
End If
Data1.Recordset.MoveNext
Loop
If Not flag Then
MsgBox ("registro no existe")
End If
End Sub

Private Sub eliminar_Click()
guardar.Enabled = False
buscar.Enabled = True
salir.Enabled = True
Nuevo.Enabled = True
editar.Enabled = False
eliminar.Enabled = True
Data1.Recordset.Delete
MsgBox ("Registro Borrado")
TXTCODIGO = ""
TXTNOMBRE = ""
End Sub
Private Sub guardar_Click()
Data1.Refresh
guardar.Enabled = True
buscar.Enabled = True
salir.Enabled = True
Nuevo.Enabled = True
editar.Enabled = True
eliminar.Enabled = True
flag = False
Do While Not Data1.Recordset.EOF
If (Val(TXTCODIGO) = Data1.Recordset.Fields("Codespe")) Or ((TXTNOMBRE) = (Data1.Recordset.Fields("nomespe"))) Then
MsgBox ("Codigo o Nombre ya Existen Intente Otro")
Exit Sub
End If
Data1.Recordset.MoveNext
Loop
If Not flag Then
With Data1.Recordset
.AddNew
.Fields("CODespe") = Val(TXTCODIGO)
.Fields("NOMespe") = TXTNOMBRE
.Update
MsgBox ("Registro Guardado")
End With
End If
End Sub
Private Sub Nuevo_Click()
guardar.Enabled = True
buscar.Enabled = True
salir.Enabled = True
Nuevo.Enabled = False
editar.Enabled = False
eliminar.Enabled = False
TXTCODIGO = ""
TXTNOMBRE = ""
Data1.Recordset.AddNew
TXTCODIGO.SetFocus
End Sub
Private Sub salir_Click()
Unload Me
MDIfrmMalaria.Show
End Sub

Private Sub TXTCODIGO_KeyPress(KeyAscii As Integer)
If KeyPress Then
TXTNOMBRE.SetFocus
End If
End Sub

con esto debe ser suficiente .espero haber sido de ayuda. atentamente [email protected]

Pablo Mereles
07 de Octubre del 2005
de que te vas a graduar con este conocimiento??? operador junior de visual basic. ???????
estudia algo enserio
jajajajajajaja