Mr. Visual Basic Online

Ejemplo de código de ADO.Net

2012-07-14T23:13:00.000-07:00

En esta entrada veremos como recuperar datos de una base de datos usando la tecnología ADO.Net. Los proveedores de datos de ADO.Net:

NET Framework Data Provider para SQL Server (System.Data.SqlClient)
NET Framework para OLE DB (System.Data.Oledb)
NET Framework para ODBC (System.Data.Odbc)
NET Framework para Oracle (System.Data.OracleClient)

SqlClient

En este ejemplo nos conectaremos a la base de datos de prueba que viene con Microsoft SQL Server 7.0 Northwind. En este código crearemos un object SqlCommand para seleccionar filas de la tabla Products, tambien la creación de un SqlParameter para limitar los resultados de las filas devueltas con un UniPrice mayor que el valor del parametro, crearemos un object SqlConnection para acceder a la base de datos, ejecutaremos el object SqlCommand y el resultado del object SqlCommand se lo pasaremos como valor a un object SqlDataReader para mostrar los datos.

Option Explicit On

Option String On

Imports System

Imports System.Data

Imports System.Data.SqlClient

Public Class Program

Public Share Sub Main()

Dim strConnection As String = _

"Data Source=(Local);Initial Catalog=Northwind;" _

& "Integrated Security=true"

'Especificar la consulta con un parametro '@PricePoint'

Dim strSQL As String =

"SELECT ProductID, UnitPrice, ProductName FROM Products " _

& "WHERE UnitPrice > @PricePoint " _

& "ORDER BY UnitPrice DESC"

'Especificar el valor de parametro

Dim intParametroValue As Integer = 5

'Creando y abriendo la conexion usando un bloque using

Using Conn As New SqlConnection(strConnection)

'Crear el Object SqlCommand y el object Parameter

Dim mmand As New SqlCommand(strSQL,Conn)

command.Parameters.AddWithValue("@PricePoint",intParametroValue)

'Abrimos la conexion dentro de un bloque Try/Catch

Try

Conn.Open()

Dim dataReader As SqlDataReader = commando.ExecuteReader()

Do While dataReader.Read()

Console.WriteLine( _

vbTab & "{0}" & vbTab & "{1}" & "{2}", _

dataReader(0), dataReader(1), dataReader(2))

Loop

daraReader.Close()

Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

Console.ReadLine()

End Using

End Sub

End Class

Manual de Visual Basic .Net

2012-07-13T08:02:00.004-07:00

Hola como estan todos aquí les traigo un Manual de Visual Basic .Net , descargar aquí espero que le guste.

Cómo usar el ADO datacontrol

2012-07-12T15:52:00.002-07:00

Hola como están todos, aquí les traigo un ejemplo de como desarrollar una aplicación usan ADO Datacontrol, osea de forma visual. ver mas. está fuente es de la página web http://www.elguille.info.

Usar base de datos de SQL Server 2005 desde Visual Basic 6.0

2012-07-12T15:48:00.002-07:00

Aquí les traigo una pequeña guía de como usar Microsoft SQL Server 2005 desde Visual basic 6.0 espero que le sea de su agrado, ver mas.. la fuente de este esta guia es de www.elguille.info.

Guía Práctica: ADO.Net para principiantes

2012-07-12T15:06:00.004-07:00

Buenas como están todos para las personas que están interesados en aprender los básico de ADO.Net aquí les traigo una pequeña guía. Guí Práctica: ADO.Net para principiantes. pagina oficial de este Link es http://www.elguille.info espero que le guste.

Usando Parámetros con ADO - Visual Basic 6.0

2012-07-12T14:30:00.002-07:00

Bueno aquí les traigo una breve explicación de como acceder a una base de datos mediante la tecnología ADO. ADO nos ofrece dos objectos muy importantes como son el Objecto Connection y el Objecto Command, el primero de los mencionados anteriormente los permite establecer la conexión con el origen de datos, y el segundo nos permite de una forma u otra manipular los datos, a través de consultas simples de SQL, Procedimientos Almacenados etc.

