PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	8696 - COMO CONTROLAR EL NúMERO DE PáGINAS QUE SE IMPRIMEN.
Autor:	José Madrid Madrid
Alguien me puede ayudar a realizar un pequeño programa que me permita llevar un registro de todas las impresiones que se realicen en mi PC (número de impresiones). Como habilitar y deshabilitar la impresora desde visual Basic 5. Muchas personas abusan de la confianza y me gastan mi tinta. No quiero deshabilitar la impresora desde las mismas aplicaciones por que saben como arreglar el problema. Por favor ayudenme.

Respuesta:	Jesus Antonio Sanchez Valdez
Que yo sepa, La impresion es controlada por Windows. Como un recurso propio del sistema Operativo. Y es independiente de cualquier programa. Mejor habla con las personas que te afectan la tinta, y hazles conciencia del recurso. Espero encuentres una alternativa. Si se de algo te aviso, amigo. Sayoonara.

Contestar

Pregunta:	8702 - APIS USER32 EN WINDOWS 2000
Autor:	Estrella Ruiz de Gregorio
He desarrollado un programa de menús dinámicos utilizando la API de windows User32 en una máquina con windows 98. El problema es que cuando lo voy a instalar en una máquina que tiene windows 2000 no funcionan las llamadas a dicha API. Me imagino que los tiros iran principalmente por actualizar las dll de windows 98 a 2000 pero cómo se actualizan o si no es así qué debo hacer. Muchas gracias.

Respuesta:

Gerald Valdes Lopez

Hola,
no se si es una respuesta muy rebuscada pero podrias probar instalando visual basic en un pc con windows 2000 y pasar la aplicacion alla, entonces creas los archivos de instalacion y todo con las api instaladas en base a windows 2000, tengo entendido que deberian ser compatibles, pero quien sabe, con microsoft todo es posible.

Espero que funcione (deberia funcionar) si no, no dudes en comunicarte conmigo, podriamos buscar otra solucion.

Chao.

Contestar

Pregunta:	8709 - RETARDOS DE MENOS DE 1 MS SIN UTILIZAR EL TIMER
Autor:	Tito Moreno Ojeda
Hola a todos, me gustaría saber si hay alguna forma en Vb de hacer intervalos de tiempo sin utilizar el objeto timer, sobre todo intervalos de tiempo menores de 1 ms. Esperando agradecidamente sus respuestas.

Respuesta:

José Ariel Limandri

Para hacer lo que vos queres tenes que usar la funcion Timer de VB, que te devuelve el nro de segundos transcurridos desde la medianoche. Aunque el valor que te devuelve tiene 2 decimales (por lo cual podriamos hacer una trampa para llegar hasta la centésima de segundo) no es recomendable ya que ni siquera tomando el valor entero tiene una precisión infalible. De todas formas te mando el codigo para ver si te sirve.

Private Sub Wait(MiliSegundos As Long)
Dim Inicio As Double

Inicio = Timer
fin = Inicio + MiliSegundos
Do While Timer < fin
Loop
End Sub

Ojo con esta funcion que tiene un problema si la lanzas cerca de las 00:00, ya que al usar los segundos desde la medianoche del dia de hoy puede entrar en un bucle de 1 dia mas o menos. Pero calculo que te va a ser facil arreglaro

Espero que te sirva. Cualquier duda Maileame. chau

Contestar

Pregunta:	8713 - COMO RELACIONAR 2 BASES DE DATOS EN VB5
Autor:	willington bejarano sanchez
soy un programador principiante,y quiero saber como relacionar dos bases de datos obtener su codigo incluido el formulario, y tambien como generar un a consulta y asu vez un informe

Respuesta:

Paco .

Depende de si estas utilizando el control "DATA" o estas utilizando codigo.

En el primer caso para relacionar las bases de datos (suponiendo que los campos relacionados son del mismo tipo, ya que si no tendrias que convertirlos)

En las propiedades del primer data:

databasename: <ruta 1ra. base de datos>
recordsource: <tabla a relacionar>

En la segundo data lo mismo para la segunda base de datos.

**** EL CODIGO *****

DATA1.RECORDSOURCE="<LA CONSULTA SQL QUE QUIERAS HACER>"
DATA2.RECORDSOURCE="<LA CONSULTA SQL QUE QUIERAS HACER>"

