Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Curso Básico de Programación en Visual Basic

Titulo:internet

Curso Básico de Programación en Visual Basic

Autor:Forma parte de El Guille
Lenguaje:Visual Basic
Curso de Visual Basic por entregas. Muy interesante.

Comentarios (16)Votos positivos 81%Votos negativos 19%

27/09/2002 Alicia ok
Hola Guillermo:
Sólo quiero comentar que eres una persona muy agradable, el manual de visual basic me ha servido bastante como guia. Soy estudiante de ingenieria en Sistemas Computacionales y no he tenido un buen maestro que me sepa explicar como usar el visual basic... De verdad que te felicito porque has sabido aclararme varias dudas que yo tenia.
Gracias..
15/11/2002 RICHASRD ARCE ok
Ha realizado una valoración positiva de este curso.
14/12/2002 fidel ok
tengo un problema con la programacion de ado me da el error 3251
en este formulario y anticipadamente te quiro dar la gracias por la ayuda que le das a todos los estudiantes que se estan iniciando en mundo visual

Public seguir As Integer
Option Explicit
Private tbase1 As ADODB.Connection
Private WithEvents ttcliente As ADODB.Recordset
Attribute ttcliente.VB_VarHelpID = -1


Private Sub cancelar_Click()
Form_Initialize
salir.SetFocus
End Sub

Private Sub eliminar_Click()
Dim ttcliente As Recordset
If MsgBox("Esta Seguro De Eliminar El Registro Actual", vbYesNo) = vbYes Then


With ttcliente


If (.EOF Or .BOF) Then
MsgBox ("No Hay Ningun Registro Activo")
Else
.Delete

.MoveFirst
cancelar_Click
End If
End With
Else
MsgBox ("Eliminacion Abortada")
End If

End Sub

Private Sub Form_Load()
Const spathbase As String = "C:\Mis documentos\visual basic\FGSYSTEM\base1.mdb"
Set tbase1 = New ADODB.Connection
Set ttcliente = New ADODB.Recordset
With tbase1
.ConnectionString = _
"provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & spathbase & ";"
.Open
End With

End Sub
Private Sub Form_Initialize()

txtcodigo.Text = ""
txtnombres.Text = ""
txtapellidos.Text = ""
txtcedula.Text = ""
txtcorreo.Text = ""
txtfecha.Text = ""
txtocupacion.Text = ""
Txttelefono.Text = ""
txtdireccion.Text = ""
Deshabilitar_txt
txtcodigo.Enabled = True
deshabilitar_botones
End Sub

Sub habilitar_txt()
txtcodigo.Enabled = True
txtnombres.Enabled = True
txtapellidos.Enabled = True
txtcedula.Enabled = True
txtcorreo.Enabled = True
txtfecha.Enabled = True
txtocupacion.Enabled = True
Txttelefono.Enabled = True
txtdireccion.Enabled = True
End Sub

Sub Deshabilitar_txt()
txtcodigo.Enabled = False
txtnombres.Enabled = False
txtapellidos.Enabled = False
txtcedula.Enabled = False
txtcorreo.Enabled = False
txtfecha.Enabled = False
txtocupacion.Enabled = False
Txttelefono.Enabled = False
txtdireccion.Enabled = False
End Sub


Sub mostrar()

txtcodigo.Text = ttcliente.Fields("codigo")
txtnombres.Text = ttcliente.Fields("nombres")
txtcedula.Text = ttcliente.Fields("cedula")
txtdireccion.Text = ttcliente.Fields("direccion")
txtocupacion.Text = ttcliente.Fields("ocupacion")
txtcorreo.Text = ttcliente.Fields("correo")
txtfecha.Text = ttcliente.Fields("fecha")
txtapellidos.Text = ttcliente.Fields("apellidos")
Txttelefono.Text = ttcliente.Fields("telefono")
End Sub

Public Sub añadir()
ttcliente.Fields("codigo") = txtcodigo.Text
ttcliente.Fields("nombres") = txtnombres.Text
ttcliente.Fields("cedula") = txtcedula.Text
ttcliente.Fields("direccion") = txtdireccion.Text
ttcliente.Fields("ocupacion") = txtocupacion.Text
ttcliente.Fields("correo") = txtcorreo.Text
ttcliente.Fields("fecha") = txtfecha.Text
ttcliente.Fields("apellidos") = txtapellidos.Text
ttcliente.Fields("telefono") = Txttelefono.Text
End Sub
Private Sub incluir_Click()
deshabilitar_botones
cancelar.Enabled = True
añadir
ttcliente.Update
ttcliente.MoveLast
MsgBox ("Registro Satisfactorio")
cancelar_Click

End Sub

Private Sub modificar_Click()

habilitar_txt
deshabilitar_botones
cancelar.Enabled = True
incluir.Enabled = False
txtcodigo.Enabled = False
modificar.Enabled = True
modificar.Caption = "Actualizar"

If seguir = 2 Then

modificar.Caption = "Modificar"
añadir
ttcliente.MoveFirst
ttcliente.Update

