PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	37509 - COMO FORMATEAR UN DISKETTE
Autor:	Alonso Martinez Gutierres
Tengo una pregunta y espero que me puedan ayudar. Quisiera sabere como puedo formatear un diskette (3 1/2) desde un programa en Visual Basic 6.0 Desde ahora les agradesco su ayuda

Respuesta:

Oswaldo Monagas

Para formatear te envio un programita que te abre la ventana de windows para hacerlo.

Private Sub Command1_Click(Index As Integer)
Dim Str As String
Select Case Index
Case 0: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 0)
Case 1: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 1)
Case 2: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 2)
End Select
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Pon tres botones y nombralos asi: el primero Formateo rapido como caption y en el index = 0, el segundo Formateo Total y en Index = 1 el tercero Copiar archivos de sistema Index = 2
Agregale un rutina de errores si no esta el disco en la unidad, o chequea si esta preparada la unidad.
Saludos

Contestar

Pregunta:	37518 - ERROR: 80004005[ODBC MICROSOFT FOXPRO DRIVER]
Autor:	israel Hernandez
Hola, me he encontrado con el siguiente error cuando intento abrir un tabla de FoxPro en VB: -2147467259[ODBC Microsoft FoxPro Driver] No se encuentra la secuencia de ordenancion 'SPANISH'. os agradeceria si alguien me puede dar solucion a este dichoso problema, ya que no tengo mucha experiencia en esto de la programacion con BD en VB. Gracias.

Respuesta:	Cecilia Colalongo
Fijate de crear un DSN de archivo desde el Panel de Control y usar el contenido de ese archivo como ConnectionString. Con eso debería solucionarse.

Contestar

Pregunta:	37531 - PROBLEMA CON CONEXION ODBC A BASE DE DATOS ACCESS
Autor:	didier mendez valencia
HOLA PROGRAMADORES, ME LLAMO DIDIER, Y TENGO ESTA DUDA. ESTOY TRATANDO DE CONECTAR MI APLICACION CON UNA BASE DE DATOS DE ACCES GENERANDO UNA CADENA UTILIZANDO EL CONTROL ADODOC Y ME DA EL SIGUIENTE ERROR ERROR DE MICROSOFT DATA LINK "la prueba de conexion fallo debido a un error al iniciar al proveedor. no se pudo abrir la tabla MSysAccounts en el archivo de informacion del grupo de trabajo"

Respuesta:	Ronald León Madrid
Hola didier : Tu problema es simple, deja de utilizar el control ADODOC y utiliza la siguiente conexion. Public Const cConecta2000 = "User Id =sa;Password= ;Data Source=Nombre del Obdc" Nombre del Odbc dsn de usuario de cualquier base de datos. Saludos.

Contestar

Pregunta:	37606 - PROBLEMA AL ACCESAR DATOS TIPO DOUBLE
Autor:	Oscar Melendez Rodriguez
Tengo una base de datos ACCESS, en algunas tablas se cuenta con datos tipo DOUBLE para almacenar un numero de 18 dígitos. Se trabaja con una aplicación en Visual Basic 6.0. El dato queda bien registrado, pero a la hora de accesarlo para despliegue o impresión, aparece con el último dígito redondeado.

Respuesta:	Héctor Romero
Prueba a utlizar una funcion que hay que se llama CDbl(dato) que sirve para hacer conversion a double. Ademas existen muchas otras funciones que empiezan todas con C<tipo_dato> que igual te sirven

Contestar

Pregunta:	37670 - FTP CON WINSOCK
Autor:	Antonio Fernández
Estoy intentando hacer un programa de FTP (tipo CuteFTP, etc.) y lo estoy intentando hacer con winsock. Intento realizar la conexion (debo enviar un usuario y una contraseña), pero no consigo establecerla ni enviar el usuario ni la contraseña. Revisando la propiedad State del winsok veo que pasa directamente de estado Conectando (6) a estado Desconectando (8). Como podria establecer esta conexion?

Respuesta:	Gabriel Plana Gavaldà
Hola Antonio. Aunque no sé contestarte directamente a tu respuesta, pues requiere saberse el protocolo FTP y no me lo sé, te dirigiré a una web que habla sobre este tema e incluso hay el código fuente de programas de FTP. Es la siguiente: www.vbip.com Espero haberte servido de ayuda.

Contestar

Pregunta:	37678 - DIAS DEL MES
Autor:	Sergio Andres Alcavil Burgos
Necesito Saber si existe una Función Para saber los dias de un mes, o como hacerlo.

