|
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
« 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
« en: Martes 14 de Septiembre de 2004, 22:03 »
Private Sub Form_Load() Combopersonal.Clear Combopersonal.AddItem "marilu" Combopersonal.AddItem "maria" Combopersonal.AddItem "migdalia" Combopersonal.AddItem "marquela" End Sub
Saludos.
128
« 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 Dim rs As ADODB.Recordset Dim mstream As ADODB.Stream Set mstream = New ADODB.Stream Set rs = New ADODB.Recordset rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Open "SELECT * FROM Tabla WHERE Codigo=2", cn, adOpenKeyset, , adCmdText mstream.Type = adTypeBinary mstream.Open mstream.LoadFromFile "RutaDelArchivo" rs.Fields("logo").Value = mstream.Read rs.Update rs.Close mstream.Close Set rs = Nothing Set mstream = Nothing
Para coger la imagen y guardarla en el disco duro: Dim rs As ADODB.Recordset Dim mstream As ADODB.Stream Set rs = New ADODB.Recordset Set mstream = New ADODB.Stream rs.Open "Select * from Tabla Where Codigo = 2", cn, adOpenKeyset, adLockOptimistic mstream.Type = adTypeBinary mstream.Open mstream.Write rs.Fields("logo").Value mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite rs.Close Set mstream = Nothing Set rs = Nothing
(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 ServerBueno, de todas formas muchas gracias. Saludos.
129
« en: Jueves 9 de Septiembre de 2004, 08:49 »
Buenas, en este mismo foro publiqué unos manuales de Crystal Reports 10. Manuales Crystal Reports 10Saludos.
130
« 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
« en: Lunes 6 de Septiembre de 2004, 16:10 »
Te mandé un correo desde SoloCodigo indicándote mi MSN.
Muchísimas gracias.
132
« 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
« 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
« 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 XPNo 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
« 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.comYo 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
« 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
« 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
« 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: Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Consulta a 'a = Parametro de la funcion Case 1 Consulta b 'b = Parametro de la funcion Case 2 Consulta c 'c = Parametro de la funcion End Select End Sub Private Function Consulta(Parametro As String) Dim rs As New ADODB.Recordset Dim SQL As String SQL = "SELECT Campo FROM Tabla WHERE Clave = '" & Parametro & "'" ' todo lo demás End Function
Saludos.
139
« en: Viernes 30 de Julio de 2004, 09:34 »
Hola Supra, espero que esta explicación te saque de dudas 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
« 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: Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 MsgBox "Estoy en el primer botón" Case 1 MsgBox "Estoy en el segundo botón" Case 2 MsgBox "Esto es un ejemplo" End Select End Sub
Saludos.
141
« en: Jueves 29 de Julio de 2004, 18:55 »
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
« en: Jueves 29 de Julio de 2004, 16:17 »
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: SQL = "SELECT * FROM " & Combo.Text rs.open SQL, ConexionBBDDOrigen If Not rs.EOF Then While Not rs.EOF 'Aquí otra sentencia SQL para ver si existe el registro o no existe en la tabla Destino 'según eso, Insertar o Modificar rs.MoveNext Wend End If
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
« en: Jueves 29 de Julio de 2004, 14:32 »
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
« 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: Public CONN As New ADODB.Connection Private Sub ObtenerListadoServidores() Dim ServidoresSQL As SQLDMO.Application Dim ListaServers As NameList Dim i As Integer Set ServidoresSQL = New SQLDMO.Application Set ListaServers = ServidoresSQL.ListAvailableSQLServers For i = 1 To ListaServers.Count Servidor_SQL.AddItem ListaServers.Item(i) Next Servidor_SQL.ListIndex = 0 Set ListaServers = Nothing End Sub Private Sub Conectar_SQL() On Error GoTo error_Conexion Set CONN = Nothing CONN.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=" & Servidor_SQL) Databases Exit Sub error_Conexion: If Err.Number = -2147217843 Then MsgBox "El usuario no existe o no tiene una conexión de confianza. Descripción: " & Err.Description, vbCritical Else MsgBox Err.Number & ". " & Err.Description End If End Sub Private Sub Databases() Dim rs_BBDD As ADODB.Recordset BBDD.Clear Set rs_BBDD = New ADODB.Recordset Set rs_BBDD = CONN.Execute("sp_databases") If Not rs_BBDD.EOF Then Do Until rs_BBDD.EOF BBDD.AddItem (rs_BBDD.Fields("Database_Name")) rs_BBDD.MoveNext Loop rs_BBDD.Close BBDD.Enabled = True End If Set rs_BBDD = Nothing BBDD.ListIndex = 0 BBDD.Enabled = True End Sub Private Sub BBDD_DblClick() CONN.Close Set CONN = Nothing CONN.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=" & Servidor_SQL & "Initial Catalog=" & BBDD.Text) End Sub
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
« 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
« en: Martes 20 de Julio de 2004, 11:25 »
Adodc1.Recordset.Close Set adodc1.Recordset = Nothing
Saludos.
147
« en: Domingo 18 de Julio de 2004, 16:50 »
La sintaxis de la Delete es: DELETE FROM Tabla WHERE Campo = LoQueSea
Tu codigo sería así: SQL = "DELETE FROM Alumno WHERE CveAlum = '" & busca & "'"
Saludos.
148
« en: Viernes 9 de Julio de 2004, 10:44 »
Bueno, ya conseguí hacerlo ^^. De todas formas muchas gracias Saludos!
149
« 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.exeBueno... a limpiar a fondo! Saludos.
150
« 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.Function CalCodEan(sCodigo As String) As string Dim c1, c2 As String Dim nX, nX2 As Integer CalCodEan = " " ' de momento en blanco sCodigo = Trim(sCodigo) ' suprimir blancos por si acaso If Len(CODIGO) <> 7 And Len(CODIGO) <> 12 Then Exit Function ' solo admite 7 o 12 digitos c1 = "131313131313" nX2 = 0 For nX = 1 To Len(sCodigo) nX2 = nX2 + Val(Mid$(sCodigo, nX, 1)) * Val(Mid$(c1, nX, 1)) Next nX = Val(Right(Str(nX2), 1)) ' Extraer el valor de la derecha If nX > 0 Then nX = 10 - nX ' restarlo de 10 si no es ya 0 CalCodEan = trim(str(nX)) End Function
Tomado de: EAN13Espero que te sirva de ayuda. Saludos.
Páginas: 1 ... 4 5 [6] 7 8 9
|
|
|