• Martes 14 de Mayo de 2024, 03:29

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

Páginas: 1 ... 4 5 [6] 7 8 9
126
Crystal Reports / Re: Duda Crystal Reports 10
« en: Martes 14 de Septiembre de 2004, 22:07 »
Olger, te agregé al MSN hace ya tiempo. De todas formas, te dejo mi mail para que me mandes un email si quieres.

Saludos.

Email: erikapg@kidetza.com

127
Visual Basic 6.0 e inferiores / Re: Combo
« en: Martes 14 de Septiembre de 2004, 22:03 »
Código: Text
  1. Private Sub Form_Load()
  2. Combopersonal.Clear
  3. Combopersonal.AddItem "marilu"
  4. Combopersonal.AddItem "maria"
  5. Combopersonal.AddItem "migdalia"
  6. Combopersonal.AddItem "marquela"
  7. End Sub
  8.  

Saludos.

128
SQL Server / Re: Meter Imagenes En Sql Server
« en: Sábado 11 de Septiembre de 2004, 11:45 »
Bueno, me autorespondo a mi misma por si alguien tiene el mismo problema que yo.

He insertado imágenes en SQL Server por medio de un programa haciendo esto:

Para guardar la imagen
Código: Text
  1.     Dim rs As ADODB.Recordset
  2.     Dim mstream As ADODB.Stream
  3.     Set mstream = New ADODB.Stream
  4.     Set rs = New ADODB.Recordset
  5.  
  6.     rs.CursorType = adOpenDynamic
  7.     rs.LockType = adLockOptimistic
  8.  
  9.     rs.Open "SELECT * FROM Tabla WHERE Codigo=2", cn, adOpenKeyset, , adCmdText
  10.  
  11.     mstream.Type = adTypeBinary
  12.     mstream.Open
  13.     mstream.LoadFromFile "RutaDelArchivo"
  14.     rs.Fields("logo").Value = mstream.Read
  15.     rs.Update
  16.     rs.Close
  17.     mstream.Close
  18.  
  19.     Set rs = Nothing
  20.     Set mstream = Nothing
  21.  

Para coger la imagen y guardarla en el disco duro:
Código: Text
  1.     Dim rs As ADODB.Recordset
  2.     Dim mstream As ADODB.Stream
  3.     Set rs = New ADODB.Recordset
  4.     Set mstream = New ADODB.Stream
  5.  
  6.     rs.Open "Select * from Tabla Where Codigo = 2", cn, adOpenKeyset, adLockOptimistic
  7.  
  8.     mstream.Type = adTypeBinary
  9.     mstream.Open
  10.     mstream.Write rs.Fields("logo").Value
  11.     mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite
  12.  
  13.     rs.Close
  14.     Set mstream = Nothing
  15.     Set rs = Nothing
  16.  

(Esto lo he hecho con Visual Basic)

También, hay una función en SQL Server en el directorio BINN que se llama textcopy que sirve para lo mismo solo que lo haces desde el analizador de consultas. Os dejo un link por si lo quereis revisar.  
Meter imágenes con el programa textcopy de SQL Server

Bueno, de todas formas muchas gracias.

Saludos.

129
Visual Basic 6.0 e inferiores / Re: Crystal Report
« en: Jueves 9 de Septiembre de 2004, 08:49 »
Buenas, en este mismo foro publiqué unos manuales de Crystal Reports 10.

Manuales Crystal Reports 10

Saludos.

130
SQL Server / Meter Imagenes En Sql Server
« en: Martes 7 de Septiembre de 2004, 16:31 »
Buenas, tengo una tabla que tengo un campo de tipo Image. ¿Cómo meto una imagen a ese campo?

Muchas gracias.

131
Crystal Reports / Re: Duda Crystal Reports 10
« en: Lunes 6 de Septiembre de 2004, 16:10 »
Te mandé un correo desde SoloCodigo indicándote mi MSN.

Muchísimas gracias.

