• Lunes 23 de Diciembre de 2024, 00:11

Autor Tema:  Re: Ayudenme a entender este CODIGO  (Leído 1945 veces)

Cero Kull

  • Miembro activo
  • **
  • Mensajes: 33
    • Ver Perfil
Re: Ayudenme a entender este CODIGO
« en: Domingo 8 de Diciembre de 2002, 19:57 »
0
Hola amigos todavia sigo trancado con las bese de datos para acceder a las bases de datos., miren encontre este codigo en el computador de mi instituto pero no se como funciona o para que sirve ojala me lo puedan explicar de mejor forma.. ya que no le tengo la ayuda a visual basic 6.0 pronto la tendre claro.....

___Aqui esta el codigo____

[Se que esta son la declaraciones ]

Option Explicit  ->> pero que es esto ?

Dim WRKJET As Workspace ->> ESto que es. ?

Dim BdAiep As Database --> es el nombre de la base datos pero que es AS DATABASE ?

Dim RsAlumnos As Recordset -->> cREO QUE ESTO REEPLAZARIA A LAS PROPIEDAD DATABASENAME (RsAlumnos ES VARIABLE) aqui me gustaria saber como funciona mas adelante el recordset

Esta es la otra parte del codigo......

Private Sub Form_Load()
Set WRKJET = CreateWorkspace("", "admin", "", dbUseJet)
Set BdAiep = WRKJET.OpenDatabase("c:windowsescrit~1msbdbdaiep.mdb")
Set RsAlumnos = BdAiep.OpenRecordset("Select * from ing_Panas order by val(codigo_alumno)", dbOpenDynaset)
sw_modificar = True
End Sub

Aqui me gustaria que me lo explicaran mas facil linea por linea (disculpen la patudes) pero para no hacer preguntas tontas mas adelante y quizas poder ayudar mas..

Ojala me ayuden
B)

Code

  • Miembro activo
  • **
  • Mensajes: 38
    • Ver Perfil
    • http://kickme.to/shaolin
Re: Ayudenme a entender este CODIGO
« Respuesta #1 en: Lunes 9 de Diciembre de 2002, 11:13 »
0
HOla, me dao cuenta q toy respondiendo a dudas con el usuario de un amigo q se metio en este foro, desde mi pc y dejo grabada la password, Thanks Pini, xo tranqui q dentro de poco me regiatro yo, jeje

Weno al tema,

Mira maxo te voy a responder xo creo q todo lo q preguntas son cosas muy muy basicas y q aunq te lo explique lo mejor seria q te bajases un manual de "Acceso a bases de datos ADO desde codigo" q te resolveria mejor los problemas q tienes.


Option Explicit -> Esto es lo primero q el basic incluye cuando empiezas a escribir codigo y significa q a partir de aqui hasta la 1º funcion o sub q tengas en el formulario todas las variables q declares seran globales en dixo formulario.

Dim WRKJET As Workspace ->esto te crea un area de memoria o espacio de trabajo para tu proyecto.

Dim BdAiep As Database --> database es un tipo de varaible q indica a basic q lo declarado es una Base de datos

Dim RsAlumnos As Recordset ->Un recorset es un cursor, y un cursor es un conjunto de registros.por ejemplo en un recorset podrias meter todos los registros de una tabla, e ir de uno a otro.

Private Sub Form_Load()
Set WRKJET = CreateWorkspace("", "admin", "", dbUseJet) te crea un espacio de trabajo con privilegios de administrador(admin)
Set BdAiep = WRKJET.OpenDatabase("c:windowsescrit~1msbdbdaiep.mdb")asigna a la varible del tipo database una base de datos access
Set RsAlumnos = BdAiep.OpenRecordset("Select * from ing_Panas order by val(codigo_alumno)", dbOpenDynaset) Crea un cursor, recordset con unos determinados registros de la base de datos y le asigna un tipo de cursor, los tipos de cursor q le asignes a cada recorset son importentes xq cada uno te dara unas posibilidades u otras
sw_modificar = True (pone el swicth a true??, XD
End Sub

Un saludo, espero haberte ayudado xo mi consejo es q te bajes bajes un manual y te lo empolles xq si no no sacaras nada en claro, Alberto

javierbalk

  • Miembro MUY activo
  • ***
  • Mensajes: 142
  • Nacionalidad: 00
    • Ver Perfil
    • Print preview y grabar PDF en Visual Basic 6
Re: Ayudenme a entender este CODIGO
« Respuesta #2 en: Lunes 9 de Diciembre de 2002, 17:13 »
0
Hola Cero Kull:

Yo también estoy de acuerdo en que tienes que leer un libro o tutorial, fijate si en la web del Guille http://guille.costasol.net hay algo.

Lo que pasa es que estos son foros de consultas, no de enseñanza, ya que sería difícil eso, para eso se escriben los libros y los tutoriales, para que haya que escribirlos una sola vez y no uno para cada alumno.

Además aprendiendo solo de esta manera corres el riesgo que te indiquen algo mal, lo cual te va a confundir más.

Unas cositas:

Option Explicit ---> indica que en ese formulario o módulo de código todas las variables se tienen que declarar explícitamente.

Por ejemplo si abres un proyecto nuevo y escribes:

a = "Prueba"
MsgBox a

va a andar siempre y cuando no diga arriba Option Explicit, sino va a saltar un error. El código entonces tendría que ser:

Dim a

a = "Prueba"
MsgBox a

Ahí no va a saltar el error. El ámbito o alcance de las variables, sean globales o no, no va a cambiar por haber puesto Option Explicit.

En el menú Herramientas, Opciones en la paleta Edición hay una casilla que dice "Requerir declaración de variables", si está tildada, VB te va a colocar el Option Explicit automáticamente cada vez que agregues un formulario o un módulo.

Otra cosa que puedes hacer para aprender es posicionar el cursor en una palabra, por ejemplo en este caso Option y presionar F1, la ayuda de Vb es buena (al menos la de VB5 lo era, ahora ya no la uso tanto) y te van a salir todas las formas de usar la palabra Option (Option Explicit, Option Base, Option Compare ... etc)  
Ver la ayuda es más rápido que poner posts (creo).

Un comentario más: el usar la declaración explícita de variables puede parecer un poco incómodo, porque hay que escribir más, ya que hay que declararlas a todas, pero es totalmente recomendable ya que de otra manera puede haber errores muy difíciles de detectar, por ejemplo:

MiVariable = "prueba"
MsgBox MiVarriable

No sale nada ¿Por qué? porque me equivoqué y puse una r demás en el segundo uso. Entonces vb cree que son dos variables diferentes, MiVariable y MiVarriable.
El Option Explicit elimina esos problemas ya que va a saltar un error que me avisa que la variable no se encuentra declarada.

Conclusión: Usar siempre Option Explicit, poner la casilla tildada en la pantalla de opciones.

Saludos,
Javier

Cero Kull

  • Miembro activo
  • **
  • Mensajes: 33
    • Ver Perfil
Ayudenme a entender este CODIGO
« Respuesta #3 en: Martes 10 de Diciembre de 2002, 00:08 »
0
Gracias a Alberto y Gracias Javier!!

Saben seguire leyendo mas cosas, la verdad es por que pregunto tanto es que estudio solo nadie me a enceñado nada de visual solo lo he aprendido solo, investigando CLARO QUE LA MAYOR PARTE AQUI EN ESTE FORO, Y GRACIAS A MUCHOS QUE ME HAN RESPONDIDO LAS INQUETUDES..
De verdad muchas gracias!!!

Un Saludos

Atte. Cero Kull®