Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| 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. | |
| 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 | |
| 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. | |
| 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 | |
| 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 | |
| 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 | |
| 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. | |
| 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 | |
| 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) | |
| 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 | |
| |< << 282 283 284 285 286 287 288 289 290 291 292 >> >| |
