• Sábado 15 de Junio de 2024, 07:27

Mostrar Mensajes

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 - carlosjrey

Páginas: [1] 2
1
Bases de Datos / Access Client Y Vb.
« en: Sábado 16 de Diciembre de 2006, 16:49 »
Saludos a todos...

El problema es el siguiente, hasta ahora puedo conectar VB a AS400, pero unicamente en mi equipo ya que lo hice via ODBC y el DSN toma mi usuario y mi contraseña por defecto aún cuando no logueo por Dsn..

Alguien podria indicarme como conectarme a AS400 y que cada vez que se inicie la conexion me aparezca el formulario de login del Access Client? se que puede, ya lo vi en otra aplicacion, pero a mi no me ha resultado  :(

Saludos,

CR..

2
Visual Basic 6.0 e inferiores / Re: Ayuda Con Combobox!!!
« en: Domingo 10 de Octubre de 2004, 05:02 »
Refrescaste el metodo Refresh del ADO?

Este puede ser el problema..


Saludos..

3
Visual Basic 6.0 e inferiores / Sql-crystal Y Vb
« en: Sábado 9 de Octubre de 2004, 21:47 »
Hola Foro, Saludos a todos..

Tengo vb6, crystal Report 7 y hago reportes que conecto a access mediante el ODBC y utilizo el ActiveX de Crystal en vb6, lo que quiero es poder ejecutar consultas SQL desde visual basic qu me permita utilizar el operador Like, si hay algúna otra manera de hacerlo bienvenida sea...


De antemano muchas gracias!!

4
Crystal Reports / Re: Problema Con Ocx Del Crystal
« en: Miércoles 5 de Mayo de 2004, 23:59 »
El DCOM98 también esta disponible en el disco de intalación de visual studio en cualquiera de sus ediciones, saludos..

Carlos Rey

 :hola:

5
Visual Basic 6.0 e inferiores / Re: Tristeza Y Decepción
« en: Martes 13 de Abril de 2004, 14:44 »
Hola, yo también estoy de acuerdo con lo de llegar a una negociación, por aquello de concilar, lo mejor es acordar sin que ninguna de las dos partes pierda..
Por otro lado y atitulo personal también te felicito en lo de la optica profesional.

El sistema pueder ser SAP, ORACLE, INFROMIX u otros, el problema esta en cubrir las necesidades reales, sino de que sirve? se gasta mucho y se gana poco..

Hazlo por tu cuenta y sacale el jugo, entiendo que trabajar bajo estas condiciones es incomodo, pero ellos no tienen por que importarte, sigue en lo tuyo y listo..

Animo! :D

6
Visual Basic 6.0 e inferiores / Re: Líneas De Un Archivo Txt
« en: Viernes 2 de Abril de 2004, 17:34 »
Hola, eso esta bien, puedes hacer lo soguiente:


[CODE]

Dim i as integer
i = 0

 Do While Not EOF(1)
     i = i +1
 wend

saludos!

7
Visual Basic 6.0 e inferiores / Re: Compartir Carpetas
« en: Viernes 2 de Abril de 2004, 17:04 »
OJO, ADJUNTO...

Hola, con este ejomplo puedes hacer de una carpeta un recurso compartido, tu tarea es ahora quitar el acceso a la carpeta, lo que hay es que cambiar las propiedades del recurso compartido, en este segmento de codigo esta el secrto para hacerlo, si te fijas la constante access_all es la easigna todos los prermisos, to es cuetion de cambiar ese valor por el que te elimina todos los accesos, creo que si vas al msdn alli esta..

saludos y suerte..

'prepare the SHARE_INFO_2 structure
   With si2
      .shi2_netname = dwNetname
      .shi2_path = dwPath
      .shi2_remark = dwRemark
      .shi2_type = STYPE_DISKTREE
      .shi2_permissions = ACCESS_ALL
      .shi2_max_uses = -1
      .shi2_passwd = dwPw
   End With
                         
  'add the share
   ShareAdd = NetShareAdd(dwServer, _
                          2, _
                          si2, _
                          parmerr)

8
Visual Basic 6.0 e inferiores / Grupos En Crystal
« en: Jueves 25 de Marzo de 2004, 02:05 »
Saludos foro, a ver si aguién puede ayudarme con el crystal report, tengo un grupo basado en el código del cliente y otro grupo basado en la fecha del pedido, este segundo depende del primero, es decir los pedidos de un cliente agrupados por fecha...

Lo que necesito es que la segunda condicion de grupo se me cumpla según el intevalo en el grupo, es decir, semenal, mensual, anual, etc.. el problem esta en que cuando paso la Condición  del grupo (GroupCondition) no me la asume el intervalo que he pasado. ejmpl:

 Rpt.GroupCondition(0) = "GROUP2;" & _
                "{Pedido.Fecha_pedido};WEEKLY;A"

Lo peor es que hace una semana atras habia logrado tener resultado, pero modifique el reporte y luego mas nunca..  :hitcomp:
Gracias!

Carlos Rey.

9
Visual Basic 6.0 e inferiores / Re: Ayuda Con Combobox
« en: Martes 9 de Marzo de 2004, 20:01 »
Te voy a dar dos ejemplos hechos en DAO pero aplican en las otras tecnologias de acceso a datos..

General
Option Explicit
Dim StrCod_Articulo as String 'Si el codigo es string

Cargar el combo:

Private Sub Form_Load()
 CargarCombo
end sub

Sub CargarCombo
      Dim StrDesc_Articulo as  String

       SqlSELECTQry = "SELECT Cod_Articulo, Descripcion_Articulo  FROM Articulos"
        Set Rst = db.OpenRecordset(SqlSELECTQry)
            With Rst
                While Not .EOF
                    if isNull(!desc_Articulo)
                        StrDesc_Articulo = ""
                    else
                         StrDesc_Articulo = !Descripcion_Articulo
                    end if

                    Cmb_Articulo.AddItem !Cod_Articulo & " " & StrDesc_Articulo
                    .MoveNext
                Wend

                 Rst.Close 'Nunca olvide cerrar Los Rst, Pueden traer problemas
                                'no interceptables
                End With
               CmbNombA.Text = CmArticulo.List(0) 'elemento 0 de las lista.
End Sub


Public Sub CmArticulo_Click() 'evento click del combo
S_SelectCod_Uo
end sub

Public Sub CmArticulo_Click() 'evento Changue del combo
S_SelectCod_Uo
end sub

Sub S_SelectCod_Uo()
StrCod_articulo = CmbArticulo.text
StrCod_articulo = (Trim(Mid(StrCod_articulo, 1, 7))) 'aqui supongo que el tamaño
'campo en la base de datos es 7 y como solo te interesa el codigo entoces lee los 7 caracteres y eliminas los espacios restantes con trim. Sigo:
CmbArticulo.Clear 'borras el contenido del combo
CmArticulo.AddItem = StrCod_articulo 'le agregas al combo solo el dato
'que selecciona el usuario..
end sub


Private Sub Cualquier_Proceso() 'al final de procesar el dato:
Cmb_Articulo.Clear 'borras el contenido del combo
CargarCombo 'y lo vuelves a cargar
end sub

Saludos y discupa los si encuentras errores, esta hecho al vuelo...
 Carlos Rey  :hola:

10
MySQL / Orientacion Con Mysql
« en: Miércoles 25 de Febrero de 2004, 21:10 »
Saludos foro!

Bueno, acabo de descargar una versión de MySql, la instale pero esta alli en c:\Mysql, no le hayo consola ni administrador. En oncreto, que necesito para ejecutar MySql?

Gracias

11
Visual Basic 6.0 e inferiores / Re: Grafica En Crystal Report
« en: Miércoles 25 de Febrero de 2004, 18:54 »
Cita de: "pacegar"
Hola gente!

Tengo tres estados para una tabla de alquiler de coches:
1: reservado 2: alquilado 3: entregado

Pues quiero realizar un gráfica lineal/barras en Crystal donde se muestre la suma de coches reservados, alquilados y entregados por días.

La verdad que mostrar esos tres datos en la misma gráfica me está costando conseguirlo. Alguien me puede echar un cable?  :blink:
Que tal, buno yo ando en lo mismo..

Si llegas a encontrar alguna inf publicala aqui por favor, todo sobre graficas en crystal..

Gracias..

Carlos Rey

12
Visual Basic 6.0 e inferiores / Para Compartir
« en: Miércoles 18 de Febrero de 2004, 19:40 »
hoy despues de tanto tiempo de estar detras de esto al fin lo haye, las funciones api para agregar iconos en los programas hechos en vb, lo comparto con uds por que se que esto ha sido tema de polemica discusión..

code icon menu

Saludos cordiales..

Carlos Rey   :lol:

13
Visual Basic 6.0 e inferiores / Re: Crear Pdf Con Visual Basic
« en: Miércoles 18 de Febrero de 2004, 14:51 »
Saludos bea:

Mira, se me ocurre que la version full de acrobat tiene una impresora virtual, si lo consigues e instalas podrias utlilizar el commondialog y seleccionar el printer del acrobat e imprimir alli tus datos...

Saludos..

Carlos Rey..

14
Visual Basic 6.0 e inferiores / Re: Control Ocx De Fechas
« en: Miércoles 18 de Febrero de 2004, 14:46 »
Posibilidades en cuanto a que?

El control DTpicker de VB es bastante funcional y sencillo de usar...

Saludos...

15
Visual Basic 6.0 e inferiores / Re: Rs A Excel
« en: Lunes 2 de Febrero de 2004, 19:18 »
Gracias...  exacto lo que buscaba!   :comp:

16
Visual Basic 6.0 e inferiores / Rs A Excel
« en: Lunes 2 de Febrero de 2004, 16:33 »
Hola muchachos!

Alguien podria asesorarme para exportar mis resultados de una consulta a excel? <_<

Gracias..

17
Visual Basic 6.0 e inferiores / Re: Error 9
« en: Viernes 30 de Enero de 2004, 13:49 »
Cita de: "ebolo"
Gracias carlosjrey por la rápida respuesta.
He modificado el código pero me sigue dando el mismo error.

---------------------------------------------
Private Sub Command6_Click()
Dim mensaje As String
Dim respuesta() As Byte
Dim q, t As Integer
ReDim respq(1 To 8) As Long
Dim mensrec As String, tempo As Double

If MSComm1.PortOpen = False Then
    MsgBox "Abrir puerto primero"
    Exit Sub
End If

If Text1.Text <> "" Then
   mensaje = ""
   For t = 1 To Len(Text1.Text) Step 2
   mensaje = mensaje & Chr$(Mid$(Text1.Text, t, 2))
   Next t
   MSComm1.Output = mensaje
End If

tempo = Timer

Do
      respuesta = MSComm1.Input
  'On Error GoTo errorp
   If MSComm1.InBufferCount >= 8 Then
     MsgBox MSComm1.InBufferCount
     'Call tramitarespuesta(respuesta)
     
   For q = 1 To 8
        respq(q) = respuesta(q - 1)
        If (q = 3) Or (q = 4) Or (q = 5) Then
          respq(q) = Val(Hex$(respuesta(q)))
        End If
        MsgBox "respq(" & q & "):" & respq(q)
        mensrec = mensrec & respq(q)
     Next q
   Text3.Text = Text3.Text & mensrec
   End If
        If (tempo) > (Timer + 5) Then
           tempo = Timer
        End If
   Text3.Text = Timer
Loop Until (Timer - 5) > tempo
 Exit Sub

errorp:
 If Err.Number <> 0 Then
   MsgBox "Error"
 Resume Next
   End If
End Sub
-------------------------------------------------

Saludos.
For q% = 1 To 8
resp(q%) = respuesta(q% - 1) '----AQUÍ ME DA EL ERROR
If (q% = 3) Or (q% = 4) Or (q% = 5) Then
resp(q%) = Val(Hex$(respuesta(q%)))
End If

' se supone que cuando inicias el bucle, tu contador va de 1 hasta 8, si restas 1 a q%, el primer valor que toma es 0, es decir: 1-1 =0, y el intervalo es ascendente de 1 a 8, le estas restamdo valores a q% y mas bien creo que debieras de agragarle y ni si quiera creo que eso sea necesario por que el bucle for..next por defecto te suma 1, si colocas step 2 te suma 2 y asi sucesivamente..

 :whistling:

18
Visual Basic 6.0 e inferiores / Re: Error 9
« en: Viernes 30 de Enero de 2004, 13:10 »
Hola!

Error no es de las variables, es del contador, si tienes un contador de 1-8 tienes 8 posisciones, si  la longitud de la cadena supera este intervalo entonces el contador tratara de llegar a dicha longitud, entonces alli supera el numero de elementos que tienes reservados para la matriz y se produce ese error, en definitiva tu bucle esta superando el numero de valores que puede tomar..  
Saludos  :hola:

19
Visual Basic 6.0 e inferiores / Rdc , Activex Crystal Report
« en: Miércoles 28 de Enero de 2004, 18:59 »
Hola foro, saludos a todos.

  &lt;_&lt;  A ver quien puede orientame:

Tengo que elaborar unos reportes con graficos en crystal pesando parametros de mi bd en Access 2000 por medio de vb6, tengo crystal 7.

Mi pregunta es: que es mas conveniente, el rdc de crystal o usar el control ActiveX que se añade al vb?

Saludos....

20
Visual Basic 6.0 e inferiores / Re: A Proposito De Funciones Api De Win
« en: Viernes 23 de Enero de 2004, 21:07 »
Cita de: "QliX=D!"
No se una api, peor hay un control activex que lo hace.

Busca con el Google.. de hecho hay muchos :D...

Todo seria mas facil con Gtk.. peeeeroo... :P
Puedes decirme especificamente alguno, realmente no tengo mucho tiempo para buscarlos ahora, disculpa... gracias!

21
Visual Basic 6.0 e inferiores / A Proposito De Funciones Api De Win
« en: Viernes 23 de Enero de 2004, 19:57 »
Hola forito..

Saludos a todos..

Vi un tema muy polemico acerca de api's y funciones, a proposito queria saber si alguien conoce alguna función para colocar iconos en los menu de las aplicaciones hechas en vb?

Saludos..

Gracias..

22
Visual Basic 6.0 e inferiores / Re: Apis
« en: Viernes 23 de Enero de 2004, 19:41 »
MVP de microsoft

tambien en ingles pero con ejemplos muy claros..

Saludos

23
Visual Basic 6.0 e inferiores / Nombres De Procedimientos..
« en: Viernes 16 de Enero de 2004, 13:46 »
Hola muchachos, buen día!

Mi pregunta es: ¿Como puedo saber el nombre del procedimiento que se esta ejecutando en un determinado momento?

Esto para escribir un archivo con datos de posibles errores de procedimientos...


Saludos  :hola:

Carlos..

24
Visual Basic 6.0 e inferiores / Re: Buttonmenu En Toolbar
« en: Jueves 15 de Enero de 2004, 19:10 »
Cita de: "Brroz"
Hola carlosjrey.

En la definición del evento hay un gazapo... donde dice

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)

debería decir...

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MsComctlLib.ButtonMenu)

Suerte.
Muchas gracias! Semejante nimiedad nos complican  a veces las cosas..

Gracias!  ;)

25
Visual Basic 6.0 e inferiores / Buttonmenu En Toolbar
« en: Jueves 15 de Enero de 2004, 16:44 »
Saludos foro..

Fijense, tengo unos buttonsmenu en un toolbar, ok. el problema como referencio los menu contextuales de los buttonMenu...

Lo he intentado de esta manera:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)
   Select Case ButtonMenu.Index
   Case 1
      MsgBox "Haga clic en el botón."
   Case 2
      MsgBox "Ofrece algunas opciones"
   End Select

pero me genera errores tales como "no se ha definido el tipo ButtonMenu"...

Gracias...

Páginas: [1] 2