PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	55197 - FLEXGRID FORMATO COLUMNA
Autor:	FERNANDO TINTORE
Tengo este problema Estoy utilizando una FLEXGRID y lo estoy llegando con una hoja de excel las columnas de la siguiente forma .TextMatrix(0, 0) = "Cantidad" .TextMatrix(0, 1) = "Bdle" .TextMatrix(0, 2) = "Clase" .TextMatrix(0, 3) = "Clave" .TextMatrix(0, 4) = "Num Parte" .TextMatrix(0, 5) = "P Unit" .ColDisplayFormat(5) = "#0.00" El problema que tengo es que en el Grid cuando se llena la COLUMNA 3 que es para mi texto si mi dato es 58901D4, Me lo muestra de esta forma 589010000, ME QUITA D4 Y MUESTRA CUATRO VECES EL CERO. Como indico lo llene como texto no como Numero

Respuesta:	conexkit honzk
utiliza el @ como formato de texto .ColDisplayFormat(3) = "@"

Respuesta:	William Molle Peru
Dos posibilidades de Resolver. 1.- Utiliza el MSHFlexGrid y configura el tipo de campo q corresponda son 5 2.- Utiliza Acces y haz el cargado de Data.

Contestar

Pregunta:	55234 - PASAR PARAMETROS MEDIANTE VB 6.0 A REPORT MANAGER
Autor:	Manuel Ramirez
Tengo una pequeña aplicación con Visual Basic 6.0, en la que necesitaba un generador de reportes que fuese simple de usar, por eso llegue a REPORT MANAGER, pero no existe mucha documentación de su utilización, lo que necesito resolver es como pasarle parámetros al reporte de modo que pueda extraer solamente la información que necesito. Si alguien me puede ayudar, le estoy agradecido desde ya.

Respuesta:

Gonzalo Zapata

Yo tambien estoy usando el report manager, no se mucho pero al menos para poder pasar parametros lo haces con:

rep.Report.Params.Items(0).Value = i

en el reporte tienes que ir agregando parametros y en el orden de creación es el indice de items. Lo que no he descubierto todavia es como pasas a un nuevo registro ya que no estoy usando una base de datos, le envío los datos desde el visual basic directo. Si lo descubres me avisas.

Saludos

Respuesta:	Juan carlos nAVA
YO UTILIZO UNA TABLA DINAMICA OSEA EN MI APLICACION ESCRIBO DATOS EN UN REGISTRO DE LA BASE DE DATOS Y EL REPORTE ME LEE LA BASE DE DATOS PARA CAPTURAR EL PARAMETRO .. SI HAY ALGUNA OTRA FORMA ME GUSTARIA SABERLO SALUDOS MARACAIBO VENEZUELA

Contestar