132
Crystal Reports / Re: Duda Crystal Reports 10
« en: Lunes 6 de Septiembre de 2004, 16:01 »
Hola seek20, gracias por contestar. He probado de 1000 formas pero no consigo conectar a mis ficheros .rpt la conexion de SQL Server. Utilizo un CRViewer para ver mi report... ¿cómo le puedo pasar el string de conexión??

Gracias.

133
Crystal Reports / Duda Crystal Reports 10
« en: Sábado 4 de Septiembre de 2004, 20:24 »
Buenas a todos, voy a explicar en breve mi situación para consejo o ayuda.

Tengo un programa hecho con VB6 y SQL Server. En dicho programa, tengo que hacer informes, pero el Crystal Reports 10 no me deja agregar el componente "Crystal Reports" para tener los informes hechos dentro del mismo proyecto asi que los hize fuera con ficheros .rpt y los llamo desde mi programa.

Hasta aquí está todo perfecto, pero claro, en el diseño del informe tengo hecha la conexión a SQL Server en tiempo diseño y no puedo cambiarla en tiempo de ejecución y necesito cambiarla porque es evidente que el nombre del servidor y la BBDD pueden cambiar. Entonces, una vez explicada mi situación.. vienen mis posibles soluciones...

1. Puedo desinstalar el Crystal Reports 10 e instalarme el Crystal Reports 8 ya que con éste puedo hacer los informes dentro del propio proyecto... pero claro... ¿Qué es mejor? ¿Diseñar los informes con la versión antigüa o con la nueva?

2. Puedo crearme una BBDD en Access y que sirva de intermedia. Es decir, cada vez que llame yo al informe, llenar la BBDD con los datos que necesito y que Crystal Reports utilize esa BBDD en vez de SQL Server.. pero... ¿Podría cambiar la ruta donde se encuentra la BBDD por código? Es decir, ¿me pasará lo mismo que me pasa ahora?

3. Puedo poner en tiempo de diseño que se conecte por ODBC (el informe) y yo desde el programa controlar que cada vez que se cambie el servidor SQL Server y la BBDD modificar el ODBC o si no existe crearlo con sus respectivos datos.

Bueno, espero que alguien me ayude o me diga más o menos qué es lo que haría porque no sé qué es mejor ya que es la primera vez que trabajo con Crystal Reports.

Muchas gracias.

Saludos.

134
Dudas informáticas / Re: Service Pack 2 Windows Xp
« en: Viernes 3 de Septiembre de 2004, 12:38 »
Gracias Ruben3D por contestar a mi pregunta. El SP2 de Windows XP está en:
Service Pack 2 para Windows XP

No sé, este enlace el SP2 está en español... lo único que ocupa 260MB. Pronto lo pondrán en el Windows Update una descarga más pequeña.. bueno, lo mismo que hicieron con el Service Pack 1.

Repito, muchas gracias.

Saludos.

135
Dudas informáticas / Service Pack 2 Windows Xp
« en: Viernes 3 de Septiembre de 2004, 10:24 »
Buenas a todos, hace pocos días apareció el Windows XP SP2 para descargar... pero según he leido, es incompatible con muchos programas (incluyendo programas del propio Windows). La lista que me ha llegado es esta:

PROGRAMAS INCOMPATIBLES CON SP2.

