PREGUNTAS CONTESTADAS - Velneo

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  7501 - EXTRAER NOMBRES Y NUMERO DE TABLAS
Autor:  Miguel Esquef
Trabajo en un proyecto que accede a una base de datos acces(creada mediante el mismo proyecto)ahora cuando en un momento dado nesecito verificar cuantas tablas hay y los nombres de las mismas el valor que me devuelve la propiedad "DATA.TableDefs(Ix).Name y value" no es correcto por ejemplo si tengo 7 tablas me devuelve 12 y los nombres los cargo en un combo y me da nombres como (ysAccessObjects-MSysObjects-MSysQueries-MSysACEs-MSysRelationships)además del nombre de las tablas supongo que estos objetos que son 5 los considera tablas por alguna razón que no entiendo aún pero yo necesito los nombres de las tablas y la cantidad nada más como hago por favor desde ya muchas gracias ojala me haya explicado suficientemente bien.
miguel
  Respuesta:  Jim Adam mi
en un bucle
dim tablassistema as byte
tablassistema = 0
Dim fld as DAO.field
for each fld in db.fields
if lcase(left$(fld.name,4)) = "msys" then tablassistema = tablassistema +1
end if
next

TotalMisTablas = bd.fields.count -tablassistema
espero te sirva
[email protected]

    Pregunta:  7504 - CONECTARSE A CRYSTAL 7 DESDE VB 6 USANDO ADO
Autor:  Antonio
Alguien sabe como conectar dinámicamente un control Crystal 7 a SQL 7 en VB 6 sin ODBCs, es decir usando una cadena de conexión? me han dicho que el control crystal soporta ADO....
Espero que alguien que tuviese codigo para hacer esto o conoce del tema, me pueda ayudar...

Gracias y Saludos.
  Respuesta:  Mauricio Solano G.
Hola amigo. La forma en que lo hago es un poco larga pero muy útil.
Creas el reporte en Crystal. Luego puedes invocarlo desde VB en un sub.

Algo así:

'rpt es el nombre del ActiveX de Crystal
With rpt
.Connect = TuObjetoDeBaseDeDatos.ConnectionString
.ReportFileName = App.Path & "\Reporte.rpt"
.WindowTitle = "El título que quieras"
.SelectionFormula = SQL 'SQL es una variable string que
'contiene un SQL que quisieras
'para restringir la información que quieres
'mostrar en el reporte.
'Las siguientes 5 líneas son sobre la ubicación del preview del informe
.WindowLeft = 1
.Destination = 0
.WindowTop = 2
.WindowWidth = 790
.WindowHeight = 560

'Ejecuta el reporte
.Action = 1
End With

La idea principal es que Connect = BaseDeDatos.ConnectionString te proporciona una conexión dinámica al poder cambiar la dirección de la base de datos cuando lo desees. Yo personalmente me conecto a la base de datos mediante un archivo DSN, el cual me facilita también cambiar la dirección del servidor sin afectar el ejecutable.

Espero te sirva de algo.
  Respuesta:  Guillermo Molina
para utilizar ADO con crystal tenes que utilizar que definir los reportes como active data (solamente definiciones de campos). es otro concepto y no vas a poder ver el preview de ellos pero es más rapido para la impresion en el sitio de seagate software hay ejemplos de ellos si no los encontras escribime y te los mando

    Pregunta:  7526 - LLAMAR A UNA AYUDA EN FORMATO HTML
Autor:  Pepe Martinez González
Cómo puedo hacer para que al pulsar un boton en una aplicación VB6, pueda visualizar una ayuda de tipo HTML

Gracias
  Respuesta:  J.M. Lopez
Para abrir cualquier tipo de archivo con el programa que este asociado, tienes que utilizar la funcion:

Shell(nombre_de_archivo)

Pero si lo que quieres es ver el archivo HTML desde dentro del programa, puedes utilizar un control como "MS HTML Object Library" (que me parece que viene incluido con las ultimas versiones del IE)

    Pregunta:  7536 - CREAR MENSAJES HTML CON MAPI
