Expresa tu intelecto...
Hola amigo, si deseas ver el contenido del foro al 100% y evitar la publicidad te invitamos a que te registres y seas parte de esta gran comunidad...

Atte: el Staff de MrHouseLight.foroactivo.net
Últimos temas
» Me gustaría ver gente
Dom Sep 27, 2015 6:16 pm por Cristianita

» Hola Mundo
Mar Mar 05, 2013 8:03 pm por Cristianita

» Baja Usuario
Miér Jun 20, 2012 11:19 am por yorebelde

» Las groserias fuertes de tu pais
Miér Jun 20, 2012 5:30 am por daviz2111

» Glee: The Music, Seasons 1 & 2 (En 320 kbps!!!) (Duets Actualizado en 320 kbps completo!!!)
Lun Abr 23, 2012 5:43 am por yorebelde

» Motivos diagonales para Photoshop
Miér Mar 21, 2012 7:35 pm por Gearchile14

» ¿Que cover te gusta mas?
Dom Oct 09, 2011 4:11 pm por Misha.Star.Malfoy.Cullen

» Expresa tu humor...
Dom Oct 09, 2011 3:58 pm por Misha.Star.Malfoy.Cullen

» holaa!! u.u
Dom Oct 09, 2011 3:50 pm por Misha.Star.Malfoy.Cullen

» The Antique Shop
Dom Oct 09, 2011 3:47 pm por Misha.Star.Malfoy.Cullen

¿Quién está en línea?
En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado

Ninguno

La mayor cantidad de usuarios en línea fue 49 el Mar Sep 21, 2010 8:13 pm.
Contador total

Expresa tu intelecto... fue creado el Martes 15 Jun 2010 a las 04:55 PM, tiene 3045 días activo, 338 usuarios registrados, 310 temas creados, 7724 comentarios y 55 foros.
Ultimo usuario registrado: http://mrhouselight.forosactivos.net/profile.forum?mode=viewprofile&u=338rolando24

Free counter and web stats
Mensaje privado al admin

Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Ir abajo

Tutorial Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por MяHousєLιgнт el Vie Ago 27, 2010 5:11 pm

Hola!! Como el titulo dice, les mostrare como conectar su programa en Visual Basic a una base de datos en Access o SQL server 2000 mediante líneas de código y no mediante controles OCX, las ventajas de este tipo de conexión es que se evita colocar un control en cada lugar donde necesitas una conexión ya que esta conexión puede ser llamada desde cualquier parte del programa, lo que hace tu vida mas fácil, ahora vamos a los pasos, para esto hay dos cosas importantes que hay que hacer, el orden en que se haga no importa, una es agregar un modulo para el código y la referencia a las librerías.

Crear proyecto EXE o abrir uno que ya tengas trabajado
Crear un nuevo modulo con el menú: Proyecto > Agregar modulo

[Tienes que estar registrado y conectado para ver esa imagen]

En la nueva ventana selecciona Modulo dar click en Abrir

[Tienes que estar registrado y conectado para ver esa imagen]

Bueno ya tenemos el modulo donde iremos colocando el código ahora haremos la referencia a las librerías.

Vamos a menú Proyecto > Referencias

[Tienes que estar registrado y conectado para ver esa imagen]

Y en la lista de la nueva ventana buscamos “Microsoft ActiveX Data Objects 2.7” Library y ya que la encontramos, la seleccionamos y damos click en Aceptar

[Tienes que estar registrado y conectado para ver esa imagen]

Ya con todo listo vamos al código, como dije antes, el código se colocara dentro del modulo y será de a siguiente forma

Código:
Public RBASEDDATOS As ADODB.Connection
Public RTABLA1 As ADODB.Recordset
Public RTABLA2 As ADODB.Recordset
. . .
Public RTABLAN As ADODB.Recordset

Ok, explico, RBASEDDATOS, RTABLA1, RTABLA2 son variables, la primera es la única que es de tipo “Connection” ya que mas adelante a través de ella haremos la conexión, las otras dos son tipo “Recordset” las cuales hacen referencia a las tablas, como toda variable se pueden llamar de la manera que gustes, pero de preferencia que tengan que ver con el contenido, RTABLAN es para decir que pueden colocar tantas líneas como tablas deseen conectar. Es decir si quieren conecar 5 tablas tienen que tener 5 líneas como esta Public RTABLA1 As ADODB.Recordset obviamente con diferentes nombres, el siguiente código va después de eso que ya mostre.

