• Sábado 24 de Febrero de 2024, 11:22

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

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Visual Basic 6.0 Y Crystal Report Xi
« en: Sábado 19 de Agosto de 2006, 01:07 »
Hola , mi consulta es si se puede trabajar VB6.0 con Cristal report XI , recienestoy usandop el CR XI, no se como enlasarlos, alguien me puede decir como  , o es que CR XI es solo para .NET

2
Visual Basic 6.0 e inferiores / Imagenes En Sql2000
« en: Miércoles 28 de Diciembre de 2005, 01:53 »
Hola; tengo una duda haber si me ayudan
quiero gurdar imagenes (fotos) en una tabla de mi base de datos (sql2000server); me podrian decir como lo hago, el tipo de dato que le di fue "image".

Otra cosa como lo recupero las imagenes desde el visual basic; com el objeto "Picture" o con el "Image", y si no fuera mucha molestia un ejemplito con codigo pe'.

gracias de antemano; bye

3
Visual Basic 6.0 e inferiores / Crear Archivos De Ayuda (*.hlp)
« en: Viernes 28 de Octubre de 2005, 23:59 »
hola gentita, bueno termine mi sitema, todo bacan, pero; me pidieron que tengo ayuda, yo lo hice en un archivo de word (bien bacan), pero me lo rechazaron por que el usuario quiere una ayuda igualita a una que vio  :( ; bueno la vi y era que estaba hecho con  el "help workshop"; pucha y eso es tedio crear, aca biene la pregunta (mas bien una imploracion a una alma gentil) .
ME PODRIA DECIR SI EXISTE ALGUN SOFTWARE QUE  GENERE ARCHIVOS DE AYUDA (*.hlp) MAS FACILMENTE Y NO TAN TEDIOSO COMO CON EL help work shop?; les agradeceria mucho  :smartass: bye bye

4
Visual Basic 6.0 e inferiores / Re: Cuantas Tablas Tiene La Base De Datos?
« en: Martes 18 de Octubre de 2005, 22:54 »
gracias Widark, me salvaste de una, funciona el primer codigo, el segundo nu lo probe, te pasaste won  :smartass:

5
Visual Basic 6.0 e inferiores / Cuantas Tablas Tiene La Base De Datos?
« en: Sábado 15 de Octubre de 2005, 00:35 »
hola, estoy desarrolando un programita, donde tengo un combo y quiero que en ese combo aparescan los nombres de las tablas de mi base de datos.
mi base de datos esta en access, y las tablas se van generando con otros procesos del programita. alguien me puede ayudar?, y si saben como se hace esto, me lo podrian decir como se hace en sql server 2000

6
Visual Basic 6.0 e inferiores / Error Al Instalar Mi Sistema
« en: Viernes 30 de Septiembre de 2005, 01:24 »
hola, termine mi sistema (cliente - servidor) y cree su installador con el Inno Setup, utilizo como base de datos SQL 2000 SERVER, y tambien utilizo el componente  DTSPackage para la importacion y exportracion de datos de archivos *.dbf, *.mdb (la base de datos se encuentra en un servidor), en el instalador copie las librerias  del DTSPackage el cual es "dtspkg.dll", y me pide tambien este "dtspkg.RLL",

todo funciona bien cuando esta instalado el sql2000 en las maquinas.
el problema es al momento de instalar el programa en las maquinas de los usuarios que no tienen instalado el sql 2000 , el error que me sale es el siguiente:

Error al iniciar la aplicacion por que no se encontro SQLRESLD.dll. La reinstalacion puede solucionar el problema.

esto quiere decir que tengo que instalar el sql 200 en todas las maquinas, donde voy a instalar mi programa?, si existe otra solucion , les agradeseria que me lo digan.

gracias

7
Visual Basic 6.0 e inferiores / Al Exportar Datos A Excel Faltan Hojas
« en: Miércoles 14 de Septiembre de 2005, 01:35 »
hola amigos, tengo un problema, estoy realisando un sistema donde exportando datos a hojas de excel, el problema es que tengo muchos datos (unos 500 mil registros de una sola tabla, y son 4, saquen su pluma :D ),y claro pues la hojas de excel solo tienen 65536 filas, asi que quiero saber como hago para pasar los datos a otras hojas.  gracias

ahhhh, otro problemita es, que este proceso demora demasiado (alrrededor de 30 minutos hasta + ). no se si habra otra manera de hacer este proceso, mi sistema tiene dos opciones, una es guardar y la otra es ver  la hoja de excel

el codigo: :)

