PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	35654 - MEDIR RENDIMIENTO - VB CON SQL SERVER
Autor:	Arturo López Saldiña
necesitamos medir el tiempo que se tarda en guardar los datos en una base de datos desde un prgrama hecho en visual basic, tenemos una instruccion que lo mide, pero en sql server, gracias por su ayuda

Respuesta:	Miguel CL
Puedes hacer todo tu codigo en VB, y metes en un for o loop una instruccion donde haga un UPDATE o INSERT digamos unas 100 o 1000 veces. Entonces usas timer en el codigo de VB para medir cuanto se tarda en hacer esas actualizaciones o agregados en SQL. Esto te es mas util si tienes dos bases de datos contra la cual comparar.

Contestar

Pregunta:	35680 - USERNAME Y PASSWORD A BROWSER
Autor:	Cristian López Valderrama
Hola a Todos. Alguien sabe como pasarle parametros al browser de user_name y password, e provado con internet transfer pero me baja la pagina y lo que quiero yo es poder mantener la conexíon ya que necesito entrar varios niveles hacia dentro del sitio. o como capturar las variables de ambiente de un sitio web. Gracias a Todos los Programadores.

Respuesta:	Vino T.
Te aconsejo que investigues algo sobre Encabezados HTTP (HTTP Headers)... de hecho, en el MSDN de Microsoft aparece bastante información... puedes utilizar estos encabezados para solicitar información al browser (incluyendo User y Password)... ahora, si tu problema es que quieres pasar una URL con password y User, la sintaxis es: ftp://UserName:[email protected]

Contestar

Pregunta:	35707 - CONECTAR UNIDAD A RED
Autor:	Adolfo Lopez
Quisiera saber si hay alguna manera de asignar una letra de unidad a un carpeta de red desde visual basic

Respuesta:

Luis M. Mora.

Aqui Tienes el Codigo:

Private Const ERROR_SUCCESS = 0
Private Const ERROR_ALREADY_CONNECTED = 52&
Private Const ERROR_UNSHARED_RESSOURCE = 67&
Private Const ERROR_BAD_NET_NAME = 67&
Private Const ERROR_ALREADY_ASSIGNED = 85&
Private Const ERROR_BAD_DEVICE = 1200&
Private Const ERROR_NOT_CONNECTED = 2250&
Private Const ERROR_MORE_DATA = 234
Private Const ERROR_CONNECTION_UNAVAIL = 1201&
Private Const ERROR_NO_NETWORK = 1222&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&

Dim Si As Boolean
Dim RedVar As Boolean

Dim SerialNum As Long, SysFlags As Long
Dim retVal As Long, Complength As Long
Dim VolBuff As String * 255, SysName As String * 255
Dim DrivePath As String
Dim i As Integer

Private Sub red()

On Error Resume Next 'ignorar errores

strCaminoAcceso = "\\maquina\c"
strClaveAceso = ""
strDrive = "W:"
quePaso = WNetAddConnection(strCaminoAcceso, strClaveAceso, strDrive)
Select Case quePaso
Case ERROR_SUCCESS
RedVar = True
Case ERROR_NOT_CONNECTED
RedVar = False
Case ERROR_ALREADY_CONNECTED
RedVar = False
Case ERROR_NO_NETWORK
RedVar = False
Case ERROR_ALREADY_ASSIGNED
RedVar = False
Case ERROR_NO_NET_OR_BAD_PATH
RedVar = False
Case ERROR_UNSHARED_RESSOURCE
RedVar = False
Case ERROR_BAD_NET_NAME
RedVar = False
Case ERROR_BAD_DEVICE
RedVar = False
Case ERROR_MORE_DATA
RedVar = False
Case ERROR_CONNECTION_UNAVAIL
RedVar = False
Case ERROR_EXTENDED_ERROR
RedVar = False

End Select

End Sub

'Para Desconectar

Private Sub dESCONECTAR()
resultado = WNetCancelConnection("G:", True)
End Sub

Saludos, si tienes Duda mandame un Correo

Contestar

Pregunta:	35720 - QUITAR EL SONIDO DEL TREEVIEW
Autor:	Col Col
Hola, como puedo eliminar el sonido que hace el "TreeView" cuando se pincha sobre un nodo? Muchas Gracias

