Segunda
Parcial.
Practica
9
Objetivo.
El
objetivo de esta Práctica es el de mostrar las propiedades de RDO.
Material:
Una
computadora Pentium III.
Visual
Basic 6.
Una
base de datos.
Desarrollo:
Usaremos
una base de datos de Windows para la realización de esta practica.
Primero
hacemos nuestra primer idea de la interfaz que llevara el programa.
Enseguida,
empezamos a programar:
Declaramos
las variable que utilizaremos una de tipo rdoEnvironment, una de tipo rdoConnection,
una de tipo rdoResultset, y otra de tipo rdoEngine.
Después
de que ya hicimos esto creamos unas rutinas que ocuáremos como son
una para limpiar y otra para bloquear.
Empezamos a programas lo que hará cada botón en la interfaz (primero, ultimo, siguiente, anterior, etc.), así como las propiedades que aparecerán en las ListBox.
Estas propiedades son las siguientes:
Propiedades del rdoEngine
List1.AddItem
("rdoDefaultErrorThreshold=" &Motor.rdoDefaultErrorThreshold)
List1.AddItem
("rdoDefaultLoginTimeout=" & Motor.rdoDefaultLoginTimeout)
List1.AddItem
("rdoDefaultPassword=" & Motor.rdoDefaultPassword)
List1.AddItem
("rdoDefaultUser=" & Motor.rdoDefaultUser)
List1.AddItem
("rdoLocaleID=" & Motor.rdoLocaleID)
List1.AddItem
("rdoVersion=" & Motor.rdoVersion)
Propiedades del rdoEnvironment
List2.AddItem
("hEnv=" & Hambiente.hEnv)
List2.AddItem
("LoginTimeout=" & Hambiente.LoginTimeout)
List2.AddItem
("Name=" & Hambiente.Name)
List2.AddItem
("UserName=" & Hambiente.UserName)
Propiedades
del rdoConnection
List3.AddItem
("Connect=" & Conexion.Connect)
List3.AddItem
("CursorDriver=" & Conexion.CursorDriver)
List3.AddItem
("hDbc=" & Conexion.hDbc)
List3.AddItem
("LoginTimeout=" & Conexion.LoginTimeout)
List3.AddItem
("LogMessages=" & Conexion.LogMessages)
List3.AddItem
("Name=" & Conexion.Name)
List3.AddItem
("QueryTimeout=" & Conexion.QueryTimeout)
List3.AddItem
("RowsAffected=" & Conexion.RowsAffected)
List3.AddItem
("StillConnecting=" & Conexion.StillConnecting)
List3.AddItem
("StillExecuting=" & Conexion.StillExecuting)
List3.AddItem
("Transactions=" & Conexion.Transactions)
List3.AddItem
("Updatable=" & Conexion.Updatable)
List3.AddItem
("Version=" & Conexion.Version)
'Propiedades del rdoConnection
List4.AddItem
("BOF=" & RS.BOF)
List4.AddItem
("Bookmark=" & RS.Bookmark)
List4.AddItem
("Bookmarkable=" & RS.Bookmarkable)
List4.AddItem
("EditMode=" & RS.EditMode)
List4.AddItem
("EOF=" & RS.EOF)
List4.AddItem
("hStmt=" & RS.hStmt)
List4.AddItem
("LastModified=" & RS.LastModified)
List4.AddItem
("LockEdits=" & RS.LockEdits)
List4.AddItem
("LockType=" & RS.LockType)
List4.AddItem
("Name=" & RS.Name)
List4.AddItem
("PercentPosition=" & RS.PercentPosition)
List4.AddItem
("Restartable=" & RS.Restartable)
List4.AddItem
("RowCount=" & RS.RowCount)
List4.AddItem
("Status=" & RS.Status)
List4.AddItem
("StillExecuting=" & RS.StillExecuting)
List4.AddItem
("Transactions=" & RS.Transactions)
List4.AddItem
("Type=" & RS.Type)
List4.AddItem
("Updatable=" & RS.Updatable)
Conclusiones:
Hemos
aprendido a usar la conexión RDO y mostrar las propiedades de:rdoEngine,
rdoEnvironment, rdoConnection y rdoResultset.
Practica
10
Objetivo.
El
objetivo de esta Práctica es el saber realizar búsquedas
con RDO.
Material:
Una
computadora Pentium III.
Visual
Basic 6.
Una
base de datos.
Desarrollo:
Se
diseño la interfaz para el programa.
Primero
se declararon las variables correspondientes.
Se empezó a programar los eventos de botó el la interfaz.
Se desarrollo la rutina para conectarnos con la base de datos “biblio”.
Todo esto se realiza con un DSN.
Aquí tenemos una rutina del query.
Set
Query = Conexion.CreateQuery("Query", Consulta)
Query(0).Type
= rdTypeDOUBLE
Query(0)
= Val(Text1(0).Text)
Set
RS = Query.OpenResultset(rdOpenDynamic, rdConcurValues)
If
RS.RowCount <> 0 Then
Text1(1).Text
= RS!au_id & ""
Text1(2).Text
= RS!author & ""
Text1(3).Text
= RS![year born] & ""
Else
MsgBox
"No hay registros encontrados con estas carateristicas"
End
If
RS.Close
Query.Close
Conclusiones:
El desarrollo de esta práctica se basa la forma de búsqueda que nos ofrece RDO de acuerdo a su estructura.
Con esta aprendimos a hacer búsquedas con RDO en los distintos campo de una base de datos.
Practica
11
Objetivo.
El
objetivo de esta Práctica es el de mostrar en una lista los diferentes
eventos que se realizan en cada operación con RDO.
Material:
Una
computadora Pentium III.
Visual
Basic 6.
Una
base de datos.
Desarrollo:
Después de diseñar la interfaz que lleva el programa comenzamos con la programación, direccionamos a la base de datos que vamos a usar.
Integramos el código que llevara para mostrar los eventos cada vez que se realice algo.
Y por último probamos el programa.
Aquí un parte del código fuente:
Private
Sub Connection_QueryTimeout(ByVal Query As RDO.rdoQuery, Cancel As Boolean)
List1.AddItem
"Connection.QueryTimeout"
End
Sub
Private
Sub Connection_WillExecute(ByVal Query As RDO.rdoQuery, Cancel As Boolean)
List1.AddItem
"Connection.WillExecute"
End
Sub
Private
Sub Enviroment_BeginTrans()
List1.AddItem
"Enviroment.BeginTrans"
End
Sub
Private
Sub Enviroment_CommitTrans()
List1.AddItem
"Enviroment.CommitTrans"
End Sub
.
.
.
Private
Sub Edicion()
bolEdicion
= Not bolEdicion
Text1(0).Enabled
= bolEdicion
Text1(1).Enabled
= bolEdicion
Text1(2).Enabled
= bolEdicion
cmmEdicionBD(0).Enabled
= Not bolEdicion
cmmEdicionBD(1).Enabled
= Not bolEdicion
cmmEdicionBD(2).Enabled
= Not bolEdicion
End
Sub
Private
Sub ActualizarControles()
Text1(0)
= Resultset!Au_ID & ""
Text1(1)
= Resultset!Author & ""
Text1(2)
= Resultset![Year Born] & ""
End
Sub
Conclusiones:
Pudimos mostrar mediante un programa todo lo que se “haría internamente” en una operación como esa.
Practica
12
Objetivo.
El
objetivo de esta Práctica es el de conectarnos a una base de datos
realizando formas distintas usando un Datacontrol de ADODB.
Material:
Una
computadora Pentium III.
Visual
Basic 6.
Una
base de datos.
Desarrollo:
Realizamos la interfaz a usar.
Creamos las variables a usar.
Realizamos la rutina para la conexión.
Select
Case Index
Case
0
Cstring.Locked
= False
Cstring.Text
= "DSN=biblio"
Cstring.BackColor
= vbButtonFace
Cstring.ForeColor
= vbBlack 'vbInactiveCaptionText
Cstring.Locked
= True
Case
1
Cstring.Locked
= False
Cstring.Text
= "Provider=MSDASQL.1;Persist Security Info=False;Data Source=biblio;Mode=Read|Write"
Cstring.BackColor
= vbButtonFace
Cstring.ForeColor
= vbBlack ' vbInactiveCaptionText
Cstring.Locked
= True
Case
2
Cstring.Locked
= False
Cstring.BackColor
= vbButtonFace
Cstring.ForeColor
= vbBlack ' vbInactiveCaptionText
Cstring.Text
= "FILE NAME=" & App.Path & "\archivo.UDL"
Cstring.Locked
= True
Case
3
Cstring.BackColor
= vbWindowBackground
Cstring.ForeColor
= vbButtonText
Cstring.Locked
= False
End Select
Enlazamos con un control Data1 para Adodc.
Conclusiones:
Tenemos ya hecha la interfaz y programación de un programa el cual nos permitirá enlazarnos a una base de datos mediante varias formas didtontas como son: ODBC, OLEDB, UDL, etc.
Practica
13
Objetivo.
El
objetivo de esta Práctica es el de conectarnos a una base de datos
realizando formas distintas no usando Datacontrol.
Material:
Una
computadora Pentium III.
Visual
Basic 6.
Una
base de datos.
Desarrollo:
Realizamos la interfaz a usar.
Creamos las variables a usar.
Realizamos la rutina para la conexión.
Esta practica difiere con la anterior en que aquí no se usara un datacontrol por lo que la elaboración de esta práctica es un poco mas tediosa.
Aquí tenemos una parte del código:
Private
Sub Form_Unload(Cancel As Integer)
On
Error GoTo mal
If
Data1.Recordset.State = 1 Then Data1.Recordset.Close
mal:
Unload
Me
End
Sub
Private
Sub Guardar_Click()
'Validar
datos de entrada
If
Author1.Text = Empty Or IsNumeric(Author1.Text) Then
Call
MsgBox("Author contiene un valor invalido", vbExclamation, "Add")
Exit
Sub
Else
If
Val(YearBorn1.Text) = 0 Or Not IsNumeric(YearBorn1.Text) Or Val(YearBorn1.Text)
> 32767 Then
Call
MsgBox("Year Born contiene un valor invalido", vbExclamation, "Add")
Author1.SetFocus
Exit
Sub
End
If
End
If
'Data1.Recordset!AU_ID
= Val(ID1.Text)
Data1.Recordset!AUTHOR
= Author1.Text
Data1.Recordset![YEAR
BORN] = Val(YearBorn1.Text)
Data1.Recordset.Update
'Frame1.Visible
= False
LockText
UnlockButton
End
Sub
Conclusiones:
Al hacer un trabajo lo podemos realizar de muchas formas y aquí se muestra claramente como unos caminos son más largos que otros, pero para esto se tiene que tomar en cuenta lo que realmente queremos hacer, lo sencillo y seguro para poder hacerlo de la mejor manera.
Practica
14 y 15
Objetivo.
En
estas prácticas aprenderemos a crear, recuperar y guardar archivos
en formatos distintos para Internet de una base de datos.
Material:
Una
computadora Pentium III.
Visual
Basic 6.
Una
base de datos.
Desarrollo:
Creamos las interfaces de las practicas.
Después creamos las rutinas que vamos a usar.
Después de escoger el formato en el que queremos guardar el archivo procedemos a mostrarlo con un navegador.
Aquí parte del código.
Private Sub ComNew_Click()
EnabledCom (True)
If miRS.State = adStateClosed Then
miRS.Open
Set collection.DataSource = miRS
collection.Add Text1(1), "text", "Au_ID"
collection.Add Text1(2), "text", "Author"
collection.Add Text1(3), "text", "Year Born"
End If
miRS.AddNew
End Sub
Private Sub ComSaveADTG_Click()
CommonDialog1.DefaultExt = "adtg"
CommonDialog1.Filter = "Archivos ADTG(*.ADTG)|*.adtg"
CommonDialog1.ShowSave
miRS.Save CommonDialog1.FileName, adPersistADTG
End Sub
Private Sub ComSaveXML_Click()
CommonDialog1.DefaultExt = "XML"
CommonDialog1.Filter = "Archivos XML (*.xml)|*.xml"
CommonDialog1.ShowSave
miRS.Save CommonDialog1.FileName, adPersistXML
'miRS.Close
Load frmBrowser
Show MDIChild, frmBrowser
frmBrowser.brwWebBrowser.Navigate Form1.CommonDialog1.FileName
frmBrowser.Refresh
End Sub
Private Sub ComSaveHTML_Click()
Dim num As Integer
CommonDialog1.DefaultExt = "htm"
CommonDialog1.Filter = "Archivos HTML (*.htm,*.html)|*.htm|*.html|"
CommonDialog1.ShowSave
num = FreeFile
Open CommonDialog1.FileName For Output As #num
Print #num, "<html>"
Print #num, "<head>"
Print #num, "<title>La Base de datos</title>"
Print #num, "</head>"
Print #num, "<body bgcolor=green" & Chr(34)
& CStr("#") & "FFFFFF" & Chr(34) & ">"
Print #num, "<div align="; center; "><center>"
Print #num, "<table border="; 0; ">"
Print #num, "<tr>"
Print #num, "<td align="
& Chr(34) & "center" & Chr(34) & "bgcolor=red" & Chr(34)
& CStr("#") & "008080" & Chr(34) & "BorderColor = " &
Chr(34) & CStr("#") & "008080" & Chr(34)
Print #num, "bordercolordark="
& Chr(34) & CStr("#") & "008080" & Chr(34) & "bordercolorlight="
& Chr(34) & CStr("#") & "008080" & Chr(34) & ">"
Print #num, "<font color="
& Chr(34) & CStr("#") & "FFFFFF" & Chr(34) & "><strong>Au_ID</strong></font></td>"
Print #num, "<td align="
& Chr(34) & "center" & Chr(34) & "bgcolor=red" & Chr(34)
& CStr("#") & "008080" & Chr(34) & "BorderColor = " &
Chr(34) & CStr("#") & "008080" & Chr(34)
Print #num, "bordercolordark="
& Chr(34) & CStr("#") & "008080" & Chr(34) & "bordercolorlight="
& Chr(34) & CStr("#") & "008080" & Chr(34) & ">"
Print #num, "<font color="
& Chr(34) & CStr("#") & "FFFFFF" & Chr(34) & "><strong>Author</strong></font></td>"
Print #num, "<td align="
& Chr(34) & "center" & Chr(34) & "bgcolor=red" & Chr(34)
& CStr("#") & "008080" & Chr(34) & "BorderColor = " &
Chr(34) & CStr("#") & "008080" & Chr(34)
Print #num, "bordercolordark="
& Chr(34) & CStr("#") & "008080" & Chr(34) & "bordercolorlight="
& Chr(34) & CStr("#") & "008080" & Chr(34) & ">"
Print #num, "<font color="
& Chr(34) & CStr("#") & "FFFFFF" & Chr(34) & "><strong>Year
Born</strong></font></td>"
If Not miRS.BOF Then
miRS.MoveFirst
End If
Do While Not miRS.EOF
Print #num, "<tr>"
Print #num, "<td>" & miRS!Au_ID & "</td>"
Print #num, "<td>" & miRS!Author & "</td>"
Print #num, "<td>" & miRS![Year Born] & "</td>"
Print #num, "</tr>"
miRS.MoveNext
Loop
Print #num, "</tr>"
Print #num, "</table>"
Print #num, "</center></div>"
Print #num, "</body>"
Print #num, "</html>"
Close #num
Load frmBrowser
Show MDIChild, frmBrowser
frmBrowser.brwWebBrowser.Navigate CommonDialog1.FileName
frmBrowser.Refresh
End Sub
