• Viernes 3 de Febrero de 2023, 21:59

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.


Temas - willysistemas

Páginas: [1] 2
1
Visual Basic 6.0 e inferiores / Alguien me da una idea de como hacer esto........?
« en: Martes 16 de Noviembre de 2010, 00:22 »
Hola quisiera saber si qlguien me explica como hacer algo como se muestra la imagen que adjunto[attachment=1:1xquhdti]Admin BD1.jpg[/attachment:1xquhdti][attachment=0:1xquhdti]Admin BD2.jpg[/attachment:1xquhdti]
la idea es implementarlo en visual basic 6. agradezco la ayuda que me puedan brindar

2
hola, quisiera que alguine me oriente para lo siguiente:
estoy desarrollando una pequeña aplicaicon de gestion escolar para llevar el proceso de matriculas de los estudiantes, la idea es que cada año se crea una nueva base de datos que lleva como nombre el año vigente, esto permite manipular la informacion de cada año porque el sistema me da la posibilidad de escoger el año en el cual deseo trabajar. pero la idea es hacer esto en un servidor sql server express y que al iniciar el sistema en un formulario se muestran las bases de datos disponibles y poder escoger con un clic con cual trabajar.

espero haberme hecho entender y que alguin me d euna orientacion de como o por donde empezar

3
Visual Basic 6.0 e inferiores / MESES TRANSCURRIDOS EN UN INTERVALO DE FECHAS
« en: Lunes 18 de Octubre de 2010, 23:17 »
hola a todos desde ya gracias por sus aportes, bueno estoy creando esta rutina para actualizar un campo mesesvencidos con el numero de meses que han pasado de acuerdo al intervalo de fechas, realizo la consulta de actualizacion en acces y todo normal funcioan amuy bien pero cuando le hago copy al codigo sql para pegarlo en visual basic no me da ya he intentado de muchas maneras y no he podido por eso acude a este foro para que alguien me explique donde puede estar el error.

Código: Visual Basic
  1. rsmeses.open "UPDATE tblContratos SET tblContratos.mesesvencidos = DateDiff("M", cdate(fechacontrato), cdate(fechavenc)) WHERE tblContratos.idcontrato<>'0'",cn,adOpenDynamic,adLockOptimistic[code=vb]
[/code]

el erro que aparece es se esperaba fin de la instruccion y me marca el error en el parametro "M"

gracias de nuevo por a ayuda que me puedan brindar

4
Visual Basic 6.0 e inferiores / Problemas al Conectar Access con ODBC en red local
« en: Domingo 29 de Agosto de 2010, 00:37 »
Hola, tengo el siguiente problema tengo una pequeña red con dos PC uno de ellos con Windows 7 (PC1) y el otro con Windows XP (PC2), instale un pequeña aplicacion desarrollada en visual basic 6 que se conecta a la base de datos localizada en un carpera compartida del PC1, luego en el PC2, tambien configure el DSN y la ruta es la carpeta compartida del PC1  hasta alli todo normal cuando intento acceder desde EL PC2 para guardar algun registro me arroja el siguiente error: Error -2147467259 (80004005) en tiempo de ejecucion Controlador ODBC mIcrosoft Access no es una contraseña valida
pero cuando accedo desde el PC1 todo funciona normal, no se a que se deba el error de contraseña si al crear el DSN en ambas PC le pongo la contraseña. si alguien puede ayudarme a solucionar este problema lo agradeceria.

5
Visual Basic 6.0 e inferiores / Codigo Para Abrir Caja Registradora
« en: Viernes 20 de Agosto de 2010, 13:41 »
Hola,  alguien podria colaborarme con un codigo para abrir una caja registradora al momento de imprimir una factura???????

