• Viernes 26 de Abril de 2024, 22:30

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 [2] 3 4 ... 9
26
SQL Server / Re: Encallado con una SQL con un NOT exists de por medio
« en: Miércoles 24 de Junio de 2009, 16:27 »
La instrucción EXISTS devuelve un TRUE ó FALSE.

Para que esa select te funcione, debes igualar algo de la select anterior a la subselect que está dentro del exists.

Es decir, suponiendo que tengas la tabla Empresas con primary key (idEmpresa) y la tabla Trabajadores con primary key (idempresa, idtrabajador), si queremos sacar las empresas que no tengan trabajadores utilizando EXISTS la Select sería la siguiente:
Código: SQL
  1. SELECT E.* FROM Empresas E WHERE NOT EXISTS (SELECT 1 FROM Trabajadores T WHERE E.idEmpresa = T.idEmpresa)
  2.  

En tu caso deberías igualar algo (las keys) de la tabla exterior a la que está dentro del EXISTS para que devuelva TRUE o FALSE.

PD: No recomiento usar ni IN ni EXISTS ya que son instrucciones lentas cuando tenemos muchos registros.

Saludos,

27
SQL Server / Re: Consulta compleja - ¿¿Es posible??
« en: Sábado 6 de Junio de 2009, 18:27 »
He puesto todos tus campos a INT, igual por ahi viene el fallo. ¿Cual es el error que te da?
Si eso pasame el script de creación de tu tabla y lo pruebo exactamente como la tienes.

Saludos,

28
SQL Server / Re: Pregunta sencilla
« en: Sábado 6 de Junio de 2009, 17:58 »
Código: SQL
  1. SELECT Cotizacion.Numero
  2. FROM Cotizacion LEFT JOIN Pedidos ON Cotizacion.Numero = Pedidos.NumeroCotizacion
  3. WHERE ISNULL(Pedidos.NumeroCotizacion, -999) = -999
  4.  

Saludos,

29
SQL Server / Re: Consulta compleja - ¿¿Es posible??
« en: Sábado 6 de Junio de 2009, 17:44 »
He modificado la SQL y la he probado con tu hoja excel y me funciona correctamente.

Prueba otra vez porque la que he puesto (esta modificada en el anterior post) la he probado.

Código: SQL
  1.  
  2. SELECT Municipio, LEFT(LTRIM(Municipio), 3), LEFT(LTRIM(Municipio), 2),
  3.     CASE
  4.         WHEN GROUPING(LEFT(LTRIM(Municipio), 3)) = 0 AND GROUPING(LEFT(LTRIM(Municipio), 2)) = 0 AND GROUPING(Municipio) = 0 THEN 'Linea'
  5.         WHEN GROUPING(LEFT(LTRIM(Municipio), 3)) = 0 AND GROUPING(LEFT(LTRIM(Municipio), 2)) = 0 AND GROUPING(Municipio) = 1 THEN 'Total agrupacion LEFT(3)'
  6.         WHEN GROUPING(LEFT(LTRIM(Municipio), 3)) = 1 AND GROUPING(LEFT(LTRIM(Municipio), 2)) = 0 AND GROUPING(Municipio) = 1 THEN 'Total agrupacion LEFT(2)'
  7.     ELSE 'Total' END,
  8.     SUM(Total) AS Total, SUM(residente) AS Residente, SUM(reside) AS Reside, SUM(residetrabaja) AS ResideTrabaja, SUM(resideestudia) AS ResideEstudia
  9. FROM Tabla
  10. GROUP BY LEFT(LTRIM(Municipio), 2), LEFT(LTRIM(Municipio), 3), Municipio WITH ROLLUP
  11.  
  12.  

Saludos,

30
SQL Server / Re: Crecimiento desmedido base datos sql 2000
« en: Sábado 6 de Junio de 2009, 12:40 »
Podrías mirar el LOG de la base de datos.