Lo primero que tenemos que hacer después de haber abierto nuestro Microsoft Visual Basic 6.0 y elegir el tipo de proyecto que vamos a desarrollar, que para este ejemplo utilizaremos un proyecto estándar, es ir al Menú Proyecto -> Referencias y elegir la opción Microsoft ActiveX Data Object 2.8 Library podemos elegir cualquier versión menos la 2.0.

La aplicación de tendrá la siguiente apariencia:

#1: Primero declaramos dos variables una de tipo Connection y otra de Command en la parte general del formulario, como sigue a continuación:

Option Explicit
Dim Conn As ADODB.Connection
Dim Cmd As ADODB.Commmand

#2: Segundo entramos al evento Load del formulario y creamos la siguiente sentencias:

Private Sub Form_Load()

'Nueva Connection
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "\Agenda.mdb"
.Open
End With

End Sub

#3: Tercero en este paso programaremos el botón Guardar, y será de la siguiente manera:

Private Sub cmdGuardar_Click()
'Declaramos variables
Dim strSQL As String

'Le asignamos la consulta SQL a la variable strSQL
strSQL = "INSERT INTO Contactos (codigo, nombre, apellidos, telefono, email) " & _
"VALUES (?,?,?,?,?)"

'Nuevo Command
Set CmdCont = New ADODB.Command

With CmdCont
.ActiveConnection = Conn
.CommandType = adCmdText
.CommandText = strSQL
.Prepared = True
End With

'Creamos los parametros
CmdCont.Parameters.Append CmdCont.CreateParameter("Codigo", adInteger, adParamInput, 2, txtCodigo.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Nombre", adVarChar, adParamInput, 30, txtNombre.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Apellidos", adVarChar, adParamInput, 40, txtApellidos.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Telefono", adVarChar, adParamInput, 12, txtTelefono.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Email", adVarChar, adParamInput, 60, txtEmail.Text)

'Ejecutamos el comando
CmdCont.Execute

End Sub

#4: Cuarto en este paso programaremos el botón Actualizar, y lo haremos de la siguiente manera:

Private Sub cmdActualizar_Click()
'Declaramos variables
Dim strSQL As String

'Le asignamos la consulta SQL a la variable strSQL
strSQL = "UPDATE SET Contactos codigo = ?, nombre = ?, apellidos = ?, telefono = ?, email = ? " & _
"WHERE codigo = ?"

'Nuevo Command
Set CmdCont = New ADODB.Command

With CmdCont
.ActiveConnection = Conn
.CommandType = adCmdText
.CommandText = strSQL
.Prepared = True
End With

'Creamos los parametros
CmdCont.Parameters.Append CmdCont.CreateParameter("Codigo", adInteger, adParamInput, 2, txtCodigo.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Nombre", adVarChar, adParamInput, 30, txtNombre.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Apellidos", adVarChar, adParamInput, 40, txtApellidos.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Telefono", adVarChar, adParamInput, 12, txtTelefono.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("Email", adVarChar, adParamInput, 60, txtEmail.Text)
CmdCont.Parameters.Append CmdCont.CreateParameter("FindCodigo", adInteger, adParamInput, 2, txtCodigo.Text)

'Ejecutamos el parametro
CmdCont.Execute

End Sub

#5: Quinto en este paso programaremos el botón Eliminar de la siguiente forma:

Private Sub cmdEliminar_Click()
'Declaramos variables
Dim strSQL As String

'Le asignamos la consulta SQL a la variable strSQL
strSQL = "DELETE FROM Conctactos WHERE codigo = ?"

'Nuevo Command
Set CmdCont = New ADODB.Command

With CmdCont
.ActiveConnection = Conn
.CommandType = adCmdText
.CommandText = strSQL
.Prepared = True
End With

'Creamos los parametros
CmdCont.Parameters.Append CmdCont.CreateParameter("Codigo", adInteger, adParamInput, 2, txtCodigo.Text)

'Ejecutamos el parametro
CmdCont.Execute

End Sub

Bueno esto, se preguntarán que falta algunas parte por terminar, y la respuesta es SÍ!!, pero son parte simples que le corresponde a usted programarla como por ejemplo crear una procedimiento para limpiar las cajas de textos entre otras cosas.