PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	26135 - ERROR 3146 - ODBC: FALLÓ LA LLAMADA
Autor:	Alex Pacheco
Antes de todo, les saludo cordialmente. Necesito ayuda: he instalado una aplicación realizada en Visual Basic 6.0, en un pc arbitrario. Esta aplicación utiliza conexión a Oracle, mediante el sistema de creación de Workspace (creo que es OLEDB) Después de varios arreglos, hice que la aplicación se conectara a la base de datos, y cuando se requiere, la aplicación realiza lecturas de la base. El problema está cuando se trata insertar datos, ante lo cual aparece el siguiente mensaje de error (el que se maneja mediante la instrucción On Error Goto... y se despliega el err.number & err.description) 3146 ODBC: Falló la llamada El número es el número del error, y el texto es la descripción del mismo. Agradecido de antemano, les saluda ALEX.

Respuesta:	Alejandro Vazquez
Saludos Alex Pacheco super buena tu aportación a mi me sirvió mucho gracias

Respuesta:

MARCO SANTIS AZUA

Amigo:
Lo mas probable es que el query que usas tenga problemas.
Como estas usando una conexión ODBC (es muy fiable, pero es un intermediario), me explico, si te conectaras directamente con la BD el error sería, por ejemplo, demasiados parametros para esta tabla, o si el dato que estas ingresando es muy largo para un campo. En resumen, cada vez que tengas un error de conexión o de Query te saldrá siempre el mismo error o mensaje porque te lo arroja ODBC.
atte.

Contestar

Pregunta:	26140 - MANIPULAR EL OBJETO MICROSOFT GRAPH 2000
Autor:	Francisco Ayala
Tengo una plantilla de Word, con gráficos insertados de Microsoft Graph 2000, Necesito pasar los valores a la tabla de datos de los Graficos desde Visual Basic 6.00, y que se actualice el mismo cada vez que los mande si alguien me puede ayudar se lo agradeceré.

Respuesta:

MILTON GUERRERO RIOS

ESTE CODIGO TE PUEDE AYUDAR PARA Q LO PRUEBES REFERENCIA EN VISUAL EL OFFICE Y MICROSFT GRAPH

Private Sub Command1_Click()
Dim MSGraph As Object, f As Long, c As Long
Set MSGraph = CreateObject("MSGraph.Application")
MSGraph.Visible = True
With MSGraph.DataSheet
.Cells.Clear
.Cells(2, 1).Value = "Tornillos"
.Cells(3, 1).Value = "Tuercas"
.Cells(4, 1).Value = "Clavos"
.Cells(1, 2).Value = "Año 2002"
.Cells(1, 3).Value = "Año 2003"
For f = 2 To 4
For c = 2 To 3
.Cells(f, c).Value = Rnd * 10000
Next c
Next f
End With
MSGraph.Update
'MSGraph.Visible = True
MsgBox "Pulse Aceptar para cerrar Microsoft Graph"
MSGraph.Quit
Set MSGraph = Nothing
End Sub

Contestar

Pregunta:	26143 - ERROR CLASS AUTOMATATION ERROR CON VB Y SQL SERVER 7
Autor:	Mauricio Leyzaola
Si alguien ha experimentado lo mismo, por favor AYUDA! El ejecutable que creé desde Visual Basic me envía un error "class automatation error" cuando trata de conectarse a la base de datos de SQL Server 7, y se interrumpe el programa. La máquina tiene Win 98, suficiente memoria (128Mb) y la conexión con SQL Server es a través de un DSN (ODBC) que hize desde el panel de control yo mismo (incluso verifiqué la conexión y no tuve ningún problema). En el código de VB lo único que hago es lo siguiente: Cnn.ConnectionString = "DSN=Collect;uid=sa;Password=sa;Persist Security Info=True" Cnn.Open Y cuando lo corro en el compilador del VB se conecta y todos contentos, pero cuando trato de correr el ejecutable sucede eso que comenté arriba. Agradecería una ayuda con urgencia porque mañana tengo que presentar esta aplicación en esa máquina y no puede fallar. Perdón por la redacción pero estoy algo encabronado y nervioso. Gracias.

Respuesta:	Mauricio Leyzaola
La solución, para alguien que experimente lo mismo: La versión de ADO referenciada no coincide con la versión ADO de la máquina donde se compila y crea el ejecutable.

Contestar

Pregunta:	26155 - PROBLEMAS CON EL CONTROL RICHTEXTBOX
Autor:	Jose
Hola a todos. Tengo un problema con el control RichTextbox. Lo que hago es cargar el texto que tengo en word(.rtf) a el control richtextbox. Luego lo guardo en una BD el texto rtf de el control. Tengo todo muy bien. Tengo el texto en la base de datos preparado para cargarlo en el control cuando me apetezca. El problema biene cuando tengo texto justificado en word. si por ejemplo tengo 1.lsakdjfalskj 2.lakjdfl 3.lsakjdf, cuando cargo el texto me genera un 4. magicamente. y no se como evitar que cuando tengo texto justificado me genere otra linea más de la que tengo . No se que hacer. Si alguien ha logrado entender mi pregunta, por favor contestar que lo necesito muy urgentemente. Gracias.