6
Visual Basic 6.0 e inferiores / ¿como puedo hacer esto????
« en: Martes 23 de Febrero de 2010, 02:07 »
Hola estoy tratando de implementar un sistema de matricula de estudiantes de un colegio, la idea es que la matricula se haga cada año pero me surge la duda como hacer para selecinar el año de trabajo y que el sistema me cargue unicamente los registross correspondientes a ese año para poder tranajar con ellos. he diseñado un form como el de la imagen[attachment=0:1vosj1u4]Sin título-1.jpg[/attachment:1vosj1u4] no se como seria el codigo si alguien me da una idea lo agradeceria mucho

7
PHP / consulta de registros en php y mysql
« en: Sábado 13 de Febrero de 2010, 02:45 »
Hola quisiera que me ayuden a despejar una duda quiero implementar un sistema de busque en una tabla que contiene nombres de alumnos y una foto, la idea es hacer una busqueda que a medida que escriba en la caja de texto me vaya filtrando y mostrando las coincidencias es decir los nombres encontrados en unalista junto con su foto algo parecido a lo que se hace en facebook

8
VB .NET / Generar consecutivo automatico
« en: Sábado 11 de Abril de 2009, 05:35 »
estoy desarrolando un proyecto en el cual debo generar un numero de factura consecutivo de manera automatica en visual basic 6 lo hacia asi:

Private Function GenerarNumero() As String
Dim rsTemp As New ADODB.Recordset
rsTemp.Open("Select max(right(NroFactura,9)) from [tblFacturas]", conexion)
GenerarNumero = "N-" & Format(Val("" & rsTemp(0)) + 1, "000000000")
End Function


quisiera saber como quedaria este codigo  en version 2005 o 2008 he intentado y no he podido, agradezco la colaboracion que me puedan dar

9
VB .NET / La conversión del tipo 'DataRowView' en el tipo 'String' no
« en: Lunes 6 de Abril de 2009, 02:35 »
hola estoy intentando guardar el codigo del departamento que cargo en un combobox y al guardar me da el siguiente error: La conversión del tipo 'DataRowView' en el tipo 'String' no es valida

el combo de departamentos lo cargo asi

 Private Sub ListaDeptos()
        Dim deptos As New ClsDepartamentos
        With Me.ComboDeptos
            .DisplayMember = "nombredepto"
            .ValueMember = "codigo"
            .DataSource = deptos.cargaDeptos(conexion).Tables("tblDeptos").DefaultView
            .SelectedIndex = -1
        End With
    End Sub

y asi guardo los datos del municipio incluyendo el codigo del departamento al cual pertenece

