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

Páginas: [1] 2
1
Bases de Datos / No graba los decimales en la tabla access
« en: Marzo 15, 2018, 12:41:29 am »
Hola a todos:
paso a plantear el problema.
Tengo una tabla de una base de datos access con un campo NUMERIC: Tipo DECIMAL, Formato ESTANDAR. Longitud 18, escala 2, Si introduzco los datos desde access directamente, no hay problema: si entro 2,35 me graba y muestra 2,35, pero cuando los entro desde mi aplicación vb 6, coma, es decir, si entro 2,35 no me reconoce la decimales y coloca 2,00
però no encuentro la solución

Código: [Seleccionar]
Sql = "INSERT INTO CABECERA_PEDIDOS(VALOR)VALUES("
Sql = Sql & " '" & val(TeValor) & " ”
Base.Execute (Sql), adCmdText

Muchas gracias

2
Visual Basic 6 / Como programar Msgbox textbox en blanco
« en: Enero 07, 2018, 07:14:29 pm »
hola a todos, Bueno el problema que tengo el dia de hoy es que programe un msgbox donde tengo la opcion
 textbox en blanco , pero cuando oprimo en botone realiza accion
 lo que quiero es que cuando oprima aceptar no realice nada estas textbox en blanco
Este es el codigo que maneje:


Código: [Seleccionar]
Function Mensajess()
  If OpGuias.Value = True Then
   If Me.TeNumero.Text = "" Then
    MsgBox "Ingrese el número de guia.", vbInformation, "Aviso"
    Me.TeNumero.SetFocus
    Exit Function
   End If
  End If
 
  If Me.OpFactura.Value = True Then
    If Me.TeNumero.Text = "" Then
     MsgBox "Ingrese el número de Factura.", vbInformation, "Aviso"
     Me.TeNumero.SetFocus
     Exit Function
    End If
     If Me.TeFecha_V.Text = "" Then
      MsgBox "Ingrese la Fecha.", vbInformation, "Aviso"
      Me.TeFecha_V.SetFocus
      Exit Function
     End If
 
  End If
         
  If Me.Opnota.Value = True Then
    If Me.TeNumero.Text = "" Then
      MsgBox "Ingrese el número de Nota  de Credito.", vbInformation, "Aviso"
      Me.TeNumero.SetFocus
     Exit Function
    End If
      If Me.TeFecha_V.Text = "" Then
        MsgBox "Ingrese la Fecha.", vbInformation, "Aviso"
        Me.TeFecha_V.SetFocus
       Exit Function
      End If
  End If

End Function

Código: [Seleccionar]
Private Sub V_Pendiente(Al As Boolean)
   If Me.TeNumero.Text = "" Then MsgBox "seleccione una opcion entre guia, factura, N.C., y digite el numero", vbInformation, "Aviso": _
  : VMensajeEditar = False: Exit Sub
  Call Mensajes
 If MsgBox("Esta seguro de grabar Facturas?", vbQuestion + vbYesNo + vbDefaultButton2, "..:: F A C T U R A S ::..") = vbYes Then

   Base.BeginTrans
     If Al = True Then
   
       Call Modificar_Detalle
       If Val(LaPendi) = 0 Then
           Call ModificarArticulos_Stock(False)
       Else
            Call ModificarArticulos_Stock(True)
       End If
       Call Numeros
       Call Regrabar_Historial
       Call Regrabar_DetalleHistorial
       Call Pago_Resgi_Provedor
       Call Pago_Provedor
       Call Cabecera_Pedidos
     Else
       Call Modificar_Detalle
       If Val(LaPendi) = 0 Then
           Call ModificarArticulos_Stock(False)
       Else
            Call ModificarArticulos_Stock(True)
       End If
       Call Numeros
       Call Regrabar_Historial
       Call Regrabar_DetalleHistorial
       Call Pago_Resgi_Provedor
       Call Pago_Provedor
     End If
    Call Modificar_Pendiente
    Base.Execute ("Update CABECERA_PEDIDOS Set PENDIENTE=" & Val(VPendiente) & " WHERE ID=" & Val(LaIDPedi) & ""), adCmdText
     If VPendiente = Val(2) Then
        Base.Execute ("Update DETALLE_PEDIDOS Set FLAG=" & Val(0) & ",AGREGADA=" & Val(7) & " " & _
        "WHERE N_PEDIDOS='" & Trim$(TexCodigo_Pe) & "'"), adCmdText
     End If
  Base.CommitTrans
   frmMensajeEditar.Show 1
 End If