Public Function ConexionBD()
Set RBASEDDATOS = Nothing
Set RTABLA1 = Nothing
Set RTABLA2 = Nothing
. . .
Set RTABLAN = Nothing


Set RBASEDDATOS = New ADODB.Connection
Set RTABLA1 = New ADODB.Recordset
Set RTABLA2 = New ADODB.Recordset
. . .
Set RTABLAN = New ADODB.Recordset


AQUÍ VA LA LINEA DE CONEXIÓN DEPENDIENTE DE LA BASE DE DATOS QUE MANEJES

RTABLA1.Open "select * from TABLA1", RBASEDDATOS, adOpenDynamic, adLockOptimistic
RTABLA2.Open "select * from TABLA2", RBASEDDATOS, adOpenDynamic, adLockOptimistic
. . .
RTABLAN.Open "select * from TABLAN", RBASEDDATOS, adOpenDynamic, adLockOptimistic


End Function


Bueno ahora solo explicare cada una de los 3 tipos de instrucciones que están ahí
Líneas verdes, asignan un valor NULO a cada variable.

Lineas rojas, crean un objeto dentro de cada variable, el tipo de objeto será el mismo tipo que el valor declarado en la primer parte del código

Líneas azules, esta parte es la que conecta cada variable con la tabla que le corresponde, en la parte que dice “select * from TABLA1” sustituyen TABLA1 por el nombre de la tabla que quieran y RBASEDDATOS es la variable creada de tipo “Connection” que igual sebe ser sustituido por lo que ustedes colocaron.

Ya con eso lo falta la línea de conexión.

Access: <- Esta linea no va en el codigo, solo es para indicar a que tipo de conexion pertenece
RBASEDDATOS.Open "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\nombrebasedetaos.mdb" & ";"


SQL Server 2000: <- Esta linea no va en el codigo, solo es para indicar a que tipo de conexion pertenece
RBASEDDATOS.Open "provider=SQLOLEDB; Initial Catalog= nombrebasedetaos; Data Source= localhost; integrated security=SSPI; persist security info=True;"


En ambas líneas esta presente “nombrebasedetaos” el cual tiene que ser sustituido por el nombre de la base de datos que quieren conectar

Nota: en el caso de la línea de Access, App.Path se usa para indicar 
que a base de datos esta en la misma carpeta que el sistema que estamos
creando lo cual es lo mas recomendable.


Ahora ya que esta todo listo, solo tienes que colocar ConexionBD() que es el nombre de la
función creada en el evento FORM_LOAD de tu formulario inicial, y para hacer acciones sobre la base de datos solo tienes que colocar, por ejemplo: RTABLA2 y un punto, lo cual desplegara un menú con todas las opciones, les recuerdo que RTABLA2 solo es una variable que hace referencia a la tabla y que el nombre depende de lo que han colocado ustedes.
Eso seria todo, se que se ve largo pero verán al hacerlo que no lo es tanto.
Para dudas y comentarios háganlos por aquí

gracias cheers cheers


Última edición por MяHousєLιgнт el Sáb Oct 09, 2010 12:25 am, editado 1 vez


✪Dream Send me a sign, Turn back the clock, Give me some time, I need to break out✪
✪And make a new name, Let's open our eyes. To the brand new day ✪


[Tienes que estar registrado y conectado para ver esa imagen]
avatar
MяHousєLιgнт
Administrador
Administrador



Masculino

Tigre


Fecha de nacimiento : 15/12/1986
Mensajes : 1970
Edad : 31
Localización : ¡Junto a Cuddy! ¿donde mas?

http://mrhouselight.forosactivos.net

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por LilyGleek el Jue Sep 09, 2010 2:32 pm

wow amix!!! le dire a mi hermano que se inscriba al foro el utiliza esto del SQL , sabes que mi hermano no puede instalar SQL en su lap, quien sabe pork, su lap tiene Vista
avatar
LilyGleek
Administrador
Administrador



Mensajes : 21

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por MяHousєLιgнт el Jue Sep 09, 2010 2:35 pm

pues dependiendo si es SQL server o MySQL lo que quiere instalar, ambos tienen formas diferentes y complicadas de instalar, y que que si seleccionas una opción mal puede que te funcione pero no para trabajar en red o para no hacer ciertas cosas....


✪Dream Send me a sign, Turn back the clock, Give me some time, I need to break out✪
✪And make a new name, Let's open our eyes. To the brand new day ✪


