|
|
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 - Sagma
Páginas: 1 ... 5 6 [7] 8 9 ... 16
151
« en: Jueves 14 de Febrero de 2008, 13:53 »
ya esta, lo resolví cambiando a la ver. 3.0 del OleDb.
152
« en: Miércoles 13 de Febrero de 2008, 13:52 »
como están a todos, tengo un código donde hago la búsqueda de datos de una DB de Informix, hasta ahora no he tenido problemas.  Hago la conexión mediante OleDb. Private Sub btn_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscar.Click Dim condi As String = "" Dim sql As String If Trim(Me.TextBox1.Text) <> "" Then condi = " scmanpar like '%" & Trim(Me.TextBox1.Text) & "%'" End If If Trim(Me.txt_descrip.Text) <> "" Then If condi = "" Then condi = " scmadesc like '%" & Trim(Me.txt_descrip.Text) & "%'" Else condi = condi & " and scmadesc like '%" & Trim(Me.txt_descrip.Text) & "%'" End If End If If Trim(condi) <> "" Then sql = "select scmanart, scmanpar, scmadesc, scasnsuc, scasstto, scasstdi" & _ " from scmaster, scartsuc " & _ " where scmaofic = scasofic " & _ " and scmanart = scasnart " & _ " and " & condi & _ " order by scmanart " End If Dim con As Conexion con = New Conexion Dim scmas As New Cls_Scmaster con.abrir() scmas.cnn = con.cnn Me.DataGrid1.DataSource = scmas.consulta(sql) ConfigurarGrilla() con.cerrar() End Sub
no tengo error en código, ya que compilo, ejecuto, todo ok, mi consulta es, que error puedo tener este pedazo de código, ya que ahora, me arroja datos errados. Por decir, cuando hago la búsqueda de un articulo por la Descripción, este busca la descripción, pero los otros datos como el numero de parte, numero del articulo, nada que ver con la descripción. Alguien me puede orientar donde puede estar mi error. ??  
153
« en: Martes 12 de Febrero de 2008, 13:06 »
Gracias por el dato. 
154
« en: Lunes 11 de Febrero de 2008, 16:38 »
que tal, como están, weno, mi pregunta es como puedo o que debo hacer para dar el comando de apagar el Pc y día especifico. por decir hoy lunes 11, y quiero que se apague el dia de mañana a las 23 hrs con el comando shutdown -h 23:00, se puede, pero se apagaría el día de hoy lunes y no así el día martes como se quiere. Gracias.
155
« en: Jueves 7 de Febrero de 2008, 21:29 »
Gracias, veremos, si no hay por ahí uno free 
156
« en: Jueves 7 de Febrero de 2008, 14:10 »
Hola a todos, quisiera saber si hay algun software para controlar las impresiones o saber la cantidad de hojas que un usuario o PC haya impreso.
Tengo un HP Color LasertJet 2600n
gracias.
157
« en: Martes 29 de Enero de 2008, 14:15 »
que tal, solo quisiera saber si has podido restringir el acceso a un grupo de trabajo en la red. claro sin tener ningún dominio. o alguien del grupo sabe como hacerlo.
gracias.
158
« en: Lunes 7 de Enero de 2008, 20:03 »
Gracias por responder Su, pero aun tengo dudas, ya que el crontab lo uso para ejecutar procesos o aplicaciones que realizo en informix. Disculpa, pero aun no se bien como podria hacer para pasar ese dato o archivo tar que tengo en un equipo con Linux, para pasarlo a otro equipo que tiene Window. Gracias. 
159
« en: Lunes 7 de Enero de 2008, 15:36 »
hola que tal tengo la inquietud de poder pasar datos desde Linux a Window, claro con ftp lo puedo hacer y otros, pero lo que quiero es que a una hora dada este sea pasado en forma automatica. Habra algo de eso, he buscado el winscp, pero no le pillo la forma para poder pasar esos datos en forma automatica. gracias por la orientación.
160
« en: Jueves 20 de Diciembre de 2007, 23:20 »
Hola que tal su, gracias por el comentario, me funco, Gracias pero sabes, cual era mi error, era que yo entraba con un emulador y con el comando su entraba al root, y alli me daba el error que no existia el route. pero me tuve que ir a la consola y alli me funca de maravillas. Gracias 
161
« en: Jueves 20 de Diciembre de 2007, 15:00 »
Hola a todos, antes que nada, felicidades por estas fiestas de fin de año.  Ahora vamos al asunto, como puedo hacer para configurar un route, ya que le doy el comando: route add default (direccion_ip) y no hace nada, no hay comunicación, y en el otro equipo, me sale el mensaje "bash: route: command not found" tengo el Red Hat Enterprise AS Release 4 Gracias
162
« en: Lunes 10 de Diciembre de 2007, 13:34 »
gracias por los comentarios, los pondré en practica.
163
« en: Viernes 7 de Diciembre de 2007, 22:05 »
Hola a todos, tengo 10 máquinas con Win XP, y quisiera restringir el uso del Messanger, como lo puedo hacer. ?  no tengo ningún servidor, ni Win server 2000 o el 2003, todas las Pc's son independientes, pero no tienen acceso al administrador. Gracias
164
« en: Jueves 8 de Noviembre de 2007, 22:38 »
hola, por mas que busco no he encontrado, solo sugerencias que haga mi propio ventana, así que he creado un form y quiero pasar dos datos, el código y el nombre, pero estoy pataleando. este es el código que uso en el 1er form, de donde paso el dato al 2do form. Public F1CodPint As Integer Public F1NomPint As String Me.txt_codigo.Text = Desplega_Autonumerico("SELECT MAX(codigopintor) FROM pintor") Dim fmsg As New frmmsg fmsg.ShowDialog(Me) fmsg.Dispose() F1CodPint = Me.txt_codigo.Text F1NomPint = Me.txt_nombre.text
este dato lo tengo en el 2do form en el evento load. Dim fmsg As New frmpintor Me.lblCodigo.Text = fmsg.F1CodPint Me.lblNombre.Text = fmsg.F1NomPint
Gracias por la orientacion,
165
« en: Jueves 8 de Noviembre de 2007, 13:33 »
hola que tal, tengo en msgbox, y quisiera saber si le puedo poner en negritas y aumentar el tamaño. sgBox("El codigo es el Siguiente : " & Me.txt_codigo.Text & Chr(13) & " con su nombre " & Me.txt_nombre.Text, MsgBoxStyle.Exclamation)
gracias.
166
« en: Martes 6 de Noviembre de 2007, 13:52 »
167
« en: Sábado 3 de Noviembre de 2007, 13:54 »
hola que tal, te sirve de esta manera ? Me.txt_fecha.Text = Now.ToString("dd-MMM-yyyy")
suerte
168
« en: Jueves 25 de Octubre de 2007, 16:23 »
Gracias ing_marco, eso me ha servido, pero aun tengo un problema, que cuando es la primera ves todos los textbox, los pone de color negro, cuando recorro los textbox, recien se ven todos. como seria para que al cargar el form este estén de un color blanco, por decir ? para el cambio de colores, los pongo en el evento load. Gracias
169
« en: Miércoles 24 de Octubre de 2007, 16:18 »
dicen que una imagen es mejor que una explicación, ya que estoy medio atravesau, pero, al ver la imagen skin_sin es como salen en la maquina que no tienen dichoso skin del win vista, pero la imagen que muestro con el nombre de skin_con, que sale todos los textbox en negro. utilizo este código para cambiar de color a los textbox. Private Sub TieneFoco(ByVal sender As Object, ByVal e As System.EventArgs) Dim miTextBox As TextBox miTextBox = CType(sender, TextBox) miTextBox.BackColor = Color.Yellow End Sub Private Sub PierdeFoco(ByVal sender As Object, ByVal e As System.EventArgs) Dim miTextBox As TextBox miTextBox = CType(sender, TextBox) miTextBox.BackColor = Color.White End Sub Sub Color_Textbox() Dim ctrl As Control For Each ctrl In Me.gbx_busqueda.Controls If (TypeOf (ctrl) Is TextBox) Then Dim miTextBox As TextBox miTextBox = CType(ctrl, TextBox) AddHandler miTextBox.Enter, AddressOf TieneFoco AddHandler miTextBox.Leave, AddressOf PierdeFoco End If Next End Sub
y todo esto lo llamo en el evento load del form.
170
« en: Lunes 22 de Octubre de 2007, 22:26 »
Hola he realizado una aplicación con VBnet 2003, y todo, ok, he puesto que cuando tenga el foco de cualquier textbox, este se ponga de color amarillo, y cuando pierda el foco, este se pone de color blanco. Este es el código que uso para tal efecto. Private Sub TieneFoco(ByVal sender As Object, ByVal e As System.EventArgs) Dim miTextBox As TextBox miTextBox = CType(sender, TextBox) miTextBox.BackColor = Color.Yellow End Sub
Pero en algunas maquinas han puesto el skin para Win vista, y solo en esas maquinas los textbox, los pone de color negro. Alguien sabe como puedo hacer para que esas maquinas que tienen el skin puedan ser vistas normalmente. Gracias
171
« en: Jueves 11 de Octubre de 2007, 22:40 »
ya lo he realizado, era solo poner otro campo mas, en el orden y listoj. 
172
« en: Jueves 11 de Octubre de 2007, 22:29 »
Hola a todos, he realizado un reporte, donde lo tengo ordenado por la fecha. Pero a la vez de tenerlo ordenado por fecha, quisiera ordenarlo por el Nro de documento en forma ascendente. como se tiene que hacer para ordenar dos campos ? Gracias. 
173
« en: Martes 2 de Octubre de 2007, 17:22 »
gracias por contestar, pero sigue todo igual. fijate, con este código levanto los datos y a la vez llamo la imagen: Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave If IsNumeric(Me.txt_codigo.Text) Then If Pint.existe(CInt(Me.txt_codigo.Text)) Then Pint.datos(CInt(Me.txt_codigo.Text)) Me.txt_codigo.Text = Pint.CodigoPintor Me.cmb_mesa.SelectedValue = Pint.CodMesa Me.cmb_asiste.SelectedValue = Pint.Asistio Me.DateTimePicker1.Value = Pint.Fecha_Nac Me.txt_nombre.Text = Pint.Nombre Me.txt_direccion.Text = Pint.Direccion Me.txt_quien.Text = Pint.Representa Me.txt_telefono.Text = Pint.Telefono Me.txt_celular.Text = Pint.Celular Me.txt_cedula.Text = Pint.Cedula_Iden Me.cmd_ciudadci.SelectedValue = Pint.Lugar_Cedula Me.cmb_anfitrion.SelectedValue = Pint.CodAnfitrion ShowFilesInFolder() Me.btn_aceptar.Enabled = False Me.btn_modificar.Enabled = True End If End If End Sub
y con este código despliego o muestro la imagen: Private Sub ShowFilesInFolder() Dim file As String Dim FI As FileInfo Dim PBox As PictureBox, Img As Image Dim Left As Integer = ThumbnailPadding Dim Top As Integer = ThumbnailPadding Dim ThispBox As Control Dim ThumbWidth As Integer = 90 ''antes era 90 Dim ThumbHeight As Integer = 120 ''antes era 120 If PictureBox1.Controls.Count > 0 Then Exit Sub Me.Invalidate() 'For Each file In Directory.GetFiles(DirListBox1.Path) Try FI = New FileInfo("c:\sagmasoft\fotos\pintores\" + CStr(Pint.CodigoPintor) + ".jpg") Catch err As Exception FI = New FileInfo("c:\sagmasoft\fotos\pintores\555.png") End Try If FI.Extension = ".gif" Or FI.Extension = ".jpg" Or _ FI.Extension = ".bmp" Then PBox = New PictureBox 'PBox.BorderStyle = BorderStyle.FixedSingle PBox.SizeMode = PictureBoxSizeMode.CenterImage If FI.Extension <> ".cdr" Then Try Img = Image.FromFile(FI.FullName) Catch err As Exception Img = Image.FromFile("c:\sagmasoft\fotos\pintores\555.png") End Try End If If Left > PictureBox1.Width - PictureBox1.Left + ThumbnailPadding + ThumbWidth Then Left = ThumbnailPadding Top = Top + 10 '' antes era 80, ubicacion de la parte de arriba End If With PBox .Left = Left .Top = Top .Width = 120 'Ubicacion del ancho hacia la derecha de la foto .Height = 120 'Ubicacion de la foto en la parte superior TOP .Image = CalculateThumbnailSize(Img, PBox.Width, PBox.Height) .Visible = True .Tag = FI.FullName PictureBox1.Controls.Add(PBox) AddHandler PBox.Click, New System.EventHandler(AddressOf OpenImage) Left = Left + 124 '' antes era 74 End With End If End Sub
174
« en: Sábado 29 de Septiembre de 2007, 15:14 »
hola a todos, he realizado una aplicación que cuando digito el código de la persona, este me despliega los datos de dicha persona y también pongo su foto, esto en un picturebox. todo ok.  Pero ... cuando quiero ver otro dato de otra persona y su imagen, solo me despliega los datos y no asi la imagen o la foto. me puse un boton cancelar, pero aun asi no se borra la imagen. he usado el codigo siguiente. me.picturebox1.imagen = nothing
de lo cual no se pierde la imagen, me lo sigue mostrando aunque este con otros datos.  he tambien puesto el codigo: en este caso me lo hace perder, pero, ya tambien no me muestra nada de nadita de lo que es las fotos o imagenes de las persona. gracias por su colaboración.
175
« en: Sábado 29 de Septiembre de 2007, 14:58 »
hola que tal, puede usar el tablestyle: Function ConfigurarGrilla() DataGrid1.CaptionText = "Tabla de los Pintores" DataGrid1.CaptionForeColor = Color.Coral 'crenado un estilo personalizado y una columna personlizada Dim myEstiloGrid As DataGridTableStyle = New DataGridTableStyle 'aginando la tabla al que asocia el estilo myEstiloGrid.MappingName = "pintor" 'agregando caracteristica a una columna, codigo del pintor Dim myEstiloCol As New DataGridTextBoxColumn myEstiloCol.MappingName = "codigopintor" myEstiloCol.HeaderText = "Codigo" myEstiloCol.Width = 42 'Para el campo del nombre Dim myEstiloCol1 As New DataGridTextBoxColumn myEstiloCol1.MappingName = "nombre" myEstiloCol1.HeaderText = "Nombres" myEstiloCol1.Width = 80 'Para el campo de telefono Dim myEstiloCol2 As New DataGridTextBoxColumn myEstiloCol2.MappingName = "telefono" myEstiloCol2.HeaderText = "Telefono" myEstiloCol2.Width = 80 'Para el campo del celular Dim myEstiloCol3 As New DataGridTextBoxColumn myEstiloCol3.MappingName = "celular" myEstiloCol3.HeaderText = "Celular" myEstiloCol3.Width = 90 'agregando el primer estilo myEstiloGrid.GridColumnStyles.Add(myEstiloCol) myEstiloGrid.GridColumnStyles.Add(myEstiloCol1) myEstiloGrid.GridColumnStyles.Add(myEstiloCol2) 'myEstiloGrid.GridColumnStyles.Add(myEstiloCol3) 'agrengando el estilo a la grilla DataGrid1.TableStyles.Add(myEstiloGrid) End Function
suerte
Páginas: 1 ... 5 6 [7] 8 9 ... 16
|
|
|
Mostrar Mensajes
