|
|
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 - Widark
Páginas: 1 [2] 3 4 ... 12
26
« en: Viernes 23 de Febrero de 2007, 23:55 »
Que tal! Y esto, servirá? dgvArticulos.Columns("NombreColumna").DefaultCellStyle.ForeColor = Color.Blue
27
« en: Viernes 23 de Febrero de 2007, 15:14 »
Investigando en Internet me encontre con esto, lo pongo por si a alguien le interesa. Esto va en un form con dos botones y dos cajas de texto para que ingresen el nombre de usuario y la contraseña: Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" _ (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, _ ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer Public Declare Function WNetCancelConnection2 Lib "mpr" Alias "WNetCancelConnection2A" _ (ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer Public Structure NETRESOURCE Public dwScope As Integer Public dwType As Integer Public dwDisplayType As Integer Public dwUsage As Integer Public lpLocalName As String Public lpRemoteName As String Public lpComment As String Public lpProvider As String End Structure Public Const ForceDisconnect As Integer = 1 Public Const RESOURCETYPE_DISK As Long = &H1 Public Function MapDrive(ByVal DriveLetter As String, ByVal UNCPath As String) As Boolean Dim nr As NETRESOURCE Dim strUsername As String Dim strPassword As String nr = New NETRESOURCE nr.lpRemoteName = UNCPath nr.lpLocalName = DriveLetter & ":" strUsername = TextBox1.Text ' Nothing '(add parameters to pass this if necessary) strPassword = TextBox2.Text 'Nothing '(add parameters to pass this if necessary) nr.dwType = RESOURCETYPE_DISK Dim result As Integer result = WNetAddConnection2(nr, strPassword, strUsername, 0) If result = 0 Then Return True Else Return False End If End Function Public Function UnMapDrive(ByVal DriveLetter As String) As Boolean Dim rc As Integer rc = WNetCancelConnection2(DriveLetter & ":", 0, ForceDisconnect) If rc = 0 Then Return True Else Return False End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If MapDrive("X", "\\NombreServidor\RecursoCompartido") Then MessageBox.Show("Se conecto felizmente.") Else MessageBox.Show("¡¡¡¡¡PERDISTE!!!!!") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click UnMapDrive("X") End Sub
28
« en: Miércoles 14 de Febrero de 2007, 23:41 »
Como estan?
Como el dermatologo: "al grano", quiero conectarme a una carpeta en el servidor desde mi aplicacion, esto con el fin de comparar las versiones de mi aplicación para saber si tengo que actualizar la aplicacion que esta en el cliente. Claro esta, que se crearia un usuario que solo pueda acceder a esa carpeta, pero ese usuario solo seria para la aplicacion.
Por su atencion muchas gracias. (espero haberme explicado bien)
29
« en: Viernes 9 de Febrero de 2007, 22:22 »
Que tal scorpio!
Si te referis como pantalla a una ventana, con WExist("NombreVentana") te puede ayudar.
Lo otro si ni idea.
30
« en: Viernes 2 de Febrero de 2007, 13:48 »
Que tal claudiorene!
Por que no configuras el objeto (me imagino que est un texto) para que solo obtenga número, le das click derecho al text y luego generador (builder) en la ventana que aparece le das NUMERO (NUMERIC) y le das la mascara. Aunque si lo tienes enlazado directamente a la tabla no deberias tener problemas.
Espero sea de ayuda.
31
« en: Lunes 29 de Enero de 2007, 14:08 »
Que tal abelsql3000! x=val(txtnumero) Do Case Case x <5 proceso1 Case InList(x,5,6,7,8,9,10) && No se si aqui sirve el between, podrias probarlo proceso2 Case InList(x,11,...,20) proceso3 OtherWise proceso4 End Select
Espero te sirva.
32
« en: Jueves 11 de Enero de 2007, 03:53 »
Que tal claudiorene!
Prueba esto: Len(AllTrim(Str(tu_numero)))
33
« en: Miércoles 3 de Enero de 2007, 17:38 »
Buenas las tengan!!!!!!
La situacion es la siguiente, tengo una tabla que contiene el grupo y sus detalle de la siguiente forma el codigo del grupo lo tengo así: P001 y el detalle que le corresponde a este grupo sera S001001.
Lo que quiero saber es como puedo traer el grupo y el detalle cuando los llame desde otra tabla, ej: tengo una tabla UsoDetalle, hay solo tengo los codigos S001001, S001002, S001003, S002001, S002002; y lo que quiero es traer los grupos de estos codigo y resultado de la consulta debe ser este:
P001, S001001, S001002, S001003
P002, S002001, S002002
Muchas gracias por su atencion.
34
« en: Martes 2 de Enero de 2007, 17:56 »
Muchas gracias cpmario!!!!
35
« en: Martes 2 de Enero de 2007, 16:52 »
Que tal un FELIZ AÑO para todos.
Solo por curiosidad cual es la diferencia entre la funcion sola y la misma funcion con el simbolo de $. Ej: Mid() y Mid$(). Muchas gracias por sus comentarios.
Salu2
36
« en: Jueves 28 de Diciembre de 2006, 14:28 »
Me parece muy viable la idea de Eternal y como dijo RadicalEd aqui toy por el foro.
37
« en: Viernes 15 de Diciembre de 2006, 21:06 »
Como estan?
La otra opcion es darle click derecho al text y en la opcion Builder (Generador) darle que va a ser del tipo numerico. Si tienes enlazado el text a una tabla y el campo es numerico este lo valida de por si.
Saludos
38
« en: Viernes 15 de Diciembre de 2006, 14:01 »
No, no es atravez de Internet, es por medio de una LAN
Gracias
39
« en: Jueves 14 de Diciembre de 2006, 20:40 »
Que tal, elnapster!
Si, eso ya lo hice, pero aparece que no puede conectarse con el servidor.
40
« en: Jueves 14 de Diciembre de 2006, 17:58 »
Buena Tarde!
Como estan?
He creado un BD en mi computador y ahora quiero que otro computador acceda a la base creada, ya le habilite el puerto 1433 y agrege sqlservr.exe a las excepciones del Firewall de Win, no se como hacer para que me tome la bd que hize, alguna idea les agradecira mucho.
41
« en: Miércoles 6 de Diciembre de 2006, 23:45 »
Gracias JuanK
Lo estube mirando, pero no me funciono, aparece un mensaje que DateType no puede ser Int o algo por el estilo, le di algunas vueltas, no soy muy diestro en VB.NET así que no le pude dar con el chiste. De todas formas muchas gracias.
42
« en: Martes 5 de Diciembre de 2006, 17:00 »
Buenas las tengan sus personas! Como el dermatologo "vamos al grano": Quiero validar que tipo de datos tiene una columna y de la forma en que lo hize no me siento muy satisfecho y quisiera saber la forma más apropiada. If dsAspirantes.Tables(0).Columns(cboColumnas.Text).DataType.ToString = "System.Int32" Then
Yo me imagino que eso es un insulto al lenguaje pero no vi otra forma, si me pudieran corregir estaria muy agradecido con ustedes. Muchas gracias por su tiempo.
43
« en: Jueves 2 de Noviembre de 2006, 22:35 »
Buenas las tengan!
Mi problema es el siguiente, tengo un formulario tipo mdi (isMDIContainer) de este form se llama uno que no es hijo, pero quiero que quede de primero. Por X motivo no lo hace apenas le doy show, intente con el metodo BringToFront, dandole la propiedad Owner y luego quitandosela, pero nada. Si tienen alguna idea me seria de mucha utilidad.
Muchas gracias por la atención prestada.
44
« en: Jueves 12 de Octubre de 2006, 02:05 »
Que tal, creo que se refiere a esto: Dim iCeldaAnterior As Integer 'Debes asignarle un valor a iCeldaAnterior apenas se abra el libro, preferiblemente la fila seleccionada Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(iCeldaAnterior, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone Target.EntireRow.Interior.ColorIndex = 9 iCeldaAnterior = Target.Row End Sub
45
« en: Sábado 7 de Octubre de 2006, 17:24 »
Bueno aunque soy 99% Heterosexual (el 1% faltante esta en duda  ) Apoyo a Angel, que para un costeño debe ser muy dificil hacer tal declaración, por eso de la "muñeca 'e burro"  
46
« en: Jueves 28 de Septiembre de 2006, 22:04 »
Que tal! Pues la verdad la solucion que da Juez (ni idea, nunca lo he manejado así, es que vengo de vb y no se muchas cosas de fox), yo lo haria así: &&Este es el evento KeyPress del formulaio LPARAMETERS nKeyCode, nShiftAltCtrl Public gcCodigoProducto gcCodigoProducto = "" If nKeyCode = -2 && F3 Adicionar Do Form Formulario_Productos if !Empty(gcCodigoProducto) Replace codigoproducto With gcCodigoProducto In Tabla_Factura ThisForm.Refresh() EndIf EndIf Release gcCodigoProducto EndSelect
Ahora en el formulario que llamas, estableceria la propiedad WindowType a (1)Modal y pondria el siguiente código &&Se supone que tienes un boton que se llama cmdSeleccionar y otro cmdSalir &&En el evento click del boton seleccionar gcCodigoProducto = Productos.codigo && Se supone esta es la tabla ThisForm.cmdSalir.Click &&Evento Click del boton Salir ThisForm.Release
Cualquier duda nos comentas.  , aahhh Juez, y lo de la firma te la puedo sostener, es que se trabaja muy duro
47
« en: Miércoles 27 de Septiembre de 2006, 18:50 »
Que tal sergio leonar!
Seria mejor que la validación la hicieras en el evento Validate de ese texto, así el control no perderia el foco.
Saludos
48
« en: Miércoles 27 de Septiembre de 2006, 18:23 »
Además, para que fotos  , si podemos comartir con ellas "cahrlando" por el msn o cualquier mensajero (bueno, los que tengan la dicha de tenarlas en sus contactos  ). Ahhhh, mi voto es por Shiquilla, por que he tenido el placer de "hablar" con ella y me parece muy "linda" (entiendase que linda no solo lo es el apecto fisico, por que no la he visto) y eso sin desmeritar a las que existen en solocodigo y no "conocemos" y a las que conocemos. "palabras de cajon, pero valederas y verdaderas" 
49
« en: Miércoles 27 de Septiembre de 2006, 15:48 »
Que tal claudiorene! Para que el formulario tome las pulsaciones del teclado, debes configurar a .T. la propiedad KeyPrview, ahi validas la tecla que llamara otro formulario. Para que el formulario que llames te devuelva un valor le estableces la propiedad WindowType a 1, creas una variable en la cual almacenas el valor del producto una vez regrese al formulario de la factura se lo asignas a la tabla. El codigo seria algo así: &&Esto en el formulario de la factura Do Form frmProductos IF !Empty(gcCodProducto) &&Si selecciono un producto devolvemos el código &&Se supone que ya diste un Append Blank Replace campo_del_codigo With gcCodProducto In TablaFactura EndIf &&En el formulario de productos, boton aceptar/seleccionar. gcCodProducto = TablaProductos.codigo_del_producto
Espero te sirva y este entendible. Saludos
50
« en: Viernes 22 de Septiembre de 2006, 23:34 »
Que tal!
Por lo que comentas, podria asumir que es por lo siguiente. Si creas una nueva tabla no tiene datos, al ejecutar el formulario los controles enlazados a la tabla estarán deshabilitados por que no hay registros. Eso es solo si en la tabla no hay registros, prueba ingresando uno y luego ejecutas el formulario.
Espero sea de utilidad.
Saludos.
Páginas: 1 [2] 3 4 ... 12
|
|
|
Mostrar Mensajes
