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 - E N T E R

Páginas: [1] 2 3 4 5 6 ... 71
1
Hola tengo un Procedimiento Almacenado en MySQL muy sencillo solo es un Select, como puedo recuperar en un recodrset para poder mostrar en una grilla.

Mi Procedimiento en el MySQL es esta :

Código: (SQL) [Seleccionar]
CREATE PROCEDURE mCedulas(IN prm INTEGER)
SELECT cedula FROM clientes WHERE cedula=prm


La forma común de recuperar datos en un recordset uso este código.

Código: (VB) [Seleccionar]
Private Sub Command1_Click()

    Dim cnADO As ADODB.Connection
    Dim rsADO As ADODB.Recordset
   
    Set cnADO = New ADODB.Connection
    Set rsADO = New ADODB.Recordset
     
    rsADO.CursorLocation = adUseClient
   
    cnADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=cobranzas; User=root;Password=;Option=3;"
    cnADO.Open

    strSQL = "SELECT cedula FROM clientes WHERE cedula='3230148'"
    rsADO.Open strSQL, cnADO, adOpenStatic, adLockOptimistic, adCmdText
   
    Do Until rsADO.EOF
        With rsADO
            Text1.Text = .Fields("cedula")
            rsADO.MoveNext
        End With
    Loop

End Sub

2
Visual Basic 6 / Re:Centrar texto con objeto printer para un ticket
« en: Abril 18, 2017, 05:33:26 pm »
Hola hace mucho que no programo, pero aca mi aporte.

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
   
    StrTitulo = "SERVICAR CENTRO AUTOMOTIVO"
    strSubTitulo = "CONCEPCION PARAGUAY"
   
    'La forma mas rapida es compartir la impresora en RED y ponerle un nombre facil yo le puse TICKET, mi maquina como nombre de equipo tiene CENTRAL
    'Asi no importa si la impresora que conexion tenga si es a USB o LPT1
   
    Open Trim("\\CENTRAL\TICKET") For Output As #1     'Este es para poder imprimir en una impresora que esta en RED, o
    'Open Trim("C:\archivo.txt") For Output As #1       'Este para imprimir en un archivo.
    'Open Trim("LPT1") For Output As #1                 'Este para imprimir en un impresora paralelo tienes que saber en que puerto se instalo.
   
    Print #1,

    Print #1, Tab(1); String(40, "=")                   'El numero 40 es por que en la ticketeadora que uso imprime 40 letras por fila contando espacios.
       
    Print #1, Tab((40 - Len(StrTitulo)) \ 2); StrTitulo
    Print #1, Tab((40 - Len(strSubTitulo)) \ 2); strSubTitulo
   
    Print #1, Tab(1); String(40, "=")
   
End Sub

3
Yo el tema de que me copien no tengo problemas pues mas bien en donde instalo siempre dejo instruccion de como instalar el soft y como usar. El truco esta en las facturas siempre yo tengo que modificar por cada negocio.

Es mas es mejor que pirateen si total en el programa esta mis datos para que se comuniquen conmigo sobre cualquier duda o cambio en el sistema. Y sin problema esa gente ya queda como cliente tuyo aunque no le cobres por el sistema ya con el tiempo le sacas mas plata sin que se de cuenta  ;)

4
Bases de Datos / Re:Agrupar datos de una BD en un TreeView VB 6.0
« en: Octubre 12, 2016, 05:45:56 pm »
Hola amigo un poco tarde en responder pero hace como 3 a 4 meses que ya no entre al foro. Hice esto

Agregar en el Formulario
Código: (VB) [Seleccionar]
TreeView
ImageList1
Agregar los iconos correspondiente al ImageList

Asi es como queda




En un Modulo

Código: (VB) [Seleccionar]
Public cnADO As ADODB.Connection    '// Conexion ADO
Public rsADO As ADODB.Recordset     '// RecordSet ADO