Respuesta:	david luna
Creo saber lo que quieres. bueno deseas saber cuentos dias tiene un mes: Debes localizar el dia primero del siguiente mes y restarle un dia asi sabras cuantos dias tiene cada mes, incluyendo si hay bisiestos.

Respuesta:	Ronald León Madrid
Hola sergio : Creo a ver entendido tu pregunta, la solución a tu problema podria ser de la siguiente manera : Format(CDate(lrRs!FchAcc), "dddd") Donde : lrRs!FchAcc es un campo de base de datos de tipo fecha Pues esta te devuelve el dia del mes y del año especifico. saludos.

Contestar

Pregunta:	37687 - COMO RECUPERAR UNA VARIABLE DE SALIDA DESDE UN PROCEDIMIENTO
Autor:	Juan Pablo San Martín
Estimados: mi problema es que cuando ejecuto un procedimiento almacenado el cual devuelve un parametro de salida...no lo puedo recuperar en Visual...como puedo hacer esto?...si me pueden mandar un ejemplillo sería genial. pdta: mi conexion a SQL server la hago con ADO.

Respuesta:

Luis Bueno

ok.. un proced almac devuelve datos en un recordset pero lo q tu necesitas es el valor de un para de salida del store. entonces ahi te va creo q es comprendible desde cualquier punto de vista

Public Function ValidaUsuario(psUsuario As String, psNombres As String, piActivo As Integer) As Integer

Dim oCmd As ADODB.Command
Dim oPrm As ADODB.Parameter
Dim msValor As String

Set oCmd = New ADODB.Command

With oCmd
.CommandTimeout = 0
.CommandType = adCmdStoredProc
.CommandText = "sp_ValidaUsuario"
.ActiveConnection = BDSqlServer

Set oPrm = oCmd.CreateParameter("pUsuario", adVarChar, adParamInput, 15, psUsuario)
oCmd.Parameters.Append oPrm

Set oPrm = oCmd.CreateParameter("pNombres", adVarChar, adParamInput, 30, psNombres)
oCmd.Parameters.Append oPrm

Set oPrm = oCmd.CreateParameter("pActivo", adInteger, adParamInput, 4, piActivo)
oCmd.Parameters.Append oPrm

Set oPrm = oCmd.CreateParameter("pExiste", adInteger, adParamOutput)
oCmd.Parameters.Append oPrm

.Prepared = True
.Execute

If IsNull(.Parameters("pExiste")) Then
ValidaUsuario = 0
Else
ValidaUsuario = .Parameters("pExiste")
End If

End With

Set oCmd = Nothing

End Function

''El Store

CREATE PROCEDURE sp_ValidaUsuario
@pUsuario varchar(15),
@pNombres varchar(30),
@pActivo int,
@pExiste int OUTPUT

AS

SET NOCOUNT ON

IF NOT EXISTS(SELECT * FROM ACCESO_SISTEMA WHERE USUARIO IN (SELECT USUARIO WHERE USUARIO=@pUsuario ))
INSERT INTO ACCESO_SISTEMA (USUARIO,CLAVE,NOMBRES,ACTIVO)
VALUES(@pUsuario,@pUsuario,@pNombres,@pActivo)
RETURN 0

GO

Espero te ayude hasta pronto.. bye

Respuesta:

Gabriel Plana Gavaldà

Creo que lo que buscas viene en la ayuda de Visual Basic.
Este es un ejemplo de como ejecutar el procedimiento almacenado
sp_who, el cual devuelve un parámetro.
Los parámetros de salida son recogidos por el recordset que devuelve el método Execute del objeto ADO Command.

Espero haberte ayudado. Tengo una documentación sobre ASP publicada en esta web. Si te interesa el tema de ASP te agradecería que la miraras y hicieras algún comentario.

Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = "MyServerName"
cn.Properties("Initial Catalog").Value = "pubs"
cn.Properties("Integrated Security").Value = "SSPI"
cn.Open

Cmd.ActiveConnection = cn
Cmd.CommandText = "sp_who"
Cmd.CommandType = adCmdStoredProc

Set rs = Cmd.Execute
Debug.Print rs(0)
rs.Close

Contestar

Pregunta:	37722 - PROGRAMAR NOTAS CON VISUAL BASIC
Autor:	Fernando Hermosilla
Hola, quisiera saber como poder reproducir notas con Visual Basic. No quiero reproducir ningún archivo de sonido, sino que quiero saber que instrucción de Visual me permite hacer sonar las diferentes notas del pentagrama. Gracias

Respuesta:

