|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - desarrollo
1
« en: Domingo 20 de Enero de 2008, 22:37 »
2
« en: Miércoles 17 de Agosto de 2005, 16:58 »
Gracias por responder , a mi instalador le he agregado una serie de dll's y aun me sigue mostrando el mismo problema hay alguna forma de detectar cuales son las dll que debo incluir en mi instalador
3
« en: Miércoles 17 de Agosto de 2005, 00:59 »
Hola
Tengo problemas con datareport al ejecutarlo mediante visual basic no me presenta ningun problema pero al ser instalado en una pc que no tiene vb me sale el siguiente error ORIGEN DE DATOS NO VALIDO, espero puedan ayudarme a solucionar mi duda
gracias
4
« en: Jueves 10 de Febrero de 2005, 21:01 »
Hola a mi tambien me sale el mismo error pero en mi caso solo me pasa con las pc's k tienen instalado el xp y la verdad aun no se cual sera la solucion me gustaria saber k hacer 
5
« en: Sábado 5 de Febrero de 2005, 01:22 »
hola a ver fijate bien en tu select quizas ahi este el problema tambien fijate en el tamaño de ti detalle kizas este pasando a otra hoja bueno t mando un ejemplito a mi tambien me complico un poco la vida el data report yo hago lo siguiente pongo toda mi tabla en el command ( o instruccion sql y recien a la hora de ejecutar le pido k me muestro lo k kiero utiliza el filter DataEnvironment1.rsguia_cab.Filter = "num_guia_dep = '" & Text1.Text & "'" ' en la linea anterior ahi tendrias k poner todos los criterios If MsgBox("Desea Imprimir Guia de Remision ...", 36, "Imprimir") <> 7 Then DataReport2.PrintReport , rptRangeFromTo, 1, 1 End If Ojala t ayude 
6
« en: Martes 1 de Febrero de 2005, 19:12 »
Muchas gracias por la respuesta claro k me servira de mucho
7
« en: Martes 1 de Febrero de 2005, 16:05 »
Hola a todos: kisiera k me den algunos consejos para poder determinar k archivos necesitara mi instalador para los sistemas operativos win 98 , 2000 y xp por ahora estoy usando el NSIS ya k el empaketador de visual me trajo algunas complicaciones lo k kisiera saber es si existe una aplicacion k me permita determinar cuales son los dll, ocx , etc necesarios para k mi aplicacion funcione sin problema alguno , espero sus comentarios 
8
« en: Viernes 28 de Enero de 2005, 15:19 »
Hola Chicos Les cuento la solucion que le di a mi problema con el fondo degradado en mi MDIForm lo que hice fue lo siguiente agregue un formulario hijo a mi proyecto y a este le puse el fondo degradado lo maximice y le kite la barra de controles, le puse enableb = false y en mi mdiform le agregue lo siguiente al momento de mostrar mi MDIForm tambien muesto mi fondo '***Aqui establezco el tamaño de mi fondo si omito esto al momento de mostrar los otros formularios hijos el tamaño de mi fondo cambiara Private Sub MDIForm_Resize( ) frmfondo.Width = Me.Width frmfondo.Height = Me.Height End Sub Espero que a alguien le sirva de ayuda
9
« en: Miércoles 26 de Enero de 2005, 18:17 »
Hola a Todos  , tengo una duda y me gustaria que me ayudaran estoy usando un mdiforn al cual le agrege un fondo degradado con un picture el problema es que al intentar mostrar los MDIChild estos no aparecian ya que el picture los tapaba asi k le kite el picture hay alguna otra forma de ponerle un fondo degradado a mi menu o en todo caso hay alguna propiedad k me permita enviar el picture al fondo del mdiform y asi pueda mostrar los MDIChild. Espero su respuesta gracias
10
« en: Miércoles 19 de Enero de 2005, 19:37 »
holas esto hace que el icono de la barra del FORm se mueva, Private Icono As Integer
Private Sub Timer1_Timer()
Me.Icon = Me.ImgIcono.ListImages(Icono).Picture
If Icono <> 24 Then
Icono = Icono + 1
Else
Icono = 1
End If
End Sub
donde dice Icono<>24 significa que tienes cargado dentro de las propiedades de un IMAGELIST (24 imagenes) es por eso que le da el efecto de ke si se estuviera moviendo,  tambien lo puedes utilizar dentro del un picture o image, espero te sirva  , suerte desarrollo 
11
« en: Miércoles 19 de Enero de 2005, 03:08 »
hola juravi ya probaste coger el ultimo valor de tu relacion de numero por ejemplo exiten 15 registros 1001 1002 1003 esta se elmino . . . 1015 si haces un select count() es logico que te arroje 14 registros porque una ya se elimino, pero si tomas el ultimo que es en este caso 1015 y le sumas +1 (osea 1005+1=1016) mmm... para conseguir el ultimo registro seria hacer un recordset (move last) de la tabla que manejas, talvez te resultaria de esa manera  , es solo una idea quizas te oriente.. desarrollo
12
« en: Miércoles 19 de Enero de 2005, 02:56 »
holas sircuit tal vez lo ke estes buscando sea, es ke te ponga la ruta completa de un programa en un Text mas o menos asi, Text1.text = Shell("notepad.exe url.dll,FileProtocolHandler " & (FilePath), 1)
no estoy seguro si buscas eso pero de todas maneras ten suerte y practica mucho eso es lo ,mejor desarrollo
13
« en: Miércoles 19 de Enero de 2005, 02:41 »
holas tiquinho se mas o menos de ke idea hablas, mira yo tambien kise hacer algo similar tal vez tu me ayudes tambien mutuamente... lo primero seria llenar no lo se tal vez en una lista (o un combo) las opciones (programas) que tengo para instalar, y luego cuando escoga uno de ellso y presione Instalar sea de esta manera:: Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1
Private Sub Command1_Click()
Dim X
select case list1.listIndex 'combo1.listIndex
case 0
X = ShellExecute(Me.hwnd, "Open", "setup01", &O0, &O0, SW_NORMAL)
case 1
X = ShellExecute(Me.hwnd, "Open", "setup02", &O0, &O0, SW_NORMAL)
.
.
.
end select
End Sub
dime si me equivoco o no,  porque la funcion descrita arriba me sirvio para hacer un acceso a un apagina web desde el Vbasic no estoy seguro pero tal vez sirva para ejecutar programas ciertamente no lo se  pero igual creo que la idea es esa... porfa indicame si realmente se puede hacer de esa manera la idea de hacer un multi instalador... suerte desarrollo
14
« en: Miércoles 19 de Enero de 2005, 02:25 »
hola FernAndo yo manejo tambien combo y datacombo que los lleno con datos de mis tablas de sql de esta maner: Private Sub Form_Load()
Dim rsModelo As New ADODB.Recordset
'aqui lleno el combo con los datos de mi tabla modelo
Set rsModelo = New ADODB.Recordset
rsModelo.CursorLocation = adUseClient
SQL = "SELECT * FROM modelo"
rsModelo.Open SQL, CN, adOpenStatic, adLockReadOnly
Do While Not rsModelo.EOF
Combo1.AddItem rsModelo!Nom_modelo
rsModelo.MoveNext
Loop
End Sub
luego valido en el evento CLICK y CHANGE, siempre y cuando tu combo este en la propiedad Style con el valor 2-DropDownList de la sgte manera: Private Sub Combo1_Click() ' y tambien el mismo codigo en el evento Change
Dim rsModelo As New ADODB.Recordset
Set rsModelo = New ADODB.Recordset
rsModelo.CursorLocation = adUseClient
SQL = "SELECT * FROM modelo"
rsModelo.Open SQL, CN, adOpenStatic, adLockReadOnly
If rsModelo.RecordCount <> 0 Then
Label45.Caption = rsModelo!NOM_modelo 'aqui si quier mostrar algun dato que no veo el combo
Else
Label45.Caption = "Seleccione Modelo"
End If
End Sub
de esa manera estoy validando tanto cuando abandono la seleccion y cuando pulso en algun boton aceptando los valores.. creo que con esto no tendras problema, al menos ami no me resulta ningun error...  suerte  desarrollo PD: me olvidada ese error del que hablas ("La operacion no esta permitida sino el objeto esta abierto") es referente a que los datos que consultas lo tienes abierto de algun modo dentro del control (combo) y no lo manjeas apropiadamente, lo mismo me paso amitambien, por eso manejalo con eventos el cual te dije alli arriba....
15
« en: Martes 18 de Enero de 2005, 14:49 »
Muchas gracias por los ejemplos
16
« en: Lunes 17 de Enero de 2005, 21:41 »
Podrias explicarme acerca de como hacerlo con Api's el winsock no es lo k necesito
17
« en: Lunes 17 de Enero de 2005, 20:35 »
hola juravi tal vez los ke buscas es la de lsgte manera: num = 1024 Set RSMensuales = Nothing RSMensuales.Open "UPDATE TMensual SET fac_mes = '" & Trim(num+1) & "'" & "," & " fac_mes = '" & Trim(num+2) & "'" & "," & " fac_mes = '" & Trim(num+3) & "'" & _ "WHERE per_mes = '" & per & "'", CnSQLconexion, adOpenKeyset, dLockOptimistic
si no es asi lo ke kieres entonces puedes amplair mas tu consulta.... nos vemos desarrollo
18
« en: Lunes 17 de Enero de 2005, 19:27 »
Hola a todos tengo una inquietud, debere instalar una aplicacion en una pc k que se encuentra fuera del local donde esta mi servidor por lo k he leido se k puedo lograr la conexion con el servidor mediente el ip de este pero realmente no estoy muy segura de lo k debere hacer me podrian proporcionar informacion al respecto
Muchas gracias de Antemano.
19
« en: Sábado 15 de Enero de 2005, 21:40 »
Hola a todos tengo un problema con un reporte genere el instalador de mi aplicacion y lo instale al ingresar no hay ningun problema pero al presionar el boton imprimir de mi aplicacion sale el siguiente mensaje objeto indefinido o aplicacion indefinida , lo curioso es k si ejecuto la aplicacion desde mi pc en donde cree el proyecto si me manda a imprimir sin problema alguno algun comentario al respecto se los agradecera muchisimo
20
« en: Sábado 15 de Enero de 2005, 19:09 »
hola vgt no te precopupes a veces esas cosas pasan (si o no clauda.... ) para eso estamos como dice el dicho ... hoy por ti mañana por mi.... ke tengas suerte  adios desarrollo PD: sobre el comentario en parentesis alli arriba, me refiero a ke el foro lo vemos dos personas ya sea yo..... o mi amiga claudia   ambos estamos con el mismo usuario y aparte ke trabajo con ella.....
21
« en: Sábado 15 de Enero de 2005, 17:31 »
HOLA VGT revise tu codigo y los he modificado un poco con respecto a los datos que tengo y es este.. Private Sub txtbusqueda_KeyPress(KeyAscii As Integer)
Dim cadena_Buscada As String, criterio As String
Dim sBuscar As String
Dim tRs As New ADODB.Recordset
Dim tLi As ListItem
' Comprobar si tiene caracteres "no válidos" para ADO:
sBuscar = Chr(KeyAscii)
sBuscar = Replace(sBuscar, "*", "%")
sBuscar = Replace(sBuscar, "?", "_")
' Formo la cadena de la consulta:
'codano & "and b.nom_cliente like " & Chr(39) & Trim(Text1.Text) & "%" & Chr(39) &
sBuscar = "SELECT num_ost,Nom_cliente,tip_documen FROM Cliente WHERE nom_Cliente LIKE " & Chr(39) & sBuscar & "%" & Chr(39) & " ORDER BY nom_Cliente" ' aki en la linea del like le coloque un signo porcentaje (%)
'Set tRs = CN.Execute(sBuscar) ': argh:: fire: esto no me funciona
Set tRs = New ADODB.Recordset 'lo hice asi
tRs.CursorLocation = adUseClient
tRs.Open sBuscar, CN, adOpenStatic, adLockReadOnly
'CN.Execute sBuscar 'no
'Set ListView1.= tRs 'no
' Comprobar que hay datos en el recordset
With tRs
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else
' Mostrar los datos hallados
ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF 'en esta parte para que funcione en las propiedades del listview le agregue 3 columnas no se realmente si era necesario pero funciono
Set tLi = ListView1.ListItems.Add(, , .Fields("NOM_CLIENTE") & "")
tLi.SubItems(1) = .Fields("NUM_OST") & ""
tLi.SubItems(2) = .Fields("tip_documen") & ""
.MoveNext
Loop
End If
End With
End Sub
hay algunas opciones que he cambiado con repecto a tu coneccion.... pero lo probe a mi modo y me resulta bien... a ver trata de acomodarlo a tu codigfo y luego me dices suerte , en esa parte donde dices que sale el error simplemente no le he colocado... que raro igual funca  talvez peude explicarme un poco como funciona en tu caso... desarrollo
22
« en: Sábado 15 de Enero de 2005, 16:40 »
Hola a todos Ya hice el seguimiento de toda la aplicacion y averigue que a veces por un caracter invalido o una falta de espacio (que es mi caso) o hay un espacio pueda suceder que cierta parte de la aplicacion no funcione correctamente, aunke el compilado general no te arroje ningun error, esto es loq ue sucedio cuando me conecto al sql coloca la siguiente frase: error, Provider=SQLOLEDB.1;Password=manager;Persist Security Info=True;User ID=system;Initial Catalog=AnovoASR;Datasource=DESARROLLO
corregido, Provider=SQLOLEDB.1;Password=manager;Persist Security Info=True;User ID=system;Initial Catalog=AnovoASR;Data Source=DESARROLLO
notan ke hay un error, pues si en l aparte donde dice Datasource debe decir Data Source , como el compilado general no lo detecta porque esta frase debe asignarse a una variable string y entre comillas, de ahi conectarme a un AdoDB New Conecction pues nunca lo detectaba.... lo raro es que lo generaba normalmente y se ejecutaba tranquilamente pero llevando el exe a otra pc es ahi donde me salia el error descrito en el mensaje anterior... a veces por un error de digitacion o no revisar antes de generar te [puede causar un dolor de cabeza de tres dias.... espero que a alguien le ayude mis comentarios gracias de todos modos,, nos vemos hasta la proxima desarrollo
23
« en: Sábado 15 de Enero de 2005, 16:15 »
Hola a todos he generado mi proyecto para probarlo en otra pc. En mi pc no tiene ningun problema al ejecutar pero en otra pc me sale este error quisiera saber si alguien sabe el significado de este error incluso he hecho una proeba colocando solo la ventana de ingreso y mi menu pero igual me sale el mis error quisiera saber k es lo k estoy haciendo mal si estoy usando mal las librerias o los controles o si simplemente mi visual esta mal instalado espero su respuesta gracias
Error'-2147467259 (80004005)' En tiempo de Ejecución
Error en el método '~' del objeto '~'
24
« en: Miércoles 12 de Enero de 2005, 16:21 »
Gracias Juravi Desarrollo
25
« en: Miércoles 12 de Enero de 2005, 15:01 »
Hola Muchas gracias por lo k me enviaste pero yo keria que al mismo tiempo que la barra de progreso se ejecute yo pueda realizar un proceso en simultaneo que finalice al mismo tiempo k la barra de progreso, Gracias por el ejemplo voy a tomarlo en cuenta. Desarrollo
|
|
|
Mostrar Mensajes