EJ:
DATA1.RECORDSORUCE ="SELECT CODIGOPRODUCTO FROM CLIENTES WHERE CODIGO=" & 'A001'
DATA1.REFRESH
IF DATA1.RECORDSET.RECORDCOUNT>0 THEN
DATA2.RECORDSOURCE="SELECT * FROM PRODUCTOS WHERE CODIGOPRODUCTO=" & DATA1.RECORDSET!CODIGOPRODUCTO
ENDIF

No se si esto te servira pero si tienes dudas o no es eso lo que querias puedes mandarme un e-mail e intentare ayudarte

Contestar

Pregunta:	8723 - CONSULTA CON TABLAS DE DISTINTAS BASES DE DATOS
Autor:	alice queen
Hola Colegas: necesito por favor me indiquen como puedo desde visual basic realizar una consulta a tablas que se encuentran en distintas base de datos. Desde ya muchas gracias

Respuesta:	Miquel Garcia
Hola Alice, He diseñado un programa en visual basic en el cual puedes realizar lo que preguntas. La Web donde está colocado es: http//es.geocities.com/ndreasoft Esta aplicación es gratuita. También hago mención en lawebdelprogramador en la Sección de Nuestros Programas ... Windows 2000 ... Bases de datos. Espero que sea de tu agrado.

Respuesta:

JULIO CESAR FONTANILLA IGIRIO

Qurida Alice Queen

tu pregunta no es muy explicita, acerca en que tipos de bases de datos deseas realizar las consultas pero te voy a dar dos (2) ejemplos; el primero es para realizar consultas en msaccess y segundo es para realizar consultas en SQL server (tambien el modelo puede servirte para oracle y otros proveedores).

1)esto es para msaccess, antes debe activar en referencia miscrosoft DAO ver xxx object library
dim oldDb as database,newWs as workspace
dim nuevaconsulta as querydef
set newWs=dbengine.workspaces(0)
set oldDb=newWS.opendatabase("c:\directorio\nombreBD.mdb")
set nuevaconsulta=oldDb.createquerydef("local","select campo,campo,.... from nombre_de_la_tabla condicion")

luego este recordset puedes asignarselo a un control data previamente creado:

set nombredeldatacontrol=nuevaconsulta
y luego puedes navergar.

2)
esto es para sql server, este ejemplo establece si existe o no un usuario dentro de la base de datos.

dim conectem As Connection
dim loguea As String
dim rscliente As Recordset
Set rscliente = New Recordset
Set conectem = New Connection

With conectem
.Provider = "SQLOLEDB" esto varia de acuerdo al proveedor
puede ser oracle,db2,etc
.ConnectionString = "User ID= UserName.Text_ & ;Password =Password ; data source=nombredelamaquina; initial catalog=nombrebasededatos"
.Open
End With
consulta = "select campo,campo,etc from tabla condicion"
Set rscliente = conectem.Execute(consulta)

'comprobar si la contraseña es correcta
If rscliente.EOF = False Then
'colocar código aquí para pasar al sub
'que llama si la contraseña es correcta
'lo más fácil es establecer una variable global
'LoginSucceeded = True
conectem.Close
SIIT.Show
Me.Hide
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
espero que te sirva, en el provider tienes que dirigirte a un libro de VB y averiguar el provider para BD diferentes a SQLSERVER, el del ejemplo es para este tipo de BD.

Contestar

Pregunta:	8729 - REGISTRO DE DLL'S
Autor:	Carlos Rivera
Como puedo registrar un DLL por medio de codigo de VB, si alguien me puede ayurar lo agradecere mucho.

Respuesta:	José Ariel Limandri
Podes ejecutar un shell llamando al regsvr32.exe como te muestro en este ejemplo private sub RegistrarDLL(File as string) call shell ("regsvr32.exe " & file, vbHide) end sub el unico inconveniente es que te va a quedar una ventana abierta con el resultado de la ejecucion de regserver. Para cerrar esta ventana podes usar el handler que te devuelve la ejecucion del shell. Suerte

Contestar

Pregunta:	8736 - COMO JUSTIFICAR TEXTO EN VB (NO ALINEAR)
Autor:	Isaac Castañeda
Mi problema es que estoy haciendo un editor de texto en VB con un RTF pero no hayo funciones o API para poder justificar el texto. NO alinearlo a la izquierda ni centrarlo. Espero me puedan ayudar

Respuesta:

José Ariel Limandri

