Blog JAMcode

Module Module1 Sub Bienvenida() 'Programa que muestra un MENSAJE, almacenado en una VARIABLE Dim MEN As String 'VARIABLE MEN = "Bienvenidos al Microsoft Visual Studio.net 2008" Console.Write(MEN) Console.Read() End Sub Sub Mensaje() 'Programa que muestra MENSAJE, almacenado en una VARIABLE Dim Mens As String 'VARIABLE Mens = "Desarrollando aplicaciones en consola.net" Console.WriteLine(Mens) Console.Read() End Sub Sub Mensaje_vertical() 'Programa que muestra MENSAJE en forma VERTICAL, almacenado en una VARIABLE Dim MV As String 'VARIABLE MV = "Desarrollando aplicaciones en MS Visual Basic.net" Console.WriteLine(MV) Console.WriteLine(MV) Console.WriteLine(MV) Console.Read() End Sub Sub Sumar() 'Programa que SUMA 2 numeros enteros, solo con variables Dim n1, n2, S As Integer 'VARIABLES REM LEER n1 = Console.ReadLine n2 = Console.ReadLine REM PROCESO S = n1 + n2 REM ESCRIBIR Console.WriteLine

Imports System.Data.SqlClient Public Class Form1 Dim cn As New SqlConnection("server=(Local); database=ejemplo; integrated security=true") Private Sub btnbuscar_Click(ByVal sender...) Dim cmd As New SqlCommand("Select * from Alumnos where idalumno=@cod", cn) cmd.Parameters.AddWithValue("@cod", txtcod.Text) Dim dr As SqlDataReader cn.Open() dr = cmd.ExecuteReader If dr.Read Then     txtnom.Text = dr.GetString(1).ToString     txtape.Text = dr.GetString(2).ToString Else     MsgBox("El Codigo " & txtcod.Text & " ingresado no existe!", MsgBoxStyle.Critical, "Informando")     txtcod.Focus() End If dr.Close() cn.Close() End Sub End Class

Introduccion al ADO.NET El ADO.NET (Objeto Acceso a Datos) es un conjunto de componentes del software que pueden ser usados por los programadores para acceder a datos y a servicios de datos. Es una parte de la biblioteca de clases base que están incluidas en el Microsoft .NET Framework. Es comúnmente usado por los programadores para acceder y para modificar los datos almacenados en un Sistema Gestor de Bases de Datos Relacionales, aunque también puede ser usado para acceder a datos en fuentes no relacionales. Arquitectura del ADO.NET Existen dos componentes de ADO.NET que se pueden utilizar para obtener acceso a datos y manipularlos: Proveedores de datos de .NET Framework El DataSet Proveedores de datos Estas clases proporcionan el acceso a una fuente de datos, como Microsoft SQL Server y Oracle. Cada fuente de datos tiene su propio conjunto de objetos del proveedor, pero cada uno tienen un conjunto común de clases de utilidad: Connection: Proporciona una conexión usada

'cadena de conexión para la base de datos Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ "Initial Catalog=la base de datos;" & _ "Integrated Security=true" ' Inicializar Dim conexion As New SqlConnection(cs) Try ' Instanciar un SqlCommand para ejecutar el Select Count Dim cmd As New SqlCommand("Select Count(*) As Total From Clientes", conexion) ' Ejecutar el Open para Abrir la conexión conexion.Open() Dim total As Integer = 0 ' Ejecutar el método ExecuteScalar y devolver el ' registro pertenciente a la primera columna de la primer fila del conjunto de datos total = CType(cmd.ExecuteScalar, Integer) ' convertir el tipo de datos a Integer ' Mostrar el resultado para el Total de Clientes MsgBox("El total de Clientes es :" & total, MsgBoxStyle.Information) Catch exSql As SqlException     MsgBox(exSql.Message.ToString) Catch ex As Exception    MsgBox(ex.Message.To

//ARREGLO VECTOR import javax.swing.*; public class Ejemplo_8 { public static void main(String[] args){ int i; String dia[]={"Lunes","Martes","Miercoles","Jueves","Viernes","Sabado","Domingo"}; for(i=0;i<7;i++) { System.out.println(dia[i]); }  } }

//TABLA DE MULTIPLICAR DE UN NUMERO import javax.swing.*; public class Ejercicio3 { public static void main(String[] args) { int n,i,m; n=Integer.parseInt(JOptionPane.showInputDialog("Ingrese Numero")); System.out.println("TABLA DE MULTIPLICAR DEL "+n); for(i=1;i<=12;i++) { m=n*i; System.out.println(n+" x "+i+" = "+m); } } } //prof. jhonatan abal mejia

//PROGRAMA QUE DETERMINA SI UN NUMERO ES PAR O IMPAR import javax.swing.*; public class ejercicio1 { public static void main(String []args) { String rpta; int n; n=Integer.parseInt(JOptionPane.showInputDialog("Ingrese Numero")); if (n%2==0)        rpta="Número Par"; else        rpta="Número Impar"; JOptionPane.showMessageDialog(null,rpta); } }

//PROGRAMA QUE DETERMINA SI UN NUMERO ES PRIMO import javax.swing.JOptionPane; public class Ejercicio10 { public static void main(String[]args) { //variables String num; int n,d,r; //leer num=JOptionPane.showInputDialog("Ingrese Numero"); n=Integer.parseInt(num); d=2; //Proceso do { r=n%d; d=d+1; } while(d*d<=n && r!=0); //Escribir if(r==0) JOptionPane.showMessageDialog(null,"El Número no es Primo"); else JOptionPane.showMessageDialog(null,"El Número es Primo"); }  }

//PROGRAMA QUE CONVIERTE UN NUMERO DE DOS CIFRAS A ROMANO import javax.swing.JOptionPane; public class Ejercicio9 { public static void main(String[]args) { //variables String xn; int u,n,d; //leer xn=JOptionPane.showInputDialog("Ingrese Número"); n=Integer.parseInt(xn); //Proceso if(n>0&&n<=99) { u=n%10; n=n/10; d=n%10; //decenas switch(d) { case 1: JOptionPane.showMessageDialog(null,"X");break; case 2: JOptionPane.showMessageDialog(null,"XX");break; case 3: JOptionPane.showMessageDialog(null,"XXX");break; case 4: JOptionPane.showMessageDialog(null,"XL");break; case 5: JOptionPane.showMessageDialog(null,"L");break; case 6: JOptionPane.showMessageDialog(null,"LX");break; case 7: JOptionPane.showMessageDialog(null,"LXX");break; case 8: JOptionPane.showMessageDialog(null,"LXXX");break; case 9: JOptionPane.showMessageDialog(null,&quo

import javax.swing.JOptionPane; public class Ejercicio8 { public static void main(String[]args) { //variables int mes; //leer mes=Integer.parseInt(JOptionPane.showInputDialog("Ingrese Número de Mes")); //Proceso switch(mes) { case 1: JOptionPane.showMessageDialog(null,"El mes es Enero");break; case 2: JOptionPane.showMessageDialog(null,"El mes es Febrero");break; case 3: JOptionPane.showMessageDialog(null,"El mes es Marzo");break; case 4: JOptionPane.showMessageDialog(null,"El mes es Abril");break; case 5: JOptionPane.showMessageDialog(null,"El mes es Mayo");break; case 6: JOptionPane.showMessageDialog(null,"El mes es Junio");break; case 7: JOptionPane.showMessageDialog(null,"El mes es Julio");break; case 8: JOptionPane.showMessageDialog(null,"El mes es Agosto");break; case 9: JOptionPane.showMessageDialog(null,"El mes es Septiembre");break; case 10: JOptionPane.sho