Sandy Serna parra

Hola Fernando.

hay una funcion en visual que se llama beep que Emite un sonido por el altavoz del equipo.

de acuerdo a el tiepo que le des de espera sera la frecuencia y la nota. esto tu lo debes programar de acuerdo a tu oido. para ayudarte en los tiempos hay una funcion mas bien una API llamada sleep que detiene el tiempo en milisegundos

un ejemplo:

beep
seep(100)
beep
seep(200)

dos notas

ok espero te sirva

Sandy Serna parra
Programador de Sistemas
Halcon34

Contestar

Pregunta:	37777 - PERSONALIZAR EL TOOLBAR
Autor:	Jimmy Perez
Holas con todos quien me puede ayudar hacer mi toolbar con los button transparentes o el toolbar transparentes o en todo caso darles color de fondo al toolbar o a los button por medio de llamadas api. gracais

Respuesta:

Rafael Yzarra

No lo considero una respuesta, pero si una referencia para lograr la solución a tan singular problema.

En las ventanas principales de muchos programas (Explorer, Excel,...) el Toolbar usado pasa despercibido: sus diseñadores lo presentaron lo más adaptado posible al fondo en donde se ubica.

De existir las propiedades BackColor y/o Style, es posible lograr el cometido; de no ser así, estas pueden ser otras alternativas:

1era: Colocar en uno de los extremos del formulario (form(i)) un objeto Frame y sólo mostrarlo cuando se vaya a utilizar.

2nda: En la propiedad Personalizado, el ComboBox STYLE BUTTOM (o algo similar), permite colocarle bordes transparentes; si adicionalmente, colocas como 'imagen' un cuadro con el mismo color de fondo, el ToolBar puede pasar desapercibido.

Una respuesta más concreta, dependerá del tipo de aplicación o la necesidad puntual presentada.

Ojalá lo expuesto sea de utilidad.

Contestar

Pregunta:	37779 - SABER ENFOQUE DESTINO ANTES DE PERDER ENFOQUE ACTUAL
Autor:	Gerardo De la Rosa
HOLA A TODOS TENGO BASTANTE TIEMPO TRATANDO DE BUSCAR LA SOLUCION A LO SIGUIENTE, A VER SI ALGUIEN PUEDE AYUDARME. RESULTA QUE TENGO UN TEXTBOX, QUE VALIDA EN UNA BASE DE DATOS QUE NO SE REPITA EL NUMERO, CUANDO ESTO SUCEDE FORZO A QUE EL FOCO LO SIGA TENIENDO EL TEXTBOX, ESTA VALIDACION LA HACE CUANDO PIERDO EL FOCO DEL MISMO, ADEMAS TENGO DOS COMMANDBUTTON UNO PARA GUARDAR EL TEXTO DEL TEXTBOX Y EL OTRO PARA CERRAR EL FORMULARIO, EL PROBLEMA ESTA EN QUE CUANDO PRESIONO EL BOTON PARA CERRAR EL FORMULARIO SI EL TEXTO YA EXISTE EN MI BASE DE DATOS ME SIGUE DEJANDO EL FOCO EN EL TEXTBOX Y NO ME CIERRA EL FORMULARIO, PERO SI PRESIONO EL CONTROL DEL FORMULARIO PARA CERRAR EL MISMO SI ME LO PERMITE. A VER SI ALGUIEN ME PUEDE AYUDAR SALUDOS

Respuesta:

Oswaldo Monagas

Hola Gerardo, aqui tienes el codigo.

How To hide your program from the Ctrl+Alt+Delete list
The Application Programming Interface makes it easy to hide your program from the task list. Simply use the handly code below to register your application as a service, thus rendering the program invisible to the user.

Here's How:
1. Start up Visual Basic and add a form to the project.

2. Copy this code into the declarations section of the form:

Private Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess _
Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess _
Lib "kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

3. Create a new procedure to the form, called "MakeMeService". (function

MakeMeService())

4. Add the following code to this procedure:

Dim pid As Long
Dim regserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

5. To remove your program from the Ctrl+Alt+Delete add this code to call the procedure:

Call MakeMeService

6. Create a new procedure to the form, called "UnMakeMeService". (function UnMakeMeService())

7. Add the following code to this procedure:

Dim pid As Long
Dim regserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)

8. To unregister your application as a service (and therefore how the program in the Ctrl+Alt+Delete task list) add this code to call the procedure:

Call UnMakeMeService ( in Terminate or …)

Contestar

|< << 230 231 232 233 234 235 236 237 238 239 240 >> >|