Sub excel_CN(ByVal SQL As String, Titulo As String)
Screen.MousePointer = vbHourglass
Dim objExcel As New Excel.Application
Dim Lib As New Excel.Workbook
Dim Hoja As New Excel.Worksheet

Dim sw As Long, xx As Long, n As Long, i As Long
Dim rsTemp As ADODB.Recordset
Set rsTemp = New ADODB.Recordset
rsTemp.Open SQL, oCnn, adOpenStatic, adLockReadOnly

sw = rsTemp.RecordCount 'total de registros
xx = rsTemp.Fields.Count 'total de columnas

'Set objExcel = CreateObject("Excel.Application")
Set Lib = objExcel.Workbooks.Add
Set Hoja = Lib.Worksheets(1)
objExcel.Visible = True

Hoja.Cells(1, 1) = Titulo

'Formato de las celdas de los titulos
With Hoja
    .Range("A1").Font.ColorIndex = 1
    .Range("A1").Font.Size = 15
    .Range(.Cells(1, 1), .Cells(1, xx)).HorizontalAlignment = xlHAlignCenterAcrossSelection
    .Range(.Cells(3, 1), .Cells(3, xx)).Borders.LineStyle = xlContinuous
    .Range(.Cells(3, 1), .Cells(3, xx)).Font.Bold = True
    .Range(.Cells(3, 1), .Cells(3, xx)).Font.Italic = True
    .Range(.Cells(3, 1), .Cells(3, xx)).Font.Color = vbWhite
    .Range(.Cells(3, 1), .Cells(3, xx)).Interior.ColorIndex = 1
    .Range(.Cells(3, 1), .Cells(3, xx)).Interior.Pattern = xlSolid
End With

'llenar celdas titulos
For n = 0 To xx - 1
    Hoja.Cells(3, n + 1) = rsTemp.Fields(n).Name
    Hoja.Cells(3, n + 1).Font.Size = 10.5
Next

'llenar celdas
For i = 0 To sw - 1
    For n = 0 To xx - 1
        Hoja.Cells(i + 4, n + 1) = Trim(rsTemp.Fields(n))
        If rsTemp.Fields(n).Name = "ano_prese" Or rsTemp.Fields(n).Name = "ANO_PRESE" Or rsTemp.Fields(n).Name = "mes" Or rsTemp.Fields(n).Name = "MES" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "00"
        End If
        If rsTemp.Fields(n).Name = "nume_corre" Or rsTemp.Fields(n).Name = "NDCL" Or rsTemp.Fields(n).Name = "NDCLREG" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "000000"
        End If
        If rsTemp.Fields(n).Name = "sector" Or rsTemp.Fields(n).Name = "SECTOR" Or rsTemp.Fields(n).Name = "CADU" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "000"
        End If
        If rsTemp.Fields(n).Name = "CAGE" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "0000"
        End If
     
    Next

    With Hoja
        .Range(.Cells(i + 4, 1), .Cells(i + 4, xx)).Borders.LineStyle = xlContinuous
    End With

    rsTemp.MoveNext
Next
Hoja.Columns.AutoFit

If SaveExcel = True Then
    objExcel.ActiveWorkbook.SaveAs FileName:=Formulario.CDialog.FileName, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    SaveExcel = False
    Lib.Saved = True
    Lib.Close
    objExcel.Quit
    MsgBox "Hoja de calculo guardada en: " & vbCrLf _
            & Formulario.CDialog.FileName, vbInformation, "SISTEMA"
Else
'    objExcel.Visible = True

End If
rsTemp.Close
Set rsTemp = Nothing
Set objExcel = Nothing
Screen.MousePointer = vbDefault
End Sub

estos procesos demoran demasiado, si alguien sabe alguna manera de hacer estos procesos mas rapidos por favor respondan , gracias de antemano
bye

