Blog JAMcode

create procedure uspcur1(IN cod char(5)) begin declare vcodigo char(5) default '0'; declare vnom varchar(50); declare vape varchar(50); declare vsue double; declare done int default 0; declare cur_emple cursor for select idempleado,nombres,apellidos,sueldo from empleados where idempleado=cod; declare continue handler for sqlstate '02000' set done=1; open cur_emple; fetch cur_emple into vcodigo,vnom,vape,vsue; if(vcodigo = '0') then select 'No existe empleado registrado'; else select vcodigo,vnom,vape,vsue; end if; close cur_emple; end --ejecutando el procedure uspcur1 con el cursor call uspcur1("E0001");

public static void main(String[]args){ int i,j,tm,n; int x[]={5,7,8,2,1,3,4,9,6,10} ; System.out.print("Numeros DESORDENADOS \n"); for( i=0 ; i { System.out.println(x[i]+" "); } System.out.println("=============="); System.out.print("Numeros ORDENADOS \n"); for (i=1; i for (j=10-1; j>=1 ; j--){ if (x[j-1] { tm= x[j-1]; x[j-1]=x[j]; x[j]= tm; } } } for( n=0 ; n System.out.println(x[n]+" "); }

//Creamos la base de datos create database demo1; use demo1; //Creamos la tabla clientes CREATE TABLE clientes( id int not null auto_increment, nombres varchar(50), telefono varchar(10), primary key(id) ) ; //creamos un procedure para insertar clientes create procedure usp_insertar_clientes(IN nom varchar(50), IN fono varchar(10)) BEGIN insert into clientes(nombres,telefono) values(nom,fono); END //Ejecutamos el Procedure CALL usp_insertar_clientes("Jhonatan Abal Mejia","1234567");

public static void main( String args[] ) { int arreglo[] = { 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 }; int total = 0 ; // sumar el valor de cada elemento al total for ( int contador = 0 ; contador total += arreglo[ contador ]; JOptionPane.showMessageDialog( null , "Total de elementos del arreglo: " + total, "Sumar los elementos de un arreglo" , JOptionPane.INFORMATION_MESSAGE ); }//Prof. Jhonatan Abal Mejia

public static void main(String[] args) { Connection cn=null; try{ //Cargamos el Driver puente JDBC-ODBC; Class.forName("sun.jdbc.odbc.JdbcOdbcDriver").newInstance(); try{ //Se Obtiene la conexión a la base de datos SQL Server String url="jdbc:odbc:demoSQL"; cn=DriverManager.getConnection(url,"sa",""); //Evaluamos si fue correcta la conexion if (cn!=null) System.out.println("conexion ok al MS SQL Server"); } catch(SQLException ex){ System.out.println("Error de Conexion\n" + ex.getMessage()); } } catch(Exception ex){ System.out.println("Error al cargar el Driver\n" + ex.getMessage()); } } //Prof. Jhonatan Abal Mejia

public static void main(String[] args) { Connection cn=null; try{ //Cargamos el Driver para MySQL Class.forName("com.mysql.jdbc.Driver").newInstance(); try{ //Se Obtiene la conexión a la base de datos String url="jdbc:mysql://localhost:3306/demoBD"; cn=DriverManager.getConnection(url,"root","root"); //Evaluamos si fue correcta la conexion if (cn!=null) System.out.println("conexion ok al MySQL"); } catch(SQLException ex){ System.out.println("Error de Conexion\n" + ex.getMessage()); } } catch(Exception ex){ System.out.println("Error al cargar el Driver\n" + ex.getMessage()); } } //Prof. Jhonatan Abal Mejia

Dim cmd As New SqlCommand cmd.CommandText = "sp_Actualizar" cmd.Parameters.Add("@cod", SqlDbType.Char, 5).Value = TextBox1.Text cmd.Parameters.Add("@nom", SqlDbType.VarChar, 55).Value = TextBox2.Text cmd.Parameters.Add("@ape", SqlDbType.VarChar, 55).Value = TextBox3.Text cmd.Parameters.Add("@dir", SqlDbType.VarChar, 55).Value = TextBox4.Text cmd.CommandType = CommandType.StoredProcedure cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("Cliente Actualizado !!!")

Dim cmd As New SqlCommand cmd.CommandText = "sp_Eliminar" cmd.Parameters.Add("@cod", SqlDbType.Char, 5).Value = TextBox1.Text cmd.CommandType = CommandType.StoredProcedure cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("Cliente Eliminado !!!")

Dim cmd As New SqlCommand cmd.CommandText = "sp_Grabar" cmd.Parameters.Add("@cod", SqlDbType.Char, 5).Value = TextBox1.Text cmd.Parameters.Add("@nom", SqlDbType.VarChar, 55).Value = TextBox2.Text cmd.Parameters.Add("@ape", SqlDbType.VarChar, 55).Value = TextBox3.Text cmd.Parameters.Add("@dir", SqlDbType.VarChar, 55).Value = TextBox4.Text cmd.CommandType = CommandType.StoredProcedure cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("Cliente Registrado !!!")

Dim cmd As New SqlCommand Dim buscar As String buscar = InputBox("Ingrese el codigo a buscar:", "Busqueda de Clientes") cmd.CommandText = "sp_buscar" cmd.Parameters.Add("@cod", SqlDbType.Char, 5).Value = buscar cmd.CommandType = CommandType.StoredProcedure cmd.Connection = cn Dim rs As SqlDataReader rs = cmd.ExecuteReader While (rs.Read) TextBox1.Text = rs.GetString(0) TextBox2.Text = rs.GetString(1) TextBox3.Text = rs.GetString(2) TextBox4.Text = rs.GetString(3) End While rs.Close()//Prof. Jhonatan Abal M.