Respuesta:	Agustín Dávila
Supongo que tu problema es cuando pulsas Intro sobre el Treeview. Para solventarlo tienes que escribir en el evento "Keypress" del Treeview la instrucción: KeyAscii = 0

Contestar

Pregunta:	35755 - VB CON ADODC AL AS/400
Autor:	SOLANGE ARENAS
Tengo un pc con Windows 2000 y Visual Basic 6.0 y servipack 5, instalé el mdac 2.7, el Client Access 5.1 y el servi pack SI02795. Para conectarme en forma remota a un AS/400 V4R50. Al realizar un Update con Adodc arroja el siguiente error: -2147217887 (80040e21). Necesito saber si se debe instalar algo más. Gracias.

Respuesta:

Carlos Dradá

Hola Solange, no sé que signifique el error, pero te aconsejo que hagas lo siguiente:

1). Verifica que la conexión ODBC tenga activada la opción de Lectura Escritura, de lo contrario no podrás hacer actualizaciones.
2). Verifica los permisos del usuario con el que te conectas, puede ser que dicho usuario no tiene permisos de escritura sobre las tablas que estás tratando de actualizar.

Espero que esto te sirva, cordial saludo.

Contestar

Pregunta:	35791 - FUNCION IIF NO RECONOCIDA EN UNA CONSULTA SQL DESDE VB
Autor:	Emilio Jose Caldas Vargas
Estoy trabajando con Visual Basic y Sql Server y quiero incluir la funcion IIf en las consultas SQL que hago, pero me dan un mensaje que la función no está reconocida, quisiera saber como puedo solucionar este problema. Gracias

Respuesta:	Luis Bueno
Puedes usar esto , el decode dicen q funciona pero no es asi en todo caso lo probe y no funciono. select percodigo,perempresa, case perempresa when '01' then 'Uno' when '02' then 'Dos' when '03' then 'Tres' end from personal espero te sirva... bye

Respuesta:	Pili
Si es dentro de la consulta, prueba a poner Decode: DECODE(NOMBRE_CAPO, 0, 'CERO', 'NO CERO')

Contestar

Pregunta:	35821 - JUSTIFICAR TEXTO EN UN PICTURE BOX
Autor:	Xavi
Como puedo justificar un campo de texto (memo) en un picture box? Gracias

Respuesta:

Xavi

Navegando por la red, he encontrado este codigo:

Función para imprimir texto justificado en un PictureBox.

Sub justifica_picture(p As PictureBox, x0, xf, y0, txt)
' Muestra un texto justificado dentro del picture "p"
' x0, xf = posicion de los margenes izquierdo y derecho
' y0 = posicion vertical donde se desea empezar a escribir
' txt = texto a escribir

Dim x, y, k, ancho
Dim s As String, ss As String
Dim x_spc

s = txt
x = x0
y = y0
ancho = (xf - x0)

While s <> ""

ss = ""
While (s <> "") And (p.TextWidth(ss) <= ancho)
ss = ss & Left$(s, 1)
s = Right$(s, Len(s) - 1)
Wend
If (p.TextWidth(ss) > ancho) Then
s = Right$(ss, 1) & s
ss = Left$(ss, Len(ss) - 1)
End If
' aqui tenemos en ss lo maximo que cabe en una linea
If Right$(ss, 1) = " " Then
ss = Left$(ss, Len(ss) - 1)
Else
If (InStr(ss, " ") > 0) And (Left$(s & " ", 1) <> " ") Then
While Right$(ss, 1) <> " "
s = Right$(ss, 1) & s
ss = Left$(ss, Len(ss) - 1)
Wend
ss = Left$(ss, Len(ss) - 1)
End If
End If
x_spc = 0
x = x0
If (Len(ss) > 1) And (s & "" <> "") Then
x_spc = (ancho - p.TextWidth(ss)) / (Len(ss) - 1)
End If
p.CurrentX = x
p.CurrentY = y

If x_spc = 0 Then
p.Print ss;
Else
For k = 1 To Len(ss)
p.CurrentX = x
p.Print Mid$(ss, k, 1);
x = x + p.TextWidth("*" & Mid$(ss, k, 1) & "*") - p.TextWidth("**")
x = x + x_spc
Next
End If

y = y + p.TextHeight(ss)
While Left$(s, 1) = " "
s = Right$(s, Len(s) - 1)
Wend
Wend
End Sub

Daniel Castillo Martinez, [email protected]