Public rsAux As ADODB.Recordset     '// RecordSet ADO
Public rsAux_2 As ADODB.Recordset     '// RecordSet ADO

Public StrSQL As String             '// Parametro para MySQL
Public StrSQLAux As String          '// Parametro para MySQL
Public StrSQLAux_2 As String          '// Parametro para MySQL

Public StrSQL1 As String            '// Parametro para MySQL
Public ComandoSQL As String         '// Comando MySQL

Public xImpresora As String
Public xPass As String



Public Sub ConectarADO()
   
    On Error GoTo ErrorHandler
   
    Set cnADO = New ADODB.Connection    '// Crear la nueva conexion
   
    Set rsADO = New ADODB.Recordset     '// Crear nuevo recordset
    Set rsAux = New ADODB.Recordset    '// Crear nuevo recordset
    Set rsAux_2 = New ADODB.Recordset    '// Crear nuevo recordset
   
    rsADO.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
    rsAux.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
    rsAux_2.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
   
    cnADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=trabajos; User=root;Password=;Option=3;"
    cnADO.Open                          '// Abrir la nueva conexion
           
ErrorHandler:
   
    If Err <> 0 Then
        MsgBox "Error Nº: " & Format(Err.Number, "##,###0") & vbCrLf & vbCrLf & Err.Source & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error"
    End If

End Sub

Public Sub CerrarADO()
   
    If Not cnADO Is Nothing Then
   
    Else
        cnADO.Close            '// Cerrar la conexion
        Set cnADO = Nothing    '// Liberar conexion de la memoria
        Set rsADO = Nothing    '// Liberar recorset de la memoria
    End If
   
End Sub


Public Function ADORecordCount(ByRef MySet As ADODB.Recordset) As Long

  Dim BkMark As Variant
  Dim RC     As Long

   On Local Error Resume Next

   With MySet
      BkMark = .Bookmark
      .MoveLast
      RC = .RecordCount
   End With 'MySet

   If RC = 1 Then
      If IsNull(MySet.Fields(0)) Then
         RC = 0
      End If

   End If
   ADORecordCount = RC
   MySet.Bookmark = BkMark
   On Local Error GoTo 0

End Function

En el Formulario Esto

Código: (VB) [Seleccionar]
Dim lngid       As String

Private Enum ObjectType
    otNone = 0
    otFactory = 1
    otGroup = 2
    otPerson = 3
    otFactory2 = 4
    otGroup2 = 5
    otPerson2 = 6
End Enum

Private Sub Command2_Click()

    Dim FACTORY As Node
    Dim GROUP As Node
    Dim ARTICULO As Node
 
    TreeView1.Nodes.Clear
    TreeView1.Refresh
   
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
        Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   
        MySQL = "SELECT * FROM pab GROUP BY cedula order by id"
        rsADO.Open MySQL, cnADO, adOpenStatic, adLockOptimistic, adCmdText
       
        If ADORecordCount(rsADO) Then
       
            Do 'Until rsADO.EOF
       
                cedula = rsADO.Fields("cedula")
                xnfactura = rsADO.Fields("nfactura")
               
                xcliente = rsADO.Fields("cliente")
                Set FACTORY = TreeView1.Nodes.Add(, , , xcliente, 1)

                MySQLaux = "SELECT * FROM pab WHERE cedula='" & cedula & "' GROUP BY nfactura"
                rsAux.Open MySQLaux, cnADO, adOpenStatic, adLockOptimistic, adCmdText
                               
                If ADORecordCount(rsAux) Then

                    Do
                       
                        Set GROUP = TreeView1.Nodes.Add(FACTORY, tvwChild, , "Nº Factura : " & rsAux.Fields("nfactura"), 2)
                        GROUP.Expanded = True
                           
                            MySQLaux_2 = "SELECT * FROM pab WHERE cedula='" & cedula & "' and nfactura='" & xnfactura & "'"
                            rsAux_2.Open MySQLaux_2, cnADO, adOpenStatic, adLockOptimistic, adCmdText
                       
                            If ADORecordCount(rsAux_2) Then
                               
                                Do

                                    Set ARTICULO = TreeView1.Nodes.Add(GROUP, tvwChild, , rsAux_2.Fields("cantidad") & "|" & rsAux_2.Fields("detallearticulo"), 3)
                                    rsAux_2.MoveNext
                               
                                Loop Until rsAux_2.EOF
                               
                            End If
                           
                            FACTORY.Expanded = True
                            rsAux.MoveNext
   
                            rsAux_2.Close
                           
                    Loop Until rsAux.EOF
                   
                End If

                rsAux.Close
                rsADO.MoveNext
               
            Loop Until rsADO.EOF

        End If
           
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la Base Datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
       