Respuesta:	Marcelo Limori
OJO!!! Probaste con otra cosa que no sea Word. Es sabido que Word tiene problemas con el formato .rtf, no guarda (ni carga) bien bajo ciertas circunstancias que ni Bill sabe. Por ahí es cuestión de eso.

Contestar

Pregunta:	26168 - ¿CóMO PASAR EL CONTENIDO DE UN DATAGRID A OTRO DATAGRID?
Autor:	Nancys Fonseca
hola, quisiera saber como pasar información de una data grid a otro datagrid, me explico tengo un data grid enlazado a un adodc en el cual selecciono un registro y al darle click a un boton quiero que dicha información pase a otro datagrid en otro formulario por favor si me pueden enviar lines de código a la brevedad posible lo agradesco mucho

Respuesta:

Hubert Díaz

Bien, supongo que tienes la forma de identificar a ese registro seleccionado mediante un código. Ademas supongo que tienes una tabla diferente enlazada a cada datagrid.

Bueno, te sugiero utilizar una instrucción SQL como esta:
SELECT * FROM <tabla de origen> WHERE <criterio> INTO <tabla destino>
Luego refrescas o mejor dicho reconsultas to ADODC.recordset
o sea: adodc1.recordset.requery

Ojala funcione, la verdad ahora no tengo como probarlo, pero si tienes dudas enviame un correo. ([email protected]).
Suerte.

Contestar

Pregunta:	26181 - CAN'T LOAD MSJET35.DLL
Autor:	Carlos Jiménez
Una de mis aplicaciones me da error ( una vez que ésta lleva un largo periodo de tiempo en ejecucion ) por las siguientes Dll's : - msjet35.dll -msjter35.dll Alguien Sabe a que se debe el problema y como lo resuelvo?? Gracias de antemano.

Respuesta:	ximena tamame
Chequea que version de dll tenes. Si estas usando vb 5, estas son las versiones correctas: MSJInt35.dll 3.50.3602.5 MSJEr35.dll 3.50.3602.0 Y para VB 6 son estas: MSJInt35.dll 3.51.0623.0 MSJEr35.dll 3.51.0623.0 Si la vesion es correcta, yo probaria reemplazarla por otra copia (de la version que corresponda), por las dudas. Espero que te sirva, Adios

Contestar

Pregunta:	26182 - COMO JUSTIFICAR TEXTO EN REPORTE
Autor:	Joel Lozano
He generado un reporte en datareport en el que tengo en la seccion cabecera un label que recibe en tiempo de ejecucion parametros desde codigo de un formulario. En realidad envio unas dies lineas de para que me los presente en el reporte, los envia bien pero quisiera que los justificara como lo hace word. rptLabel tiene 3 propiedades para justificar texto ala (derecha,izquierda y centro) pero no justificar. En definitiva no quiero que me quede asi FEO==> como este texto en el margen derecho. !!Puede ser cualquiera herramienta!! gracias compañeros...

Respuesta:

Angel Pacheco Gutiérrez

Yo no uso reporteador alguno, por que unos son demasiado para mis requerimientos, y otros escasos, así que tengo varias sub y function para el manejo de mi salida impresa. Ví tu solicitud y como no hay objeción tuya respecto a la forma, he aquí el código que yo utilizo para justificar que desde luego, puedes mejorar. Espero sea de utilidad:

Public Sub ImpJust(Texto, margenIzq_, margenDer_)
'Imprime el texto con justificación completa
'dentro de los márgenes indicados.
'El programa que hace el llamado debe seleccionar el
'tipo y tamaño de la fuente.
'Ejemplo de llamado: ImpJust(miCadena,5000,9000)
'miCadena contiene el texto a justificar
'Solo hay una restricción: está hecho pensando en TWIPS

Dim i As Long
Dim tope, ancho As Long
Dim palabra() As String
Dim Terminar As Boolean
Dim anchoCadena As Long
Dim IniciarEn As Integer
Dim LaPalabra As String
Dim cadena As String
Dim j, k, n As Integer
Dim espacioS, incremento As Long

Terminar = False
IniciarEn = 1
Do While Not Terminar And Len(Texto) > 0
IniciarEn = InStr(Texto, " ")
If IniciarEn > 1 Then
LaPalabra = Left(Texto, IniciarEn - 1)
i = i + 1
ReDim Preserve palabra(i)
palabra(i) = LaPalabra
Texto = Right(Texto, Len(Texto) - IniciarEn)
Else
If IniciarEn = 0 Then
i = i + 1
ReDim Preserve palabra(i)
palabra(i) = Trim(Texto)
Terminar = True
Else
Texto = Right(Texto, Len(Texto) - 1)
End If
End If
Loop
n = UBound(palabra)
j = 0

IniciarEn = 1

