Únete
a la comunidad
Inscríbete
Haz una pregunta Denunciar

Problemas con botones visual basic

FRAN - Última respuesta el 15 jun 2012, 19:24
Hola,
Buenas tardes, deseo aprender mas sobre visual basic, y por mas q trato bajar manuales de internet pues no me sale la programacion de botones (eliminar, guardar, nuevo, modificar) el cual tambien pueda modificar los datos de la base de datos.. ya hice la conexion pero me falta son los botones.. por favor ayuda... ;)
Seguir leyendo 
Más
22 respuestas
Respuesta
+9
moins plus
Retro78 14Publicaciones viernes, 4 de abril de 2008Fecha de inscripción 30 oct 2008, 17:29
Aqui te adjunto un link muy explicativo !

http://www.lawebdelprogramador.com/...

Sino aca te adjunto un tutorial:

http://www.emagister.com.mx/cursos_controles_visual_basic-tpsmx-327142.htm

Suerte!

 Añadir comentario
Ver los 6 comentarios
:D - 24 abr 2011, 20:21
iio Menozz...
curro - 10 may 2011, 00:38
Dim db As Database
Dim rs1 As Recordset

Private Sub CmdEDITAR_Click(Index As Integer)
Dim strtitle As String
Text2.Text = UCase(Text2.Text)
If Text1.Text = "" Then
MsgBox ("Debe introducir el Codigo de la serie.")
Text1.SetFocus
ElseIf (Text2.Text = "") Then
MsgBox ("Debe introducir el Nombre de la serie.")
Text2.SetFocus
End If
strtitle = Text1.Text
rs1.FindFirst "Codserie = '" & strtitle & "'"
If rs1.NoMatch Then
rs1.Edit


End If

End Sub

Private Sub CmdPrimero_Click(Index As Integer)
rs1.MoveFirst
Text1.Text = rs1.Fields("Codserie")
Text2.Text = rs1.Fields("Nomserie")


End Sub

Private Sub CmdUltimo_Click()
rs1.MoveLast
Text1.Text = rs1.Fields("Codserie")
Text2.Text = rs1.Fields("Nomserie")

End Sub



Private Sub Form_Load()
Set db = Workspaces(0).OpenDatabase("C:\PROGRAMASERVICIO\BASE DE DATOS\servicio.mdb")
Set rs1 = db.OpenRecordset("serie", dbOpenDynaset)

End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
Dim num As String
If Not (KEYASCII >= 48 And KEYASCII <= 57 Or KEYASCII = 8) Then
KEYASCII = 0
End If

num = Len(Text1.Text)

If num = 3 Then
Text2.SetFocus
End If

End Sub

Private Sub CmdGUARDAR_Click(Index As Integer)
Dim strtitle As String
Text2.Text = UCase(Text2.Text)
If Text1.Text = "" Then
MsgBox ("Debe introducir el Codigo de la serie.")
Text1.SetFocus
ElseIf (Text2.Text = "") Then
MsgBox ("Debe introducir el Nombre de la serie.")
Text2.SetFocus
End If
strtitle = Text1.Text
rs1.FindFirst "Codserie = '" & strtitle & "'"
If rs1.NoMatch Then
rs1.AddNew
rs1.Fields("Codserie") = Text1.Text
rs1.Fields("NomSerie") = Text2.Text
rs1.Update
MsgBox ("el registro fue guardado satisfactoriamente")

