PREGUNTAS CONTESTADAS - ASP.NET

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	6011 - ENLAZAR RECORDSET EN ADO CON CRYSTAL REPORT
Autor:	Antonio Trujillo
Es posible enlazar un recordset en ADO con Crystal Report? (tengo la version 6 de Crystal, pero ignoro si las posteriores versiones lo permiten), ya que no me termina de convencer el DataReport. Les agradezco de antemano sus sugerencias.

Respuesta:	Rafael Morales
Con ADO no es posible enganchar un cristar report, por lo menos hasta la version 7, la version 8 lo permite a medias, ya q no se conecta bien y da errores de actulizacion de las plantillas creadas. El truco, crea un remote data y el remote data lo cargas con el resultado del ado y el ermote al cristal report Salu2

Contestar

Pregunta:	6021 - COPIAR CELDAS DE EXCEL A UNA GRILLA EN VB6 O VB5
Autor:	Edwin Rengifo
HOla, mi problema es qu enecesito pasar unas celdas de una hoja de excel a una grilla en VB para poder manipular esos campos fuera de Excel ya sea para copiar a una base de datos o para realizar unos calculos o mostrar cierta información.

Respuesta:

Xavi

Aqui te adjunto un codigo.
Lo que tienes que hacer, es exportar las celdas a una base de datos, y luego con el control data visualizar esa base de datos en la grilla.

Este es el codigo que te puede servir:
Set objExcel = New Excel.Application
objExcel.Visible = True
'determina el numero de hojas que se mostrara en el Excel
objExcel.SheetsInNewWorkbook = 1
'Crea el Libro
objExcel.Workbooks.Add

With objExcel.ActiveSheet
.Range(.Cells(1, 1), .Cells(1, 8)).Borders.LineStyle = xlContinuous
.Cells(3, 1) = "EMPRESA"
.Cells(3, 2) = "REFERENCIA"
.Cells(3, 3) = "CANTIDAD"
.Cells(3, 4) = "CODIGO"
.Cells(3, 5) = "REFERENCIA 1"
.Cells(3, 6) = "REFERENCIA 2"
.Cells(3, 7) = "PEDIDO"
.Cells(3, 8) = "CLIENTE"
.Range(.Cells(3, 1), .Cells(3, 8)).Font.Bold = True

.Columns("C").HorizontalAlignment = xlHAlignRight
.Columns("D").HorizontalAlignment = xlHAlignRight
.Columns("A").ColumnWidth = 30
.Columns("B").ColumnWidth = 30
.Columns("C").ColumnWidth = 9
.Columns("E").ColumnWidth = 30
.Columns("F").ColumnWidth = 30
.Columns("H").ColumnWidth = 25
End With

Espero que te sirva.

Contestar

Pregunta:	6082 - TECLA INTRO DEL TECLADO NUMERICO
Autor:	Francisco Javier Ruiz Pernia
Estoy tratando de saber si se puede hacer que el visual basic distinga entre la tecla INTRO del teclado numérico y la tecla INTRO del teclado normal. Ambas me dan el código de tecla 13 cuando hago una llamada al evento Keypress y KeyDown, ¿Alguien sabe como se puede hacer?

Respuesta:

Jose A. Hernández

Hola Francisco.
Aquí va la respuesta a tu pregunta.
Cuando usas la constante vbKeySeparator para evaluar las pulsaciones de teclas en los eventos KeyUp, KeyDown o KeyPress y distinguir el Enter del teclado alfabético y el Intro del numérico las comparaciones siempre devuelven falso debido a un bug (del VB 4, 5 y 6 !!).

Para resolverlo :

Declaramos en el formulario :
Private Declare Function PeekMessage Lib "user32" Alias _
"PeekMessageA" (lpMsg As MSG, ByVal hwnd As Long, _
ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, _
ByVal wRemoveMsg As Long) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type

Const PM_NOREMOVE = &H0
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Const VK_RETURN = &HD

Y en el evento :

Dim MyMsg As MSG, RetVal As Long

' se le pasa:
' estructura MSG para recibir la información del mensaje
' handle de la ventana
' filtros superior e inferior a 0 para recibir todos los mensajes
' PM_NOREMOVE para dejar las pulsaciones en la cola de mensajes
' usa PM_REMOVE (1) para eliminarlas
RetVal = PeekMessage(MyMsg, Me.hwnd, 0, 0, PM_NOREMOVE)

