PREGUNTAS CONTESTADAS - Velneo

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  6339 - IMPEDIR LA INTERUPCION DE BUCLES
Autor:  Jose Luis Sanchez
Tengo un bucle infinito en una de mis aplicaciones, pero dicho buclue se para cuando windos trabaja. ¿Hay alguna manera de que no se pueda interunpir un bucle?

Para decirlo mas facil: Tengo una especie de contador en la aplicaion que suma cada vez que se produce cierto evento. Durante ese evento se suma un numero u otro sugun la interaccion del usuario. Pero hay veces que en vez de sumarme 5 me suma 4 y se pierde uno por culpa de que cuando un ordenador esta saturado se para mi bucle infinito.
¿Alguien sabe una solucion?

Muchas Gracias,
  Respuesta:  Jim Adam Miñano Wong
intenta colocando como primera linea dentro del bucle DoEvents ejemplo:
dim x as long
x = 0
do until x = 100000000
DoEvents
x = x + 1
loop
si tienes bucles internos puedes colocar de igual manera DoEvents.

espero te sirva Bye.

    Pregunta:  6341 - AJUSTAR EL TEXTO AL LARGO DE UNA CELDA DE EXCEL
Autor:  Jorge Castro de la Puente
Estoy tratando de hacer un reporte en Excel con Visual Basic y el problema es que tengo campos de texto que deben ocupar más de una línea y no pisar las celdas que tienen a su derecha. No me importa que aumente la altura de la celda.
  Respuesta:  Arturo González E.
Tu problema si es como lo entendi lo resulves de la siguiente forma. En la celda donde va la información que pasa del tamaño de la misma celda, seleccionala, boton derecho y elige Format cells..., aparecera otra ventana donde deberas elegir la carpeta Aligment y activaras la opción Wrap text. Solo se aumentara la altura de la celda.

    Pregunta:  6367 - COMO ACCEDER DESDE VISUAL BASIC 6.0 A SAP R/3
Autor:  Juan Antonio Gómez
Quisiera saber como visualizar datos de un sistema SAP/R3 bajo SQL*Server 7.0 con Visual Basic 6.0
  Respuesta:  Juan Iñiguez
Se puede acceder a casi todos los objetos de SAP desde Visual Basic utilizando diversas tecnologias (BAPI, RFC, etc) Existe un 'DCOM Connector' mediante el cual se puede acceder a objetos SAP desde Internet. Hay controles ocx que ayudan en varias labores. Busca en la página de SAP
  Respuesta:  Bernardo Calderon
Juan, la verdad es que si se puede acceder a SAP por Visual Basic, debes hacer funciones del tipo RFC en SAP y generar el código visual que SAP te lo da gratis. Yo tengo programas hechos que consultan datos en linea con SAP, es decir no tienes que hacer ningun vasiado de archivo o utilizar archivos planos para comunicarte con SAP. Es más tengo programas hechos hasta en Power Builder que se conectan en linea a SAP.
Recuerda, investiga el tema de RFC en SAP. Si necesita más datos me escribes.. saludos..
  Respuesta:  Patricia Cabrera
La única forma de poder conectarse al SAP, es que éste te baje los datos que necesitas importar a un archivo ascii (de texto), apartir de alli lo abris desde el visual. Vas leyendo reistro x registro. Como cada registro lo tienes definidos por campos ,asignas cada campo a una variable , luego tomas los datos y se los pasás como parámetro al procedimiento SQL7, llenas la tabla y la consultas como quieras.
Te puedo asegurar que la estructura de datos del sap no es compatible con nada.
Cualquier cosa si lo necesitas te mado un ejemplo.

    Pregunta:  6386 - ADJUNTAR TABLAS EN VISUAL BASIC
Autor:  Mónica Peñalva
Hola, yo estoy haciendo un programa con Access y necesito que un MSFlexGrid contenga datos de muchas tablas que pertenecen a dos base de datos distintas. Vi que se puede adjuntar en tiempo de programación, pero nose como se hace para hacerlo en tiempo de ejecución.
Por favor si saben la respuesta les agradeceria de todo corazón.
Desde ya muchas gracias y que tengan un lindo día
  Respuesta:  Matias Alejandro Nolazco Guerrero
Para Access 97
Primeramente tienes que conectar el control Data1 al control MSFLEXGRID para que funcione.

No lo he ejecutado no se si pueda tener errores.
Mandame un correo para ver si te sirvio.

Private Sub Command1_Click()

Dim Base1 As String
Dim Base2 As String

Data1.Connect = "Access"

