PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  3702 - TAMAÑO DEL BUFFER UTILIZANDO WINSOCK
Autor:  Jose Villavicencio
Estoy trabajando con el control winsock y cuando mentengo muchos controles "escuchando" (llamo al metodo "Listen") recibo un mensaje de error que dice que se ha excedido el tamaño del Buffer.
Quisiera saber como evitar este error, o si hay alguna manera de aumentar el tamaño del buffer.
  Respuesta:  Alfonso Flórez Londoño
Cuando hay muchos formularios en un proyecto envia un mensaje que dice:"Sin memoria", aumente el tamaño de buffer, esto como se hace????
2- Si tengo varios proyectos, como los puedo llamar desde un formulario de un nuevo proyect? Ejemplo
Proyecto1, debe llamar a proyecto 2, proyecto 3, proyecto4
Si hago un formulario en proyecto 1(un menú), coml los encadeno con un Call o existe otra forma???.
O hay que dejar cada proyecto independiaente como una apliación???

    Pregunta:  3708 - PARA MANDAR UN (( MENSAJE A UN BIPER )) EN VB 6
Autor:  ERIC ZAN RAMIREZ
Hola amigo (a):

Por lo que escribo es para ver si me puedes ayudar lo que pasa es que me asignaron a un proyecto en el cual tengo que mandar, mensajes por Biper, desde Visual Basic.

El problema radica en que se hará por algún proceso que realice, que cuando surja un error en la madrugada, se active el programa o el proceso que mande un mensaje que el servidor se callo u otro mensaje. Y no se como hacerlo si me puedes ayudar diciéndome como hacerlo en Visual Basic o en alguna otra herramienta telo agradeceré

Atentamente
  Respuesta:  Pablo Fahnle
te recomiendo que uses los controles de vb:
MAPIMessages
MAPISession
yo todavía no los se usar bien, pero en el cd de VB5, viene un ejemplo completisimo.
tendrías que poner un text para el número del bipper y un combo para que elija la marca, entonces definis una variable tipo string, y pones:
dim bipermail as string
bipermail= txtNumero & "@" & cboMarca.text & ".com"
entendiendo txtNumero por el la caja de texto del numero y cbomarca por el combo de la marca del bipper, y luego mandas el mail a bipermail (contiene la dirección del biper).
bueno, espero que te haya servido de algo y suerte
BYE, PABLO
..

    Pregunta:  3722 - COMO HACER UN SELECT DE FECHAS
Autor:  MªRosa Jordán Gracia
Hola, tengo que hacer un select en Visual Basic 6.0,que seria algo asi:
data1.recordource="select * from tabla where finicio=<fecha de inicio>"
el problema es que no se cómo comparar fechas, finicio es un campo de tipo fecha de la tabla y he de compararlo con una variable Inicio de tipo fecha, cómo lo hago?.
Gracias.
  Respuesta:  Francisco Lopez
si la comparacion de fecha que quieres realizar es para buscar en SQL SERVER es la siguiente:

en el campo de la tabla debe estar definido como fecha smoldate

FEC = convert(char(10),fec,111) >= '2005/09/22' debe ir con las comillas simples y busca fecha sin hora

FEC = convert(char(16),fec,20) >= '2005/09/22 12:25:00'

debe ir con las comillas

PODRIA SER ASI TAMBIEN

