• Miércoles 1 de Mayo de 2024, 02:30

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - cobyz21

Páginas: [1]
1
C# / como instanciar un metodo de un control personalizado
« en: Miércoles 23 de Noviembre de 2011, 18:15 »
Que tal foro, estoy haciendo un componente en c# para capturar una imagen desde la webcam, pero no tengo mucho conocimiento en este lenguaje, lo que hice fue lo siguiente:

tego una component class en el cual tengo declarado propiedades y un metodo para asignar la foto a la propiedad

codigo de la clase
Código: [Seleccionar]
    public partial class WebCam : Component
        {
           
            Frm_WebCam frmCapturaFoto = new Frm_WebCam();
            private Bitmap _VarFoto;
            private int width;
            private int height;
     
    #region Propiedades   
            [Category("Width")]
            [Description("Ancho de la foto del empleado.")]
            public int Width
            {
                get { return this.width; }
                set { this.width = value; }
            }
     
            [Category("Height")]
            [Description("Alto de la foto del empleado.")]
            public int Height
            {
                get { return this.height; }
                set { this.height = value; }
            }
           
            [Category("Foto")]
            [Description("Foto del empleado.")]
            public Bitmap  Foto
            {
                get {return this._VarFoto;}
                set {this._VarFoto = value;}
            }
    #endregion
     
            public WebCam()
            {
                InitializeComponent();
            }
     
            public WebCam(IContainer container)
            {
                container.Add(this);
     
                InitializeComponent();
            }
     
            public void PopupNotifier()
            {
                frmCapturaFoto.TopMost = true;
                frmCapturaFoto.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
                frmCapturaFoto.StartPosition = System.Windows.Forms.FormStartPosition.Manual;
                frmCapturaFoto.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
                frmCapturaFoto.ShowInTaskbar = false;
             }
           
            public void MuestraForm()
            {
                frmCapturaFoto.Show();
            }
     
     
            public void GuardaFoto(Bitmap _VarFotito)
            {
                this._VarFoto = _VarFotito;
            }
     
        }

y tengo un form en el cual va a capturar la imagen, como hago la instancia en el form para poderle asignar en la propiedad foto la foto que estoy capturando en el form y creo que da la misma forma seria para asignarle en la propiedad Width y Height

2
VB .NET / Expresion regular para textbox
« en: Martes 11 de Octubre de 2011, 23:54 »
Que tal foro saludos.

Soy novato en esto de la programacion, estoy creando una aplicación y necesito validar en un texbox que solo acepte este tipo de formatos 1,2-9   1-5    5,8   7-5,6   25,30-1

tengo mas omenos asi la validacion pero no sale nose en que estoy mal

Regex.IsMatch(txt_dias.Text, "^\d{2},)*^\d{2}", RegexOptions.IgnoreCase)

Les agradecería mucho ayuda.

3
VB .NET / Actualizacion vb.net
« en: Viernes 15 de Octubre de 2010, 21:27 »
Saludos a todoa estoy progrmando un sistema en vb.net y a la hora de actualizar me manda el siguiente error

Infracción de concurrencia: UpdateCommand afectó a 0 de los 1 registros esperados.
Codigo de error :
en System.Data.Common.DbDataAdapter.UpdatedRowStatusE rrors(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandIn...fo[] batchCommands, Int32 commandCount)
en System.Data.Common.DbDataAdapter.UpdatedRowStatus( RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount)
en System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping)
en System.Data.Common.DbDataAdapter.UpdateFromDataTab le(DataTable dataTable, DataTableMapping tableMapping)
en System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
en SystemSTP.frm_form.btn_guarda_Click(Object sender, EventArgs e) en E:...Formsfrm_planta.vb:línea 549