1st and 2nd Grade Excelerator Curious George Studio 1 --- Countertop Software
Action Request System x Remedy
AdShield 3 AdShield
Age of Empires II: Age of Kings --- Microsoft
Al Mawrad (Arabic) 2003 Al Ariss
AOL 9 AOL
AOL Toolkit 1.13.2 AOL
Application Center 2000 SP2 --- Microsoft
AppManager 5.01 NetIQ
ArcServe 6.61 Computer Associates
ArcServe 7.0 --- Computer Associates
AutoCAD 2004 --- Autodesk
Backup Exec 8.6.1 Veritas
Backup Exec 8.6.1 Veritas
Backup Exec 9 Veritas
Backup Exec 9.1 Veritas
Backup Exec 9.1 Veritas
Backup Exec 9.1 Veritas
Backup Exec 9.1.4691 Veritas
Becky 12.09.01
BitDefender 7.2 SOFTWIN SRL
BizTalk 2004 --- Microsoft
BootSkin x Stardock
BrightStor ArcServe Backup 9.0 --- Computer Associates
bv-Admin Mobile 7 --- Bind View
CheckSoft Home and Business 2004 Eliibrium
Chess Advantage III: Lego Chess --- Encore
Citrix ICA client 7.1 Citrix
CMS 2001 Microsoft
ColdFusion MX for J2EE 6 --- Macromedia
Combat Flight Simulator 3 1 Microsoft
Command & Conquer Generals --- EA Games
Command & Conquer Generals Zero Hour --- EA Games
Command and Conquer Red Alert 2 1 Westwood
Command and Conquer Red Alert 2 v1.0 Westwood
Command Antivirus 4.9 Authentium
Conflict: Desert Storm --- Gothamgames
Corel Draw 9 - PhotoPaint (German) 9 Corel
Cute FTP 5.0 --- GlobalScape
Dave´s Quick Search Toolbar 3.16 Dave Bau http://notesbydave.com/toolbar/doc.htm
Dead Man´s Hand 1 Atari
Der Brockhaus Multimedia (German) 2004 F.A. Brockhaus
Diet KaZaa 2.52 Diet KaZaa
Diskeeper 8 Executive Software
DivXPlayer 2.5.3 DivX
Drivers & Utilities CD --- Fujitsu-Siemmens
Earth & Beyond v. EA Games
Eclipse 3 Unknown
EDM File System Agent 3.1 --- EMC
Elite Forces Vietnam: Special Assignment 2 ver 1 ver 1 Valusoft
Encarta Enzyklopädie 2002 Microsoft
Encyclopedia Britannica 2000 Deluxe 1 Encyclopedia Britannica
End2End 4.1 --- NetIQ
ERDisk for AD 6.7.128.0 Aelita
ESET NOD32 for windows --- Nod32
eTrust 7 Computer Associates
eTrust 6.0.100 --- Computer Associates
Etrust EZArmor AE Test Computer Associates
Exceed 8 --- Hummingbird
Excel 2003 Microsoft
Extra Enterprise 2000 --- Attachmate
Extra Personal Client 6.5 --- Attachmate
Extra! Bundle for TCP/IP 6.6 --- Attachmate
File and Storage Administrator 2.1 (191067) --- NetIQ
FileMaker Pro (German) 5 FileMaker, Inc.
Freedom Force 1 Electronic Arts
Freehand 8 (German) 8 Macromedia
F-Secure 5.52 F-Secure
Ghost Corporate Edition 7.5 --- Symantec
Halo Combat Evolved (Arabic and Hebrew) Trial Microsoft
Harvard Graphics 3 Software Publishing Corp
High School Advantage 2003 --- Encore Software
Host Explorer 8 --- Hummingbird
HP Quick Launch Buttons --- HP
HP SJ 6350 --- HP
ICQ Pro 3916 ICQ
iMesh 3.1 iMesh
InoculateIT --- CA
InstallShield 8 InstallShield
Instant CD/DVD 7 Pinnacle Systems
JAWS 5.0 5 Freedom Scientific
Kazaa 2.52 Kazaa
KaZaa Media Desktop 2.6.
KEA! 340 v5.1 --- Attachmate
Kerio Personal Firewall 4 Kerio
Live Journal Semagic 1.3.9.6 Live Journal
MapPoint Europe 2004 Microsoft
MapSend Direct Route --- Magellan
Max Payne 2: The Fall of Max Payne 1 RockStar Games
McAfee Internet Security Suite 2004 6 McAfee
McAfee Parental Controls 1 McAfee
McAfee Remote Desktop 32 --- Network Associates
McAfee VirusScan 4.51 McAfee
Medieval Total War 1 Activision
Merriam Webster´s Reference Library 2003 - Journey to the Planets 2003 M-2K
Microsoft Operations Manager 2000 SP1 Microsoft
Midnight Outlaw: Illegal Street Drag 1 Valuesoft
MotoRacer 3 Atari
MpegCraft DVD x Caropus
MS License 3.7 Microsoft
MSBN --- Microsoft
MSN 7.02 Microsoft
MSN 9 QFE1 and 9.1 beta 9 Microsoft
Musicmatch Jukebox 8.20.0107 Musicmatch
NASCAR Racing 2003 Season v2003 --- Sierra
NBA Live 2000 1 Electronic Arts
Need for Speed Hot Pursuit 2 1 EA Games
Nero 6 Ultra 6 Ahead
Nero Burning ROM 5.5.6 Ahead
Netshield 4.5 --- McAfee
Norman Personal Firewall 4 Norman
Norman Personal Firewall 1.40 AETEST Norman
Norton Antivirus 2003 2003 Symantec
Norton Systemworks 2003 - GoBack Personal Edition Other MS Symantec
Norton Systemworks 2003 Professional Edition 2003 Symantec
Norton Systemworks 2004 - GoBack32 Beta Symantec
NovaNet Web 3.6 NovaStor
Office 11 Microsoft
Office - Power Point 2002 (German) 2002 Microsoft
Office Access 2002 2002 Microsoft
Office System - Power Point 2003 Microsoft
Office XP Access 10 Microsoft
Office XP Professional Excel 10.0 SP2 --- Microsoft
Office XP SP2 - PowerPoint 11 Microsoft
Office XP Standard 10 Microsoft
Outlook 2000 9 Microsoft
Outlook 2002 10 Microsoft
Outlook 2003 11 Microsoft
Outlook Web Access x Microsoft
PageMaker 7 Adobe
PageMaker (German) 6.5 Adobe
Patrol for Windows 2000 3.4.0.11 --- BMC
PC Magazine Business Winstone Benchmark 2004 Ziff Davis
PCAnywhere 11 --- Symantec
PhotoClick --- Al Maalin
PhotoExplosion Deluxe 1 Nova Development
PhotoImpact 7 (Traditional Chinese) 7
Photoshop Elements 2 Adobe
Pinnacle Studio 9 Pinnacle Systems
Playzone Preschool - Kindergarten - Jump Start Spelling 1 Knowledge Adventure
Quicken 2003 Premier Home and Business 2003 Intuit
Quicken Deluxe 2001 2001 Intuit
Rational´s Clearcase 2003 IBM
Real Player (free version) 10 Real Networks
Reflection 10 WRQ
Reflection 9 WRQ
Reflection 9.03 WRQ
Reflection X 10 WRQ
Reflection X 11 WRQ
Reflection X 10 --- WRQ
Retrospect Client x Dantz
Revenge of Arcade v1.0 Microsoft
Roboword Pro (JAPANESE) 6 Technocraft
Roller Coaster Factory v3.0 Valuesoft
Scrabble v3.0 Atari
Serious Sam: The Second Encounter 1 Croteam
Server Administrator Tools --- Microsoft
SimCity 4 v1.0 EA Games
Smarterm Office 10 --- Esker.com
Smarterm Office 11 --- Esker.com
SmartSuite Millennium Edition - Fast Site --- Lotus
SmartSuite Millennium Edition ScreenCam (German) 9.5 IBM Lotus
SMS --- Microsoft
SMS 2.0 SP5 Microsoft
SMS 2.0 SP5 Microsoft
SMS 2003 RC2 Microsoft
SMS 2003 RTM Microsoft
SNA Server 4.0 SP4 --- Microsoft
SonicWALL Virus Scan --- SonicWall
Sony: PCV-V200G: --- Sony
SQL --- Microsoft
SQL 2000a SP3 Microsoft
SQL 7 Microsoft
Star Trek StarFleet Command III v1.0 Activision
Star Wars Knights of the Old Republic --- Lucas Arts
StarCraft 1.05 Blizzard
Starcraft v1.11 Blizzard
Style XP 2 TGT soft
StyleSelector x NEC
Super Collapse (Demo Only) 2
Symantec Antivirus Corporate Edition 8 Symantec
Talkworks Pro x Symantec
TaxSaver 1999 Microsoft
The Lion King Animated Storybook 1 Disney
Tom Clancy´s Rainbow Six 3: Raven Shield 1 Red Storm
Tribes 2 1 Sierra
TurboCAD Professional 9 IMSI
Uno 1 Aris Buenaventura
Unreal II 1 Atari
Unreal Tournament 2003 1 Atari
Unreal Tournament Game of the Year Edition 1 Atari
UX Theme MultiPatcher 1.5.1
Veritas --- NEC
ViaVoice for Windows Personal Edition 10 10 IBM
ViewNow 1.0 1 NetManage.com
ViewNow 1.05 1.05 NetManage.com
Virtual PC 2004 Microsoft
VirusScan 7 McAfee
VirusSecurity 2004 2004 Sourcenext
Visual Basic 6 Microsoft
Visual C++ (16-bit) 2 Microsoft
Visual Studio 7 Microsoft
Visual Studio 97 Microsoft
Visual Studio .NET Enterprise 2003 --- Microsoft
Visual Studio 98 6 Microsoft
Volume Manager 3.1 3.1 Veritas
Warcraft III: Reign of Chaos Collector´s Edition v 1.0 Blizzard
Window-Eyes Professional 4.2 GW Micro
Windows Sharepoint Services --- Microsoft
Windows Sharepoint Services 2 Microsoft
Winfax Pro 10 Symantec
WinGate 5.2.3 WinGate
WinRoute 4.25 Kerio
WISO Sparbuch 2004 Buhl
Word XP Microsoft
Word Perfect Family Pack 5 - Encyclopedia Britannica Ready Reference 2003 Britannica
WordPerfect Office 11 Corel
Works Suite 2004 2004 Microsoft
WSS 2 Microsoft
Xoreax Incredibuild --- Xoreax
Yahoo Messenger 6.0.0.167 Yahoo
ZoneAlarm