DIM Fecha as string
Fecha = "'2005/12/21 21:12:24'" (fijate que habro con una doble y sigue una simple y al final una simple y luego una doble

FEC = convert(char(16),fec,20) >= Fecha

Espero que te sirva.
Francisco
  Respuesta:  Eric Del Valle Hernández
´VB5 funciona VB6 supongo que también.
´xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
´Si estas utilizando una cadena para capturar la fecha
´entonces utiliza la función cDate

txtSql = "select * from mitabla where fecha=#" & CDate(MiFecha) & " order by fecha;"
With Data1
.RecordSource = txtSql
.Refresh
End With
Saludos
  Respuesta:  alberto garea vidal
tu error reside en que tratas de comparar un campo de la base de datos de tipo fecha con una variable de tipo fecha, toda comparacion con un campo de tipo fecha debe de comenzar y terminar con el simbolo "#", además la comparacion debe ser en formato sajón, es decir mm/dd/aa, por lo tanto prueba lo siguiente:
.. where finicio = "´#" & format(fecha de inicio, "mm/dd/aa") & "#´"
  Respuesta:  J RC
Por tu pregunta, supongo que ya habrás probado a convertir el campo al tipo date de Visual Basic para compararlos, y no has podido. Una solucion que se me ocurre, sería declarar dos variables privadas a tu función de tipo Variant, y utilizarlas para realizar la comparación. A cada una de estas variables le asignas el valor del campo y la variable date. Esto deberia funcionar.

    Pregunta:  3741 - IMPRIMIR IMAGENES SIN PERDER FORMA
Autor:  Victor Benitez
Hola a todos, deceo imprimir una imagen en un formato ya preestablecido (Credencial), pero todas la imagenes no tienen el mismo tamaño, y pierden la forma.

Esperando Ayuda.
Saludos desde Chile
  Respuesta:  Luis E. Camarena Dàvila
Puedes utilizar el "image composer" que viene junto con el "front page" con este pudes manipular las imagenes a tu medida sin distrocionar nada..

    Pregunta:  3743 - ROTAR IMÁGENES EN VB
Autor:  Enrique López
¿Existe alguna forma de conseguir que una imagen insertada mediante las herramientas PictureBox o Image se pueda rotar? Si con estas herramientas no se pudiera hacer, ¿Qué otra forma hay?

Agradezco con antelación la ayuda prestada.
  Respuesta:  David Mota Herce
con esta función se da la vuelta a un control picture:

PicTarget.PaintPicture Picture1.Picture, Picture1.ScaleWidth, Picture1.ScaleHeight, -Picture1.ScaleWidth, -Picture1.ScaleHeight
  Respuesta:  X pp
Se podria hacer con APIs pero es mas sencillo con el control ImgEdit de Wang IMAGING,que viene con el WinNT y creo que con el w95 tambien.
Ademas permite guardar los cambios,zoom etc..

    Pregunta:  3747 - WINSOCK COMO CONECTAR VARIOS CLIENTES
Autor:  Miguel Angel Hernandez Arteaga
Estoy haciendo una aplicacion cliente/servidor.
mi problema es el siguiente:

Quiero tener un servidor que se puedan enganchar Nº de clientes.
para uno no tengo problema, pero para los siguientes estoy un poco perdido de como hacerlo, no se si hacer un arry de controles( y como hacerlo), crear formularios idependientes cada uno con un winsock, etc...
Si alguien me puede dar alguna idea ,sample o documentacion lo agradeceria mucho.

Gracias
  Respuesta:  Joan-Baptista Fàbregas Muñoz
Mira la pagina:

http://support.microsoft.com/support/kb/articles/Q171/8/43.asp

Contiene informacion que te puede ser muy util.

    Pregunta:  3755 - COMO AGRANDAR EL TAMAÑO DE UNA TABLA EN SQL 6.5
Autor:  Raul Albornoz
Quiero saber como puedo agrandar el tamaño de una tabla en SQL 6.5, lo ke pasa es ke yo estoy trabajando con VB 5.0 y SQL 6.5 y al momento de hacer una consulta a una tabla que actualmente tiene mas de 300.000 registros se me kae por TIME OUT . y me dijeron ke debia agrandar el tamaño de la tabla pero no me dijeron komo . alguien SABE ....
  Respuesta:  Raul
logre solucionar mi problema.
pero no aumentandole el tamaño a las tablas, si no ke aumentadole el Tiempo de respuesta en mi conexion, ya ke yo le ponia 10 seg. al logintimeout y ahora le aumente a 30 seg. lo cual me permite ke no se kaiga por time out.
ya ke mi konsulta era grande y demorosa ..

    Pregunta:  3760 - WORD Y VB
Autor:  Enrique Osegueda
Que tal como están Compañeros, mi pregunta es la siguiente: trabajo con VB y he creado una aplicación que trabaja con word pero no encuentra ninguna propiedad que me proporcione el número de páginas del documento, si alguien lo sabe se los agradeceré.
  Respuesta:  Jose Requeijo Figueiras
Para ver el número de páginas de un documento prueba con la propiedad "Information" que se aplica a un objeto "Range" o "Selection" pasándole como parámetro "wdNumberOfPagesInDocument".

    Pregunta:  3764 - PROBLEMAS ENTRE CRYSTAL REPORT Y WINDOWS 98 SE
Autor:  Juan Del Cid
Hola, mi problema es el siguiente:

Hice un reporte en Crystal Report Pro 5. Este reporte lo llamo desde un programa hecho en Visual Basic 5. Cuando corro el programa en ambiente Windows 95 o Windows 98 4.10.1998 no tengo ningun problema. El problema se presenta cuando instalo el programa en una maquina que tenga Windows 98 Segunda Edicion, el reporte genera el siguiente error:

Error in Formula <Group # 1 Order>
If IsNull({BusesTodos.Salida})
A memo field cannot be used in a formula

He rastreado en el reporte, pero por ningun lado encuentro la condicion anterior y tampoco estoy usando campos de tipo memo, por lo que creo que el problema es entre el Crystal Report y Windows 98 Segunda Edicion.

Agradesco de antemano la ayuda que puedan proporcionarme.

Gracias.
  Respuesta:  Jorge Patiño
se debe cambiar esta función por: If ({BusesTodos.Salida})=""

Lo recomendado al desarrollar en windows 98 segunda edición, es evaluar todas las funciones en especial la ISNULL.
Esta puede en algunos casos no funcionar.

    Pregunta:  3776 - MINIMIZAR TODAS LAS VENTANAS
Autor:  JUAN JOSE RIVERA GALLO
COMO PUEDO MINIMIZAR TODAS LAS VENTANAS QUE TENGO ABIERTAS CONTANDO LA DEL PROGRAMA EN VISUAL BASIC CON UN SOLO COMMAND BUTTON LES AGRADECERIA QUE ME ESCRIBIERAN EL CODIGO OJALA QUE MANEJANDO LAS API GRACIAS.

ATT
  Respuesta:  juan cecconi
Para poder manipular cualquier ventana debes tomar un manejador de la misma, esto es recurrir a la funcion GetTopWindow para tomar la ventana de orden principale (le paso el null) luego hace un lazo buscando las siguientes (de igual categoria) y GetNextWindow para buscar las que le siguen hasta que la funcion me indique que ya no hay mas. Esto es lo que hace la funcion de ejemplo que hice "Find_Wnd", que toma como parametro un string con el titulo de la ventana a buscar. Si tiene exito la funcion devuelve el manipulador, caso contrario devuelve 0 (null).
Luego tendrias que utilizar SetWindowPos para manejar las caracteristicas de la ventana (Minimizarla, Ocultarla, Etc)

Private Function Find_Wnd(Caption As String) As Long
Dim Retval As Long, hwnd As Long
Dim Buffer As String

Find_Wnd = 0 ´Prevengo que no este la ventana
hwnd = GetTopWindow(0) ´ Toma la ventana que estaarriba de todo!
Do
hwnd = GetNextWindow(hwnd, GW_HWNDNEXT) ´ pasa a buscar la siguiente hasta encontrar la que busco!!!
If hwnd = 0 Then Exit Function
Buffer = String(255, " ") ´llena el string con espacios (asi quita los char NULL)
Retval = GetWindowText(hwnd, Buffer, 255) ´toma el titulo de la ventana (si es una ventana y no un control!)
Loop Until (InStr(1, Buffer, Caption, vbTextCompare) <> 0)
Find_Wnd = hwnd
End Function

|<  <<  57 58 59 60 61 62 63 64 65 66 67  >>  >|