neomode en la web

iPhone, el dispositivo total.

getURL() y las medidas de seguridad de Flash 8

De vuelta al trabajo...en Granada

DataSet’s con más de una tabla.

Private comandos As SQLCommandBuilder(miAdaptador)

MsgBox(comandos.InsertCommand.CommandText)

MsgBox(comandos.UpdateCommand.CommandText)

MsgBox(comandos.DeleteCommand.CommandText)

Private cmdINSERT As OleDbCommand

Private cmdUPDATE As OleDbCommand

Private cmdDELETE As OLEDBCommand

…

cmdINSERT = New OleDbCommand(“INSERT INTO Socios (IdSocio, Nombre, Telefono) _

VALUES (?,?,?)”, miConexion)

cmdUPDATE = New OleDbCommand(“UPDATE Socios SET Socios.Nombre=?, _

Socios.Telefono=? WHERE IdSocio=?”, miConexion)

cmdDELETE = New OleDbCommand(“DELETE * FROM Socios WHERE IdSocio=?”, miConexion)

cmdINSERT.Parameters.Add(New OleDbParameter(“IdSocio”, txtCodigoSocio))

cmdINSERT.Parameters.Add(New OleDbParameter(“Nombre”, txtNombre))

cmdINSERT.Parameters.Add(New OleDbParameter(“Telefono”, txtTelefono))

cmdINSERT.ExecuteNonQuery()

conn.ConnectionString = cadConn