Autor:  Jorge Espartero
Necesito saber como puedo crear una mensaje de correo en formato HTML utilizando los controles MAPI de Visual Basic 6.
  Respuesta:  José Ariel Limandri
utiliza este codgo de ejemplo

With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.MSGTYPE = "text/html;"
.MsgNoteText = "<HTML><BODY><B>Hola</B> que tal</BODY></HTML>"
.RecipAddress = "[email protected]"
.Send
End With

en el notestext no te olvides <HTML> Y <BODY> porque sino no anda

    Pregunta:  7545 - OUTLOOK Y EXCHANGE
Autor:  Daniel Pazos
Tengo instalados el MOutlook y MExchange, este como programa de correo predeterminado. Estoy realizando un programa en VB6.0 para que solamente me envie y reciba el correo del Outlook, pero al ejecutarlo se abre el MExchange. ¿Como debo de hacer para que el programa ejecute solamente el correo del Outlook?
  Respuesta:  Jose Reynaldo Chavarria Quiñonez
Debes Hacer el MSOutlook El programa de Correo Predeterminado. Esto lo puedes hacer desde las opciones del Internet Explorer en el control Panel

    Pregunta:  7546 - ERROR 429 EN VB6
Autor:  pedro felix Desalzo
Tengo un MDI que llama a un secundario.
en el secundario tengo dos controles, un ADODC
Y un Datagrid atado al ADODC.
Debido a que me daba error 430 (No permitía automatización)
tuve que definir en el formload el connection y el rocordsource.

Ahora me da error 429. Al leer este error en el Help
no me indica realmente que me sucede.

Pido ayuda.

Desde ya gracias
  Respuesta:  William Basabe
hola pedro, yo creo tener la solución de tu problema y lo mas seguro es que este sea la conexion de adodc con la base de datos al que la conectas. trabaja con la propiedad ConnectionString del Adodc, si tienes problemas con esto esbribeme con confianza.
  Respuesta:  Jim Miñano
estos errores aparecen cuando aún no se reconoce el control de enlace adatos o le falta un refresh a este
prueba haciéndole un refresh en el formload antes de culaquier instrucción. Suerte

    Pregunta:  7564 - ELIMINAR EL F8 DEL SISTEMA DE WINDOWS
Autor:  Randall Mora
El proyecto es una aplicación que Elimine desde el arranque del equipo que el usuario presione la tecla F8 para entrar a modo de prueba de fallos.
Gracias.
  Respuesta:  kikonmx
Lo que puedes hacer es mediante tu programa editar el archivo MsDos.sys ( win95 en adelante ) y agregar inmediatamente después de [Options] la opción BootDelay = 0

    Pregunta:  7615 - NO PUEDO TRABAJAR CON BALANZAS ELECTRONICAS EN VB 6.0
Autor:  gino Bustamante Díaz
Hola:

necesito trabajar con unas balanzas electronicas las cuales me pueden enviar el peso al Comm1 se que se usa el control Mscomm pero lo probe y me salieron solo caracteres especiales no se si debo configurar de alguna forma especial la captura, cabe señalar que el programa con el cual probe es el vbterm.vbp ya que con este leo desde un Scanner recolector de dato y ahi funciona bien, pero al parecer con las balanzas no me funciona por favor si alguien ha trabajado en esto o sabe como hacerlo agradeceria su ayuda.

Atte
  Respuesta:  Luis B.
Hola Gino

Todas las apreciaciones q te han dado estan muy bien sobre todo la segunda, pero tambien debes tener en cuenta algo q ciertos equipos estan programados para recibir ciertos comando para q este te devuelva algo...
Yo hice algo parecido hace poco para balanzas electronicas digitales...y tuve q enviarle un caracter cada vez q queria obtener el valor de la Balanza,

Cualquier cosa conectate conmigo y con gusto te lo dare....
  Respuesta:  Cesar A. Ojeda L.
