Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 60547 - COMO LLAMAR A FUNCIONES DE POSTGRES EN VB6.0 |
| Autor: | Mario snash |
| hola amigos necesito ayuda, la verdad es que nose como llamar a funciones y procedimientos almacenados creados en postgres en VB 6.0 usando DataEnvironment, necesitaria si es posible un ejemplo bien practico, desde ya muchas gracias | |
| Respuesta: | lzero jejej |
| llamalo con "fetch all in 'nombrecursor' | |
| Pregunta: | 60670 - LABELS NO SE ACTUALIZAN EN PROCESOS LARGOS |
| Autor: | Gerardo Ramírez Muñoz |
| Buenas tardes: Tengo programas en VB6 que procesan muchos datos y tengo TextBox o Labels para ir mostrando los avances, pero después de un tiempo de ejecución, siempre se congelan, aunque los programas terminan bien y sin ningún otro problema, tanto bajo Windows XP Pro como en Vista. Gracias. | |
| Respuesta: | xavi |
| Tienes que utilizar DoEvents, que permite que se ejecuten eventos en este tipo de procesos. Por ejemplo, antes de ejecutar el proceso que tarda tanto, o dentro del bucle, pon la instruccion DoEvents. Espero que te sirva | |
| Pregunta: | 60680 - DESHABILITAR "PEGAR" EN UN TEXTBOX |
| Autor: | jorge ... |
| en visual basic 6 como se puede deshabilitar la opcion de "pegar" cuando se le da click derecho encima (o mejor aun deshabilitar todo ese menu contextual sobre el texbox especifico) y tambien como se puede deshabilitar "pegar" via teclado (ctrl+c o shift+ins) es para un campo que actua de cotraseña pero si alguien tiene la contraseña en el bloc de notas lo selecciona y va al textbox le da pegar y ya!.. eso no quiero, quiero que no se pueda pegar (porque solo tienen unos segundos para ingresar la contraseña, pero con esto de pegar pues en menos de un segundo y zaz!) gracias, espero que me hayan entendido | |
| Respuesta: | xEliteHkr |
| Hola Jorge has esto rem no permitir el menu contextual Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox "no se permite copiar" End If End Sub 'No permitir pegar If (KeyCode = vbKeyControl ) or (KeyCode = vbKeyShift) Then Text1.Text = "" Text1.Locked = True MsgBox "no se permite pegar" End If End Sub solo te falta el boton menu te lo debo | |
| Pregunta: | 60731 - COMO AJUSTAR EL TEXTO DE UN CELDA EN UN MSFLEXGRID |
| Autor: | juan rosales |
| estoy realizando un programa que pasa informacion de un listbox a un flexgrid pero la infromacion es muy larga y se corta deseo que se ma ajusten las celdas de ancho y larga para que se me muestre toda la informacion en varias lineas dentro de un misma celda y luego enviarla a excel y que las celda tambien se ajuste dependiendo del contenido de cada celda | |
| Respuesta: | Marisa |
| Saludosç Te recomiendo usar Spread, es una mejor herramienta, y es como una hoja de Excel y puede copiar desde el mismo control. En la práctica necesitas conocer algunas cosas, pero es muy buena. | |
| Pregunta: | 60784 - PROBLEMAS CON DECIMALES ROUND Y FORMAT NO FUNCIONAN |
| Autor: | marco ugalde |
| que hongo, tengo un problema, estoy haciendo una aplicacion con vb en excel para una CNC, cuando obtengo un valor de una celda para trabajar con el y cuando creo el archivo global de texto los numeros enteros no concervan sus decimales, necesito que concerve extrictamente tres decimales si no la maquina donde sera trasladado el archivo no interpretara correctamente los valores. la funcion format me manda error (me dice que no coinciden los tipos, y si es una variable numerica) y la funcion round no me muestra las decimales. la cuestion es que cuando convierto los numeros a texto es cuando se pierden mis preciosas decimales | |
| Respuesta: | Arturo Pacheco |
| Utiliza Format(Text1.Text, "0.000") para obtene un campo de texto con 3 decimales (de no existir decimales acbaría con ,000) con esto SIEMPRE QUE Text1.Text SEA NUMERICO obtendras un campo string con los 3 decimales precedidos de la coma Dim campo as String Dim campo1 as Long Dim campo2 as Double campo = "1.2345,987" Format(campo, "0.000") ------ > "12345,987" campo = "12345" Format(campo, "0.000") ------ > "12345,000" campo1 = 1.2345 Format(campo, "0.000") ------ > "12345,000" campo2 = 1.2345,987 Format(campo, "0.000") ------ > "12345,987" | |
| Pregunta: | 60818 - RECORRER UNA TABLA DEL ULTIMO REGIS AL PRIMERO SIN ORDER BY |
| Autor: | Adrian Odrdoñez Tostega |
| hola que tal necesito que me ayuden con una consulta que estoy hacien do en visual b asic 6.0 lo que quiero es recorrer una tabla del ultimo registro hasta que llegue al primero. Dim RsResultado as new ADODB.recordset RsResultado.Open "Select * from longitud", rutaBd RsResultado.MoveLast y me manda el error "el conjunto de filas no admite recuperacion hacia atras" lo que necesito es mandarlo al ultimo registro para iniciar un ciclo y recorrer mi consulta desde el ultimo registro al primero sin usar order by ya que en mi tabla ordene los datos al momento de llenarla y con el order by te los acomoda de manera ascendente o descendente osea del mas chico al mas grande o alfabeticamente y no necesito eso, si no que me aparezcan como estan acomodados en mi tabla de abajo hacia arriba. Do Until RsResultado.BOF Combo1.AddItem RsResultado(0) RsResultado.MovePrevius loop el additem del combo solo lo puese como ejemplo la vdd es ke realizo otras operaciones con todos los campos de cada registro dentro de cada do until de antemano gracias y espero su pronta respuesta | |
| Respuesta: | Gustavo López |
| Hola Adrian, probá con "adOpenStatic" cuando abres el recordset. También te recomendaria que recorras el recodset de principio a fin (en tu caso), o de fin a principio (en los casos normales), para que lo tenga disponible en memoria, o sea: if rstRecodset.Recordcount <> 0 then rstRecodset.movefirst rstRecodset.movelast end if Saludos, Gustavo | |
| Pregunta: | 60855 - HORA DEL BIOS |
| Autor: | JONATHAN GONZALEZ |
| Hola a todos, Yo en visual hasta el momento tomo la hora de la siguiente manera coloco un timer y le coloco el siguiente codigo text1.caption=Format(Now, "h:nn:ss AM/PM") y al timer le cambio la propiedad Interval en 1000 Necesito tomar la hora directamente del bios, ya que con la funcion Time(), toma la hora es del sistema operativo, trayendo como consecuencia que el usuario modificando la hora de windows altere la hora de nuestro sistema... | |
| Respuesta: | Neager h |
| Aqui lo que se puede hacer es que en los servicios de windows en panel de control herramientas administrativas canceles el servicio de cambiar la hora o bien si tienes montado un servidor de windows puedes poner una politica de seguridad y listo =D | |
| Pregunta: | 60917 - NO TENGO ACCESO AL METODO REFRESH DE ADO |
| Autor: | Javier G |
| bueno, tengo un programa que trabaja con acces, conecta muy bien y traigo los datos al recordset muy bien. mi problema se plantea cuando creo un nuevo registro con addnew. cargo todos los campos por medio de cuadros de texto y le doy update al recorset por lo que este sube a la memoria RAM. si leo el recordset creado en la memoria estan los nuevos datos, pero al cerrar la aplicacion estos no se graban en la base de datos. busco el metodo refresh del recorset pero no me aparece. sera que me falta hacer referencia a alguna biblioteca o que puede ser. este es el codigo para agregar mis datos rsPed.AddNew rsPed!MConsulta = Text1.Text Select Case Cod Case "VIL": rsPed!Vil = iCOD Case "OLG": rsPed!OLG = iCOD Case "LAS": rsPed!LAS = iCOD End Select rsPed!Fecha = Format(Now, "Short Date") rsPed!Nro = 1 rsPed.Update 'Aqui deberia ir rsPed.refresh pero no aparece Text1.Text = "" Text6.Text = "" este es el de apertura del recorset Set rsPed = New ADODB.Recordset Set rsMed = New ADODB.Recordset rsMed.Open "SELECT * FROM DProfesionales", CN, adOpenDynamic, adLockOptimistic cadena = "SELECT * FROM DCitasMed WHERE " & Cod & "=" & iCOD rsPed.Open cadena, CN, adOpenDynamic, adLockBatchOptimistic | |
| Respuesta: | Arturo Pacheco |
| Creo recordar que es Requery en lugar de refresh la propiedad de referescar un ADODB | |
| Pregunta: | 60934 - CONECCION CLIENTE SERVIDOR DE BASE DE DATOS EN VISUAL BASIC |
| Autor: | David Vega |
| Necesito ayuda... ke kontrol se utiliza en visual basic para ke un programa instalado en 3 pc conectadas en red...compartan una misma base de datos y en ella realizar altas,bajas,cambios y demas operaciones...a lo ke le llaman conexion cliente servidor ...pero aun no estoy muy familiarizado...espero ke me puedan ayudar, de antemano gracias | |
| Respuesta: | NEager Hooo |
| Compadre mire Inicio -> Panel de control -> Herramientas Administrativas -> Data Source (ODBC) te aparece una ventana en la pestaña system DSN le picas al botton agreagar o add ecojes el nombre de tu manejador de base de datos MDB le pones un nombre y una descripción luego das click en select Te aparece otra ventana donde daras click en network y buscas tu base de datos. Esto lo tienes que hacer para cada maquina que quieres conectar a esa base de datos sin embargo el nombre tiene que ser el mismo que el odbc de tu codigo fuente ahora bien en una coneccion en lugar de poner el path c:/micarpeta/mibasededatos.mbd puedes usar la ip de la maquina a conectar \192.168.1.250micarpetamibasededatos.mbd aqui el detalle es que no deberas cambiar el ip de tu servidor por que no obtendras coneccion o bien cambiar el codigo fuente cada que cambies la ip prefiero el odbc Suerte ! | |
| Pregunta: | 60955 - BORRAR UN REGISTRO DEL DATAGRID |
| Autor: | Fernando Luján |
| Hola, quisiera Borrar un registro del DataGrid pero que no se me borre de la tabla. Solo que se borre el item de la grilla. Tengo el siguiente codigo y me lo borra por completo: On Error GoTo DeleteErr With rsComp 'rsComp es el recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description Next i Set collecComp = Nothing Gracias | |
| Respuesta: | NEager Hoooo |
| Compadre usted esta borrando desde el principio de su BD With rsComp 'rsComp es el recordset .Delete // Aqui esta borrando de entrada /////////////////////////77 .MoveNext If .EOF Then .MoveLast End With ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////7 Ahora bien usted necesita hacer una condicion With rsComp 'rsComp es el recordset Si condicion es verdadera entonces borro de la bd .Delete .MoveNext Si condicion no es verdadera entonces borro grid fin de si If .EOF Then .MoveLast End With Saludos | |
| |< << 292 293 294 295 296 297 298 299 300 301 302 >> >| |