'conecta el primer archivo *.mdb
Data1.DatabaseName = "C:\PRIMERABD.MDB"
Base1 = "SELECT campo1,campo2 FROM nombretabla"
Data1.RecordSource = Base1

'conecta el segundo archivo *.mdb
Data1.DatabaseName = "C:\SEGUNDABD.MDB"
Base2 = "SELECT campo1,campo2 FROM nombretabla"
Data1.RecordSource = Base2

'Actualiza el Data1
Data1.Refresh

End Sub

    Pregunta:  6396 - ADO, DBGRID, TDBGRID
Autor:  rafa
Hola me llamo Rafa y estoy trabajando en un proyecto con el control de datos ADO enlazado a TDBGRID y me funciona a medias. Me explico: el proyecto incluye acceso a datos en RDO de antes y me parece que se produce un conflicto cuando hace referencia a las librerias. He pensado en utilizar ADO a nivel de codigo pero no se enlazarlo con el TDBGRID o DBGRID. Si teneis algun ejemplo, informacion o lo k sea lo agradeceria. Una pregunta tonta: ¿en un DBGRID para pasar de una columna a otra se tiene que hacer a nivel de codigo o se puede determinar en el menu de propiedades?
Bueno muchas gracias de antemano y espero que hasta pronto.
  Respuesta:  Raul Ramon
Aquí te paso como cargar un tdbgrid a través de codigo
\'Procedimiento a través del cual cargamos los grid TDBGRID
Public Sub CargarGridCabeceraLineas(ByRef formulario As Form, ByRef mrecGrid As ADODB.Recordset, ByVal strSql As String)
On Error GoTo ControlErrores

Set mrecGrid = Nothing
Set mrecGrid = New ADODB.Recordset
mrecGrid.Open strSql, de1.Con, adOpenDynamic, adLockOptimistic
Set formulario.Datagrid1.DataSource = mrecGrid

Exit Sub

ControlErrores:
ErrorTrap
End Sub
  Respuesta:  Antonio Trujillo
Te recomiendo que utilices el "application wizard" (está en el menú Add-Ins) éste es facil de usar, debes seleccionar la opcion grid, y la opción code por que de esa forma generará el código utilizando un dbgrid (este es el adecuado para utilizar ADO). De esta forma te puedes basar en el código obtenido para hacer tus programas.

    Pregunta:  6403 - ACTIVAR TECLADO
Autor:  Sara Castro Jimenez
He conseguido desactivar el teclado con la siguiente instrucción:

shell "rundll32.exe keyboard, disable", vbnormalfocus.

El problema es que para activarlo pongo la siguiente instrucción:

shell "rundll32.exe keyboard, enable", vbnormalfocus

pero no funciona.

Me gustaria saber si esa instruccion es correcta, por que no funciona y si hay otra funcion
que se pueda utilizar para activar el teclado.

Muchas gracias de antemano.
  Respuesta:  Agustín Dávila Martín
Yo lo haría más sencillo, me iría al evento Keypress del control sobre el cual te halles y le pondría: Keyascii=0 ( para desactivar el teclado) y lo quitaría para volver a activarlo.

    Pregunta:  6420 - CREAR NODO CON XML
Autor:  Fabricio Gastiaburu
Como hago para crear nodos cuando cargo un archivo XML?
Esto es lo que he hecho:
Dim xmlDoc As New Msxml2.DOMDocument
Dim docFragment As IXMLDOMDocumentFragment
Dim text As IXMLDOMText
Dim newo As IXMLDOMNode
xmlDoc.async = False
xmlDoc.loadXML "<root/>"
Set docFragment = xmlDoc.createDocumentFragment()
Set text = xmlDoc.createTextNode("Hola")
docFragment.appendChild xmlDoc.createNode(1, "nuevo1", "")
docFragment.appendChild xmlDoc.createElement("node1")
docFragment.appendChild xmlDoc.createElement("node2")
docFragment.appendChild xmlDoc.createElement("node3")
MsgBox docFragment.xml
xmlDoc.documentElement.appendChild docFragment
Set newo = xmlDoc.documentElement.insertBefore(text, xmlDoc.childNodes.Item(1))
MsgBox xmlDoc.xml
xmlDoc.save ("D:\Probando.xml")

pero lo que conseguí fue:
<root><nuevo1/><node1/><node2/><node3/>Hola</root>

lo que quiro es:
<root><nuevo1></nuevo1><node1></node1>....

y también crear un nodo dentro de otro nodo

Gracias
  Respuesta:  Guillermo Molina
el parser interpreta <nuevo1/> como elemento vacío y como para el <nuevo1/> es lo mismo que <nuevo1></nuevo1>, utiliza lo primero que es más corto.

    Pregunta:  6451 - CONVERSION DE NUMEROS