End Sub

Hay alguna forma de solucionar esto.
 gracias

3
Visual Basic .NET / C# / textbox solo mayuscula en vb.NET
« en: Marzo 21, 2017, 11:01:45 am »
Hola a todos.

alguien me podria decir como puedo hacer para que un text box solo sea mayuscula

saludos

4
Visual Basic .NET / C# / Re:Textbox con frmato fecha corta en vb.NET
« en: Marzo 07, 2017, 10:21:01 pm »
hola el_trocha. Lo he probado y FUNCIONA
 Mil gracias

5
Visual Basic .NET / C# / Textbox con frmato fecha corta en vb.NET
« en: Marzo 04, 2017, 06:05:48 pm »
Hola a todos.
 Tengo una duda acerca del control textbox. El escenrio es un formulario windows con un datagrid enlazado a una tabla de un dataset y más abajo controles textbox para cada campo de la tabla, enlazados con binding al mismo dataset.
 A partir de aqui, cambias de registro en el datagrid y todo se actualiza con los datos de siguente registro, etc..
 ¿Cómo puedo, al control textbox que me está mostrando una fecha, decirle que la muestre en formato de fecha corta (dd/mm/aaaa), en vez de que muestre (dd/mm/aaaa hh:mm:ss)?

6
Visual Basic 6 / Re:Problema con Formato de Fechas durante Exportación a Excel de un MSHflexgrid
« en: Noviembre 27, 2016, 01:48:51 am »
hola, como estas

 ayudarte pasándote este proyectito en el que podrás apreciar cómo Exportación a Excel de un MSHflexgrid Ojalá te sirva.

https://mega.nz/#!BhdwUbJS!6eE1I5dmHCIL0Sq5ICSNpnSIgw3YbLiBbK2_tNC7Pq4

7
Bases de Datos / Re:Problema con BD (VB6 + Access .mdb) carpeta compartida en Red (XP & W7)
« en: Noviembre 16, 2016, 01:42:59 pm »
hola a Todos

Yo te recomendaría que con tiempo te pases a un firebirdsql , y te olvidas de todos esos problemas, está pensado para trabajar en red

8
Visual Basic .NET / C# / Re:mesaje advertencia?
« en: Octubre 25, 2016, 05:03:10 pm »
hola, como estas

pero si tengo  un Procedimiento Publico de Main

Aquí dejo código conexiones

Código: [Seleccionar]
Option Strict On

Imports System
Imports System.Data.Odbc
Module FoncionesBd
    Public Base As New OdbcConnection("DSN=REPUESTOS; Uid=SYSDBA; Pwd=masterkey")

    'Método que cierra la conexión
    Public Sub desconectar()
        Base.Close()
    End Sub
End Module

Código: [Seleccionar]
Module modMain
    Public Sub Main()
        Try
            Base.Open()
            Application.EnableVisualStyles()
            Application.Run(MDIMenu)
        Catch ex As Exception
            MsgBox("No se establecio la conexión con la Base de Datos", MsgBoxStyle.Question, "Repuestos")
            End
        End Try

    End Sub
End Module

9
Visual Basic .NET / C# / mesaje advertencia?
« en: Octubre 20, 2016, 11:31:34 pm »
Hola a todos

Resulta, cuando presiona el Iniciar y sale y un mensaje..

este:: Advertencia   1   El espacio de nombres o tipo especificado en las importaciones de nivel de proyecto 'System.Threading.Tasks' no contienen ningún miembro público o no se encuentran. Asegúrese de que el espacio de nombres o el tipo se hayan definido y de que contengan al menos un miembro público. Asegúrese de que el nombre del elemento importado no utilice ningún alias.   proyecto Repuestos automovil