articulo extraido de servertt.com

Yo no sé si esto es cierto o no y por ello estoy haciendo esta consulta. ¿Es cierto todo esto? No sé, bueno, espero que alguien me pueda orientar un poco porque si es cierto no me instalo el SP2 de Windows.

Saludos.

136
Visual Basic 6.0 e inferiores / Re: Datareport
« en: Jueves 2 de Septiembre de 2004, 22:15 »
Para que te salga un dato en todas las páginas de un informe, tiene que ir en la sección "Encabezado de página".

Saludos.

137
Visual Basic 6.0 e inferiores / Re: Proteccion En Excel
« en: Martes 31 de Agosto de 2004, 12:29 »
Para proteger una celda necesitas tener protegida la hoja de cálculo.
Para saber cómo se hace, haz una macro donde protegas la hoja de cálculo y depués una celda. Después vas al editor de vb que tiene Excel y aplicas eso a tu programa.

Saludos.

138
Visual Basic 6.0 e inferiores / Re: Codigo Para Matriz De Control
« en: Viernes 30 de Julio de 2004, 17:18 »
Hola de nuevo, si va a ser una búsqueda igual pero sólo cambiando un parámetro en la Select podrías hacer una función que haga lo siguiente:

Código: Text
  1. Private Sub Command1_Click(Index As Integer)
  2.    Select Case Index
  3.        Case 0
  4.            Consulta a 'a = Parametro de la funcion
  5.        Case 1
  6.            Consulta b 'b = Parametro de la funcion
  7.        Case 2
  8.            Consulta c 'c = Parametro de la funcion
  9.    End Select
  10. End Sub
  11.  
  12. Private Function Consulta(Parametro As String)
  13.     Dim rs As New ADODB.Recordset
  14.     Dim SQL As String
  15.     SQL = "SELECT Campo FROM Tabla WHERE Clave = '" & Parametro & "'"
  16.     ' todo lo demás
  17. End Function
  18.  