MsgBox ("Actualizacion Satisfactoria")
cancelar_Click
End If

seguir = seguir + 1

End Sub

Private Sub salir_Click()
Unload Me
End Sub
Public Sub deshabilitar_botones()
incluir.Enabled = False
modificar.Enabled = False
eliminar.Enabled = False
cancelar.Enabled = False

End Sub
Public Sub habilitar_botones()
incluir.Enabled = True
modificar.Enabled = True
eliminar.Enabled = True
cancelar.Enabled = True
End Sub
Private Sub txtcodigo_LostFocus()
Dim sbuscar As String
sbuscar = txtcodigo.Text
sbuscar = Replace(sbuscar, "*", "%")
sbuscar = Replace(sbuscar, "?", "_")
txtcodigo.Text = sbuscar

sbuscar = "select * from tcliente where codigo like '" & sbuscar & "' order by codigo"
Set ttcliente = tbase1.Execute(sbuscar)

With ttcliente
If (.BOF And .EOF) Then
If MsgBox(" El Cliente No 'EXISTE' ¿Desea Registrarlo? ", vbYesNo) = vbYes Then

.AddNew
habilitar_txt
txtcodigo.Enabled = False
habilitar_botones
modificar.Enabled = False
eliminar.Enabled = False


End If

Else
Do While Not .EOF
seguir = 1
Deshabilitar_txt
mostrar
habilitar_botones
incluir.Enabled = False

.MoveNext
Loop
End If
End With


End Sub

espero que me puedas ayudar a solventar este problema ya que me ha tenido bastante preocupado al no saber como resolverlo

gracias

espero que puedas responderme guille gracias
14/12/2002 fidel ok
tengo un problema con la programacion de ado me da el error 3251
en este formulario y anticipadamente te quiro dar la gracias por la ayuda que le das a todos los estudiantes que se estan iniciando en mundo visual

Public seguir As Integer
Option Explicit
Private tbase1 As ADODB.Connection
Private WithEvents ttcliente As ADODB.Recordset
Attribute ttcliente.VB_VarHelpID = -1

Private Sub cancelar_Click()
Form_Initialize
salir.SetFocus
End Sub

Private Sub eliminar_Click()
Dim ttcliente As Recordset
If MsgBox("Esta Seguro De Eliminar El Registro Actual", vbYesNo) = vbYes Then

With ttcliente

If (.EOF Or .BOF) Then
MsgBox ("No Hay Ningun Registro Activo")
Else
.Delete "aqui tambien"

.MoveFirst
cancelar_Click
End If
End With
Else
MsgBox ("Eliminacion Abortada")
End If

End Sub

Private Sub Form_Load()
Const spathbase As String = "C:\Mis documentos\visual basic\FGSYSTEM\base1.mdb"
Set tbase1 = New ADODB.Connection
Set ttcliente = New ADODB.Recordset
With tbase1
.ConnectionString = _
"provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & spathbase & ";"
.Open
End With

End Sub
Private Sub Form_Initialize()

txtcodigo.Text = ""
txtnombres.Text = ""
txtapellidos.Text = ""
txtcedula.Text = ""
txtcorreo.Text = ""
txtfecha.Text = ""
txtocupacion.Text = ""
Txttelefono.Text = ""
txtdireccion.Text = ""
Deshabilitar_txt
txtcodigo.Enabled = True
deshabilitar_botones
End Sub

Sub habilitar_txt()
txtcodigo.Enabled = True
txtnombres.Enabled = True
txtapellidos.Enabled = True
txtcedula.Enabled = True
txtcorreo.Enabled = True
txtfecha.Enabled = True
txtocupacion.Enabled = True
Txttelefono.Enabled = True
txtdireccion.Enabled = True
End Sub

Sub Deshabilitar_txt()
txtcodigo.Enabled = False
txtnombres.Enabled = False
txtapellidos.Enabled = False
txtcedula.Enabled = False
txtcorreo.Enabled = False
txtfecha.Enabled = False
txtocupacion.Enabled = False
Txttelefono.Enabled = False
txtdireccion.Enabled = False
End Sub

Sub mostrar()

txtcodigo.Text = ttcliente.Fields("codigo") "aqui me da el error"
txtnombres.Text = ttcliente.Fields("nombres")
txtcedula.Text = ttcliente.Fields("cedula")
txtdireccion.Text = ttcliente.Fields("direccion")
txtocupacion.Text = ttcliente.Fields("ocupacion")
txtcorreo.Text = ttcliente.Fields("correo")
txtfecha.Text = ttcliente.Fields("fecha")
txtapellidos.Text = ttcliente.Fields("apellidos")
Txttelefono.Text = ttcliente.Fields("telefono")
End Sub