' ahora comparamos el MSG.wParam con VK_RETURN
' si la pulsación fue esta, miramos el bit 24 del lparam. Si está ON se usó el
' teclado numérico, si no el alfabético.
If RetVal <> 0 Then
If MyMsg.wParam = VK_RETURN Then
If MyMsg.lParam And &H1000000 Then
MsgBox "Enter del teclado numérico"
Else
MsgBox "Enter del teclado alfabético"
End If
End If
Else
MsgBox "No había mensajes en la cola o a habido problemas con PeekMessage"
End If

Espero que te sirva. No suelo tener mucho tiempo para esto de la informática, pero si tienes algún problema, dímelo y veremos si se puede hacer algo. Un saludo

Respuesta:

Hugo Montes

Aunque so'lo programo en Qbasic y para uso personal, intente' hacer lo mismo a trave's del MS2 utilizando el Ansi.sys cargado en el Config.sys..... no me resulto' pero tbn. reconozco que no segui' ninguna bu'squeda detallada utilizando los mandos Switches, Keyb, modificadores /x /k, combinaciones, etc..... asi' que so'lo quiero mencionarte dos detalles:
1ro.- Pienso en que el Vbasic no esta' demasiado lejos de co'digos y t'ecnicas ba'sicas del MS2 y los anteriores Basic's para MS2 que muchos DESPRECIAN olvida'ndose que en todo el mundo la mayori'a comenzo' con esos compiladores [aunque el Vbasic tiene alcances mayores, es verdad].....
2do.- A trave's del MS2 y usando el Ansi.sys la u'nica diferencia que encontre' entre las dos teclas Intro fue que usa'ndolas en combinacio'n con las teclas Alt [las alternas] SI' producen dos co'digos nume'ricos distintos..... Porque' no utilizarlas que al fin y al cabo he visto que todo programador siempre coloca las combinaciones de teclas ma's REBUSCADAS que puede encontrar?..... Crees que notari'an la diferencia?..... Hugo Montes.,

Respuesta:	Alf Carmona
no se puede diferenciar, puesto que es la misma tecla, solamante es cuestion de distribucion del teclado.

Contestar

Pregunta:	6132 - ¿CóMO DETECTAR UN DISCO EN A:?
Autor:	Pilar MMF
Voy a leer un fichero de un diskette en A: Pero antes quiero saber si la disquetera (A:) tiene insertado un diskette. Gracias.

Respuesta:	Mariano Laguzzi
Bien Facil : Public Function HayDiskete() As Boolean 'Verifica si hay un diskete puesto en la disketera. On Error GoTo Error ChDrive "A" HayDiskete = True ChDrive "C" 'para que el próximo intento funcione correctamente. Exit Function Error: ChDrive "C" 'para que el próximo intento funcione correctamente. Exit Function End Function

Respuesta:	Pilar MMF
Por el tamaño de la respuesta, está en el archivo resp6132.txt.

Respuesta:	J RC
Lo mejor es utilizar el control Drive. Lo pones invisible, y cuando quieras comprobar si hay un disquete (por ejemplo, periódicamente con un control Timmer), activas el control de errores y especificas la propiedad DRIVE como A:. Si no hay error, es que hay disquete. Luego vuelves a poner el drive como C: para posteriormente poder volver a hacer la comprobación.

Contestar

Pregunta:	6144 - CREAR ACCESO TELEFONICO A REDES DESDE VB
Autor:	julio rodanes martinez
Me gustaria saber si se pude crear desde Visual Basic un acceso telefonico a redes, doce tu le pasa los parametros que quieres. Gracias

Respuesta:

Jose Luis Atanasio

Julio: Te paso algo que encontre en una pagina de Internet. Lo que no especifica es como pasarle parametros pero espero que te sirva.
Suerte.

Jose Luis.