Else
MsgBox ("El Codigo ya Existe.")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Cmdnuevo_Click(Index As Integer)
rs1.AddNew
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub CmdSALIR_Click(Index As Integer)
Form5.Hide
End Sub
juli - 4 ene 2012, 17:16
muy buen tutorial gracias
pen - 15 jun 2012, 19:23
aam laverdad meayudomucho ;P
Faooo - 15 jun 2012, 19:24
la verdad nunca me ayudo en nada no se encuentra lo k k kiero :(
Añadir comentario
Respuesta
+6
moins plus
checha 9 sep 2010, 17:35
bueno en codigo para guardar y eliminar es facil solo escribes
dataenviroment con el numero que es + .Rscommand con el numero de comando+ . update para guardar o .delete para eliminar

 Añadir comentario
.l. - 21 sep 2011, 20:31
pero quisiera saber si los codigos te los tenes que aprender de memoria o Q'? :D
necesito un tutorial donde me explique la funcion de cada comando xfa thks :D
Añadir comentario
Respuesta
+4
moins plus
LAURA 15 ene 2009, 21:37
mira lo siento pero no si tu me puedas ayudar con las funciones de un formularioespero tu respuesta

 Añadir comentario
1215 - 24 feb 2009, 18:34
la verdad no se naa
lianaa - 17 jul 2010, 16:38
ustedes son unos bobos completos
laura - 20 oct 2010, 03:02
alguien sabe ALGUN CODIGO PARA BUTTON que sirva PARA GUARDAR
cmd - 24 ene 2012, 20:52
yo se
Añadir comentario
Respuesta
+4
moins plus
awedfas 6 jul 2011, 01:06
Muchas grasias

 Añadir comentario
Añadir comentario
Respuesta
+3
moins plus
Vidcool 27 mar 2011, 17:41
Antes de poder responderte debes especificar de que tipo es tu base de datos osea por ejemplo si usas sql , acces , etcs ; esto es debido a que hay muchas formas diferentes de hacer que estos botones funcionen pero depende de las herramientas en uso .

 Añadir comentario
Añadir comentario
Respuesta
+2
moins plus
carlos 26 feb 2009, 15:04
Si tan solo buscaras en internet encontrarias respuestas

Aqui adjunto unos enlaces para que busques

http://www.vb-mundo.com/
http://www.elguille.info/
http://www.recursosvisualbasic.com.ar/

 Añadir comentario
Añadir comentario
Respuesta
+2
moins plus
Aria 17 mar 2012, 20:19
no se si alguien me pueda ayudar, estoy haciendo un programa de boleta de pago que debe vincularse con acces y debo agregar un boton de "mostrar" que me lleve a la tabla de acces.....

 Añadir comentario
Añadir comentario
Respuesta
+1
moins plus
RUSMAN_72 21 dic 2011, 08:27
espero te sirva:

Mi ejemplo es para agregar, modificar, dar de alta libros, y cancelar las operaciones anteriores regresandote al menu.

Function VALIDAR() As Boolean
If REGISTRO.Text = "" Or ASIGNATURA.Text = "" Or TITULO.Text = "" Or AUTOR.Text = "" Or EDITORIAL.Text = "" Or BIBLIOTECA.Text = "" Or OBSERVACIONES.Text = "" Then
VALIDAR = True
MsgBox "Debe Insertar el o los Dato(s) Faltante(s)", vbInformation, "ok"
MsgBox "Este recurso no ha sido Actualizado ni Guardado", vbInformation, "ok"
Adodc1.Recordset.CancelUpdate
ALTA.Visible = False
AGREGAR.Visible = True
CANCELAR.Visible = True
ACTUALIZAR.Visible = True
AGREGAR.Enabled = True
ACTUALIZAR.Enabled = True
NPBG.Enabled = False
REGISTRO.Enabled = False
ASIGNATURA.Enabled = False
TITULO.Enabled = False
AUTOR.Enabled = False
EDITORIAL.Enabled = False
BIBLIOTECA.Enabled = False
OBSERVACIONES.Enabled = False
ALTA.Enabled = False
AGREGAR.SetFocus
End If
End Function

Function limpiar()
NPBG.Text = ""
REGISTRO.Text = ""
ASIGNATURA.Text = ""
TITULO.Text = ""
AUTOR.Text = ""
EDITORIAL.Text = ""
BIBLIOTECA.Text = ""
OBSERVACIONES.Text = ""
End Function
Private Sub ACTUALIZAR_Click()
ALTA.Visible = True
AGREGAR.Visible = False
CANCELAR.Visible = False
ACTUALIZAR.Visible = False
ALTA.Enabled = True
AGREGAR.Enabled = False
ACTUALIZAR.Enabled = False
NPBG.Enabled = False
REGISTRO.Enabled = True
ASIGNATURA.Enabled = True
TITULO.Enabled = True
AUTOR.Enabled = True
EDITORIAL.Enabled = True
BIBLIOTECA.Enabled = True
OBSERVACIONES.Enabled = True
End Sub

Private Sub AGREGAR_Click()
ALTA.Visible = True
AGREGAR.Visible = False
CANCELAR.Visible = False
ACTUALIZAR.Visible = False
ALTA.Enabled = True
ACTUALIZAR.Enabled = False
AGREGAR.Enabled = False
NPBG.Enabled = False
REGISTRO.Enabled = True
ASIGNATURA.Enabled = True
TITULO.Enabled = True
AUTOR.Enabled = True
EDITORIAL.Enabled = True
BIBLIOTECA.Enabled = True
OBSERVACIONES.Enabled = True
Adodc1.Recordset.AddNew
REGISTRO.SetFocus
End Sub

Private Sub ALTA_Click()
If VALIDAR = True Then
Exit Sub
End If
ALTA.Visible = False
AGREGAR.Visible = True
CANCELAR.Visible = True
ACTUALIZAR.Visible = True
NPBG.Enabled = False
REGISTRO.Enabled = False
ASIGNATURA.Enabled = False
TITULO.Enabled = False
AUTOR.Enabled = False
EDITORIAL.Enabled = False
BIBLIOTECA.Enabled = False
OBSERVACIONES.Enabled = False
ALTA.Enabled = False
ACTUALIZAR.Enabled = True
AGREGAR.Enabled = True
CANCELAR.Enabled = True
Adodc1.Recordset.Update
MsgBox "Recurso Actualizado y Guardado Correctamente ", vbInformation, "ok"
End Sub

Private Sub ANULACIÓN_Click()
NPBG.Enabled = False
REGISTRO.Enabled = False
ASIGNATURA.Enabled = False
TITULO.Enabled = False
AUTOR.Enabled = False
EDITORIAL.Enabled = False
BIBLIOTECA.Enabled = False
OBSERVACIONES.Enabled = False
AGREGAR.Enabled = True
ALTA.Enabled = False
ACTUALIZAR.Enabled = True
ANULACIÓN.Enabled = False
CANCELAR.Enabled = True
Adodc1.Recordset.CancelUpdate
End Sub

Private Sub ASIGNATURA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TITULO.SetFocus
End If
End Sub

Private Sub AUTOR_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
EDITORIAL.SetFocus
End If
End Sub

Private Sub BIBLIOTECA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
OBSERVACIONES.SetFocus
End If
End Sub

Private Sub CANCELAR_Click()
Form3.Visible = True
Form4.Visible = False
NPBG.Enabled = False
REGISTRO.Enabled = False
ASIGNATURA.Enabled = False
TITULO.Enabled = False
AUTOR.Enabled = False
EDITORIAL.Enabled = False
BIBLIOTECA.Enabled = False
OBSERVACIONES.Enabled = False
ALTA.Enabled = False
ACTUALIZAR.Enabled = True
CANCELAR.Enabled = True
AGREGAR.Enabled = True
End Sub

Private Sub EDITORIAL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
BIBLIOTECA.SetFocus
End If
End Sub

Private Sub Form_Load()
Call Conectar
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = 1
End Sub

Private Sub OBSERVACIONES_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ALTA.SetFocus
End If
End Sub

Private Sub REGISTRO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ASIGNATURA.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
Dim fecha As Variant
fecha = Date
Label4.Caption = Str(fecha)
End Sub

Private Sub TITULO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
AUTOR.SetFocus
End If
End Sub

 Añadir comentario
bieber - 7 jun 2012, 01:06
muy larga programacion pero muy buena :D
Añadir comentario
Haz una pregunta
Este documento intitulado « problemas con botones visual basic » de Kioskea (es.kioskea.net) esta puesto a diposición bajo la licencia Creative Commons. Puede copiar, modificar bajo las condiciones puestas por la licencia, siempre que esta nota sea visible.
Únete ahora

¿No eres todavia usuario?

inscríbete, gratuitamente y en menos de un minuto!

Los miembros obtienen más respuestas que los usuarios anónimos.

Ser miembro te permite llevar un seguimiento detallado de tus consultas.

Ser miembro te permite gozar de otras opciones adicionales.

Entrevista exclusiva para Kioskea
Kevin Turner
Recibe nuestro newsletter

salud.kioskea.net