Este Script regenera los índices de la base de datos y después de regenerarlos reduce el tamaño de los ficheros.
Código: SQL
  1.  
  2. BEGIN
  3.     SET NOCOUNT ON
  4.  
  5.     DECLARE @sLogicoMDF VARCHAR(250)
  6.     DECLARE @sLogicoLDF VARCHAR(250)
  7.  
  8.     DECLARE @rs CURSOR
  9.     DECLARE @sTabla VARCHAR(200)
  10.     DECLARE @sSQL VARCHAR(2000)
  11.    
  12.     SET @rs = CURSOR FOR SELECT NAME FROM BASEDATOS..SysObjects WHERE xType = 'U' AND NAME <> 'dtproperties' ORDER BY Name
  13.     OPEN @rs
  14.     FETCH NEXT FROM @rs INTO @sTabla
  15.     WHILE @@FETCH_STATUS = 0
  16.     BEGIN
  17.         SET @sSQL = 'DBCC DBREINDEX (''BASEDATOS.dbo.' + LTRIM(@sTabla) + ''') WITH NO_INFOMSGS'
  18.         EXEC (@sSQL)
  19.         FETCH NEXT FROM @rs INTO @sTabla        
  20.     END
  21.     CLOSE @rs
  22.     DEALLOCATE @rs
  23.  
  24.     -- Una vez regenerados los índices, compactamos ficheros
  25.     SELECT @sLogicoMDF = RTRIM(LTRIM(ISNULL(NAME, ''))) FROM BASEDATOS..SYSFILES WHERE CAST(GroupID AS BIT) = 1
  26.     SELECT @sLogicoLDF = RTRIM(LTRIM(ISNULL(NAME, ''))) FROM BASEDATOS..SYSFILES WHERE CAST(GroupID AS BIT) = 0
  27.  
  28.     USE BASEDATOS
  29.     IF LEN(@sLogicoMDF) > 0
  30.     BEGIN
  31.         CHECKPOINT
  32.         DBCC SHRINKFILE (@sLogicoMDF, 7)
  33.         CHECKPOINT
  34.     END
  35.  
  36.     IF LEN(@sLogicoLDF) > 0
  37.     BEGIN
  38.         CHECKPOINT
  39.         DBCC SHRINKFILE (@sLogicoLDF, 7)
  40.         CHECKPOINT
  41.     END
  42.  
  43.     SET NOCOUNT OFF
  44. END
  45.  
  46.  

Espero que te sirva.

Saludos,

31
SQL Server / Re: Consulta compleja - ¿¿Es posible??
« en: Sábado 6 de Junio de 2009, 12:36 »
Hola, podrías también ver la opción de utilizar GROUPING.

Código: SQL
  1. SELECT Municipio, LEFT(LTRIM(Municipio), 3), LEFT(LTRIM(Municipio), 2),
  2.     CASE
  3.         WHEN GROUPING(LEFT(LTRIM(Municipio), 3)) = 0 AND GROUPING(LEFT(LTRIM(Municipio), 2)) = 0 AND GROUPING(Municipio) = 0 THEN 'Linea'
  4.         WHEN GROUPING(LEFT(LTRIM(Municipio), 3)) = 0 AND GROUPING(LEFT(LTRIM(Municipio), 2)) = 0 AND GROUPING(Municipio) = 1 THEN 'Total agrupacion LEFT(3)'
  5.         WHEN GROUPING(LEFT(LTRIM(Municipio), 3)) = 1 AND GROUPING(LEFT(LTRIM(Municipio), 2)) = 0 AND GROUPING(Municipio) = 1 THEN 'Total agrupacion LEFT(2)'
  6.     ELSE 'Total' END,
  7.     SUM(Total) AS Total, SUM(residente) AS Residente, SUM(reside) AS Reside, SUM(residetrabaja) AS ResideTrabaja, SUM(resideestudia) AS ResideEstudia
  8. FROM Tabla
  9. GROUP BY LEFT(LTRIM(Municipio), 2), LEFT(LTRIM(Municipio), 3), Municipio WITH ROLLUP
  10.  

Aquí tienes la consulta que necesitabas, ahora ya sólo queda que la ordenes como quieras.

Saludos,

32
SQL Server / Re: Error Al Restaurar Un Backup
« en: Domingo 30 de Septiembre de 2007, 20:14 »
Puede ser que exista más de una copia de seguridad en el mismo fichero?

33
La taberna del BIT / Re: Yo Soy El Clon
« en: Sábado 1 de Julio de 2006, 18:54 »
Gracias por la aclaración.

Lo he preguntado porque sé que por latinoamérica llamar Gallego a alguien signifca:

5. adj. C. Rica. tonto (falto de entendimiento o razón).

Ya que signifca que es de España (como yo) entonces no me tomaré a mal ese comentario..

Ale, muchas gracias  :hola:

34
La taberna del BIT / Re: Yo Soy El Clon
« en: Sábado 1 de Julio de 2006, 10:56 »
Out of Topic

X.Cyclop, ¿a qué te refieres con ser Gallego? ¿Significa algo esa palabra por tu tierra?

Espero respuesta (ala, seguid con vuestras peleas que últimamente yo no sé qué ha hecho el mundial que estais todos insoportables) [este comentario va sin maldad]

:blink:

35
La taberna del BIT / Re: Quien Ganara El Mundial?
« en: Domingo 11 de Junio de 2006, 02:09 »
Yo, por no seguir a todo el mundo, que Brasil ya aburre, digo que.. o España o República Checa, aupa los equipos pequeños y también Costa de Marfil (yo veo el vaso tan medio lleno que hasta el agua se cae por los laos, fijate).

 :blink: be different

36
La taberna del BIT / Re: Quien Ganara El Mundial?
« en: Miércoles 7 de Junio de 2006, 23:51 »
Falta España en esa lista...

 :angry:

37
La taberna del BIT / Re: La Chica Mas Bella
« en: Viernes 2 de Junio de 2006, 11:15 »
Cita de: "Radoslab en La Mejor Mujer Para Un Programador "
Sumisa y obediente como mi PC.
je je je je je je je

Citar
parece muy obvio es que ellas prefieren mantenerse en el anonimato dado que ellas no son muy dadas a revelar su identidad

A mi también me parece obvio leyendo ciertas líneas por este foro...

:ph34r:

38
Visual Basic 6.0 e inferiores / Ayuda Con Propiedad Font
« en: Jueves 1 de Junio de 2006, 21:13 »
Buenas, estoy haciendo mi primer OCX. Se trata de un calendario parecido al que tiene Outlook. Mi duda es la siguiente:

Ya hize los eventos del control, ahora le estoy metiendo todo el tema de propiedades para que pueda cambiar el BackColor, BackStyle, etc etc. Al ser un calendario, me interesa poder cambiar la fuente a distintas zonas del OCX, por ejemplo, al título de los meses.

Al ejecutar me da error en esta linea:
Código: Text
  1. Set titMes1.Font = PropBag.ReadProperty(&#34;Font&#34;, Extender.Font)
  2.  

Pongo aquí parte del código que tengo para que me digan qué tengo mal.

Código: Text
  1. Private mnTituloDiaSemanaFont As Font
  2.  
  3. Private Sub UserControl_InitProperties()
  4.     Set mnTituloDiaSemanaFont = Extender.Font
  5. End Sub
  6.  
  7. '//Cargar valores de propiedades desde el almacenamiento
  8. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  9.     Set titMes1.Font = PropBag.ReadProperty(&#34;Font&#34;, Extender.Font)
  10. End Sub
  11.  
  12. '// Escribir valores de propiedades en el almacenamiento
  13. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  14.     PropBag.WriteProperty &#34;Font&#34;, titMes1.Font, Extender.Font
  15. End Sub
  16.  
  17. '============= PROPIEDAD FONT DE LOS DIAS DE LA SEMANA ===
  18. Public Property Get Font() As Font
  19.    Set Font = mnTituloDiaSemanaFont
  20. End Property
  21.  
  22. Public Property Set Font(lFont As Font)
  23.    With mnTituloDiaSemanaFont
  24.       .Bold = lFont.Bold
  25.       .Charset = lFont.Charset
  26.       .Italic = lFont.Italic
  27.       .Name = lFont.Name
  28.       .Size = lFont.Size
  29.       .Strikethrough = lFont.Strikethrough
  30.       .Underline = lFont.Underline
  31.       .Weight = lFont.Weight
  32.    End With
  33.    PropertyChanged &#34;Font&#34;
  34. End Property
  35.  
  36. '========================================
  37.  

Pongo una foto para que lo entendais mejor.

Gracias.

39
La taberna del BIT / Re: La Chica Mas Bella
« en: Sábado 27 de Mayo de 2006, 18:42 »
Citar
¿no quieres ser mi novia virtual?

Si fuera heterosexual te diría que no te conozco o te daría cualquier escusa con tal de esquivar la pregunta...  :alien: .

De todas formas, tal y como está este foro, no estaría mal que alguien se animase a hacer una agencia matrimonial, sería un negocio muy próspero visto lo visto.

 :ph34r:

40
La taberna del BIT / Re: La Chica Mas Bella
« en: Viernes 26 de Mayo de 2006, 08:53 »
Yo voto a mi niña.

PD: ¿Los chicos de SoloCodigo estais con las hormonas un pelín revolucionadas no?

41
La taberna del BIT / Re: La Mejor Mujer Para Un Programador
« en: Jueves 25 de Mayo de 2006, 20:10 »
Entonces juez te debo una disculpa. A veces tengo días raros.

Gracias entonces... :wub: lo sientooooo  :rolleyes:

 :kicking:

42
La taberna del BIT / Re: La Mejor Mujer Para Un Programador
« en: Miércoles 24 de Mayo de 2006, 20:43 »
Citar
Tambien esta Shiquilla, que muy poco la vemos pero la que la hemos podido ver en la foto ........................................

Esto no lo he entendido... ¿me estás llamando tonta?

Últimamente no entro muxo, cosas del trabajo..  bueno, espero respuesta.. que aunque esté ausente sigo leyendo el foro....

Waiting...

43
Bases de Datos / Re: Un Par De Preguntas
« en: Viernes 21 de Abril de 2006, 16:26 »
Para mostrar una pantalla como la indicada:

Código: Text
  1. Declare Function SHBrowseForFolder Lib &#34;shell32.dll&#34; Alias _
  2.         &#34;SHBrowseForFolderA&#34; (lpBrowseInfo As BROWSEINFO) As Long
  3.  
  4. Declare Function SHGetPathFromIDList Lib &#34;shell32.dll&#34; Alias _
  5.         &#34;SHGetPathFromIDListA&#34; (ByVal pidl As Long, _
  6.         ByVal pszPath As String) As Long
  7.  
  8. Const BIF_RETURNONLYFSDIRS = &H1
  9.  
  10. Type BROWSEINFO
  11.    hOwner As Long
  12.    pidlRoot As Long
  13.    pszDisplayName  As String
  14.    lpszTitle As String
  15.    ulFlags As Long
  16.    lpfn As Long
  17.    lParam As Long
  18.    iImage As Long
  19. End Type
  20.  
  21. Public Function gfsSeleccionaDirectorioACopiar(Owner As Form, lsTitulo As String) As String
  22.  
  23.    Dim bi As BROWSEINFO
  24.    Dim IDL As ITEMIDLIST
  25.    Dim r As Long
  26.    Dim pidl As Long
  27.    Dim tmpPath As String
  28.    Dim pos As Integer
  29.  
  30.    bi.hOwner = Owner.hwnd
  31.    bi.pidlRoot = 0&
  32.    bi.lpszTitle = lsTitulo
  33.    bi.ulFlags = BIF_RETURNONLYFSDIRS
  34.    pidl = SHBrowseForFolder(bi)
  35.  
  36.    tmpPath = Space&#036;(512)
  37.    r = SHGetPathFromIDList(ByVal pidl, ByVal tmpPath)
  38.  
  39.    If r Then
  40.       pos = InStr(tmpPath, Chr&#036;(0))
  41.       tmpPath = Left(tmpPath, pos - 1)
  42.       If Right(tmpPath, 1) &#60;&#62; &#34;&#092;&#34; Then tmpPath = tmpPath & &#34;&#092;&#34;
  43.        gfsSeleccionaDirectorioACopiar = tmpPath
  44.     Else
  45.        'gfsSeleccionaDirectorio = &#34;&#34;
  46.     End If
  47.  
  48.  
  49. End Function
  50.  

Lo otro no te puedo ayudar ya que yo no uso controles data.

Saludos,

44
Crystal Reports / Re: Sumar Horas
« en: Viernes 21 de Abril de 2006, 16:04 »
Ya lo solucioné, gracias de todas formas. Pongo aquí la solución por si a alguien le sirve:

En la cabecera del grupo he puesto la siguiente fórmula:
Código: Text
  1. whileprintingrecords;
  2. //Pongo las variables a 0 para cada agrupación
  3. shared numbervar nHoras:=0;
  4. shared numbervar nMinutos:=0;
  5.  

En los detalles del informe he puesto la siguiente fórmula:
Código: Text
  1. whileprintingrecords;
  2. //Calculo las horas y minutos
  3. shared numbervar nHoras := nHoras + Hour ({vFichajes.dHoras});
  4. shared numbervar nMinutos := nMinutos + Minute ({vFichajes.dHoras});
  5. shared numbervar nHoras := nHoras + int(shared numbervar nMinutos/60);
  6. shared numberVar nMinutos:= nMinutos - (int(shared numbervar nMinutos/60)*60);
  7.  

Y en el pie del grupo he puesto la siguiente fórmula:
Código: Text
  1. whileprintingrecords;
  2. //Aquí formateo el campo para que me lo ponga con formato hora (hh:mm)
  3. TimeValue(shared numbervar nHoras,shared numbervar nMinutos,0);
  4.  

Saludos,

45
Crystal Reports / Sumar Horas
« en: Jueves 20 de Abril de 2006, 12:52 »
Buenas, estoy haciendo un informe en Crystal Reports donde tengo un campo que es de tipo hora, y quiero que al final del Grupo se haga un sumatorio de ese campo y que me lo de en formato hh:mm.

He intentado hacerlo pero no me deja sumar las horas automáticamente (desde el propio menú para insertar un total).

Sé que hay alguna forma de crear y manejar variables en Crystal, pero no encuentro información ya que si automáticamente no lo hace, por lo menos haciendo TimeValue(campoHora) + TimeValue(NombreVble) (Tal y como se haría en VB) en Crystal podría obtener el total. ¿Alguien podría ayudarme?

Gracias.

46
La taberna del BIT / Re: Bueno Este Foro Está Aburrido. Hablemos
« en: Lunes 10 de Abril de 2006, 19:25 »
Cita de: "Angel38"
Hola Shiquilla, porque no dices el porque lo eres.

No lo soy porque todas las religiones en este mundo son sectas, y la iglesia es el negocio más rentable que ha creado el hombre, todo es una mentira.

Saludos,

47
Visual Basic 6.0 e inferiores / Re: Listbox
« en: Lunes 10 de Abril de 2006, 19:18 »
Al item que agregues a la lista tienes que ponerle el ID que tienes en base de datos, esto se hace con esta linea:

Lista.ItemData(Lista.NewIndex) = IIf(Not IsNull(loRS!nCodigo), loRS!nCodigo, 0)

Luego, para saber en dónde ha clickado el usuario, sería recoger el código que ha seleccionado y hacer la SELECT correspondiente:

lidCodigo = Lista.ItemData(Lista.ListIndex)


Te paso un ejemplo

Código: Text
  1. Option Explicit
  2. Private goConexion As ADODB.Connection
  3. Private Const gsCadenaConexion = &#34;PROVIDER=SQLOLEDB;DATA SOURCE=(local);DATABASE=BaseDeDatos;UID=sa;PWD=&#34;
  4.  
  5. Private Sub Form_Load()
  6.     msCargarLista
  7. End Sub
  8.  
  9. Public Property Get goBD() As Connection
  10.     
  11. Dim lsCadenaConexion As String
  12.     
  13.     lsCadenaConexion = gsCadenaConexion
  14.     If goConexion Is Nothing Then
  15.         Set goConexion = New ADODB.Connection
  16.         goConexion.Open lsCadenaConexion
  17.     Else
  18.         If goConexion.State = 0 Then goConexion.Open lsCadenaConexion
  19.     End If
  20.     Set goBD = goConexion
  21.     
  22. End Property
  23.  
  24. Private Sub msCargarLista()
  25. Dim loItem As ListBox
  26. Dim lsSQL As String
  27. Dim loRS As Recordset
  28.  
  29.     Lista.Clear
  30.  
  31.     lsSQL = &#34;SELECT * FROM Empresas&#34;
  32.     Set loRS = goBD.Execute(lsSQL)
  33.     While Not loRS.EOF
  34.         Lista.AddItem IIf(Not IsNull(loRS!sNombre), loRS!sNombre, &#34;&#34;)
  35.         Lista.ItemData(Lista.NewIndex) = IIf(Not IsNull(loRS!nCodigo), loRS!nCodigo, 0)
  36.         loRS.MoveNext
  37.     Wend
  38.     loRS.Close
  39.     Set loRS = Nothing
  40.  
  41. End Sub
  42.  
  43. Private Sub Lista_Click()
  44. Dim lidCodigo As Long
  45. Dim lsSQL As String
  46. Dim loRS As Recordset
  47.     Text1.Text = &#34;&#34;
  48.     
  49.     If Lista.ListIndex &#60;&#62; -1 Then
  50.         lidCodigo = Lista.ItemData(Lista.ListIndex)
  51.         
  52.         lsSQL = &#34;SELECT * FROM Empresas WHERE nCodigo = &#34; & lidCodigo
  53.         Set loRS = goBD.Execute(lsSQL)
  54.         If Not loRS.EOF Then
  55.             Text1.Text = IIf(Not IsNull(loRS!sDireccion), loRS!sDireccion, &#34;&#34;)
  56.         End If
  57.         loRS.Close
  58.         Set loRS = Nothing
  59.         
  60.     End If
  61.     
  62. End Sub
  63.  

Saludos,

48
La taberna del BIT / Re: Bueno Este Foro Está Aburrido. Hablemos
« en: Domingo 9 de Abril de 2006, 11:19 »
Soy atea, asi que con esto he respondido.

Saludos,

49
Visual Basic 6.0 e inferiores / Re: Problema Con Consulta Sql
« en: Viernes 24 de Febrero de 2006, 08:54 »
Código: Text
  1. conexion.Execute &#34;DELETE FROM FACTURAS WHERE F_Numero =&#34; & Numero & &#34; and F_Tipo = '&#34; & Tipo & &#34;' AND F_Fecha = #&#34; & Format(FechaFactura , &#34;mm/dd/yyyy&#34;) & &#34;#&#34;
  2.  


Saludos,

50
Visual Basic 6.0 e inferiores / Re: Poner Mi Sistema En Red
« en: Sábado 11 de Febrero de 2006, 13:08 »
Buenas Seba_m, ya te agregué al MSN.

Mi metodología a la hora de hacer un programa es hacer, por cada tabla, una clase donde tengo las operaciones más frecuentes que se harán sobre esa tabla (recuperar un registro, insert, update....).

Por ejemplo, imaginate que tengo una tabla Clientes. Cuyos campos son:
- idCliente (clave primaria)
- Nombre
- Direccion

Entonces, en mi proyecto tendré una clase que se llamará clsClientes.

En la clase, tengo una propiedad que devuelve la Key del cliente de esta forma:
clsClientes#CamposClave (por ejemplo si recupero el cliente 1 entonces será --> clsClientes#1)

Hasta aquí bien, ahora vamos con el sistema de bloqueos.

Tengo una tabla que se llama Bloqueos que tiene los siguientes campos:
- sKeyRegistro
- idUsuario

Si el usuario 34 está editando el cliente 1, en la tabla Bloqueos habrá un registro tal que asi:

sKeyRegistro                idUsuario
clsClientes#1                                                34


Ahora, si el usuario 50 quiere editar el cliente 1, hago lo siguiente:

goBD = la conexion a la bd
goUsuario = clase de usuario global a la aplicacion que contiene el codigo de usuario (en este caso será el 50)

Código: Text
  1. Public Function gfbBloquearRegistro(loObjecto As Object) As Boolean
  2. Dim lsSQL As String
  3. Dim loRS As Recordset
  4. Dim lbBloqueado As Boolean
  5.     
  6.     'Si el registro no está bloqueado entonces lo bloqueo
  7.     
  8.     lbBloqueado = False
  9.     
  10.     lsSQL = &#34;SELECT * FROM Bloqueos WHERE sKeyRegistro = &#34; & loObjecto.MPSCODIGO 'Propiedad que me devuelve la Key
  11.     Set loRS = goBD.Execute(lsSQL)
  12.  
  13.     lbBloqueado = Not loRS.EOF
  14.     
  15.     If Not lbBloqueado Then
  16.         lsSQL = &#34;INSERT INTO Bloqueos VALUES (&#34; & loObjecto.MPSCODIGO & &#34;,&#34; & goUsuario.midUsuario & &#34;)&#34;
  17.         goBD.Execute lsSQL
  18.     End If
  19.     
  20.     loRS.Close
  21.     Set loRS = Nothing
  22.  
  23. End Function
  24.  
  25. Dim loCliente As clsClientes
  26. Dim lbBloqueado As Boolean
  27. Set loCliente = New clsClientes
  28. loCliente.MPSCODIGO = &#34;clsClientes#1&#34;
  29.  
  30. lbBloqueado = gfbBloquearRegistro(loCliente)
  31. If lbBloqueado Then MsgBox &#34;EL registro está bloqueado bla bla bla&#34;
  32.  

Bueno, por aquí no consigo explicartelo mejor. A ver si entras al MSN y te lo explico más detalladamente.

SObre el sistema de base de datos, yo uso este sistema para cualquier gestor de base de datos (lo he usado tanto para Access como para SQL Server)

Saludos,

Páginas: 1 [2] 3 4 ... 9