Saludos.

139
Visual Basic 6.0 e inferiores / Re: Sobre Parametros En Open De Ado
« en: Viernes 30 de Julio de 2004, 09:34 »
Hola Supra, espero que esta explicación te saque de dudas  :rolleyes:

Sintaxis: Open([Source], [ActiveConnection], [CursorType],[LockType],[Options])

Source: La consulta SQL, nombre de tabla, nombre de procedimiento o lo que fuere.
ActiveConnection: El string de conexión a la BBDD.
CursorType: Tipo de cursor que es.
    adOpenDynamic: Permite desplazarse en ambas direcciones a lo largo de la tabla, y además se verá cualquier modificación que haya realizado otro usuario.
    adOpenForwardOnly: Sólo permite la recuperación de filas hacia delante, es decir, nunca podrás moverte hacia atrás (hacer la instruccion rs.MovePrevious)
    adOpenKeySet: Permite avanzar y retroceder dentro de la tabla.
    adOpenStatic: Permite moverse en ambas direcciones pero no se verá ningún cambio que haya podido realizar algún usuario .</li>[/list]LockType: Tipo de bloqueo que se aplica, es decir... depende de cómo lo abras (modo lectura, modo lectura/escritura sin bloqueo, modo lectura/escritura bloqueando el registro) la BBDD actuará de una forma u otra.
      adLockReadOnly: No se podrán modificar los registros de la tabla (modo lectura).
      adLockOptimistic: La tabla estará bloqueada a los demás usuarios cuando se esté realizando una operación de actualización sino no hace bloqueo alguno.
      adLockBachOptimistic: Cursor de tipo lectura/escritura y que además, no bloquea el registro donde nos encontramos. (además se actualiza en modo Bach).
      adLockPessimistic: Cursor de tipo lectura/escritura pero bloquea el registro en donde nos encontramos, asi que con éste hay que tener mucho cuidado, porque cualquiera que esté intentando acceder al registro donde nos encontramos no podrá  hacerlo hasta que no nos movamos nosotros.</li>[/list]Options: Tipo de comando que se va a utilizar (esto afecta al parámetro que se pase en SOURCE):
        adCmdTable: Se usa cuando se indique el nombre de la tabla a utilizar, es decir, que no haya una sentencia SQL sino simplemente un nombre de tabla.
        adCmdText: Cuando se escriban sentencias SQL para realizar la consulta en la tabla
        adCmdStoreProc: Cuando los datos estén almacenados en un procedimiento ya declarado
        adCmdUnknown: El recordset será el encargado de averiguar por sí mismo el significado de la expresión (opción por defecto)</li>[/list]Bueno, espero haberte ayudado,

        Saludos.

        140
        Visual Basic 6.0 e inferiores / Re: Codigo Para Matriz De Control
        « en: Viernes 30 de Julio de 2004, 09:07 »
        Hola sombra_71, para saber qué botón estás pulsando en la matriz de controles, simplemente tienes que mirar el indice de botón que es... de esta forma:

        Código: Text
        1. Private Sub Command1_Click(Index As Integer)
        2.     Select Case Index
        3.         Case 0
        4.             MsgBox &#34;Estoy en el primer botón&#34;
        5.         Case 1
        6.             MsgBox &#34;Estoy en el segundo botón&#34;
        7.         Case 2
        8.             MsgBox &#34;Esto es un ejemplo&#34;
        9.     End Select
        10. End Sub
        11.  

        Saludos.

        141
        Te he mandado el programa. Este pequeño programa coge la base de datos Destino de un fichero INI porque sólo sirve para esto y así no hay que andar cogiendo la BBDD cada vez que se ejecute el programa. El programa puede funcionar migrando datos de una tabla a otra sin necesidad de que estén en la misma BBDD, es decir.. que puede o no estar en la misma BBDD. Si necesitas que te explique como funciona me envias un email o posteas ;).

        Saludos.

        142
        Hola de nuevo, primero.. vas a trabajar con Access? De todas formas, el proceso sería el siguiente:

        Mediante el control CommonDialog que eliga la ruta donde se encuentra la base de datos Access, una vez elegida, conectas a la base de datos y sacas las tablas existentes en un ComboBox. Cuando el usuario eliga en el combo la tabla que quiere, simplemente tendrías que hacer un proceso con un recordset... por ejemplo:

        Código: Text
        1. SQL = &#34;SELECT * FROM &#34; & Combo.Text
        2. rs.open SQL, ConexionBBDDOrigen
        3. If Not rs.EOF Then
        4.    While Not rs.EOF
        5.         'Aquí otra sentencia SQL para ver si existe el registro o no existe en la tabla Destino
        6.         'según eso, Insertar o Modificar
        7.         rs.MoveNext
        8.    Wend
        9. End If
        10.  

        Y una duda que se me plantea a mi... ¿Estas hablando de hacer este proceso desde el programa VB o desde la misma BBDD??

        PD: Yo tengo hecho esto mismo que preguntas pero con DAO, si quieres te mando el programa. Puede que te ayude.

        Saludos.

        143
        Simplemente tendrías que hacer un proceso en el usuario eliga la BBDD donde se encuentra la tabla Origen, de ahi que eliga la tabla Origen. Cuando eligas esa tabla sólo tendrás que hacer un proceso que por cada registro que haya en la tabla Origen mire si existe o no en la tabla Destino (la tabla sobre la que trabajas) y según eso Actualizar o Insertar.

        Saludos, Érika.

        144
        Visual Basic 6.0 e inferiores / Re: Cambiar De Base De Sql Server A Mi Antojo
        « en: Miércoles 28 de Julio de 2004, 19:03 »
        Para sacar la lista de servidores, conectar al servidor y sacar el listado de BBDD:

        Código: Text
        1.  
        2. Public CONN As New ADODB.Connection
        3.  
        4. Private Sub ObtenerListadoServidores()
        5.     Dim ServidoresSQL As SQLDMO.Application
        6.     Dim ListaServers As NameList
        7.     Dim i As Integer
        8.     
        9.     Set ServidoresSQL = New SQLDMO.Application
        10.     Set ListaServers = ServidoresSQL.ListAvailableSQLServers
        11.  
        12.     For i = 1 To ListaServers.Count
        13.         Servidor_SQL.AddItem ListaServers.Item(i)
        14.     Next
        15.     
        16.     Servidor_SQL.ListIndex = 0
        17.     Set ListaServers = Nothing
        18. End Sub
        19.  
        20.  
        21. Private Sub Conectar_SQL()
        22.     On Error GoTo error_Conexion
        23.         Set CONN = Nothing
        24.         CONN.Open (&#34;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=&#34; & Servidor_SQL)
        25.         Databases
        26.     Exit Sub
        27. error_Conexion:
        28.     If Err.Number = -2147217843 Then
        29.         MsgBox &#34;El usuario no existe o no tiene una conexión de confianza. Descripción: &#34; & Err.Description, vbCritical
        30.     Else
        31.         MsgBox Err.Number & &#34;. &#34; & Err.Description
        32.     End If
        33. End Sub
        34.  
        35. Private Sub Databases()
        36.     Dim rs_BBDD As ADODB.Recordset
        37.     BBDD.Clear
        38.     Set rs_BBDD = New ADODB.Recordset
        39.     Set rs_BBDD = CONN.Execute(&#34;sp_databases&#34;)
        40.     If Not rs_BBDD.EOF Then
        41.      Do Until rs_BBDD.EOF
        42.         BBDD.AddItem (rs_BBDD.Fields(&#34;Database_Name&#34;))
        43.         rs_BBDD.MoveNext
        44.      Loop
        45.      rs_BBDD.Close
        46.      BBDD.Enabled = True
        47.     End If
        48.     Set rs_BBDD = Nothing
        49.     BBDD.ListIndex = 0
        50.     BBDD.Enabled = True
        51. End Sub
        52.  
        53. Private Sub BBDD_DblClick()
        54.    CONN.Close
        55.    Set CONN = Nothing
        56.    CONN.Open (&#34;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=&#34; & Servidor_SQL & &#34;Initial Catalog=&#34; & BBDD.Text)
        57. End Sub
        58.  
        59.  

        Referencias necesarias:
          Microsoft SQLDMO Object Library
          Microsoft ActiveX Data Object 2.7 Library (en mi caso)</li>
        Espero que te sirva de ayuda,

        Saludos.

        145
        Crystal Reports / Re: Conexión Desde Crystal A Sql Server
        « en: Jueves 22 de Julio de 2004, 11:18 »
        Hola pacegar, yo tengo el mismo problema.. y tampoco sé cómo solucionarlo. De momento he creado una conexión en diseño pero a mi me interesaría poder crearla en tiempo de ejecución... A seguir buscando, a ver si encontramos algo ;).

        PD: Sí se pueden crear ODBC mediante código en VB.

        146
        Visual Basic 6.0 e inferiores / Re: Como Cerrar Un Adodc1
        « en: Martes 20 de Julio de 2004, 11:25 »
        Código: Text
        1. Adodc1.Recordset.Close
        2. Set adodc1.Recordset = Nothing
        3.  

        Saludos.

        147
        Visual Basic 6.0 e inferiores / Re: Bd Visual Basic 6.0 Y Sql Server2000
        « en: Domingo 18 de Julio de 2004, 16:50 »
        La sintaxis de la Delete es:

        Código: Text
        1. DELETE FROM Tabla WHERE Campo = LoQueSea
        2.  


        Tu codigo sería así:

        Código: Text
        1. SQL = &#34;DELETE FROM Alumno WHERE CveAlum = '&#34; & busca & &#34;'&#34;
        2.  

        Saludos.

        148
        Visual Basic 6.0 e inferiores / Re: Saber Servidores Sql Server Existentes
        « en: Viernes 9 de Julio de 2004, 10:44 »
        Bueno, ya conseguí hacerlo ^^. De todas formas muchas gracias  B)

        Saludos!

        149
        Dudas informáticas / Re: Error
        « en: Miércoles 7 de Julio de 2004, 09:47 »
        Es un nuevo virus, he leido que para eliminarlo necesitais un Lavasoft y una Spybot... aquí pone como quitarlo:

        win86.exe

        Bueno... a limpiar a fondo!

        Saludos.

        150
        Visual Basic 6.0 e inferiores / Re: Codigo De Barras
        « en: Martes 6 de Julio de 2004, 12:29 »
        Sí se trata de calcular el dígito de control he encontrado esta función:

        Calculo del digito de control de un EAN13 (o un EAN8):

        Enviale a esta funcion un codigo EAN de 7 o 12 cifras y te devolverá el digito de control que le corresponde y que es la ultima cifra del codigo completo.


        Código: Text
        1. Function CalCodEan(sCodigo As String) As string
        2.    Dim c1, c2 As String
        3.    Dim nX, nX2 As Integer
        4.    CalCodEan = &#34; &#34;  ' de momento en blanco
        5.    sCodigo = Trim(sCodigo)              ' suprimir blancos por si acaso
        6.    If Len(CODIGO) &#60;&#62; 7 And Len(CODIGO) &#60;&#62; 12 Then Exit Function   ' solo admite 7 o 12 digitos
        7.    c1 = &#34;131313131313&#34;
        8.    nX2 = 0
        9.    For nX = 1 To Len(sCodigo)
        10.       nX2 = nX2 + Val(Mid&#036;(sCodigo, nX, 1)) * Val(Mid&#036;(c1, nX, 1))
        11.    Next
        12.    nX = Val(Right(Str(nX2), 1))    ' Extraer el valor de la derecha
        13.    If nX &#62; 0 Then nX = 10 - nX     ' restarlo de 10 si no es ya 0
        14.    CalCodEan = trim(str(nX))
        15. End Function
        16.  

        Tomado de: EAN13

        Espero que te sirva de ayuda.

        Saludos.

        Páginas: 1 ... 4 5 [6] 7 8 9