Contestar

Pregunta:	35822 - JUSTIFICAR TEXTO EN LA IMPRESORA
Autor:	Xavi
Como puedo justificar un campo de texto (memo) en la impresora? Gracias

Respuesta:

Xavi

Navegando por la red, he encontrado este codigo:

Sub justifica_printer(x0, xf, y0, txt)
' x0, xf = posicion de los margenes izquierdo y derecho
' y0 = posicion vertical donde se desea empezar a escribir
' txt = texto a escribir

Dim x, y, k, ancho
Dim s As String, ss As String
Dim x_spc

s = txt
x = x0
y = y0
ancho = (xf - x0)

While s <> ""

ss = ""
While (s <> "") And (Printer.TextWidth(ss) <= ancho)
ss = ss & Left$(s, 1)
s = Right$(s, Len(s) - 1)
Wend
If (Printer.TextWidth(ss) > ancho) Then
s = Right$(ss, 1) & s
ss = Left$(ss, Len(ss) - 1)
End If
' aqui tenemos en ss lo maximo que cabe en una linea
If Right$(ss, 1) = " " Then
ss = Left$(ss, Len(ss) - 1)
Else
If (InStr(ss, " ") > 0) And (Left$(s & " ", 1) <> " ") Then
While Right$(ss, 1) <> " "
s = Right$(ss, 1) & s
ss = Left$(ss, Len(ss) - 1)
Wend
ss = Left$(ss, Len(ss) - 1)
End If
End If
x_spc = 0
x = x0
If (Len(ss) > 1) And (s & "" <> "") Then
x_spc = (ancho - Printer.TextWidth(ss)) / (Len(ss) - 1)
End If
Printer.CurrentX = x
Printer.CurrentY = y

If x_spc = 0 Then
Printer.Print ss;
Else
For k = 1 To Len(ss)
Printer.CurrentX = x
Printer.Print Mid$(ss, k, 1);
x = x + Printer.TextWidth("*" & Mid$(ss, k, 1) & "*") - Printer.TextWidth("**")
x = x + x_spc
Next
End If

y = y + Printer.TextHeight(ss)
While Left$(s, 1) = " "
s = Right$(s, Len(s) - 1)
Wend
Wend

End Sub

Daniel Castillo Martinez, [email protected]

Contestar

Pregunta:	35823 - RESETEAR UN SERVICES DE WINDOWS NT
Autor:	Jeysonn Basilio Abreu Canó
¿Cómo puedo resetear un servicio Service de Windows NT usando los API's de Visual Basic?

Respuesta:	toni rodado
sAccion=" start " o sAccion=" stop " Shell "net" & sAccion & Chr(34) & NombreServicio & Chr(34) Si no te he entendido bien en lo que quieres hacer me lo comunicas. Adios.

Contestar

Pregunta:	35824 - ESCANEAR IMÁGENES EN B/N EN ESCANER COLOR
Autor:	María Jesús Montero Paredes
¿Sabe alguien cómo programar que se escanee en B/N en un escáner color con los controles de imaging? Tengo un scanner HP/7400 color y tengo que guardar documentos desde el alimentador páginas en Blanco y negro y comprimidos con formato TIFF porque es el menor tamaño de fichero que puedo conseguir. Sin embargo, usando los controles de imaging imgscan.ocx,... siempre me guardar el archivo en color a persar de ponerle: ImgScan1.SetPageTypeCompressionOpts CustomSettings, BlackAndWhite1Bit, CCITTGroup42D, G42DFaxRBO A ver si hay alguien que conozca el tema. Gracias y un saludito

Respuesta:

danibc bc

Lo que tú has probado a mí me pasaba lo mismo ya hace tiempo y no creo que por gracia vendita hoy funcione así que buscando encontré en la página http://www.planetsourcecode.com un ejemplo hecho con TWAIN (compatible con la mayoria de los scaner's conocidos y por conocer ;D . En concreto esta en la dirección http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=3924&lngWId=1
El nombre del codigo fuente es "TWAIN Scanner" de un tal Patrick K. Bigley.
Te lo guarda en B/N, Tonos de Gris, Colorines, 4 dimensiones ;D y en que formato quieres más!!!
Un saludo y spero que la información de ayude.

Contestar

|< << 224 225 226 227 228 229 230 231 232 233 234 >> >|