ancho = margenDer_ - margenIzq_
cadena = ""
For i = 1 To n
j = j + 1
cadena = cadena & palabra(i) & " "
anchoCadena = Printer.TextWidth(cadena)
k = Len(cadena)
If anchoCadena > ancho Then
'Quitar la última palabra de la cadena, incluídos los espacios
cadena = Left(cadena, Len(cadena) - (Len(palabra(i)) + 2))
k = Len(cadena)
anchoCadena = Printer.TextWidth(cadena)
espacioS = ancho - anchoCadena
'Calcular el no. de espacios entre palabras
j = j - 2
'Calcular espacio en palabras
incremento = espacioS / j

cadena = ""
'Regresar una palabra
i = i - 1
'Iniciar contador de palabras
j = 1
'=========================
'Imprimir la linea
'=========================
Printer.CurrentX = margenIzq_
For k = IniciarEn To i
If k <> i Then
cadena = cadena & palabra(k) & " "
Else
cadena = cadena & palabra(k)
End If
Printer.Print palabra(k);
If k <> i Then
Printer.Print " ";
End If
Printer.CurrentX = Printer.CurrentX + incremento
j = j + 1
Next
Printer.CurrentY = Printer.CurrentY+(Printer.TextHeight(cadena) * 1.1)
'Determinar la palabra que inicia la siguiente linea
cadena = ""
j = 0
IniciarEn = i + 1
End If
Next
If cadena <> "" Then
Printer.CurrentX = margenIzq_
Printer.Print cadena;
End If
End Sub

Contestar

Pregunta:	26206 - PROBLEMAS CON EL REFRESH CON ADODC
Autor:	Alicia Covo
Hola Tengo un DataGrid enlazado con un Adodc y cuando pongo un refresh, en ocasiones no funciona, pero si pongo tres, cuatro o más refresh si que funciona. Tambien funciona al ejecutarlo paso a paso. ¿Alguien me puede dar una solución? Gracias de antemano. Un saludo.

Respuesta:	Hubert Díaz
Bueno, en realidad es facil. utiliza lo siguiente: ADODC1.RECORDSET.REQUERY o sea reconsultar. Lo malo es que reconsulta todos los registros. Es un poquito mas lento, pero definitivamente eficaz. Te sugiero investigar el métodos Resync. La verdad no lo recuerdo muy bien.

Contestar

Pregunta:	26208 - MODIFICAR EL TIPO EN UN REGISTRO DE UNA DB
Autor:	Alberto Garcia Rico
Hola muy buenas quisiera saber como poder modificar el campo de una base de datos por código, he utilizado: sentencia="ALTER TABLE establecimientos MODIFY codigo text(40)" Base_actu.Execute sentencia Me dice que esta mal realizada la sentencia Alter, si me pudierais decir otras soluciones estaria muy agradecido.

Respuesta:	Charlos Jim
El tipo text puede dar problemas. Access lo utiliza pero, por ejemplo, Microsoft SQL 2000 Server no lo utiliza y da un error al declarar una variable de tivo 'text'. Si este es tu caso (o no) prueba a declarar el tipo del campo como 'nchar' o 'char'.

Contestar

Pregunta:	26301 - DATAREPORT.PROBLEMAS CON EL RPTLABEL
Autor:	Damian Hernandez
Hola a todos me gustaria saber si alguien me puede ayudar en cuanto a : al diseñar el datareport en la sección de de titulos coloco unos rptlabel , que al hacer en tiempo de ejecucion un .show del mismo necesito asignar a la propiedad caption del rptlabel el valor de una variable , al igual que en el caso de un formulario .Lo que me ocurre es que esto el datareport no me lo permite , ya probe en varios eventos del mismo y nada!!!!! Muchas gracias y felices fiestas!!!!!!

Respuesta:

Genaro N. Condori Estaca

Damian la forma en que puedes resolver tu problema esdela siguiente manera:

La fución rptLabel_Format te permitira cambiar las propiedades que requieras al objeto rptLabel. Para ello es necesario que le asignes a tu etiqueta un nombre para poderlo referenciar, por medio de suspropiedades (F4).

Private Sub FormatLabel(lblX As RptLabel, Caption As String)
With lblX
.Alignment = rptJustifyCenter
.BackColor = vbYellow
.BackStyle = rptBkOpaque
.BorderStyle = rptBSSolid
.CanGrow = True
.Caption = Caption
.Font.Name = "Bookman"
End With
End Sub

Sub Maint()
Dim r As drCustomers ' Este es el DataReport

Set r = New drCustomers

'Aca llamas a la función que cambiara la etiqueta que tu indiques
'es necesario que indiques en que sección se encuentra (por
'ejemplo:PageHeader ) y elcontrol que deseas actualizar en este caso
' un rptLabel llamada lbEncabezado
FormatLabel r.Sections("PageHeader").Controls("lbEncabezado"), _
"Company Report " & Date

r.Show vbModal

Set r = Nothing

End Sub

Espero haber resuelto tu problema, si te queda alguna duda puedes escribirme a [email protected]

Saludos

Contestar

|< << 196 197 198 199 200 201 202 203 204 205 206 >> >|