SoloCodigo

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

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

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!

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)

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

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

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

Gracias...  exacto lo que buscaba!  

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

 

Hola foro, saludos a todos.

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

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

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  

Carlos..

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