el codigo es el siguiente

     
Código: vb.net
  1.  Private Sub frm_planta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.        
  3.       Conexion.Open()
  4.               ' La cadena de selección
  5.               Dim sSel As String = "SELECT * from plan_prub ORDER BY ficha ASC"
  6.              
  7.               Try
  8.                   ' Crear un nuevo objeto del tipo DataAdapter
  9.                   NpDataAdapter = New Npgsql.NpgsqlDataAdapter(sSel, Conexion) ' SqlDataAdapter(sSel, sCnn)
  10.                   ' Crear los comandos de insertar, actualizar y eliminar
  11.                   Dim cb As New Npgsql.NpgsqlCommandBuilder(NpDataAdapter) ' SqlCommandBuilder(da)
  12.                   cb.QuotePrefix = "["
  13.                   cb.QuoteSuffix = "]"
  14.                   ' Asignar los comandos al DataAdapter
  15.                   ' (se supone que lo hace automáticamente, pero...) debe tener la tabla una llave primaria o mandara error
  16.                   NpDataAdapter.UpdateCommand = cb.GetUpdateCommand()
  17.                   NpDataAdapter.InsertCommand = cb.GetInsertCommand()
  18.                   NpDataAdapter.DeleteCommand = cb.GetDeleteCommand()
  19.                   '
  20.                   ' Esta base de datos usa el ID con valores automáticos
  21.                   NpDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
  22.                   '
  23.                   DataTab = New DataTable()
  24.                   ' Llenar la tabla con los datos indicados
  25.                   NpDataAdapter.Fill(DataTab)
  26.                   'mostrar el primer registro
  27.                   If DataTab.Rows.Count > 0 Then
  28.                       btn_primero_Click(Nothing, Nothing)
  29.                       txt_busqueda.Select()
  30.                   Else
  31.                       fila = -1
  32.                       btn_modifica.Enabled = False
  33.                   End If
  34.               Catch ex As Exception
  35.                   MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbLf & ex.Message, "Conectar con la base", MessageBoxButtons.OK, MessageBoxIcon.[Error])
  36.               End Try
  37.       End Sub
  38.        
  39.       Private Sub asignarDatos(ByVal dr As DataRow)
  40.               ' Usar los datos que hay en los textbox
  41.               If Rdb_m.Checked = True Then
  42.                   dr("s") = DBNull.Value '"M"
  43.               Else
  44.                   dr("s") = DBNull.Value '"F"
  45.               End If
  46.  
  47.               dr("ficha") = txt_ficha.Text
  48.               dr("nombre") = txt_nombre.Text
  49.       End Sub
  50.  
  51.       Private Sub btn_guarda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_guarda.Click
  52.        
  53.       Dim DataRo As DataRow = DataTab.Rows(fila)
  54.               ' Asignar los datos de los textbox a la fila
  55.               asignarDatos(DataRo)
  56.        
  57.               Try
  58.                   NpDataAdapter.Update(DataTab)
  59.                   DataTab.AcceptChanges()
  60.               Catch ex As DBConcurrencyException
  61.                   MsgBox("Error de concurrencia: " & vbLf & ex.Message & vbLf & vbLf & "Codigo de error :" & vbLf & ex.StackTrace, MsgBoxStyle.Critical, "Error")
  62.              
  63.       End Sub
  64.  

4
VB .NET / Actualizacion de registros en postgres con vb.net
« en: Miércoles 28 de Abril de 2010, 23:37 »
Hola foro, estoy iniciando en esto de la programacion y estoy realizando un proyecto con vb.net y postgres. Cuando intento hacer la actualizacion me manda el siguiente error.


Infracción de concurrencia: UpdateCommand afectó a 0 de los 1 registros esperados.

Codigo de error :
en System.Data.Common.DbDataAdapter.UpdatedRowStatusE rrors(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount)
en System.Data.Common.DbDataAdapter.UpdatedRowStatus( RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount)
en System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping)
en System.Data.Common.DbDataAdapter.UpdateFromDataTab le(DataTable dataTable, DataTableMapping tableMapping)
en System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
en SystemSTP.frm_planta.btn_guarda_Click(Object sender, EventArgs e) en C:Formsfrm_usuario.vb:línea 349

La linea 349 es: NpDataAdapter.Update(DataTab)

El codigo es:

Private fila As Integer
Private DataTab As DataTable
Private NpDataAdapter As Npgsql.NpgsqlDataAdapter

Private Sub btn_guarda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_guarda.Click

Dim DataRo As DataRow = DataTab.Rows(fila)
' Asignar los datos de los textbox a la fila
asignarDatos(DataRo)

Try
NpDataAdapter.Update(DataTab)
DataTab.AcceptChanges()
Catch ex As DBConcurrencyException
MsgBox("Error de concurrencia: " & vbLf & ex.Message & vbLf & vbLf & "Codigo de error :" & vbLf & ex.StackTrace, MsgBoxstyle.Critical, "Error")
Catch ex As Exception
MessageBox.Show(ex.Message)

End sub

Private Sub asignarDatos(ByVal dr As DataRow)
'Asignar los datos que hay en los textbox
dr("ficha") = txt_ficha.Text
dr("nombre") = txt_nombre.Text
end sub


PD: Les agradeceria mucho por tu ayuda.

Páginas: [1]