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/2002RICHASRD ARCE
Ha realizado una valoración positiva de este curso.
14/12/2002fidel
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
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
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/2002fidel
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
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
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/2002David
Excelente y MUY completo
05/01/2003alejandro
desde luego es muy completo y facil de entender
24/05/2003Misterio
esta pesimo..no vale la pena el que lo escribio es un pobre mediocre...
10/07/2003angela
hagan algo mejor
24/07/2003Mariano Porcile
Lo estoy siguiendo y es un curso facil de leer y llevar. No te aburrís.
28/10/2003Gerardo Cornejo
Buen trabajo, me sirvió de harto...
16/04/2004Eduardo
ME PODRIAN MANDAR CURSOS DE VISUAL BASIC
···NO LOS PUEDO BAJAR·····
POR FAVOR
15/05/2004dinorah liliana diaz padilla
muy bien pero tu sabes como hacer un proyecto a sistema con vbrun
11/06/2004MARK ANTONY
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/2005Valadares Erico
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/2005Valadares Erico
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/2007Ramón
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
[8.49 / 49 votos] - Visitas 54.021 
81% 
19%