Pregunta:	55257 - CONVERTIR UNICODE/ANSI/UNICODE
Autor:	manuel sabogal
Estoy desarrollando una aplicacion con sockets en visual basic 6 y requiero hacer una conversion de codigo para disminuir el peso de los paquetes enviados. Solo requiero enviar Stream, pero para ello hago una conversion de codigo de ANSI a UTF8, pero a la hora de recivir los Stream en UTF8 no puedo convertirlos de nuevo a ANSI, solo logro tomar los caracteres en ASCII. El codigo q uso para enviar convertir los datos a UTF8 es: Public Declare Function WideCharToMultiByte Lib "kernel32" _ (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long Public Const CP_UTF8 = 65001 Public Function WideToUnicode(ByVal StrWide As String) As String Dim stBuffer() As Byte Dim cwch As Long Dim pwzBuffer As Long If Len(StrWide) = 0 Then Exit Function pwzBuffer = Len(StrWide) * 3 + 1 ReDim stBuffer(pwzBuffer - 1) cwch = WideCharToMultiByte(CP_UTF8, 0&, StrPtr(StrWide), Len(StrWide), stBuffer(0), pwzBuffer, vbNullString, ByVal 0&) If cwch Then cwch = cwch - 1 ReDim Preserve stBuffer(cwch) WideToUnicode = StrConv(stBuffer, vbUnicode) End If End Function Como puedo mejorar este codigo lograr una conversion de UTF8 a ANSI correcta???

Respuesta:

manuel sabogal

Ya he trabajado en un nuevo codigo pero aun no logro conseguir la tan esperada conversion de codigo que requiero para mi programa.

El codigo q estoy usando para recivir y convertir los datos de UTF8 a ANSI es:

Public Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Public Const CP_ACP = 0

Public Function UnicodeToWide(ByVal StrUnicode As String) As String
Dim stBuffer() As Byte
Dim cwch As Long
Dim pwzBuffer As Long

If Len(StrUnicode) = 0 Then Exit Function

pwzBuffer = Len(StrUnicode) / 3 + 1
ReDim stBuffer(pwzBuffer - 1)
cwch = MultiByteToWideChar(CP_ACP, 0&, StrPtr(StrUnicode), Len(StrUnicode), stBuffer(0), pwzBuffer)

If cwch Then
cwch = cwch - 1
ReDim Preserve stBuffer(cwch)
UnicodeToWide = StrConv(stBuffer, vbWide)
End If
End Function

Tal vez con este codigo es mas facil armar el rompecabezas. Por favor ayudenme a desifrar este problema.

Contestar

Pregunta:	55370 - COMO VAILDAR CONTRASEÑA DE WINDOWS DESDE VB& USANDO API
Autor:	makenzu arkangell
Hola a todos. Les pido su ayuda sobre como porder validar la contraseña de windows desde una aplicación VB6 usando api. Estoy desarrollando un sistema y mi intension es que recupere el usuario de la sección de windows que este activa y en el form de acceso al aplicativo en VB6 cuando se ingrese la contraseña se valide que sea la misma de la secion de windows. Bueno espero que me entiendan y me puedan ayudar de antemano gracias y Exito.

Respuesta:	Ariel
Es 1 poco largo espero que no se corte. Pon todo esto en un modulo y utiliza la funcion ValidateUser Ver código

Contestar

Pregunta:	55383 - DATOS EN DOS TABLAS EN UN SOLO FORMULARIO
Autor:	Ana Blázquez Hernández
os pongo en situación: tengo dos tablas: clientes y provincias relacionadas por el campo NProvincia (en la tabla clientes) que es Código en la tabla de provincias. En un formulario tengo que introducir y mostrar los datos de los clientes. Tienen que aparecer tanto el código de la provincia como el nombre de ésta. Si quiero modificar la provincia tengo que pulsar un botón que me lleva a la tabla de provincias, escojo la que corresponda y queda el valor del código correspondiente guardado en la tabla clientes y muestra tb el nombre de la provincia en el formulario ¿Cómo lo hago? Espero haberme explicado bien y que me respondais pronto No puedo meter los datos de la provincia en la tabla clientes porque tengo más tablas que necesitan provincias y me parece redundante tener esa información varias veces Muchas gracias por adelantado!!!

Respuesta:

Ana Blazquez Hernández

Al final lo he resuelto de una forma mucho más sencilla:

simplemente he creado un combobox basado en la tabla provincias, muestra el nombre de la provincia y devuelve el código de ésta.

tengo tb un textbox con el código de la provincia pero de la tabla clientes, poniendo lo siguiente funciona:

en esta parte lo que hace es coger el valor que hay en el textbos, que es el código que ha obtenido de la tabla clientes y se lo asigna al textBox

Private Sub NProvinciaTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NProvinciaTextBox.TextChanged
ComboBox1.SelectedValue = NProvinciaTextBox.Text
End Sub

y en esta otra parte hace lo comentrario, es decir, toma el valor seleccionado en el combo y lo guarda en el textbox, como devuelve el código es justo lo que queremos mostrar:

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
NProvinciaTextBox.Text = ComboBox1.SelectedValue
End Sub

Gracias a todos, Ana

Contestar

Pregunta:	55464 - CONTROLAR PC'S DE UN SERVIDOR
Autor:	Miguel Antonio Vargas Sandoval
Hola a todos, espero que me puedan colaborar, es que necesito hacer un software para la microempresa que administró, en donde por medio de un Pc's Servidor pueda controlar los otros pc's con XP que están conectados en un grupo de trabajo, de modo que pueda bloquearlo, apagarlos, verificar si están encendidos, dirección IP, Nomdre del Pc, bloquear tecaldo y mouse, entre otras utilidades, en pocas palabras, controlarlos totalmente. Si saben la manera de hacer esto les estaría muy agradecido. Gracias por su colaboración.

Respuesta:	Kunito
Totalmente DameWare Miniremote control es una opcion, pero si tenes XP, usa el RDP de XP.

Respuesta:	Neto HB
Lo que necesitas es un escritorio remoto prueba team viewer, o randmin

Contestar

Pregunta:	55465 - UNIR DOS SENTENCIAS DE VBA EN UNA
Autor:	josé perez coteron
Tengo una hoja de Excel con un checkbox y quiero que al marcar éste, se ilumine intermitentemente la celda donde se encuentra el checkbox y al mismo tiempo grabe los valores en las celdas correspondientes. Cada sentencia por separado me funciona pero no sé como juntarlas. ILUMINACION CON INTERMITENCIA Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const Rango As String = "B6" Private Const Mensaje As String = "IIIIIIIIIIIIIIIIIIIIIIIII" Private Sub CheckBox1_Click() Dim Celda As Range Set Celda = Range(Rango) With Celda .Font.Color = &HFF& Do While CheckBox1.Value DoEvents .Value = IIf(.Value = Mensaje, "", Mensaje) Sleep 80 Loop .Value = "" End With End Sub GRABACION DE VALORES EN LAS CELDAS Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("C118").Value = 180 Range("C136").Value = 180 Range("C154").Value = 180 Range("C172").Value = 180 Range("C190").Value = 180 End If End Sub gracias

Respuesta:	Adolfo Diaz
Déjame entender. Si el formulario está en excel,desde EXCEL graba las macros de lo que deseas que el formulario haga. Luego puedes unirlas en una sola macro y todo te corre según lo planeaste.

Contestar

Pregunta:	55518 - ERROR 3021 AL LANZAR CONSULTA SQL UTILIZANDO UN TEXTBOX
Autor:	david piedrahita
Buenas: Intento algo que supuestamente debe ser muy sencillo. Quiero desde visual lanzar una consulta sql sobre una base de datos de access utilizando un textbox para que desde él recoja un dato que uso en el where de la sql. El código lo he puesto para un botón de comando y el error que dá es error 3021 en tiempo de ejecución. No hay registro activo. Todo lo que he encontrado sobre este error no me ayuda. El código es: Private Sub Command1_Click() Dim BDD As Database Dim TBL As Recordset Set BDD = OpenDatabase("c:\Documents and Settings\A126813\Escritorio\db1.mdb") Dim SQL As String SQL = "select nombre from tabla1 where nombre like '" & Text3.Text & "%'" Set TBL = BDD.OpenRecordset(SQL) TBL.MoveFirst Do Until TBL.EOF List5.AddItem TBL("nombre") & " " & TBL("apellido") & " tiene " & TBL("edad") TBL.MoveNext Loop End Sub y el error da en TBL.MoveFirst Alguien puede ayudarme? Gracias de ante mano.

Respuesta:	Bismarck Pineda
Cuando yo he tenido ese problema es porque no he colocado el cursor en un registro activo, normalmente lo hago poniendo el evento refresh, ejemplo TBL.Refresh, con esto el cursor se coloca en el primer registro de la base de datos. Es aconsejable revisar antes si la tabla tiene registros grabados. Espero te ayude

Contestar

Pregunta:	55589 - CÓMO HACER UN BACKUP DE UNA BASE SQL DESDE UN VISUALBASIC
Autor:	luis francisco
A los genios: Estoy haciendo un sistema en Visual con base SQL server7, y quiero que desde un botón de un formulario poder hacer un backup de la base. si alguno de ustedes puede orientarme, desde ya, muchas gracias, soy nuevo en esto

Respuesta:

JOSE PASTOR LEZCANO LOPEZ

Hola espero que esto te sirva.

Coloca esto en declaraciones

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Lo siguiente en el boton.

Dim t As Long, cTmp as String, cDataBase as String

'Donde cTmp es el nuevo nombre de la copia de la base de datos original, cDataBase es el nombre de la base datos original.

t = CopyFile(cTmp, cDataBase, False)

Contestar

Pregunta:	55605 - CADENA A MAYUSCULA
Autor:	Nestor Martinez
Hola amigos, quiero saber si hay alguna funcion o como puedo hacer para pasar una cadena que esta toda en mayuscula a que la primer letra sea mayuscula y las demas en minuscula, esta cadena es el campo de una tabla que ya esta cargada. Desde ya muchas gracias

Respuesta:	El conejo El conejo
text1.text = yoquese(text1) ' la cadena Function yoquese(ByVal texto As String) As String yoquese = UCase(Mid(texto, 1, 1)) & LCase(Mid(texto, 2, Len(texto))) End Function

Contestar

|< << 282 283 284 285 286 287 288 289 290 291 292 >> >|