Enlazar Acces y Visual Basic Base de Datos

Please download to get full document.

View again

All materials on our website are shared by users. If you have any questions about copyright issues, please report us to resolve them. We are always happy to assist you.
 14
 
  COMO ENLAZAR BASE DE DATOS EN ACESS A VISUAL BASIC Agrega en visual basic el control llamado Data esta por predeterminado en los controles! 2) Luego Agregas un control llamado DbGrid (Microsoft Data Base Grid) 3) En el control Data1 se encuentra una propiedad llamada Conecction String le das click al (...) = Ubicas la base de datos de access q creaste 4) En ese mismo control tienes una propiedad llamada DataSource = hay vas a ubicar la tabla de access a la cual te refieres q esta dicha informa
Related documents
Share
Transcript
  COMO ENLAZAR BASE DE DATOS EN ACESS A VISUAL BASIC Agrega en visual basic el control llamado Data esta por predeterminado en loscontroles!2) Luego Agregas un control llamado DbGrid (Microsoft Data Base Grid)3) En el control Data1 se encuentra una propiedad llamada Conecction String   le das click al (...) => Ubicas la base de datos de access q creaste4) En ese mismo control tienes una propiedad llamada DataSource => hay vasa ubicar la tabla de access a la cual te refieres q esta dicha informacion qquieres mostrar.5) En el control DbGrid hay una propiedad llamada DataSource le das click yse te desplegara un ComboBox donde vas a seleccionar el Control q tiene el   acceso a los datos en nuestro caso el Data1 1.0 Comenzando  Para seguir la línea de este corto tutorial debes tener conocimientos en   Microsoft Access y Visual Basic. Que lo disfrutes.   1.1 Creando una pequeña Base de Data Empecemos aclarando algo, Visual Basic no es un administrador de Base deDatos. En términos generales utiliza el gestor de base de datos Jet deMicrosoft Access u ODBC (Open Data Base Conectivity) para organizar losregistros.Bueno vamos a lo que vinimos. Primero debes crear una base de datos.Utilizaremos Microsoft Access (utilice la verisión 2000, que es el más comercialy el que tiene la mayoría de los usuarios.   Para efectos de este tutorial crearemos una base de datos llamada VideoRental. Luego creamos una tabla y la llamaremos Categoría. Deberá versealgo así:Debes seguir estos pasos antes de comenzar a enlazarla con Visual Basic.de Tools | Data Utilities | Convert Database | To Access97 format.  base de datos. Dale el nombre de Videos.  ¿Para qué esto?. Es para asegurar la compatibilidad con el driver de gestión quetengas en tu computadora (eso es lo que creo según mi experiencia.) 1.3 Enlazando Registros  Ahora abrimos el entorno Visual Basic. Crea un formulario y dale el nombrede Películas. Cambia la propiedad Caption a Visualizar videos y categorías .Ahora sigue estos pasos: Texbox y dos Labels ( No es necesario darles nombres )   Text del Texbox en blanco. Caption del primer label a Película Caption del Segundo label   a Categoría Deberá verse algo así:Ahora llega la parte interesante. Data . Arrástralo alFormulario, cambia el la propiedad Caption a Moverse entre los registros yquedará así: Property Window la propiedad Database Name delobjeto Data presiona y busca el directorio en el cual grabaste la base da   datos llamada Videos (recuerda que debe ser esta porque es la que esta enformato Access 97).nada más y nada menos que la tabla que creamos en Access).Si llegaste hasta este paso sin ningún problema te felicito, sino verifica que estesutilizando la base de datos en formato Access 97. Data Source yselecciona Data1 (que es el nombre del objeto Data).y selecciona Películas . Categoría de la propiedad DataField .Presiona la tecla F5 y verás el resultado.   Muévete entre los registros con el Control Data. 1.4 End IF Bueno llego el final de este tutorial pero quiero explicarles algunas cosas. Lafunción del objeto Data es enlazar los registros de la base de datos que creaste,   pero medio de la propiedad RecordSource a nuestra aplicación. Como habrásnotado no se utilizó ninguna código de programación para esta pequeña aplicaciónaunque también es posible utilizando el objeto Recordset y sus métodos.SQL(Structured Query Language) es otra opción muy interesante y te recomiendoque lo aprendas pues si quieres crear buenas aplicaciones de manejo de datos es   una de las mejores tecnologías. SQL es un lenguaje para crear consultas(queries)y búsquedas, puede crear y manipular bases de datos y su contenido. SQL escompatible con todos los lenguajes de programación ya que es un estandarizado y   basado en código ANSI.Además de utilizar el objeto Texbox para visualizar datos puedes utilizar otrosobjetos. Uno muy común es el MSFlexGrid que organiza los datos en forma de   tabla. EJERCICIO Solo tienes que agregar en project/references :Microsoft ActiveX Data Objects 2.8 Library (msado28.tbl)Microsoft ActiveX Data Objects Recordset 6.0 Library (msador15.dll)Este es el código del botón del form1:Private Sub Command1_Click()Dim Rs As ADODB.RecordsetSet Rs = AbreRs( SELECT * FROM Datgen WHERE apaterno like '% +Trim(Text1.Text) + %' )If Not Rs.EOF ThenForm2.ShowElseMsgBox Nombre: + Trim(Text1.Text) + no fue encontrado , vbInformation   End IfCall CierraRS(RsB)Call CierraConeccion() End Sub  Este el el código de las funciones, lo puedes agregar en un modulo:Dim Cnnn As ADODB.Connection'Funciones de coneccion a la base de datos y recorsetsSub AbreConeccion()'SQL en caso de coneccion con SQL'StringConeccion = Provider=SQLOLEDB;Data Source=NombreServidor;Initial   Catalog=NombreBaseDatos;User ID=Usuario;Password=Password; 'Access en caso de coneccion con AccesssNombreBase = app.path+ \MiBasedeDatos.MDB   StringConeccion = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= +sNombreBase + ; On Error Resume NextIf (Cnnn.State = adStateClosed) ThenSet Cnnn = New ADODB.ConnectionCnnn.CursorLocation = adUseClientCnnn.CommandTimeout = 200000Cnnn.Open StringConeccionEnd IfEnd SubSub CierraConeccion()On Error Resume NextIf (Cnnn.State <> adStateClosed) ThenCnnn.CloseSet Cnnn = NothingEnd IfEnd SubFunction AbreRs(SQLStringAccess As String) As ADODB.RecordsetAbreConeccion ' Se ejecuta la funcion para abrir la conección con la base de datosDim RsNew As ADODB.RecordsetSet RsNew = New ADODB.RecordsetRsNew.CursorLocation = adUseClientRsNew.Open SQLStringAccess, Cnnn, adOpenStatic, adLockOptimisticSet AbreRs = RsNewEnd FunctionSub CierraRS(RsCerrar As ADODB.Recordset)If RsCerrar.State = adStateOpen ThenRsCerrar.CloseSet RsCerrar = NothingEnd IfEnd Sub
Related Search
We Need Your Support
Thank you for visiting our website and your interest in our free products and services. We are nonprofit website to share and download documents. To the running of this website, we need your help to support us.

Thanks to everyone for your continued support.

No, Thanks
SAVE OUR EARTH

We need your sign to support Project to invent "SMART AND CONTROLLABLE REFLECTIVE BALLOONS" to cover the Sun and Save Our Earth.

More details...

Sign Now!

We are very appreciated for your Prompt Action!

x