miAdaptador = New OleDbDataAdapter("SELECT * FROM SOCIOS INNER JOIN CARGOS ON _ 

SOCIOS.IDCARGO=CARGOS.CODCARGO ORDER BY codigo", cadConn)

miAdaptadorCargos = New OleDbDataAdapter("SELECT * FROM CARGOS ORDER BY_

codCargo", cadConn)

insertCommand = New OleDbCommand("INSERT INTO Socios (codigo, dni, nombre, _

direccion, poblacion, IdCargo) VALUES (@CLAVE, @DNI, @NOM, @DIR, @POB, @CAR)", conn)

deleteCommand = New OleDbCommand("DELETE * FROM Socios WHERE_

 codigo = @CLAVE", conn)

updateCommand = New OleDbCommand("UPDATE Socios SET nombre=@NOM, dni=@DNI, _

direccion=@DIR, poblacion=@POB, IdCargo=@CAR WHERE codigo=@CLAVE", conn)

deleteCommand.Parameters.Add(New SqlParameter("@CLAVE", OleDbType.BigInt))

With insertCommand.Parameters

            .Add(New OleDbParameter("@CLAVE", SqlType.BigInt))

            .Add(New OleDbParameter("@DNI", SqlType.Char))

            .Add(New OleDbParameter("@NOM", SqlType.Char))

            .Add(New OleDbParameter("@DIR", SqlType.Char))

            .Add(New OleDbParameter("@POB", SqlType.Char))

            .Add(New OleDbParameter("@CAR", SqlType.BigInt))

End With

With updateCommand.Parameters

            .Add(New OleDbParameter("@CLAVE", SqlType.BigInt))

            .Add(New OleDbParameter("@DNI", SqlType.Char))

            .Add(New OleDbParameter("@NOM", SqlType.Char))

            .Add(New OleDbParameter("@DIR", SqlType.Char))

            .Add(New OleDbParameter("@POB", SqlType.Char))

            .Add(New OleDbParameter("@CAR", SqlType.BigInt))

End With

With insertCommand.Parameters

                    .Item("@CLAVE").Value = CInt(txtCodigo.Text)

                    .Item("@DNI").Value = txtDNI.Text

                    .Item("@NOM").Value = txtNombre.Text

                    .Item("@DIR").Value = txtDireccion.Text

                    .Item("@POB").Value = txtPoblacion.Text

                    .Item("@CAR").Value = cmbCargos.SelectedIndex + 1

End With

insertCommand.ExecuteNonQuery()

Almacenar una imagen en una Base de Datos en .NET

‘ Acceder a la fila correspondiente

Dim registro as DataRow

registro = miTabla.Rows(posRegistro)

‘ Comprobar que contiene una ruta

if registro(“Foto” ) <> “” then

	‘ Cargamos la foto en el PictureBox

	PictureBox1.Image = Image.FromFile(registro(“Foto” ))

End If

‘ Especificar parámetros para el cuadro de diálogo

dlgAbrir.InitialDirectory = “ C:\Documents And Settings\Admin\Mis Documentos\Mis Imágenes”

‘ Invocar al cuadro de diálogo

dlgAbrir.ShowDialog()

‘ Comprobar que se ha elegido un archivo y no se ha pulsado el botón Cancelar

if dlgAbrir.FileName <> “dlgAbrir” then

‘ Cargar la imagen del archivo en el PictureBox

PictureBox1.Image = Image.FromFile(dlgAbrir.FileName)

‘ Asignarla a la columna correspondiente en la Tabla

	Registro(“Foto” ) = dlgAbrir.FileName

Else

	Msgbox (“No ha seleccionado un nombre de archivo válido…” )

End If

Private Sub objdsLibros_PositionChanged()

	Me.lblNavLocation.Text = (((Me.BindingContext(objdsLibros, “Libros” ).Position+1)._

ToString + “ de “ + Me.BindingContext(obdjdsLibros,”Libros” ).Count.ToString)

	Dim posicion = BindingContext(objdsLibros, “Libros” ).Position

	If Not obdjsLibros.Libros(Posicion).IsPortadaNull then

		‘ Creamos un MemoryStream

		Dim Imagen As New MemoryStream(obdjsLibros.Libros(BindingContext(obdjsLibros,_

“Libros” ).Position).Portada)

		‘ Introducimos la imagen en el PictureBox

		PictureBox1.Image = Imagen.FromStream(Imagen)

	Else

		‘ Limpiamos

		PictureBox1.CreateGraphics().Clear(Color.Black)

	End If

End Sub

Private Sub PictureBox1_Click (….) …

	‘ Abrimos el cuadro de diálogo de selección de archivo y si se elige uno …

	if OpenFileDialog1.ShowDialog() = DialogResult.Ok then

		‘Mostramos

		PictureBox1.Image= Image.FromFile(OpenFileDialog1.FileName)

		‘Creamos un FileStream para recuperar la imagen en memoria …

		Dim Img As NewFileStream(OpenFileDialog1.FileName, FileMode.Open, FileAcces.Read)

		‘ … en un array de bytes

		Dim Imagen (Img.Length) As Byte

		‘ Leemos

		Img.Read(Imagen, 0, Img.Length)

		Img.Close

		‘ Asignamos

		obdjsLibros.Libros(Me.BindingContext(obdjsLibros, “Libros” ).Position).Portada=Imagen

	End If

End Sub

Ajax ..¿de qué se trata?

Mandar variables a Flash desde HTML-Javascript

<param name="FlashVars" value="valor">

flashvars="valor"

<object classid="clsid27cdb6e-ae6d-11cf-96b8-444553540000" 

 codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/

flash/swflash.cab#version=8,0,0,0" 

id="menu" width="750" height="133" align="middle">

      <param name="Src" value="../imgs/menu.swf" />

      <param name="allowScriptAccess" value="sameDomain" />

      <param name="movie" value="../imgs/menu.swf?op=3" />

	  <script language="javascript">

			//..............................

			//  www.neomode.org

			//..............................

			// Recogemos en la variable menu el GET

                        // enviado por la película Flash

			var menu=document.location.search;

			// Extraemos sólo el último carácter 

                        //que lleva la opción pulsada

			var opcion=menu.substr(menu.length-2,1);

			

			// Si ha habido algún error en la 

                        //transmisión de GET 

                        //suponemos la primera opción

			if(opcion=='undefined') { opcion=1; };

			document.write('<param name="FlashVars" 

                             value="op='+opcion+'"/>');

	  </script>

	  <param name="quality" value="high" />

	   <PARAM NAME="BGColor" VALUE="FFFFFF">

	   <PARAM NAME="SWRemote" VALUE="">

	  <param name="wmode" value="transparent" />

	  <param name="bgcolor" value="#999999" />

	   <script language="javascript">

	  	document.write('<embed src="../imgs/menu.swf" 

                  width="750" height="133" quality="high" 

      pluginspage="http://www.macromedia.com/go/getflashplayer" 

type="application/x-shockwave-flash" menu="false" 

allowscriptaccess="sameDomain" swLiveConnect=true

 id="menu" name="menu" 

flashvars="op='+opcion+'"></embed>');

	   </script>

      </object>

JavaScript con Flash 8 (Problemas con getURL)

getURL('pagina.htm?op=10&subop=23', '_self', 'GET');

getURL('pagina.htm?op=10&subop=23', '_self');

Formularios modales y no modales

frmClientes.Show()

frmClientes.ShowDialog()

Tu galería de imágenes pesa mucho?