Autor:  Abel martinez
Quisiera que me ayudaran a recordar las formulas de conversiones numericas, de binario a decimal, de hexadecimal a binario, decimal a octagesimal, y todas las demas convinaciones. gracias
  Respuesta:  Bases de Datos Sistemas C.A.
Supongamos que todas pasan por el sistema decimal
si vas a convertir 10 a binario
C= Cociente
R= Residuo

10 / 2 C5 R0
5 / 2 C2 R1
2 / 2 C1 R0
1 / 2 ' se detiene y se toma

y se arma de abajo hacia arriba tomando el ultimo Dividendo y luego solamante los resicuo
y se escriben de derecha a izquierda

1010 = 10 en binario

si quiere saber al inversor de binario a decimal

tomas de izquierda a derecha cada digito y lo muultiplicas tomando base con su respectivo
exponente comensando desde 0 y la suma te de el seultado
ejemplo:

0x2 ^ 0= 0
1x2 ^ 1= 2
0x2 ^ 2= 0
1x2 ^ 3= 8
---
10

observacion: Hay trucos para pasar de una base a otra sin tener que pasar por la base decimal
por ejemplo si el numero esta en hexagecimal se representa cada digito con 4 bit y se unen osea

22 Decimal

22 / 2 =10110 binario

22 / 16 C1 R6
1 / 16

16 Hexagedimal
6x16 ^ 0= 6
1x16 ^ 1= 16
---
22

6=0110 bin
1=1

16 hex = 10110 bin = 22 del

www.bdsca.com
[email protected]
[email protected]

    Pregunta:  6472 - COMO ACTUALIZAR LOS CAMPOS DE UN DOCUMENTO
Autor:  Greco Jars
Hola: Mi problema es el siguiente. Estoy Haciendo un pequeño probrama en visual basic,en donde se piden unos datos al usuario, y despues estos datos deben ser vaciados a un documento hecho en word. Mi problema es el siguiente al documento le agregue campos(Rellenar) pero como hago para vaciar los datos en los campos a través de VB6.En una pregunta anterior que hice me dieron de referencia la pregunta 189, donde aparece un codigo,utilice ese codigo pero no resulta, y no se que hacer.
Por lo tanto me gustaria que me dieran alguna solución porfavor. Ya que no me manejo muy bien en vb6.
Y si fuese posible que me dieran un codigo, donde se indique como hacerlo.
Desde ya muchas gracias
  Respuesta:  Jesús Valdivieso Mariscal
Bueno, no sé si te servirá esta solución, pero ahí va.
La idea es la siguiente, tu documento en Word con la opción 'Combinar correspondencia' relacionalo con un fichero de texto con los campos y registros que quieres enviarle y bueno así debe ser suficiente. Por ejemplo, el código en VB podría ser de esta forma

'Crea un Tipo Definido, donde se guarden los campos a insertar en el documento word

Type Registro
Campo1 as string
Separador as string
Campo2 as string
Fin as string
End Type

'Después debes pasar el contenido de los datos en pantalla a este registro. Primero debes crearte una variable

Dim Datos as Registro

Registro.Campo1 = Campo1Pantalla.Text
Registro.Campo2 = Campo2Pantalla.Text
Registro.Separador = ";" 'Esto es para separar los campos
Registro.Fin = vbCrLf 'Esto es para que sepa Word cuando_ termina un registro

'Ahora hay que guardar este registro en el fichero de texto que debes combinar con el tuyo en Word.

'Crea estas variables antes

Dim NArchivo As Integer
Dim NRegistro As Integer

'Ahora viene el código para guardar en un archivo

NArchivo = FreeFile
NRegistro = 1

Open "c:\directorio de trabajo\ArchivoCombinar.txt" For_ Random As NArchivo Len = Len(Datos)

Put #NArchivo, NRegistro, Datps

Close NArchivo

'Y ya está ya hemos generado el archivo de texto que contiene los datos que quieres combinar. Ya sólo tienes que abrir el archivo .doc en word (que debes haber creado antes Combinando Correspondencia con el archivo de texto generado en Visual Basic.

Saludos, y que te sea de ayuda...........

    Pregunta:  6501 - SABER LA DIRECCIóN DE INTERNET QUE SE ESTA EJECUTANDO
Autor:  Juan Antonio Garrido Domínguez
¿Como puedo obtener en un cuadro de texto la dirección URL en la cual se encuentra el InternetExplorer?
  Respuesta:  Homero Trujillo Zanatta
No se si sea esto l que buscas, mandame un correo por favor para que te de un programa que te regresa la direccion IP de un URL y viceversa

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