Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 17405 - ERROR DE AUTOMATIZACIóN |
| Autor: | Javier Ogasawara |
| Hice esta pequeña rutina para poder ir cargando los forms seleccionándolo de un combobox (CmbForm). Compile el programa y lo instalé en varias máquinas. En algunas me funcionó perfectamente, pero en otras cuando ejecuta “Set xForm = Forms.Add(CmbForm.Text)” sale el mensaje que está abajo. Lo curioso es que en la máquina que lo ejecuté, si lo corro desde el VisualBasic el programa corre perfectamente, pero si corro el ejecutable me aparece el mensaje y se cierra el programa. Mi pregunta es : A qué se debe el problema y cómo puedo solucionarlo? --------------------------------------------------------------------------------------------------- Dim xForm As Form lblExiste = False For Each xForm In Forms If xForm.Name = LsvTran.SelectedItem.Key Then xForm.Show lblExiste = True Exit For End If Next xForm If Not lblExiste Then Set xForm = Forms.Add(CmbForm.Text) xForm.Caption = LblDescripcion.Caption xForm.Show End If --------------------------------------------------------------------------------------------------- El mensaje que aparece es el siguiente: Error \\\'-2147417848(80010108) Error de Automatización | |
| Respuesta: | Jose Lara |
| A mi me sucedio lo mismo con algo parecido: Lo solucione asi: Cada cierto numero(pueder ser 10,20,30,40,etc.) de iteracion debes parar (Tienes que probar cual te funciona, es decir, donde no te da el error) y nuevamente vuelves a llamar a la rutina. No se porque pasa, pero parece, que llega un momento donde la automatizacion se satura y EXPLOTA. Buena suerte, cualquier cosa escribeme | |
| Pregunta: | 17416 - FALLA CON LA LIBRERÍA OLEAUT32.DLL AL INSTALAR LA APLICACION |
| Autor: | Oscar Esteban Gilberto Fuentealba |
| Hola: Quisiera ver si alguien sabe porque la librería OLEAUT32.DLL no continua su instalación normal, puesto que cuando la aplicación ya se ha creado y se esta instalando por primera vez en un pc con Windows 98 y Office 2000, se queda pegado en la instalación de esta librería y lo peor de todo es que no deja ningún mensaje de error, simplemente se queda pegado. Si alguien sabe la respuesta, favor me la diga, de antemano gracias | |
| Respuesta: | Onorio Palavicini |
| Haz de tener algún programa residente en memoria que usa dicha librería. Te recomiendo que antes de empezar a instalar la aplicación cierres todos lo programas que están residente en memoria (barra de office, otros programas de office, antivirus, etc.), creo que esto solucionará tu problema. | |
| Pregunta: | 17444 - PROBLEMA AL VINCULAR UN DATAGRID CON UN RECORDSET |
| Autor: | Santiago Franchi |
| Tengo que vincular un control DataGrid con un Recordset de ADO en tiempo de ejecución para usarlo como origen de datos, pero no funciona. Estoy utilizando el siguiente código: Set Grilla.DataSource = rcsClientes Grilla.Refresh Donde grilla es el DataGrid y rcsClientes es un recordset de ADO con la tabla clientes. No se genera ningún error durante esta asignación, pero tampoco se muestra nada. Ya probé quitando el refresh, enlazándola con un ADODC por código, pero nada funciona. Por favor ayuda!!!! | |
| Respuesta: | Sandra Lara |
| Grilla.RecordSource = SQLQuery Grilla.Refresh | |
| Respuesta: | mola_32 mola_32 |
| mira yo hace poco he hecho algo parecido, lo unico q tienes q hacer es: AdodcProductos.Refresh Set DataGridProductos.DataSource = AdodcProductos sin mas y se actualiza el datagrid solo sempre y cuando tengas datos actualizados en el recorset por eso lo actualizo yo antes porq lemando anteriormente la sentencia sql de busqueda por ejemplo: AdodcProductos.RecordSource = " SELECT IdProducto, Proveedor, Codigo, Familia, Nombre, Precio_Venta FROM Producto " al final quedaria: AdodcProductos.RecordSource = " SELECT IdProducto, Proveedor, Codigo, Familia, Nombre, Precio_Venta FROM Producto " AdodcProductos.Refresh Set DataGridProductos.DataSource = AdodcProductos espero q te ayude | |
| Respuesta: | SEBASTIAN ANDRES HENRIQUEZ OLIVARES |
| YO TE RECOMIENDO QUE VISITES www.fpoint.com Y BAJES EL CONTROL SPREAD 3.5. SE CONFIGURA EN TIEMPO DE DISEÑO. | |
| Pregunta: | 17447 - PROBLEMAS CON LA |
| Autor: | JACK32 ***** |
| Tengo el problema de que al accesar una base de datos en AS/400 no me reconoce la letra ñ y por lo tanto me marca un error uso Vb6 y ADO, junto con el Client Access, si alguien sabe como resolverlo de antemano se los agradezco. Gracias. | |
| Respuesta: | Dan Jared |
| Si estas conectando una base de datos con ado, no reconoce los caracteres !"#$%&/()?¡_[{}], o la ñ, e incluso los acentos, no entiendo bien tu pregunta a asi que contesto todas las psibles. si es una instrucion SQL lo unico es que tienes que ponerlo entre corchetes [ñ], y tambien si es una tabla [Tabla_ñ]. si es la base de datos puede tener problemas cuando son nombres largos; ya sabes cuando le pones 'Archivo de base de datos' ñ, a 'Arch~1' espero que mi respuesta te sea de utilidad. | |
| Pregunta: | 17478 - IMPRIMIR UN ARCHIVO, PERO CON TAMAñOS Y COLORES DE FUENTES |
| Autor: | Filiberto Juárez Barrios |
| Como puedo generar un reporte o un informe desde Visual Basic 6.0, en el cuál se guarden los formatos de fuente (Color, tamaño y fuente) para posteriormente abrirlo desde un RichTextBox, ya que estoy utilizando un print a un #archivo con la sintaxis de un rtf, pero al abrirlo con el RichTextBox, me lo abre como archivo de texto, pero si lo abro con WordPad de windows, me lo abre con el formato rtf como debe de ser. | |
| Respuesta: | Alfonso XIV |
| No sé cómo lo estás haciendo, pues no he tenido problemas con el control RichT. Lo normal para cargar un fichero rtf en ese control es usar su método .LoadFile <pathFichero>, <tipo> donde en tipo debes poner la constante "rtfRTF", aunque es el valor por defecto. Otra fuente de problemas es que dicho control no reconoce todos los comandos estándard de RTF. En el manual electrónico que viene con VB6 (MSDN Library) puedes encontrar los códigos RTF compatibles (busca RTF-Compatibilidad de código) Yo me hice un pequeño editor de texto usando el control RichT y le puse unos botones que me permitian cambiar el color del texto, tabuladores, etc. Luego lo grabo con el método SaveFile como rtf. El fichero producido lo abro con NotePad (Sí, con él) y como no puede traducir los códigos RTF, me los muestra como texto. Tomo nota y lo empleo en la salida de mis textos formateados. ¡Mano de Santo! | |
| Pregunta: | 17485 - VISUAL BASIC 6.0, ACCESS 2000, ADO Y CRYSTAL REPORT 6.0 |
| Autor: | Miguel Peredo |
| Hola, estoy creando un programa en Visual Basic 6.0 usando el motor ADO y bases de datos Access 2000... Mi problema lo encontre al intentar usar Crystal Reports 6.0, debido a que este no me reconoce las BD de Access 2000... y el otro problema es que trabajo con ADO sin (obviamente) usar Controles Data. Como lo hago? hay alguna solución? que me recomiendas? ¿sugerencias? Adios y Saludos gracias. | |
| Respuesta: | ilp ilp |
| conexiona crystal por dsn a la bd luego create una funcion a la q mandar los procedimientos de filtrado del tipo: Public Sub LanzaInforme(ByVal r As String, ByVal p1 As Variant, ByVal p2 As Variant) Dim p As Variant Dim n As Integer 'Conexión con el servidor On Error GoTo ErrorLanzandoInforme Screen.MousePointer = vbHourglass If frmMain.cryInforme.Connect = "" Then frmMain.cryInforme.Connect = "ODBC;DSN=ASIGNA;usr=guest" End If frmMain.cryInforme.ReportFileName = DirReport & r 'Comprobar y liberar parámetros frmMain.cryInforme.RetrieveStoredProcParams If InStr(p1, "¬") Then For n = 1 To CountVar(p1, "¬") p = LoadVar(p1, n, "¬") If IsDate(p) Then p = Format(p, FECHA_CRYSTAL) If Not IsNull(p) Then frmMain.cryInforme.StoredProcParam(n - 1) = p Next n Else If IsDate(p1) Then p1 = Format(p1, FECHA_CRYSTAL) If IsDate(p2) Then p2 = Format(p2, FECHA_CRYSTAL) If Not IsNull(p1) Then frmMain.cryInforme.StoredProcParam(0) = p1 If Not IsNull(p2) Then frmMain.cryInforme.StoredProcParam(1) = p2 End If frmMain.cryInforme.WindowTitle = LoadVar(r, 1, ".") frmMain.cryInforme.PrintReport FinInforme: Screen.MousePointer = vbDefault Exit Sub ErrorLanzandoInforme: Screen.MousePointer = vbDefault MsgBox frmMain.cryInforme.LastErrorString & vbCrLf & error, vbCritical End Sub | |
| Pregunta: | 17486 - EL ACCESO A UNA BASE DE DATOS ES MAS RAPIDO POR |
| Autor: | angel gutierrez campos |
| Codigo o por los controles data. Gracias. | |
| Respuesta: | Adolfo Mujica Mota |
| Hola Angel: Mira, yo he elaborado aplicaciones para red y por experiencia propia, te recomedaria que utilizaras Codigo, para trabajar con Bases de datos, ya que si trabajas muchos controles que enlazan a datos, la palicacion se cuelga un poco, es decir, es mas bajo el rendimiento. Espero haber aclarado tu duda, si no escribeme a mi correo y si te puedo ayudar. | |
| Pregunta: | 17513 - ¿CóMO UTILIZAR LA CLASE DIRECTSR1 Y EL CONTROL VCOMMAND |
| Autor: | DANIEL gramajo |
| Por favor si alguien sabe como utilizar la clase DirectSR1 que sirve para dictados en multimedia y los controles Vcommand y Vdict1 en Visual Basic, se lo agradecería mucho, he tratado utilizando los metodos Activate y Deactivate pero no logro obtener el texto del dictado que se ingresa por el microfono. Gracias de antemano | |
| Respuesta: | Charly AT |
| El uso del control DirectSR es sencillo, e incluso pienso que lo has estado haciendo bien ya que no te bota ningun error al momento del dictado, pero el problema en si es otro.... puede ser que no te funcione por que el motor de reconocimiento de voz esta en inglès por que no existe una versiòn en español, aùn... o simplemente algun defecto en el micro por que hay que configurarlo para que pueda utilizarse. | |
| Pregunta: | 17525 - API GETPRIVATEPROFILESTRING |
| Autor: | santi chine |
| Hola me preguntaba si me podías ayudar con una funcion: Estoy en Win98 y me falla la API GetPrivateProfileString. Cuando intento compilar el programa la funcion genera el siguiente error: No se ha encontrado el archivo : Kernel Este es el codigo q utiliza Dim cCadena As String Dim nLonCadena, nResp As Integer cCadena$ = Space$(255) nLonCadena = 0 nResp = GetPrivateProfileString(cSeccion, cItem, "", cCadena, ncadena, cNomFich) cCadena = Left$(cCadena, nResp) LeeINI = cCadena El fin de este codigo es cargar en una variable una cadena especifica de un fichero ini. Espero q me podais dar alguna solucion. | |
| Respuesta: | Heroe |
| Proba con este codigo, tenes tanto la funcion para leer como para escribir.... Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Public Function ReadParametro(ByVal Seccion As String, ByVal Variable As String, ValorDefault As String, StrRuta As String) As String Dim StrBuffer As String Dim ValueReturn As Long StrBuffer = String$(255, 0) ValueReturn = GetPrivateProfileString(Seccion, Variable, ValorDefault, StrBuffer, Len(StrBuffer), StrRuta) ReadParametro = Trim$(Left$(StrBuffer, InStr(StrBuffer, Chr$(0)) - 1)) End Function Public Sub SaveParametro(ByVal Seccion As String, ByVal Variable As String, ByVal Valor As String, StrRuta As String) Dim StrBuffer As String Dim ValueReturn As Long StrBuffer = String$(255, 0) ValueReturn = WritePrivateProfileString(Seccion, Variable, Valor, StrRuta) End Sub Cualquier duda, avisame.. PATO | |
| Pregunta: | 17527 - SIMULAR EL CLICK DEL MOUSE POR TECLADO |
| Autor: | Ariel F. |
| Buenas, escribo aqui como la ultima chance de consequir una respuesta, ya que la he buscado por varios lados. Se trata de lo siguiente : Lo que necesitaria es simular el click (Izq. o der.) del mouse, pero no para una aplicacion creada por mi, sino para otra aplicacion que ya esta corriendo y necesito enviarle una especie de SENDMOUSECLICK, ya que no tengo acceso al codigo. Es sobre Windows 98, lo que intente es con las teclas del NumPad, con accesibilidad para mouse, pero no se como enviarlas, ya que no son ASCII no encuentro la forma de llamarlas... Sin mas y agradeciendo desde ya | |
| Respuesta: | Pedro J. Marín |
| Lo que tu buscas es esto: Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _ ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, _ ByVal dwExtraInfo As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Public Sub ClickMouse() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub Private Sub Command1_Click() ClickMouse End Sub | |
| Respuesta: | Jose A. |
| Hola. Por lo que dices puede que te sirva la función SENDKEYS. | |
| |< << 154 155 156 157 158 159 160 161 162 163 164 >> >| |