--------------------------------------------------------
Dim AbroConexion As Long
AbroConexion = Shell(\"rundll32.exe rnaui.dll , RnaDial \" & \"NombreDeConexion\", 1)
SendKeys \"{ENTER}\"
--------------------------------------------------------

Comentarios: Tomá en cuenta que tenés que reemplazar NombreDeConexion por el nombre verdadero que tenga la conexion de acceso telefonico de Windows, también podés cambiar el nombre de la variable AbroConexion (no el tipo de variable) e inclusive hacerla pública si lo necesitas.

Contestar

Pregunta:	6148 - NOMBRE DEL RECURSO COMPARTIDO DE LA IMPRESORA
Autor:	Juan Miguel Montilla Pavon
Hola, A traves de codigo Visual Basic me gustaria conocer el nombre que se le da a la impresora como recurso compartido. Es decir, el nombre que aparece en propiedades, ficha compartir, en la casilla "nombre de recurso compartido" Gracias

Respuesta:	Angel
Te puedo dar una pista... Creo que vas a tener que utilizar la estructura DEVMODE del API de Windows. Es bastante complicada de utilizar, pero una vez que lo has conseguido, tienes toda la información necesaria sobre la impresora.

Contestar

Pregunta:	6159 - MANEJO DE IRQ7
Autor:	Armman
Tengo un programa que maneja a la perfección la famosa IRQ7 del puerto paralelo y necesito llevar esto mismo al ambiente visual y más precisamente a Visual Basic 6 ¿Alguien me puede ayudar con algo de código para manejar esta interrupción o alguna utilidad o control que lo haga?

Respuesta:	Jorge Eduardo
La función que tienes hecha, en qué lenguaje está?? Es importante que sepas que posiblemente no funcione para ambientes como Windows NT, que no permite manejo de IRQ tan fácilmente...

Contestar

Pregunta:	6208 - REALIZAR CORREO ELECTRONICO CON VB
Autor:	Juan Pico
Hola amigos, me gustaria realizar una aplicacion de correo electronico en VB. ¿Como puedo realizar un POP3 y recibir los mensajes en mi aplicacion sin tener que pasar por IE o Netscape me gustaria gestionarlo yo directamente desde mi aplicacion , poder recibir ficheros adjuntos y todo lo referente a los mesajes recibidos? ¡Como puedo realizar un SMTP y enviar los mensajes con o sin ficheros adjuntos? Agradeceria explicaciones de como poder ralizarlo y codigo fuente si es posible. Gracias anticipadas

Respuesta:	Carlos Rojas
Espero no sea demasiado tarde para responder Escribeme al correo y te envio una aplicación de mi propiedad, funciona correcto para enviar pero sin archivos adjuntos...estoy perfeccionandola. Espero poder servirle

Respuesta:	J RC
Tienes dos formas. Una sería utilizar controles que implementen los protocolos SMTP y POP3, y gestionarlos en tu aplicación, y la otra utilizar el control WinSock, e implementar sobre él los protocolos mencionados.

Contestar

Pregunta:	6242 - SENDKEYS
Autor:	Cristian Gabriel
Tengo el siguiente poblema: En un TextBox utilizo el evento KeyPress. Sucede que al ejecutarse, se me deshabilitan las teclas NumLock y CapsLock. Este es el código que estoy utilizando: Private Sub txtClave_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}" SendKeys "{ENTER}" End If End Sub Alguien sabe porqué sucede esto? Gracias colegas!.

Respuesta:	Oscar
Hola Buenas,he probado lo que decias. Prueba con este codigo yo lo he probado y funciona no se deshabilitan las teclas. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" KeyAscii = 0 End If End Sub

Respuesta:	Daniel Figueroa
Prueba agregando ,True Private Sub txtClave_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}", True SendKeys "{ENTER}", True End If End Sub Si no te funciona, envia un mail a mi dirección y buscare la forma utilizando las API. Un Abrazo. DFA

Contestar

Pregunta:	6289 - INSTALO UNA APLICACION VB6 PERO ME DA PROBLEMAS AL EJECUTAR
Autor:	erik jonsson
Hola. A ver si alguien puede guiarme en este problema. He creado una aplic. muy sencilla (de hecho no incluyo ningún control especial). Tan solo hago referencia a una BD de Access 2000 (utilizo Jet.4.0). Desde el entorno funciona bien, pero cuando me creo los discos de instalación con el asistente de empaquetado que incorpora el VB6, y los instalo en otro equipo, cosa que se hace sin problemas, al ejecutar la aplicación me da el siguiente problema siempre que intento modificar datos en la BD: 'Ocurrió el siguiente error en tiempo de ejecución: el objeto no acepta automatización o esta interfaz'. Si alguien sabe como resolverlo, agradecería su ayuda. Saludos

Respuesta:	Ana Urgilés
Hola como estás, no sé porque exactamente ocurre este error pero lo arreglas instalando el ADO Data Control desde la versión 2.0 en adelante. Espero te haya servido de ayuda.

Respuesta:	Miquel Garcia
Hola Erik, Respecto a tu pregunta, creo que el error puede venir de la referencia del motor. Abre el proyecto mediante Visual Basic y ves a la Opcion Proyecto ... Referencias Desactivas la referencia DAO 3.51 y activas la referencia DAO 3.6 Esto hará que puedas acceder a bases de datos Access 2000 y anteriores.

Contestar

|< << 84 85 86 87 88 89 90 91 92 93 94 >> >|