8
Visual Basic 6.0 e inferiores / Re: Dos Procesos A La Vez
« en: Miércoles 24 de Agosto de 2005, 00:46 »
gracias, pero ahora no se si podrias decirme donde consiguo gif, por que necesitouno como... no se si as exportado o importado tablas en el sql 2000 server, al final hay una animacion y yo necesito una parecia o mejor esa animacion; gracias de antemano

pd. ya me pase varias horas buscando en internet,i no encuetro

el gif es igual al crear paquetes DTS

9
Visual Basic 6.0 e inferiores / Re: Dos Procesos A La Vez
« en: Martes 23 de Agosto de 2005, 22:55 »
oe tio, pon como te salio pues, por que yo tengo un problema parecido,
gracias man

10
Visual Basic 6.0 e inferiores / Animacion
« en: Jueves 18 de Agosto de 2005, 02:48 »
hola gente, bueno no se si colocor este mensaje aca ,pero...., estoy aciendo un sistema donde trabajo con DTS, pero la transformacion demora, asi que pense en colocar una una animacion en el form pero no encuentro una animacion parecida o igual al de SQL 2000 (cuando se importa o exporta datos), alguien me podria decir donde conseguir alguna animacion parecida, o si la tienen pasenla pues, muchas gracias colegas

11
Visual Basic 6.0 e inferiores / Re: Crear Instalador
« en: Miércoles 13 de Julio de 2005, 21:28 »
Hola Soy nuevo utilizando el inno setup, asi que necesito una ayudita.
ok miren necestito que mi instalador cree carpetas(o directorios), en el lugar donde se encuentra el ejecutable. por ejemplo:
estas son las rutas:
c:\archivo de programas\MyPrograma\myprograma.exe
c:\archivo de programas\MyPrograma\BD               <----necesito que se cree esta carpeta por que aca los usarios guardaran la base de datos----->

asi como ocure al momento de instalar el visual basic sse crean varias carpetas..
me pueden ayudar., gracias por las respuestas

12
Visual Basic 6.0 e inferiores / Re: Multithreading Y Threads
« en: Miércoles 13 de Julio de 2005, 21:19 »
A gracias, me lo puedes enviar a :
comunapract@yahoo.es

gracias

13
Visual Basic 6.0 e inferiores / Multithreading Y Threads
« en: Miércoles 13 de Julio de 2005, 00:15 »
quiero saber doonde puedo encontrar informacion sobre Multithreading y threads,
o si me pueden enviar algun codigo que explique el funcionamiento, gracias

14
Visual Basic 6.0 e inferiores / Multithreading Y Threads
« en: Miércoles 13 de Julio de 2005, 00:13 »
quiero saber doonde puedo encontrar informacion sobre Multithreading y threads,
o si me pueden enviar algun codigo que explique el funcionamiento, gracias

15
Visual Basic 6.0 e inferiores / Busqueda En Recordset
« en: Viernes 8 de Julio de 2005, 21:35 »
Hola, tengo un problema :

1        rsN287.Requery
2        xR = rsN287.RecordCount
3        Dim BUSCAR As String
4        BUSCAR = Trim(txtDatos(0).Text) & Trim(txtDatos(2).Text)
5        rsN287.Find "NANDIN='" & BUSCAR & "'"
6        xI = rsN287.Bookmark

MIREN NANDIN es una columna creada en la sentencia:
"select *, NAN + DIN AS NANDIN from TABLA"
las columnas NAN y DIN son de tipo float
el error me sale en la fila 6, por que no encontro ningun registro en la busqueda, pero cuando a las columanas las cambio a tipo char no me sale ningun error, me podria decir como hacer para transformar esos valores(osea a float) o aotra solucion.

ah y tambien no se si sera posible hacer la busque asiendo referencia a 2 columnas ej:

rs.find "nan + din ='"& Trim(txtDatos(0).Text) & Trim(txtDatos(2).Text) &"'"

claro que ahi sale error, pero algo asi, si se puede hacer referencia a dos columnas en el "criterio", gracias por las respuestas

Páginas: [1]