Sub IncluirMupio()
        If Not ValidaDatos() Then
            Exit Sub
        End If
        Try
            Dim objIncluir As New ClsMunicipios
            Dim codigo As String = Me.txtCodigo.Text.Trim
            Dim municipio As String = Me.txtNombre.Text.Trim.ToUpper
            Dim cdepto As String = (Me.ComboDeptos.SelectedValue) 'AQUI ESTA EL PROBLEMA
            objIncluir.IncluirMupio(codigo, municipio, cdepto, conexion)
            btnGuardar.Enabled = False
            btnNuevo.Enabled = True
            MessageBox.Show("Municipio Incluido", "Municipios", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch err As Exception
            MessageBox.Show(err.Message)
        End Try
    End Sub

espero que alguien me ayude a solucionar esta dificultad y desde ya agradezco

10
VB .NET / XADES en .NET o C#... (Firma digital)
« en: Domingo 22 de Marzo de 2009, 06:15 »
hola he desarrollado un software de gestion documental y ahora se me ha ocurrido implementar firma digital para firmas los documentos quisiera saber si alguien me d auna idea de como se implemente en .net como seria el proceso o que debo hacer ya que he leiodo pero no se por donde empezar


agradezco  la ayuda

11
Visual Basic 6.0 e inferiores / Implementar firma digital en un documento
« en: Martes 17 de Marzo de 2009, 03:40 »
Hola alguien podria hacer el favor de explicarme como implemento una firma digita en visual basic a un documento, tambien me podrian explicar como funcionan las claves publiccas y privadas?

desde ya muchas gracias

12
Redes y Comunicaciones / Base de datos en red en tiempo real
« en: Miércoles 10 de Diciembre de 2008, 23:46 »
Hola todos les cuento que estoy desarrollando un software de ventas para una pequeña empresa que tiene 3 sucursales lo que me han poedido es que cada que se haga una transaccion se refleje en las demas sucursales es decir que la informacion este actualizada no tengo idea de como hacerlo alguien podria darme una idea estoy utilizando visual basic 6 y lase de datos access

13
Crystal Reports / Crystal Report XI y visual basic 6
« en: Lunes 1 de Diciembre de 2008, 02:33 »
hola alguien podria orientarme un poco?  necesito ejecutar un reporte hecho en crystal 11 y no he podido en la version 8 utilizo este codigo y me funciona:

Private Sub mnuduplicado_Click()
Dim condi As String
condi = InputBox("Ingrese el Numero de Factura", "Duplicado de Factura")
If condi <> "" Then
            Dim rsf As New ADODB.Recordset
            rsf.Open "select * from consultafactura where FacturaNro = '" & condi & "'", CN
            If rsf.EOF = False Then
                Cr.Connect = ";PWD=xxxxx"
                Cr.ReportFileName = App.Path & "ReportsReportFactura_3.rpt"
                Cr.SelectionFormula = "{ConsultaFactura.FacturaNro} =  '" & condi & "'"
                Cr.DataFiles(0) = App.Path & "Db.MDB"
                Cr.Destination = crptToWindow
                Cr.WindowState = crptMaximized
                Cr.Action = 1
            Else
               MsgBox "El numero de Factura [ " & (condi) & " ] no existe" & " " & " o aún no tiene datos" & vbCrLf & "                 por favor ingrese otro número", vbInformation
            End If
         Else
        MsgBox "Debe Ingresar Nro. de Factura"
End If

End Sub

14
Crystal Reports / Reporte de Crystal Repor XI y Visual Basic 6
« en: Lunes 1 de Diciembre de 2008, 02:26 »
hola alguien podria orientarme un poco?  necesito ejecutar un reporte hecho en crystal 11 y no he podido en la version 8 utilizo este codigo y me funciona:

Private Sub mnuduplicado_Click()
Dim condi As String
condi = InputBox("Ingrese el Numero de Factura", "Duplicado de Factura")
If condi <> "" Then
            Dim rsf As New ADODB.Recordset
            rsf.Open "select * from consultafactura where FacturaNro = '" & condi & "'", CN
            If rsf.EOF = False Then
                Cr.Connect = ";PWD=xxxxx"
                Cr.ReportFileName = App.Path & "ReportsReportFactura_3.rpt"
                Cr.SelectionFormula = "{ConsultaFactura.FacturaNro} =  '" & condi & "'"
                Cr.DataFiles(0) = App.Path & "Db.MDB"
                Cr.Destination = crptToWindow
                Cr.WindowState = crptMaximized
                Cr.Action = 1
            Else
               MsgBox "El numero de Factura [ " & (condi) & " ] no existe" & " " & " o aún no tiene datos" & vbCrLf & "                 por favor ingrese otro número", vbInformation
            End If
         Else
        MsgBox "Debe Ingresar Nro. de Factura"
End If

End Sub

15
Visual Basic 6.0 e inferiores / Traducir mensaje
« en: Lunes 3 de Noviembre de 2008, 18:18 »
Hola todos podrian hacer el favor de ayudarme a atraduccir el siguiente mensaje o almenos decirme en que idiona esta, hace parte de un formulario que un amigo me envio y no se que traduce
gracias

Shkruani Përshkrimin e artikullit dhe klikoni ENTER. Klikoni ESC per ta anuluar.

16
Visual Basic 6.0 e inferiores / Error 13 - No Coindciden Los Tipos
« en: Miércoles 9 de Abril de 2008, 21:31 »
Hola lo he solucionado

17
Visual Basic 6.0 e inferiores / Importar Archivo .sql A Mi Base De Datos
« en: Viernes 21 de Marzo de 2008, 14:34 »
Hola a todos

como hago para importar un archivo .sql a mi base de datos tengo instalado el MSDE 2000, espero que alguien me colabore desde ya muchas gracias

18
Bases de Datos / Importar Archivo .sql A Mi Base De Datos
« en: Viernes 21 de Marzo de 2008, 14:28 »
Hola tengo un problema con un archivo sql donde tengo mis tablas la quiero importar a la base de datos sql server(MSDE 2000) lo he intentado de diferentes formas y no he podido si alguien me puede explicar como hacerlo le agradezco y muchas gracias.

19
Visual Basic 6.0 e inferiores / Cargar Municipios En Un Combo
« en: Jueves 20 de Marzo de 2008, 04:19 »
hola tengo un problema que no le encuentro desde hace una semana por favor ayudameee, es que estoy manejando dos combo y en uno manejo los estados en una tabla y en el otro manejo los municipios en otras tablas, el problema es que no me jala los municipios el segundo combo de acuerdo a lo que tiene el primer combo.
por favoooor espero tu respuesta gracias
willysistemas@yahoo.es

20
Hola requiero ayuda urgente con este codigo:

lo que requiero es que cada que importe el archivo me verifique y actulice si el registro ya existe o que lo inserte si aun no existe

este es el codigo del formulario

Dim rec As New ADODB.Recordset

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function

Private Sub Importar_Click()
On Error GoTo archivo
Dim Lineas As Variant, i As Integer, j As Integer, k As Integer
Dim Columnas() As String
Dim Camino As String

CommonDialog1.DialogTitle = "Abrir archivo de texto"
CommonDialog1.Filter = "Texto (*.txt)|*.txt"
CommonDialog1.ShowOpen

Dim rutas As String
rutas = CommonDialog1.FileName

Camino = App.Path & "\rutas"

Lineas = Split(FileToString(rutas), vbCrLf)
For i = Val(LBound(Lineas)) To UBound(Lineas)
Columnas = Split(Lineas(i), " ")
rec.Open "Select * from Socios", bd, adOpenKeyset, adLockOptimistic
With rec
If UBound(Columnas) = 4 Then
.AddNew
!Nombre = Columnas(0)
!Apellido = Columnas(1)
!Direccion = Columnas(2)
!Telefono = Columnas(3)
.Update
.Close
End If
End With
Next i
MsgBox "Los Datos se importaron con exito!!!!", vbInformation, "De .txt a .mdb"
Exit Sub

archivo:
MsgBox "Se produjo un error", vbExclamation, "Error."
End
End Sub

Private Sub CmbSalir_Click()
End
End Sub

en un modulo abro la base de datos asi:

Public bd As New ADODB.Connection
Sub Main()
bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base.mdb;Persist Security Info=False"
Form1.Show 1
End Sub


anexo la base de datos que utilizo y un archivo de texto de prueba

21
Visual Basic 6.0 e inferiores / Importar Archivo De Texto A Base De Datos Access
« en: Domingo 16 de Marzo de 2008, 17:39 »
Hola requiero ayuda urgente con este codigo:

necesito importar un archivo de texto a una tabla de la base de datos cuando accedo al archio de forma directa Camino = App.Path & "\Ejemplo.txt" me importa los datos pero al intentar hacerlo con un dialogo dice que los datos se importanron revizo la tabla y esta vacia no se que pasa espero que alguien me ayude

este es el codigo del formulario

Dim rec As New ADODB.Recordset

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
    hlngFile = FreeFile
    Open FileName For Binary Access Read As hlngFile
        FileToString = vbNullString
        strFile = String(FileLen(FileName), " ")
        Get hlngFile, , strFile
    Close hlngFile
    FileToString = strFile
End Function

Private Sub Importar_Click()
On Error GoTo archivo
Dim Lineas As Variant, i As Integer, j As Integer, k As Integer
Dim Columnas() As String
Dim Camino As String

CommonDialog1.DialogTitle = "Abrir archivo de texto"
CommonDialog1.Filter = "Texto (*.txt)|*.txt"
CommonDialog1.ShowOpen

Dim rutas As String
rutas = CommonDialog1.FileName
       
    Camino = App.Path & "\rutas"
   
    Lineas = Split(FileToString(Camino), vbCrLf)
    For i = Val(LBound(Lineas)) To UBound(Lineas)
        Columnas = Split(Lineas(i), " ")
            rec.Open "Select * from Socios", bd, adOpenKeyset, adLockOptimistic
            With rec
                If UBound(Columnas) = 4 Then
                    .AddNew
                    !Nombre = Columnas(0)
                    !Apellido = Columnas(1)
                    !Direccion = Columnas(2)
                    !Telefono = Columnas(3)
                    .Update
                    .Close
                End If
            End With
    Next i
    MsgBox "Los Datos se importaron con exito!!!!", vbInformation, "De .txt a .mdb"
    Exit Sub

archivo:
    MsgBox "Se produjo un error", vbExclamation, "Error."
    End
End Sub

Private Sub CmbSalir_Click()
    End
End Sub

en un modulo abro la base de datos asi:

Public bd As New ADODB.Connection
Sub Main()
    bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base.mdb;Persist Security Info=False"
    Form1.Show 1
End Sub


anexo la base de datos que utilizo y un archivo de texto de prueba

22
Visual Basic 6.0 e inferiores / Guardar Y Leer Password Encripatdo En Access
« en: Sábado 15 de Marzo de 2008, 19:57 »
Hola todos

alguien me podria ayudar con un codigo que me permita guardar una calave de usuario encriptada y poder acceder a traves de un formulario

23
Visual Basic 6.0 e inferiores / Error En Conexion Mysql
« en: Domingo 9 de Marzo de 2008, 13:34 »
Hola todos estoy haciendo una pequeña aplicacion en visual basic 6 y trato de establecer una conexion a mysql les pego a continuacion el codigo que utilizo

este codigo lo tengo en un modulo

Public Function ConectarMysql(ByVal IniServidor As String, ByVal IniUsuario As String, ByVal IniPasword As String, ByVal IniBaseDatos As String) As String


Dim consql As String

With ConectarMysql
    Set ConectarMysql = New ADODB.Connection
    ConectarMysql.CursorLocation = adUseClient
    consql = "Driver={MySQL ODBC 3.51 Driver};server=" & IniServidor & ";uid=" & IniUsuario & ";pwd=" & IniPasword & ";database=" & IniBaseDatos & ";connection="
    ConectarMysql.ConnectionString = consql
    ConectarMysql.CommandTimeout = 40
    ConectarMysql.Open
End With

End Function


en el formulario llamo de la siguiente forma la funcion



Private Sub Command3_Click()
Call ConectarMysql("localhost", "root", "", "prueba")
MsgBox "conectado a la base de datos"
End Sub


al ejecutar me da el siguiente error:
el objeto with debe ser de un tipo definido por el usuario, object o variant

espero me digan donde esta el error

gracias de antemano

24
Visual Basic 6.0 e inferiores / Acceder A Mysql Desde Visual Basic
« en: Sábado 8 de Marzo de 2008, 23:42 »
Hola quiero saber como se hace la conexion a una base de datos de mysql desde visual basic con ado

25
Visual Basic 6.0 e inferiores / Enviar Base De Datos Via Ftp
« en: Sábado 1 de Marzo de 2008, 04:42 »
hola alguien me puede hacer el favor de pasarme un codigo o explicarme como me conecto a un servidor ftp para enviar un backup de la base de datos

Páginas: [1] 2