|
|
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 - SysEdw
1
« en: Sábado 10 de Abril de 2010, 16:06 »
Hola Comunidad aqui intentando con este dolor de cabeza, bueno tengo este
arrays (codigo abajo) que me permite crear n label como Textbox, lo crea con
total normalidad, pero el problema que tengo es una vez creado el arrays como
lo verifico q texto es el que esta realizando el evento TextChanged o en que
texto esta el foco (GotFocus)
Gracias de ntemano su respuesta.
Private labelCampos() As Label
Private txtCampos() As TextBox
Public Sub CrearCampos(ByVal cols As Integer)
Dim k, a As Integer
Try
For Each con As Control In Me.txtCampos
Me.Controls.Remove(con)
Next
For Each con As Control In Me.labelCampos
Me.Controls.Remove(con)
Next
If cols = 0 Then Exit Sub
Catch ex As Exception
End Try
ReDim labelCampos(cols - 1)
ReDim txtCampos(cols - 1)
k = 0
For i As Integer = 0 To cols - 1
If i >= 0 Then
labelCampos(i) = New Label
txtCampos(i) = New TextBox
k += 1
labelCampos(i).TabIndex = k
k += 1
txtCampos(i).TabIndex = k
labelCampos(i).Name = "LabelCampo_" & i.ToString()
txtCampos(i).Name = "txtCampo_" & i.ToString()
txtCampos(i).Size = New System.Drawing.Size(150, 20)
If i = 0 Then
Me.labelCampos(i).Location = New System.Drawing.Point(7,
27)
Me.txtCampos(i).Location = New System.Drawing.Point(7, 41)
Else
txtCampos(i).Location = txtCampos(i - 1).Location
labelCampos(i).Location = labelCampos(i - 1).Location
labelCampos(i).Left += 150
txtCampos(i).Left += 150
End If
Me.Controls.Add(txtCampos(i))
Me.Controls.Add(labelCampos(i))
End If
a = i
Next
Me.txtCampos(a).Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
CrearCampos(2)
End Sub
2
« en: Lunes 29 de Marzo de 2010, 19:04 »
Hola el campo numerico no reconoce el 0 adelante por eso lo vez solo el numero sin el cero
con este codigo va a aparecer el cero por delante como deseas
solo tienes que adaptarlo a tus necesidasdes
SELECT LTrim(Right('00' + Ltrim(Str(idmarca)),2)),* from marca
3
« en: Lunes 29 de Marzo de 2010, 18:51 »
Hola comunidad estoy realizando la busqueda mediante la selecion de una columna que el codigo esta adjunto que por cierto me responde, pero el problema que tengo, es cuando quiere filtrar dos o mas columnas no me sale e intentado pero nada, que debe quedar algo asi. Me.Label1.Text = "Buscar por " & Apellidos y CodigoMatricula Me.Label1.Text = "Buscar por " & Apellidos y Local Private Sub dgvManto_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles dgvManto.ColumnHeaderMouseClick
DatoBuscar = e.ColumnIndex.ToString
dgvManto.EnableHeadersVisualStyles = False
For Total As Integer = 0 To Me.dgvManto.ColumnCount - 1
dgvManto.Columns(Total).HeaderCell.Style.BackColor = Color.White
Next
dgvManto.Columns(DatoBuscar).HeaderCell.Style.BackColor = Color.SkyBlue
Me.Label1.Text = "Buscar por " & Me.dgvManto.Columns(DatoBuscar).HeaderText & ":"
Me.txtBusqueda.Focus()
Me.txtBusqueda.SelectAll()
End Sub Gracias de antemano por su respuesta
4
« en: Martes 2 de Febrero de 2010, 18:48 »
Hola comunidad
tengo un datagridview en un formulario que he heredado de otro y he puesto
la propiedad modifier = public
y no esta activado las propiedades
como si las estan unos botones que tambien estan heredados
les mando un la aplicacion para que lo entiendan mejor
gracis de antemano por su respuesta
5
« en: Domingo 16 de Noviembre de 2008, 23:28 »
hola gracias por tu respuesta, pero es una calificacion que son tres notas que se va ha ingresar y la sunma de los tresdividio entre tres es el promedio
p=(n1+n2+n3)/3
y de ahi las condiciones
6
« en: Martes 11 de Noviembre de 2008, 23:26 »
hola comunidad por favor quisiera que me den una idea de como realizar esta instrccuion de
00 a 10 malo
11 a 15 regular y de
16 a 20 bueno,
yo ya lo he realizado con la condicion if y ahora deseo realizarlo con los condiciones multiples switch
gracias por su aportcion
7
« en: Viernes 12 de Septiembre de 2008, 22:35 »
hola prueba con este codigo Option Explicit Const SWP_NOMOVE = 2 Const SWP_NOSIZE = 1 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 ' Private Declare Function SetWindowPos _ Lib "user32" ( _ ByVal hWnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, _ ByVal cX As Long, _ ByVal cY As Long, _ ByVal wFlags As Long) As Long Private Sub Command1_Click() 'ventana activa SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE End Sub Private Sub Command2_Click() ' desactivar ventana SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End Sub
8
« en: Sábado 23 de Agosto de 2008, 00:29 »
Hola a todos, mi duda es la siguiente:
Hay alguna forma de evitar que en mi datagridview, al clickear en las cabeceras de las columnas se que no se ordenen los datos
Gracias por la respueta
9
« en: Miércoles 13 de Agosto de 2008, 06:13 »
Un favor yo tambien lo deseo esque estoy buscando por toda la red y no lo encuentro hasta que te he encontrado por favor apoyame con el de controlar el scaner y la impresora mi correo es silver_erp@hotmail.com
10
« en: Martes 12 de Agosto de 2008, 18:56 »
hola deseo reparar y restaurar una base de datos con el archivo mdf el scrip lo que uso para restaurar es: EXEC sp_attach_db @dbname = N'Prog', @filename1 = N'D:DesarrolloAplicacionesHistorialProg_Data.mdf'
pero al ejecutar me muestra este error Mens. 5120, Nivel 16, Estado 101, Línea 1
No se puede abrir el archivo físico "D:DesarrolloDataProg_Log.ldf". Error del sistema operativo 32: "32(error not found)".
Error de activación de archivo. Puede que el nombre del archivo físico "D:DesarrolloDataProg_Log.ldf" sea incorrecto.
No se puede volver a generar el registro porque no se cerró correctamente la base de datos.
Mens. 1813, Nivel 16, Estado 2, Línea 1
No se puede abrir la nueva base de datos 'Prog'. CREATE DATABASE cancelada.lo que paso es que lo cerre mal el sql con la base de datos abierto..., y no se como recuperarlo y tengo importantes avances que hize. y lo peor que es no tener una copia de seguridad actual (eso me pasa por confiado y apurado). si alguien me podria apoyar ya que es importante para el sistema q voy a presentar. Microsoft sql Management Studio Servis pack 2
11
« en: Viernes 8 de Agosto de 2008, 15:01 »
hola por que no pruebas con este codigo Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then KeyAscii = 0 End If End Sub
12
« en: Jueves 7 de Agosto de 2008, 18:50 »
Hola amigo JuanK sabes pirmeramente respetos guardan respetos
y si esta errado asi como yo, se le puede orientar y corregir su error
lo de mi pregunta fue desabilitar el firewall
sino la pregunta correcta seria como t lo dices tu amigo
Desabilitar Exepciones en firewall para sql
bueno ya he mandado en el post anterior cuales son
1. C:Program FilesMicrosoft SQL ServerMSSQL.1MSSQLBinnsqlserv.exe
2. C:Program FilesMicrosoft SQL Server90Sharedsqlbrowser.exe
3. y tambien temenos que fijarnos que estea activo Comprtir carpeta e impresora (File and Printer Sharing)
Gracias por su interes
13
« en: Miércoles 6 de Agosto de 2008, 18:17 »
Hola amigo alexis17 haber si te es de util este codigo Private Sub RecuperarCombo() Dim ds As DataSet Dim da As New SqlDataAdapter("select idtienda,Descripcion from tienda", My.Settings.ProgConnectionString) ds = New DataSet da.Fill(ds, "tienda") Me.cnombre.DataSource = ds.Tables(0) Me.cnombre.DisplayMember = "Descripcion" Me.cnombre.ValueMember = "idtienda" End Sub
14
« en: Sábado 2 de Agosto de 2008, 00:04 »
hola estoy buscando tambien una aplicacion con del Fingerprint y esoty desesperado por favor tengo que presentar esta aplicacion en mi sistema para el lunes por favor apoyame
mi correo es:
se lo agradecere toda mi vida
15
« en: Viernes 1 de Agosto de 2008, 22:46 »
hola colegas
tengo un problemita en mi aplicacion estoy trabajando con sql 2005 y el vb 2005
tengo los siguientes objetos
un Combobox tienda
una grilla Categoria
una grilla tiendaCateogira
bueno la idea es que si se encuentra registros en la grilla tiendacategoria no se debe visualizar los registros en la grilla categoria se deben de ocultar los registros, como la hace la tienda 2 y tienda 3
y al selecionar la tienda 1 en la grilla de categoria se encuentra duplicando los datos de "ABARROTES" y esa es el error que deseo solucionar solo se debe de mostrar el registro "SALON"
y otra cosa para que me salgue "bien" el fitro tengo que poner dos veces la opcion
VerificarRecorrido()
VerificarRecorrido()
a ver si me pueden apoyar en este lio que tengo
bueno les mando la aplicacion y la base de datos para que entiendan mejor
Gracias por su respuesta
16
« en: Jueves 31 de Julio de 2008, 15:32 »
Te doy la razon amigo es por quereer imitar sus interfaz de otro sistema operativo libre
17
« en: Jueves 31 de Julio de 2008, 03:15 »
Gracias por la respuesta Bicholey pero voy a completar que es lo que se tiene que activar
C:Program FilesMicrosoft SQL ServerMSSQL.1MSSQLBinnsqlserv.exe
C:Program FilesMicrosoft SQL Server90Sharedsqlbrowser.exe
y tambien temenos que fijarnos que estea activo Comprtir carpeta e impresora (File and Printer Sharing)
a y no solo para windows vista sino para Windows xp tambien es valido
18
« en: Miércoles 30 de Julio de 2008, 05:49 »
Hola comudidad, tengo instalado enl windows vista Business Servis pack 1 como servidor donde esta instalado el SQl 2005 sp2, el problema que tengo es que cuando los usuarios se conectan a la base de datos tengo que desabilitarlo el firewall y cada vez que lo reinicio el servidor se activa automaticamente.
como hago o que activo para configurar el sql en el firewall y ya no tener que desactivarlo a cada momento
Gracias por la Respuesta de antemano
19
« en: Lunes 28 de Julio de 2008, 18:16 »
Hola comunidad estoy usando el datagridview con la propiedad Multiselect = True,
como hago para ver todos los registros selecionados del datagridview.
Gracias por su respuesta.
20
« en: Viernes 25 de Julio de 2008, 22:34 »
Hola Manuel, tienes razon pero tambien se puede ejecutar cuando tenga el foco en el form o en los cuatro objetos (form, buton1, buton2, buton3). Prueba con este codigo Código: Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles Me.KeyPress, Button1.KeyPress, Button2.KeyPress, Button3.KeyPress If e.KeyChar = LCase(Microsoft.VisualBasic.ChrW(Keys.S)) Then Me.Button1.Enabled = True ElseIf e.KeyChar = LCase(Microsoft.VisualBasic.ChrW(Keys.E)) Then Me.Button2.Enabled = True ElseIf e.KeyChar = LCase(Microsoft.VisualBasic.ChrW(Keys.R)) Then Me.Button3.Enabled = True End If End Sub
21
« en: Miércoles 23 de Julio de 2008, 05:04 »
Hola en esta pagina hay un ejemplo de lo que estas buscando
ttp://
ww.
elguille.info/colabora/puntoNET/miliuco_cerrar_desactivado.htm
22
« en: Martes 22 de Julio de 2008, 18:22 »
hola comunidad quisiera saber por favor como ingresar mediante scrip un valor predeterminado o por defecto en la columna IdCurso ([dbo].[NuevoIdCurso]())
CREATE TABLE [dbo].[Cursos](
[IdCurso] [smallint] NOT NULL,
[Descripcion] [nvarchar](50) NULL)
go
CREATE FUNCTION [dbo].[NuevoIdCurso]
()
RETURNS smallint
WITH ENCRYPTION
AS
BEGIN
declare @ultimoId int
select top 1 @ultimoId = [IdCurso] from [dbo].[Curso] order by [IdCurso] desc
select top 1 @ultimoId = [IdCurso] from [dbo].[Curso] order by [IdCurso] desc
set @ultimoId=@ultimoId+1;
return @ultimoId
END
bueno en la columna IdCurso debo de predeterminar la function [NuevoIdCurso] mediante script
Gracias de antemano por la respuesta
23
« en: Martes 22 de Julio de 2008, 05:59 »
hola estas oviando la conexion, esta es la correcto Dim cn As OleDbConnection Dim cs As String Dim ds As DataSet cs = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Application.StartupPath + "bd.mdb" cn = New OleDbConnection(cs) cn.Open() Dim Da As OleDbDataAdapter Dim tabla As DataTable tabla = New DataTable("usuarios") Dim sql As String ds = New Data.DataSet sql = "Select * From usuarios" libro = objex.Workbooks.Open(Application.StartupPath + "plantillausuarios.xls") Da = New OleDbDataAdapter(sql, cn) Da.Fill(ds, "usuarios") hoja = libro.Worksheets(1) hoja.Cells(16, 2) = "Nombre" hoja.Cells(16, 3) = "Apellido" hoja.Cells(16, 4) = "Carrera" hoja.Cells(16, 5) = "Campus" hoja.Cells(16, 6) = "Expediente" hoja.Cells(16, 7) = "Telefono" hoja.Cells(16, 8) = "Correo" For Each r In tabla.Rows If tabla.Rows.Count > 0 Then libro.Worksheets(libro.Worksheets.Count).copy(libro.Worksheets.Count - 1) hoja.Activate() hoja.Cells(i, 2) = r.Item("Nombre.") hoja.Cells(i, 3) = r.Item("Apellido") hoja.Cells(i, 4) = r.Item("Carrera") hoja.Cells(i, 5) = r.Item("Campus") hoja.Cells(i, 6) = r.Item("Expediente") hoja.Cells(i, 7) = r.Item("Telefono") hoja.Cells(i, 8) = r.Item("Correo") hoja.Cells(i, 3) = r.Item(i - 8) i += 1 End If Next objex.Visible = True objex = Nothing
24
« en: Martes 22 de Julio de 2008, 05:24 »
hola
las variables que estas usando te van a devolver por default 0
No veo donde estas mostrando el stock de la data
tu codigo debe asi
Dim agregado As Integer
'Dim actual As Integer
Dim stock As Integer
Try
stock = Me.Stock_InsumoTextBox.Text
agregado = Me.Agregado_InsumoTextBox.Text
Me.Actual_InsumoTextBox.Text = stock + agregado
stock = Me.Actual_InsumoTextBox.Text
Catch ex As Exception
Me.Actual_InsumoTextBox.Text = ""
End Try
pero comentas q el stock estas mostrando de la base de datos creo que estas haciendo mal la conexion ahi
si me das mas detalles lo podemos solucionar
25
« en: Martes 22 de Julio de 2008, 05:01 »
hola amigo, prueba con esots DLL
|
|
|
Mostrar Mensajes