Si estas utilizando el control RichTextBox te comendo que no soporta el Justificado, por lo menos hasta la version que conozco (SP4).
Si te estas haciendo vos un editor RTF realmente te felicito.
La manera en que podes justificar un texto es usando las siguientes funciones:

split
textwidth
currentX
currentY

No es tan complicado lo que queres hacer, pero un poco largo para contartelo aca. Si queres te puedo hacer un ejemplo y te lo mando por mail. Pero si estas usando el RichTextBox no lo vas a poder hacer(por lo menos visualizar)

Contestar

Pregunta:	8742 - ORACLE ¿RETORNA REGISTROS?
Autor:	Alvaro Amaya
He tenido problemas para lograr que un stored procedure en Oracle me retorne registros. Un artificio comunmente utilizado es ejecutando el comando SET SERVEROUTPUT ON; e internamente colocando el paquete DBMS_OUTPUT.PUT_LINE, pero esto solo funciona si estas utilizando el producto SQL *Plus o el Oracle WorkSheet. Ademas, este paquete retornaria, según la teoria, un solo row y luego habria que delimitar el registro para obtener cada campo requerido. Intente realizar un ejemplo que aparece en http://www.actionjackson.com/articles/20000127/#CallingStoredProc pero no me resulto. La finalidad es tratar de crear los SP y luego invocarlos desde Visual Basic. He programado en Sybase y SQL Server y no he tenido ningun problema en hacer un SP de Consultas. Si alguien conoce la manera de hacer esto por favor contactarme. Podemos compartir las ideas en caso de que tengan el mismo problema que yo.

Respuesta:	Marco Santis
Hola Alvaro: Yo hice un procedimiento en Oracle -este estaba con un cursor- , y para invocarlo desde VB trabajo con ADO, primero configuro un Commad, después un Parameters y luego traspaso esto a un Recordset y me funciona perfectamente. Si quieres un código de ejemplo contáctame a mi Mail.

Contestar

Pregunta:	8748 - PERCIBIMIENTO DE EVENTOS DESDE FUERA DEL PROGRAMA
Autor:	Dani Ruiz
Ayuda por favor,cómo se puede percibir acciones desde fuera de mi aplicación. Por ejemplo, presionar la tecla <a> y que mi aplicacion lo detecte, y pase después lo que sea, pero que perciba ese evento. Todo esto sin recibir el enfoque mi aplicaión, claro. Muchas gracias de antemano.

Respuesta:

SuNcO Castañeda

Mi chavo eso lo pregunte yo tambien y la respuesta es la
1087, pero mejor te la pongo aki :

ESTO SE LOGRA CON UN API , TE DARE SOLO LA BASE, LO DEMAS DEPENDE DE TI.
Pon un Timer En tu Form:
Un Text box:

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim buffer As Integer

Private Sub Timer1_Timer()

Dim intAscii

For intAscii = 1 To 255
buffer = 0
buffer = GetAsyncKeyState(intAscii)

If buffer <> 0 Then
Text1.Text = Text1.Text & Chr(intAscii)
End If

Next

End Sub

Como vez, las teclas se mandan a un textbox ke tu debes poner en tu programa, ya solo tienes ke detectar en OnTextChange si la letra es <a> y ya

Algo mas, cheka varias veces el Interval ke le pongas en el timer, porke a veces puedes recibir <aaa> aunke solo hayas presionado la <a> una vez

Contestar

Pregunta:	8755 - COLOR DE FONFO CON EL PRINTER
Autor:	Mariano Laguzzi
Gente: Estoy trancado con una pabada, como puedo hacer para imprimir con el objeto Printer un mensaje con COLOR DE FONDO. He probado de todo y no me funciona. Gracias..

Respuesta:

José Ariel Limandri

Lo que queres hacer es muy facil. Para dar un color de fondo al imprimir tenes que dibujar un cuadrado pintado con el color que queres y escribir sobre este el texto que desees. Ej:

printer.fonttransparent=true ' Esto es porque sino el texto te lo imprime siempre en fondo blanco.
printer.line(100,100)-(500,500), vbred, BF
printer.currentX=100
printer.currentY=100
printer.print "Hola"

printer.enddoc

Suerte. PD: tene ojo con la impresora, ya que si es una laser B/W no todas soportan sombras. Ademas el fontTransparent no siempre funca.

Contestar

|< << 101 102 103 104 105 106 107 108 109 110 111 >> >|