Hayyy siiii señor JSBSAN funciono excelente muchas gracias!!
pero porque se necesitarian esas llaves? bueno debe ser algo unico y especifico en este lenguaje
pero gracias observen lo que hace mi formulario junto con las funciones para algun otro que este en aprietos porque para eso estamos aqui en comunidad gracias
Formulario de agregar registro con funciones:
codigo:
Public Sub Button1_Click()
Message.Warning("USTED ESTA INTENTANDO ACCEDER A PRIVILEGIOS DE ADMINISTRADOR, SI USTED LO ES, INTRODUZCA LA CONTRASEÑA")
contrasenaAD.Show
End
Public Sub Form_Open()
TextBox1.SetFocus
TextBox7.text = Date
If coneccion.conectarbase()
Endif
End
Public Sub Button2_Click()
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or ComboBox1.Text = ""
Message.Info("DEBE LLENAR LOS CAMPOS REQUERIDOS ")
Else
Try coneccion.asiscon.EXEC("insert into asesores values(&1,&2,&3,&4,&5,&6,&7,&8,&9,&{10})",
TextBox6.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, ComboBox3.Current.Text, TextBox5.Text, ComboBox2.Current.Text, ComboBox2.Current.Text, TextBox7.Text)
If Error Then
Message.Error("NO SE PUDIERON GUARDAR LOS DATOS")
Message.Info("EL CÓDIGO ASIGNADO NO PUEDE SER IGUAL AL DE LOS OTROS YA REGISTRADOS, POR FAVOR SI TIENE DUDAS SOBRE EL CÓDIGO CONSULTE VER REGISTRO")
Else
Message.Info("SU REGISTRO SE HA AGREGADO EXITOSAMENTE")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
Endif
Endif
End
Public Sub Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
End
Public Sub Button4_Click()
Me.Close
End
Public Sub MovieBox1_MouseDown()
Message.Info("BIENVENIDO AQUÍ PODRÁ VER EL REGISTRO COMPLETO DE ASESORES")
verregistrosAS.Show
End
Public Sub PictureBox6_MouseDown()
Message.Info("UPS CUIDADO SE HA HABILITADO EL BOTÓN VOLVER")
Button1.Enabled = True
End
Public Sub PictureBox7_MouseDown()
Button1.Enabled = False
End
Public Sub Label11_MouseDown()
End
Public Sub PictureBox2_MouseDown()
End
Public Sub TextBox6_change()
CInt(TextBox6.Text) 'Convierte el numero en entero
Catch
TextBox6.Text = Mid$(TextBox6.Text, 1, -1) 'Si no es un numero borra el caracter
Stop Event
End
Public Sub TextBox1_Change()
CInt(TextBox1.Text) 'Convierte el numero en entero
Catch
TextBox1.Text = Mid$(TextBox1.Text, 1, -1) 'Si no es un numero borra el caracter
Stop Event
End
Public Sub TextBox2_Keypress()
If Key.Text >= "0" And Key.Text <= "9" Then
Stop Event
Endif
End
Public Sub Label7_MouseDown()
End
Public Sub TextBox1_KeyPress()
End
Public Sub TextBox5_Change()
CInt(TextBox5.Text) 'Convierte el numero en entero
Catch
TextBox5.Text = Mid$(TextBox5.Text, 1, -1) 'Si no es un numero borra el caracter
Stop Event
End
Public Sub TextBox3_Keypress()
If Key.Text >= "0" And Key.Text <= "9" Then
Stop Event
Endif
End
Imagen del registro guardado en tableview observen:
Codigo:
Public Sub Form_Open()
Dim i As Integer
tabla.Header = True
Me.Center
If coneccion.conectarbase() Then Return
tabla.Clear()
tabla.Columns.Count = 10
tabla.Columns[0].Text = "codigo"
tabla.Columns[1].Text = "cedula"
tabla.Columns[2].Text = "nombre"
tabla.Columns[3].Text = "apellido"
tabla.Columns[4].Text = "direccion"
tabla.Columns[5].Text = "codigo_cel"
tabla.Columns[6].Text = "telefono"
tabla.Columns[7].Text = "sexo"
tabla.Columns[8].Text = "programa"
tabla.Columns[9].Text = "fecha_ingreso"
End
Public Sub Button2_Click()
Me.Close
End
Public Sub Button1_Click()
Dim fila As Integer
coneccion.asisresul = coneccion.asiscon.Exec("Select *from asesores")
fila = 0
Do While coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["programa"]
tabla[fila, 9].Text = coneccion.asisresul["fecha_ingreso"]
coneccion.asisresul.MoveNext()
fila = fila + 1
Loop
tabla.Refresh
Button1.Enabled = False
End
Public Sub Button3_Click()
Dim ruta As String
Dim archivo As File
Dim i, j As Integer
ruta = User.Home &/ "Reporte de Asesores.html"
Message.Warning("RECUERDE GUARDAR CADA REPORTE APARTE, DEBIDO A QUE SOBRECRIBE EL ANTERIOR!")
If Message.Question(" ¿DESEA GUARDAR UN REPORTE DE ASERORES?", "SI", "NO") = 1 Then
' [GB2:OPEN] OPEN ruta FOR WRITE CREATE AS #archivo
archivo = Open ruta For Write Create
Print #archivo, "<html>"
Print #archivo, "<head><title>Reporte en HTML de Asesores</title></head>"
Print #archivo, "<body topmargin='0' leftmargin='0'"
Print #archivo, ">"
Print #archivo, "<table border='1' width='500' cellpadding='4' cellspacing='2'>"
Print #archivo, " <tr>"
Print #archivo, " <td colspan='20' align='center'>"
Print #archivo, " <h3>Listado de Asesores</h3>"
Print #archivo, " <tr>"
Print #archivo, " <td align ='center'>Codigo</td>"
Print #archivo, " <td align='center'>Cedula</td>"
Print #archivo, " <td align='center'>Nombres</td>"
Print #archivo, " <td align='center'>Apellidos</td>"
Print #archivo, " <td align='center'>Direccion</td>"
Print #archivo, " <td align='center'>Codigo de telefono</td>"
Print #archivo, " <td align='center'>Telefono</td>"
Print #archivo, " <td align='center'>Sexo</td>"
Print #archivo, " <td align='center'>Programa</td>"
Print #archivo, " <td align='center'>Fecha de Ingreso</td>"
Print #archivo, " </tr>"
For i = 0 To tabla.rows.Count - 1
Print #archivo, " <tr>"
For j = 0 To tabla.Columns.Count - 1
Print #archivo, " <td>" & tabla[i, j].Text & "</td>"
Next
Print #archivo, " </tr>"
Next
Print #archivo, "</table>"
Print #archivo, "</body>"
Print #archivo, "</html>"
Close #archivo
Message.Info("SE HA CREADO UN REPORTE EN MODO HTML CON ÉXITO (GUARDADO EN DIRECTORIO PRINCIPAL)")
Endif
End
Public Sub Button4_Click()
Me.Close
verregistrosAS.Show
End
---------------------------------------------
GRACIAS POR SUS AYUDAS
UN GRAN ABRAZO Y SALUDOS