Epale Gino.
Tengo un programa que trabaja con dos indicadores digitales por puerto serial, estas usando bien el Mscomm pero verifica que estan las balanzas y el mscomm en el mismo protocolo es decir que los puertos seriales esten en 8Bits y 9600 Bauds.
Si necesitas algo enviame un email.
  Respuesta:  Enzo Díaz González
Gino, junto con saludarte voy a tratar de ayudarte, según lo que explicas es muy probable que los caracteres especiales que mencionas se deban a que la velocidad de comunicación o la paridad o los bits de parada (en gral. la configuración del puerto) no están en sincronía con la balanza, es decir, la balanza pude estar transmitiendo a 9600 bps y el puerto estar configurado para recibir datos a 3600.
Lo ideal sería consultar el manual de la balanza o llamar al fabricante para averiguar esto.
Espero haberte ayudado.
Saludos

    Pregunta:  7616 - COMO CONTROLAR LA COLA DE IMPRESIóN DE UNA RED
Autor:  Arnaldo González Ponce
Hola:

Si me pueden ayudar, muchas gracias.

Necesito saber cómo y si se puede controlar la cola de impresión de una red desde mi programa, saber que cliente imprimió, a que impresora, y cuantas hojas imprimió.

Si no se puede todo esto, respondanme solo que se pueda por favor

De antemano muchas gracias....
  Respuesta:  hugo maldonado trejo
oye yo yambien ando buscando lo mismo, si tu tienes instalado NT o windows 2000 te recomiendo esta pagina http://oksoft.webhostme.com/ parece que hay viene algo de lo que buscas, si tu ya encontraste otra informacion te agradeceria que me la mandaras, yo necesito controlar el puerto lpt1 en win98 gracias

    Pregunta:  7634 - COMBOBOX EN EL DATAGRID
Autor:  Carlos Bayas Cabanilla
Hola soy un fiel seguidor de su pagina y sobre todo me gusta programar en Visual Basic, pero hasta ahora no he encontrado la solucion a un pequeño problema que tengo respecto al Data Grid. Lo que deseo hacer es que en la primera columna del grid colocar un pequeño combobox el cual ya se colocar entrando en las propiedades del datagrid y colocando button pero no se como llenarlo con los datos que estan ingresados en la base por ejemplo quiero que salga algo asi:

codigo descripcion valor precio uni total
aqui el
combobox

los demas datos en el momento en el que escojo la opcion del combobox apareceran automaticamente.

Sin mas que decirles les agradezco y los felicito por su pagina.
  Respuesta:  Alexander Cioffi
Saludos....

A continuación te escribo el codigo necesario para desplegar un combo en un datagrid.

Recuerda sustituir los nombres de los objetos al igual que los nombres de los campos, ya que te coloque la referencia del nombre en mayúscula.
-------------
'''En el Datagrid''

Private Sub Datagrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
moverCombos
End Sub
-------------
Private Sub Datagrid1_Scroll(Cancel As Integer)
moverCombos
End Sub
-------------
'''En el Combo'''

Private Sub combo1_Click()
datagrid1.Columns("NOMBRE DEL CAMPO").Value = combo1.List(combo1.ListIndex)
end sub

------------

'''Procedure movercombos''''

Public Sub moverCombos()
On Error GoTo Error_Handler

If Datagrid1.Visible Then
Datagrid1.ZOrder
Datagrid1.SetFocus
End If

Dim gridCol As MSDataGridLib.Column
Set gridCol = Datagrid1.Columns(Datagrid1.Col)

If gridCol.Caption = "CAPTION DEL CAMPO" Then
combo1.Move Datagrid1.Left + gridCol.Left, Datagrid1.Top + Datagrid1.RowTop(Datagrid1.Row), gridCol.Width
combo1.ZOrder
combo1.SetFocus
combo1.Text = gridCol.Text
Exit Sub
End If

Error_Handler:

End Sub

Espero que este codigo te sea util para continuar con tu proyecto, si necesitas aclarar dudas puedes escribirme al email: [email protected]

Saludos.-

Alexander Cioffi

|<  <<  93 94 95 96 97 98 99 100 101 102 103  >>  >|