End Sub

Scrip MySQL

Código: (SQL) [Seleccionar]
CREATE TABLE `pab` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `cedula` varchar(20) DEFAULT NULL,
  `cliente` varchar(50) DEFAULT NULL,
  `nfactura` varchar(50) DEFAULT NULL,
  `idarticulo` varchar(20) DEFAULT NULL,
  `detallearticulo` varchar(50) DEFAULT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB AUTO_INCREMENT=9 DEFAULT CHARSET=latin1

5
Programación C/C++ / Re:tarea
« en: Junio 27, 2016, 02:48:22 pm »

6
Programación C/C++ / Re:tarea
« en: Junio 27, 2016, 02:46:35 pm »

7
interesante gracias por el aporte

8
Visual Basic 6 / Re:Comtrol de usuario
« en: Mayo 09, 2016, 12:29:12 pm »
No entiendo quieres hacer el tipo de letras asi en vb6? Por que tu titulo dice otra cosa  ;D

9
Visual Basic 6 / Re:BUSCAR EN COMBOBOX PROPIEDAD DE SOLO LECTURA
« en: Abril 14, 2016, 11:46:31 am »
Espectacular esta ese codigo Albertomi.

No es lo que buscas K_arlitos? por que a mi me busca de izq  /der

10
Visual Basic 6 / Re:Herramientas y utilidades para VB6
« en: Abril 13, 2016, 04:35:32 pm »
Hola me encontre con este googleando algo sobre vb6

Visual Studio 6.0 Installer

http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx

Se ve bueno.

11
Visual Basic 6 / Re:BUSCAR EN COMBOBOX PROPIEDAD DE SOLO LECTURA
« en: Abril 13, 2016, 03:06:40 pm »
Código: (VB) [Seleccionar]
Sub BUSCAR_INDEX(xTexto As String)
   
    num = 0
   
    For i = 0 To Combo1.ListCount - 1
       
        Combo1.ListIndex = Val(i)
       
        If Trim(Combo1.Text) = xTexto Then
            num = i
        End If
               
    Next i
   
    Combo1.ListIndex = Val(num)
   
End Sub

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
    Call BUSCAR_INDEX("TRES")
End Sub

Código: (VB) [Seleccionar]
Private Sub Form_Load()
   
    Combo1.AddItem "UNO"
    Combo1.AddItem "DOS"
    Combo1.AddItem "TRES"
    Combo1.AddItem "CUATRO"
    Combo1.AddItem "CINCO"
   
End Sub

12
Visual Basic 6 / Re:ucTexBox Con Icono - UPDATE
« en: Abril 04, 2016, 04:21:33 pm »
Que bueno quedo esto amigos gracias por compartir

13
Visual Basic 6 / Re:Objeto printer y salto de linea
« en: Enero 17, 2016, 11:12:54 am »
Aca otro ejemplo justamente dice una parte del codigo respetando las palabras completas y ajustando sea necesario.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/99-ejemplo-impresion.htm

Yo no los pude probar no tengo ahora el VB6 instalado. pero creo que es lo que estas buscando.

15
El mysqldump seguro no te encontro por que tenes en otra dirección.

Saludos...

Páginas: [1] 2 3 4 5 6 ... 71