Si alguien puede darme una explicación... se lo agradecería.

10
Visual Basic .NET / C# / Re:contador en vb.NET
« en: Octubre 20, 2016, 10:49:35 pm »
hola a todos, ya resolví ese tema, pero como recien estoy aprendiendo a programar vb.NET

Aca dejo por si le sirve a alguien.

Código: [Seleccionar]
   Dim Sql As String = "Select  max(CODIGO) +1 from REPUESTOS"
        Dim cmd As New OdbcCommand(Sql, Base)
        Dim codigo = cmd.ExecuteScalar
        If IsDBNull(codigo) Then
            Me.TeCodi.Text = "100"
        Else
            Me.TeCodi.Text = CStr(codigo)
        End If
Saludos a todos

11
Visual Basic .NET / C# / Re:contador en vb.NET
« en: Octubre 13, 2016, 04:22:14 pm »
hola ,   no me funciono el código, lo q intento hacer, que el usuario tenga que escribir todos los demas registros, pero no el CODIGO, pero que siempre en la Base de Datos se guarde..

como seria el codigo, para que el primer Repuestos de  Automóvil  que entre el Codigo se "CODIGO-100" y luego se guarde y cuando ingrese otro sea este "CODIGO-101" y asi

si quieres te doy un ejemplo con un programa pequeño en vb 6.0 , de lo que yo necesito en .NET

Gracias por tú ayuda

12
Visual Basic .NET / C# / contador en vb.NET
« en: Octubre 13, 2016, 12:51:32 am »
Hola a todos, no sé  como hacer un Contador   y que Chequee el código de la base de datos según la tabla,  en .NET, base de datos de Firebird, ya hice las conexiones en Odbc, pero como recien estoy aprendiendo a programar vb.NET, tengo conocimientos en VB 6.0

Aquí dejo código conexiones

Código: [Seleccionar]
mports System.Data.Odbc

Public Base As New OdbcConnection("DSN=REPUESTOS; Uid=SYSDBA; Pwd=masterkey")
    Public Sub conectar()
        Try
            Base.Open()
        Catch ex As Exception
            MsgBox("No se establecio la conexión con la Base de Datos", MsgBoxStyle.Question, "Repuestos")
            End
        End Try
    End Sub

Aquí dejo código de contador en .NET

Código: [Seleccionar]
  Private Sub BuNuevo_Click(sender As Object, e As EventArgs) Handles BuNuevo.Click
        Dim dT As New DataTable
        Dim s As String = ""
        Dim Sql As String = "Select count(CODIGO) from REPUESTOS"
        Dim Da As New OdbcDataAdapter(Sql, Base)
        Da.Fill(Dt)
        If dT.Rows.Count < 0 Then
            Me.TeCodi.Text = "1"
        Else
            Me.TeCodi.Text = dT.Rows.Count + 1
        End If
    End Sub

Los antes utilizaba de contador en vb6

Código: [Seleccionar]
  With Rs1
    If .State = 1 Then .Close
       .Open "select CODIGO from VENDEDOR", Base, 1, 1
  End With

 If Rs1.BOF Or Rs1.EOF Then
   Me.TexCodi = "100"
 Else
  Rs1.MoveLast
  Me.TexCodi = Rs1(0) + 1
 End If

Ojala que me hayan entendido............  Gracias de antemano


13
Visual Basic 6 / Re:Primer Caracter En Mayuscula De Un String
« en: Julio 18, 2016, 01:32:10 am »
hola AxioUK... muchas gracias por enviarme el código, me funciono muy bien

14
Visual Basic 6 / Re:Primer Caracter En Mayuscula De Un String
« en: Julio 13, 2016, 01:55:00 am »
gracias AxioUK
Si me funcionó el código.. pero yo quiero usa evento Change

15
Visual Basic 6 / Re:Primer Caracter En Mayuscula De Un String
« en: Julio 13, 2016, 12:57:21 am »
No me funcionó el codigo

Páginas: [1] 2