El Arte De Crear Lo Nuevo
 
ÍndiceCalendarioGaleríaFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Ultra-Cheats Anuncio

Comparte | 
 

 [Taller]Visual Basic y Sql Server con Ado Data Control

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
ViRuS-DoKtOr
Administrator
Administrator
avatar

Posts : 85
UC Reputacion : 226
Agradecimientos : 6
Fecha de inscripción : 01/06/2009
Edad : 22
Localización : Venezuela

MensajeTema: [Taller]Visual Basic y Sql Server con Ado Data Control   Jue Jun 11, 2009 4:58 pm

Introducción

Este artículo es una respuesta a una petición de ayuda de un lector. Necesitaban un ejemplo acerca de como conectar Visual Basic 6.0 a Sql Server, él tiene un sistema hecho en Visual Basic que se conectaba a una base de datos Access, utilizando el Data Control. He utilizado en este ejemplo Visual Basic 6.0 (con Service Pack 6), y Sql Server 2000 (Service Pack 4).

Lamentablemente, el Data Control no permite el acceso a bases de datos Sql Server directamente, y no utilizan ADO, que es mucho más eficiente que DAO para acceder a Sql Server.

Desarrollo del Ejemplo

Se tendría que utilizar ADO Data Control (ADODC) para realizar un ejemplo lo más similar a lo que utiliza actualmente en su software. El ADODC es muy similar al Data Control, para poder utilizarlo en el proyecto, hay que agregar el componente como se ve en la imagen (hacer clic para verla).


http://www.shareapic.net/content.php?id=5635841&owner=ikanus




El diseño del formulario de ejemplo es simple:

http://www.shareapic.net/content.php?id=5635915&owner=ikanus

Los primeros campos, permiten al usuario ingresar el nombre del Servidor, el nombre de la base de datos, el usuario con los permisos suficientes para acceder a la base de datos y la contraseña del usuario.

Hay un botón "Conectar", que hay que pulsar para establecer la conexión al servidor y a la base de datos. Al conectarse, se ejecuta una consulta inicial que rellena el datagrid con los datos recuperados.

Luego hay un campo de texto, donde se ingresará un nombre o una parte para filtrar los registros de la tabla. Hay una etiqueta donde se da el ejemplo. El ADODC se ve en modo diseño, pero en tiempo de ejecución está oculto por defecto, se puede cambiar, tal como lo hice en el ejemplo.

En esta imagen se muestra el formulario, cuando se pulsa el botón "Conectar" con los parámetros correctos, se listan los registros de la tabla employee.


http://www.shareapic.net/content.php?id=5636098&owner=ikanus


Y ésta, muestra cuando se ha hecho una consulta filtrando por la palabra "an", se muestran solo los registros que contienen dentro del nombre dicha palabra.


http://www.shareapic.net/content.php?id=5636099&owner=ikanus

Citación :
El siguiente es el código del botón "Conectar"

Private Sub cmdConectar_Click()

Dim CadenaConexion As String

CadenaConexion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + txtUsuario.Text + ";Password= " + txtPassword.Text + ";Initial Catalog=" + txtBaseDatos.Text + ";Data Source=" + txtServidor.Text


With adoEjemplo

.ConnectionString = CadenaConexion

.CommandType = adCmdText

.RecordSource = "SELECT * FROM employee"

.Refresh

End With


With DataGrid1

Set .DataSource = adoEjemplo.Recordset

.Refresh

End With


cmdConectar.Enabled = False


End Sub



Citación :
Y el siguiente es el código del botón "Buscar":

Private Sub cmdBuscar_Click()

Dim Consulta As String

Consulta = "Select * from employee where fname like '%" + txtConsulta.Text + "%'"


With adoEjemplo

.RecordSource = Consulta

.Refresh

End With


With DataGrid1

Set .DataSource = adoEjemplo.Recordset

.Refresh

End With


End Sub


Conclusión

Como se ve el código no es muy complicado, y es muy similar a lo que se usaría en consultar una base de datos Access, claro que es un ejemplo, y le falta mucho para ser considerado en producción, como control de errores, y otros controles de seguridad. Además, utilizar ADODC en una solución profesional, no es recomendada, como dice la propia Microsoft, es útil para prototipos, no para una solución real.


Descarga desde aquí el código completo.

Tutorial : ViRuS-DoKtOr

Comenten Sobre Alguna Duda ...!
Volver arriba Ir abajo
Ver perfil de usuario http://ultra-cheats.coolbb.net
PremeditoR
Nivel 1
Nivel 1
avatar

Posts : 30
UC Reputacion : 41
Agradecimientos : 0
Fecha de inscripción : 08/06/2009

MensajeTema: Re: [Taller]Visual Basic y Sql Server con Ado Data Control   Jue Jun 11, 2009 9:15 pm

muy bueno man.
Volver arriba Ir abajo
Ver perfil de usuario
 
[Taller]Visual Basic y Sql Server con Ado Data Control
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Taller de coches, cosechadoras, TRACTORES AMARILLOS XD... LO QUE SEA para usar en MRO XD
» Server TN Oficial
» chicos como creo un server con un modem de 1mega??
» server tn clase 2
» Server Tc 2008

Permisos de este foro:No puedes responder a temas en este foro.
| Ultra-Cheats | 2009 :: Talleres-
Cambiar a: