PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	13247 - COMO IMPRIMIR UN REPORTE EN VB6 DELIMITADO.
Autor:	erick garcia
De antemano gracias, les explico rapido, tengo una base de datos con la cual necesito relizar varios reportes, conosco las aplicaciones con print.form, pero me es indispensable seleccionar el tipo de reporte es decir limitarlo a ciertos datos por ejemplo desde un form seleccionar las fechas inicial,final,proveedor incial,final,visualizar por pantalla,impresora o archivo etc., todo esto si es necesario aserlo con el diseñador o no me gustaria si es posible mandarme por mail un ejemplo.

Respuesta:

Diego Piccoli

Erick:

Soy de Argentina y trabajo en un proyecto muy interesante con una herramienta para desarrollar reportes que seguramente te va a resolver el inconveniente si aún lo tenés.

Descarga http://www.rpvreport.com/enu/RpvPS_trial.exe que tiene los ejemplos que corresponden. Si bien la versión que encontrarás ahí es de 30 dias la puedes utilizar hasta que quieras ya que no tiene vence. No obstante ello existe una versión del "viewer" solamente que es gratuita y redistribuible así que tambien la puedes usar.

Por favor, si llegas a tener el más mínimo inconveniente o no sabes como utilizar la herramienta ponte en contacto conmigo de inmediato y te resolveré el inconveniente.

Contestar

Pregunta:	13249 - RESETEAR LA IMPRESORA
Autor:	Fabian Nuñez V.
Hola: Necesito hacer un reset a la impresora, es decir, simular que la impresora fue apagada y encendida. En programas DOS esto era muy fácil, pero en Windows no tengo ni la más mínima idea.

Respuesta:	Guillermo Molina
declara la impresora como texto Si tu impresora es matricial envíale el caracter "@" de reset. si no es matricial busca en el manual del impresor cual es el caracter de inicializacion

Contestar

Pregunta:	13258 - CAMBIAR EL TAMAñO DE UNA BD ACCESS
Autor:	serinamix .
Me gustaria saber como podria cambiar el tamaño de un campo Texto de una BD desde VB en tiempo de ejecucion, sin perder los datos que en ella esten grabados. espero que me puedan ayudar a solucionar esto, gracias!

Respuesta:

Edgard Cruz

Mira obviamente que si vas a reducir el tamaño del campo y tenes datos que sobrepasan el nuevo valor entonces el valor anterior se truncará, por lo tanto no te recomiendo que lo hagas....

Tal vez este codigo te sirve..

Dim Base as Database
Dim RegNot As Recordset
Set Base= Opendatabase("C:\Base.mdb")
Set RegNot = Base.OpenRecordset("Tabla", dbOpenDynaset)
RegNot("NombredelCampo").Size=Nuevo Valor
RegNot.Close
Base.Close

Cualquier cosa me escribis con gusto te ayudaré

Contestar

Pregunta:	13268 - INPUT BOX CON MASCARA PARA PASSWORD
Autor:	Yvan Vargas Rojas
Deseo saber si a la hora de ingresar los datos por el input box, puedo yo verlos como si estuviera ingresando un password. Gracias

Respuesta:	Luis B.
Hola Yvan. Lo que dice caribbeansoft es para el uso de TextBox, y Yo hasta donde logre entender es para uso en InputBox(). Lo que podrias hacer es tu propio InputBox(), asi como tambien tu Msgbox() con pequeños formularios,Iconos,Botones y tu mismo puedes controlar las opciones... Atte.

Respuesta:	caribbeansoft
Existe una propiedad en este control que te permite lo que desas y es passwordchar y en el pones el caracter que deseas aprezca al teclar algo, por defecto todos ponemos *, pero puedes cambiarlo. Muy importante, a la hora de obtener el verdadero contenido del control, es decir lo que has tecleado, no debes preocuparte, pues se devuelve sin los asteriscos ok.

Contestar

Pregunta:	13328 - SQL Y EXCEL (OPENROWSET
Autor:	Tromen Clasificado
Saludos Sr. Programadores tengo un problema con Sql y ya que no hay un apartado de este les pregunto lo siguiente : Como puedo hacer una consulta desde el query analayzer de sql de una tabla de Excel utilizando el openrowset. tengo una tabla clientes en sql y yna hoja de excel con el mismo contenido y esturctura de la tabla de sql ahora quiero hacer una consulta uniendo esas dos tablas en el analizador de consultas utilizando el openrowset. Suerte y espero me de una mano Nota me marece es utilizando el Microsoft Data Link

Respuesta:	jaime espinosa
Hola. Para abrir con openrowset puede usar el controlador oledb para conectarse al contrtolador odbc de exec. de ahi en adelante es igual.

Contestar

Pregunta:	13347 - ENVIAR CORREO A TRAVES DE LOTUS NOTES
Autor:	Apolonio Oliver
Hola, Amigos: Debo implementar una aplicacion en Visual Basic 6.0 (Entorno w98) para que genere mensajes de correo de Lotus Notes. Dispongo de la libreria de objetos de esta aplicacion, pero no tengo el archivo de ayuda de la misma, por lo cual, me es muy dificil utilizar estos objetos en mi aplicacion. Os agradeceria me indicaseis bien el nombre de este archivo de ayuda o algun manual de programacion con esta libreria. Muchas Gracias

Respuesta:

Jose Luis Atanasio

Hola. Te comento que esta pregunta yo la hice hace un tiempo y me pasaron el codigo que esta mas abajo. La verdad que acomodandolo a tu gusto funciona perfecto. Espero que te sirva. Suerte.

Private Sub SendMail(sServer As String, sDataBase As String, sSendTo As String, sSubject As String, sBody As String, sAttach As String)
Dim Settion As Object
Dim Data As Object
Dim Doc As Object
Dim RichText As Object
Dim EmbedObject As Object

Screen.MousePointer = vbHourglass
Set Settion = CreateObject("Notes.NotesSession")
Set Data = Settion.GetDatabase(sServer, sDataBase)
Set Doc = Data.CreateDocument
Doc.Form = "Memo"
Doc.Subject = sSubject
Set RichText = Doc.CreateRichTextItem("Body")

Call RichText.AddNewLine(1)
Call RichText.AppendText(sBody)
Call RichText.AddNewLine(2)
If sAttach <> "" Then
Set EmbedObject = RichText.EmbedObject(1454, "", sAttach, "")
End If
Doc.SendTo = sSendTo
Doc.SaveMessageOnSend = True
Call Doc.Send(True)
Settion.Close
Screen.MousePointer = vbDefault
End Sub

Contestar

Pregunta:	13353 - OBTERNER LA DIRECCION DEL MENU INICIO EN EL HD
Autor:	Sergio
Deseo saber cual es la instruccion (codigo), de Visual Basic 5.0, para obtener la ruta del directorio Inicio "C:\windows\menu inicio\programas\inicio\", de windows tanto para espannol e Ingles. Agrdecere su respuesta.

Respuesta:

Federico Azzato

Si lo que buscas es hacer que tu app se inicie al iniciar windows, en vez de agregar un link en el menú inicio que puede ser borrado por cualquier usuario sin grandes conocimientos, puedes agregar una clave en el registro de windows, lo tienes que hacer aquí:
HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Run

si precisas info de como hacerlo rápido y sin ocx ni apis de windows, mándame un mail

Respuesta:	SuNcO
Creo ke tu respuesta es esta, entra al Registro de Windows y cheka la clave : HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion \Explorer\Shell Folders Ahi chekas bien y esta la ke dice Startup y otras interesantes Para leer el Registro de Windows utilizo un OCX, si gustas te lo envio junto con un ejemplo, solo escribeme pidiendomelo para ke no se me olvide la razon

Contestar

Pregunta:	13376 - CONECCIóN SQL - VBASIC 60
Autor:	Patricio Jofré Flores
Les solicitaría que me indicaran, como puedo hacer una relasión (JOIN)entre de dos tablas que se encuentran en bases diferentes en SQL 7.0 montado en un mismo NT

Respuesta:	Juan Micciarelli
Patricio, Para poder hacer un JOIN entre dos tablas que se encuentran en bases diferentes tendrías que crear un Linked Servers. Si necesitás mas información pasame tu mail y te explico como hacerlo.- Saludos,

Contestar

Pregunta:	13378 - JOIN ENTRE 2 TABLAS
Autor:	Patricio Jofré Flores
Como puedo hacer un join a dos tablas que se encuentran en distintas bases en SQL 70, Montado en un NT

Respuesta:

Francisco González Venegas

Select a.campo1. a.campo2, b.campox, b.campoy From
bd1.dbo.tabla1 a Inner Join bd2.dbo.tabla2 b On
a.clave = b.clave And
a.clave2 = b.clave2

bd1 = Primer base de datos
bd2 = Segunda base de datos
tabla1 = Tabla en primer base de datos (a=Alias)
tabla2 = Tabla en segunda base de datos(b=Alias)
a.campo1 y a.campo2 son campos de la tabla en la base de datos 1
a.campox y a.campoy son campos de la tabla en la base de datos 2

La restriccion es que el usuario con el que haces la consulta debe tener acceso a las dos bases de datos y a las dos tablas, y en el ejemplo estoy usando el usuario "sa" (dbo) como creados de las dos tablas.

Contestar

Pregunta:	13391 - CAPTURAR EL USUARI NT
Autor:	bruno oab
!Que tal! hay alguna forma de capturar en vb 6.0 el usuario de NT con que me logueo a la red. ..?

Respuesta:

Luis Sanz Lucas

'-----------------------------------------
' Declaraciones Necesarias ---
'---------------------------------------

Private Declare Function GetVersionEx& Lib "kernel32" Alias "GetVersionExA" (lpStruct As OsVersionInfo)

Private OsVers As OsVersionInfo

Private Type OsVersionInfo
dwVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatform As Long
szCSDVersion As String * 128
End Type

Private CurrOS As String
' NT password setup info
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Private Declare Function NetGetDCName Lib "NETAPI32.DLL" (ServerName As Byte, DomainName As Byte, DCName As Long) As Long

Private Declare Function PtrToStr Lib "kernel32" Alias "lstrcpyW" (RetVal As Byte, ByVal Ptr As Long) As Long

Private Declare Function NetAPIBufferFree Lib "NETAPI32.DLL" Alias "NetApiBufferFree" (ByVal Ptr As Long) As Long

' Password stuff
Private Declare Function PwdChangePassword& Lib "mpr" Alias "PwdChangePasswordA" (ByVal lpcRegkeyname$, ByVal hWnd&, ByVal uiReserved1&, ByVal uiReserved2&)

Private Declare Function WNetVerifyPassword Lib "mpr.dll" Alias "WNetVerifyPasswordA" (ByVal lpszPassword As String, ByRef pfMatch As Long) As Long

Private Declare Function NetUserChangePassword Lib "NETAPI32.DLL" (DomainName As Byte, Username As Byte, OldPassword As Byte, NewPassword As Byte) As Long

Y Luego te declaras las siguientes funciones:

Public Function NombreUsuario() As String
Dim pwlong, Res As Long
Dim DC, User, S1 As String
Dim bPDCName() As Byte
Dim bUserName() As Byte
Dim bOldPW() As Byte
Dim bNewPW() As Byte

CurrOS = GetVersion32

If CurrOS <> "NT" Then
' Si no es para NT no hago nada
Exit Function
End If
' Get the primary domain controller name
DC = GetPrimaryDCName("", "")
DC = Left(DC, (InStr(1, DC, Chr(0), vbBinaryCompare) - 1))
' Get the current user name
S1 = Space(512)
WNetGetUser vbNullString, S1, Len(S1)
User = Left(S1, (InStr(1, S1, Chr(0), vbBinaryCompare) - 1))

NombreUsuario = User
End Function

Public Function GetVersion32() As String
' Call to get the 32 Bit O/S ID. Returned values are either "95" or "NT" or "Unknown"
' Example - MyString = GetVersion32
'
OsVers.dwVersionInfoSize = 148&
GetVersionEx OsVers
If OsVers.dwPlatform = 1& Then
GetVersion32 = "95"
ElseIf OsVers.dwPlatform = 2& Then
GetVersion32 = "NT"
Else
GetVersion32 = "Unknown"
End If
End Function
Function GetPrimaryDCName(ByVal MName As String, ByVal DName As String) As String
Dim DCName As String, DCNPtr As Long
Dim DNArray() As Byte
Dim MNArray() As Byte
Dim DCNArray(100) As Byte
Dim Result As Long
MNArray = MName & vbNullChar
DNArray = DName & vbNullChar
Result = NetGetDCName(MNArray(0), DNArray(0), DCNPtr)
If Result <> 0 Then
MsgBox "Error: " & Result
Exit Function
End If
Result = PtrToStr(DCNArray(0), DCNPtr)
Result = NetAPIBufferFree(DCNPtr)
DCName = DCNArray()
GetPrimaryDCName = DCName
End Function

Y luego con llamar a la función NombreUsuario tienes el usuario de red.

Espero que esto te sirva.

Contestar

|< << 131 132 133 134 135 136 137 138 139 140 141 >> >|