Public Sub añadir()
ttcliente.Fields("codigo") = txtcodigo.Text "aqui ta,bien"
ttcliente.Fields("nombres") = txtnombres.Text
ttcliente.Fields("cedula") = txtcedula.Text
ttcliente.Fields("direccion") = txtdireccion.Text
ttcliente.Fields("ocupacion") = txtocupacion.Text
ttcliente.Fields("correo") = txtcorreo.Text
ttcliente.Fields("fecha") = txtfecha.Text
ttcliente.Fields("apellidos") = txtapellidos.Text
ttcliente.Fields("telefono") = Txttelefono.Text
End Sub
Private Sub incluir_Click()
deshabilitar_botones
cancelar.Enabled = True
añadir
ttcliente.Update "aqui tambien"
ttcliente.MoveLast
MsgBox ("Registro Satisfactorio")
cancelar_Click

End Sub

Private Sub modificar_Click()

habilitar_txt
deshabilitar_botones
cancelar.Enabled = True
incluir.Enabled = False
txtcodigo.Enabled = False
modificar.Enabled = True
modificar.Caption = "Actualizar"

If seguir = 2 Then

modificar.Caption = "Modificar"
añadir
ttcliente.MoveFirst
ttcliente.Update "aqui tambien"

MsgBox ("Actualizacion Satisfactoria")
cancelar_Click
End If

seguir = seguir + 1

End Sub

Private Sub salir_Click()
Unload Me
End Sub
Public Sub deshabilitar_botones()
incluir.Enabled = False
modificar.Enabled = False
eliminar.Enabled = False
cancelar.Enabled = False

End Sub
Public Sub habilitar_botones()
incluir.Enabled = True
modificar.Enabled = True
eliminar.Enabled = True
cancelar.Enabled = True
End Sub
Private Sub txtcodigo_LostFocus()
Dim sbuscar As String
sbuscar = txtcodigo.Text
sbuscar = Replace(sbuscar, "*", "%")
sbuscar = Replace(sbuscar, "?", "_")
txtcodigo.Text = sbuscar

sbuscar = "select * from tcliente where codigo like '" & sbuscar & "' order by codigo"
Set ttcliente = tbase1.Execute(sbuscar)

With ttcliente
If (.BOF And .EOF) Then
If MsgBox(" El Cliente No 'EXISTE' ¿Desea Registrarlo? ", vbYesNo) = vbYes Then

.AddNew
habilitar_txt
txtcodigo.Enabled = False
habilitar_botones
modificar.Enabled = False
eliminar.Enabled = False

End If

Else
Do While Not .EOF
seguir = 1
Deshabilitar_txt
mostrar
habilitar_botones
incluir.Enabled = False

.MoveNext
Loop
End If
End With

End Sub

espero que me puedas ayudar a solventar este problema ya que me ha tenido bastante preocupado al no saber como resolverlo

gracias

espero que puedas responderme guille gracias
25/12/2002 David ok
Excelente y MUY completo
05/01/2003 alejandro ok
desde luego es muy completo y facil de entender
24/05/2003 Misterio ko
esta pesimo..no vale la pena el que lo escribio es un pobre mediocre...
10/07/2003 angela ko
hagan algo mejor
24/07/2003 Mariano Porcile ok
Lo estoy siguiendo y es un curso facil de leer y llevar. No te aburrís.
28/10/2003 Gerardo Cornejo ok
Buen trabajo, me sirvió de harto...
16/04/2004 Eduardo ok
ME PODRIAN MANDAR CURSOS DE VISUAL BASIC
···NO LOS PUEDO BAJAR·····
POR FAVOR
15/05/2004 dinorah liliana diaz padilla ok
muy bien pero tu sabes como hacer un proyecto a sistema con vbrun
11/06/2004 MARK ANTONY ko
nO PIERDAN TIEMPO LEYENDOLO, Y LOS QUE YA LO HICIERON NO SE SIENTAN FRUSTRADOS, LO QUE NO SIRVE ES ESTE TUTORIAL, PARA MI NO VALE UN CENTAVO.
12/07/2005 Valadares Erico ok
Guille, sos un gallego capo, la verdad, tu curso esta buenisimo. Yo soy amateur en la cosa, pero a veces a uno se le ocurre jugar un ratito con la compu e inventar cosas. Me ayudaste un monton, muchas gracias che! Si queres anda a visitar mi pagina en Internet, voy a poner un link ahi para tu pagina.
Salu2.
¡¡¡Erico!!!
12/07/2005 Valadares Erico ok
Guille, sos un gallego capo, la verdad, tu curso esta buenisimo. Yo soy amateur en la cosa, pero a veces a uno se le ocurre jugar un ratito con la compu e inventar cosas. Me ayudaste un monton, muchas gracias che! Si queres anda a visitar mi pagina en Internet, voy a poner un link ahi para tu pagina.
Salu2.
¡¡¡Erico!!!
22/06/2007 Ramón ok
Guille, bueno estos cursos son de años atrás. Hoy empecé con el primer capitulo y creeme que me sirvió y lo mejor es que estoy entendiendo.
Esto está ideal para una persona nueva en programación y sin experiencia
Gracias

Comenta este curso

Nombre
Correo (no se visualiza en la web)
Valoración del curso ok ko
Comentarios