[Tienes que estar registrado y conectado para ver esa imagen]
avatar
MяHousєLιgнт
Administrador
Administrador



Masculino

Tigre


Fecha de nacimiento : 15/12/1986
Mensajes : 1970
Edad : 31
Localización : ¡Junto a Cuddy! ¿donde mas?

http://mrhouselight.forosactivos.net

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por LilyGleek el Jue Sep 09, 2010 5:20 pm

creo que es SQL server mmmm o le preguntare
avatar
LilyGleek
Administrador
Administrador



Mensajes : 21

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por MяHousєLιgнт el Dom Sep 12, 2010 1:20 am

Si, preguntal y me avisas! para ver si le podemos ayudar o crear un tuto correspondiente! sale?


✪Dream Send me a sign, Turn back the clock, Give me some time, I need to break out✪
✪And make a new name, Let's open our eyes. To the brand new day ✪


[Tienes que estar registrado y conectado para ver esa imagen]
avatar
MяHousєLιgнт
Administrador
Administrador



Masculino

Tigre


Fecha de nacimiento : 15/12/1986
Mensajes : 1970
Edad : 31
Localización : ¡Junto a Cuddy! ¿donde mas?

http://mrhouselight.forosactivos.net

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por tilo_dc el Vie Oct 08, 2010 2:23 pm

Hola hice todo el proceso, pero me gustaria sabe especificamente en que lugar va
SQL Server 2000:
RBASEDDATOS.Open "provider=SQLOLEDB; Initial Catalog= EAC_LA_ESPERANZA; Data Source= localhost; integrated security=SSPI; persist security info=True;" si en el modulo o el FORM_LOAD
ademas si RBASEDDATOS es el nombre de la base de datos, en mi caso se llama EAC_LA_ESPERANZA. Me urge me ayudes porfa
avatar
tilo_dc


Masculino

Gato


Fecha de nacimiento : 21/07/1987
Mensajes : 1
Edad : 31

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por MяHousєLιgнт el Sáb Oct 09, 2010 12:13 am

ok mira, en el codigo que puse pues esta parte:

Public Function ConexionBD()
Set RBASEDDATOS = Nothing
Set RTABLA1 = Nothing
Set RTABLA2 = Nothing
. . .
Set RTABLAN = Nothing

Set RBASEDDATOS = New ADODB.Connection
Set RTABLA1 = New ADODB.Recordset
Set RTABLA2 = New ADODB.Recordset
. . .
Set RTABLAN = New ADODB.Recordset

AQUÍ VA LA LINEA DE CONEXIÓN DEPENDIENTE DE LA BASE DE DATOS QUE MANEJES

RTABLA1.Open "select * from TABLA1", RBASEDDATOS, adOpenDynamic, adLockOptimistic
RTABLA2.Open "select * from TABLA2", RBASEDDATOS, adOpenDynamic, adLockOptimistic
. . .
RTABLAN.Open "select * from TABLAN", RBASEDDATOS, adOpenDynamic, adLockOptimistic

End Function

------------------------------------

La linea que he resaltado en color es la que tienes que quitar para poner la instrucción que conecta a SQL Server.

Cuya linea es:

RBASEDDATOS.Open "provider=SQLOLEDB; Initial Catalog= nombrebasedetaos; Data Source= localhost; integrated security=SSPI; persist security info=True;"

al igual que lo anterior, la linea que resalte es la que tienes que sustituir por el nombre de tu base de datos.

PD: Todo el codigo va en el modulo


✪Dream Send me a sign, Turn back the clock, Give me some time, I need to break out✪
✪And make a new name, Let's open our eyes. To the brand new day ✪


[Tienes que estar registrado y conectado para ver esa imagen]
avatar
MяHousєLιgнт
Administrador
Administrador



Masculino

Tigre


Fecha de nacimiento : 15/12/1986
Mensajes : 1970
Edad : 31
Localización : ¡Junto a Cuddy! ¿donde mas?

http://mrhouselight.forosactivos.net

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por zlatan24 el Dom Mar 13, 2011 9:34 am

Las problemas parecidas tienen soluciones diferentes. Pero uno de mejor decision es la utiliza proxima que socorre par dias antes - [Tienes que estar registrado y conectado para ver este vínculo].
avatar
zlatan24


Masculino

Rata


Fecha de nacimiento : 18/01/1985
Mensajes : 1
Edad : 33

Volver arriba Ir abajo

Tutorial Re: Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.