Atrevete a ganar dinero !!!

Solo deves hacer la prueba, visita las paginas web de los anunciantes y deja tus cometanrios; percibiras de $4.00 a $6.00 por bloque de anuncios y si te animas a referir a tus amigos tambien ganas por las suscripciones de ellos !!!

Animate, lo único que pierdes es tiempo pero ganas dinero que es acreditado a tu cuenta de Pay Pal o Alert Pay ... TU DECIDES, yo decidi y ya estoy ganando !!!

Cómo Reducir Log de Transacciones de SQL Server

Soluciones rápidas al problema:

• Hacer Backup del Log de Transacciones ( Transaction Log ) y reducir el fichero.
  
• Ejecuta dos o tres veces la instrucción CHECKPOINT. Esto asegurará que todas las páginas de memoria se han escrito en el fichero de datos.
  
• Luego haz un BACKUP LOG WITH TRUNCATE_ONLY para que trunque el registro de transacciones.
  
• Posteriormente ejecutas DBCC SHRINKFILE indicando el nombre del fichero del log a reducir. (En la ayuda puedes ampliar información sobre estas dos instrucciones).
  

Eliminar el fichero para que se genere de Nuevo (Esta solución es demasiado drástica, emplearla solo si falla la anterior):

• Pon la base de datos en modo "single user".
  
• Ejecuta CHECKPOINT dos o tres veces. Esto asegurará que todas las páginas de memoria se han escrito en el fichero de datos.
  
• Asegúrate de que no hay conexiones abiertas a la base de datos, con lo que no puede haber transacciones a medio ejecutar.
  
• Utiliza sp_detach_db para desconectar dicha base de datos.
  
• Elimina el fichero de log o simplementa renombralo ya luego lo borras.
  
• Utiliza sp_attach_db para reconectar la base de datos. SQL Server creará un nuevo fichero de log.

Aunque no deves olvidar que en la version 2005 todo es mas facil tan solo deves tener la base de datos en modo simple ( single user) para ver esto deves entrar a las propiedades de la base de datos en opciones busca el combo que dice Modelo de recuperacion y listo; ahora para separar la base de datos deves dar nuevamente click derecho en la base de datos Tarea, Reducir, Archivos luego en tipo de archivo seleccionar Registro (Log) luego en las opciones de reduccion selecciona la de enmedio he indica el tamaño minimo permitido y listo. La reduccion del log se ha completado pero recuerda siempre realizar una copia de la base de datos antes de realizar esta tarea.

Guardar archivos en SQL desde Delphi ??

Pues al principio me parecía imposible o tedioso, hasta que platicando con un amigo me ha dado una opción bastante eficiente; decido compartirla para que también les saque de apuros !!! TOMA NOTA :

PASO 1: Puedes tomar como ejemplo la siguiente tabla creada en SQL 2005 pero que para las versiones anteriores de SQL es lo mismo :

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Archivos_Adjuntos](
[ID] [int] IDENTITY(1,1) NOT NULL,
[Nombre] [nchar](100) NOT NULL,
[Tipo_MIME] [nchar](50) NOT NULL,
[datos] [image] NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

PASO 2:  Una vez halla llamado la tabla desde Delphi y tengas lista tu forma utiliza el siguiente codigo para guardar un archivo en la tabla:

procedure TForm2.CargarArchivo;

var FStr: TFileStream; 

BlobStr: TStream; 

begin 

if OpenDialog1.Execute then 

begin 

FStr := 

TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyNone); 

try 

tAdjuntos.Append; 

tAdjuntosNombre.AsString := ExtractFileName(OpenDialog1.FileName); tAdjuntosTipo_MIME.AsString := 

'application/octect-stream'; 

BlobStr := 

tAdjuntos.CreateBlobStream(tAdjuntosdatos, bmWrite); 

try 

BlobStr.CopyFrom(FStr, FStr.Size); 

finally 

BlobStr.Free; 

end; 

tAdjuntos.Post; 

finally 

FStr.Free; 

end; 

end; 

end;

PASO 3: Una vez guardado el archivo en la base de datos, usa el siguiente procedimiento desde delphi para descargarlo:

procedure DescargarArchivo;

var

  BlobStr: TStream;

  FStr: TFileStream;

begin

  if tAdjuntos.IsEmpty then

    Exit;

  if SaveDialog1.FileName <> '' then

    SaveDialog1.FileName := TrailingPathDelimiter(ExtractFilePath(SaveDialog1.FileName)) + Trim(tAdjuntosNombre.AsString)

  else

    SaveDialog1.FileName := Trim(tAdjuntosNombre.AsString);

  if SaveDialog1.Execute then

  begin

    BlobStr := tAdjuntos.CreateBlobStream(tAdjuntosdatos, bmRead);

    try

      FStr := 

TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);

      try

        FStr.CopyFrom(BlobStr, BlobStr.Size);

      finally

        FStr.Free;

      end;

    finally

      BlobStr.Free;

    end;

  end;

end;

Búsqueda personalizada

 

Con estas nuevas opciones que nos ofrece Google puedes realizar tus busquedas desde esta página....!!!! Super, haz la prueba.

Collation de SQL

Siempre que he trabajado con bases de datos de SQL, llega el momento en que he tenido problemas con el collation... y se me dificulta siempre encontrar una respuesta al porque de este problema, pero bueno siempre digo que no hay problema que no tenga solucion.

Aca les adjunto un codigo que les puede ser de utilidad siempre y cuando acostumbren a identificar de una forma estandar las trablas que van creando (yo acostumbro nombrarlas asi 'tbl_') y siempre y cuando la base de datos no este en uso al momento de ejecutar este procedimiento, no te digo que la tarea esta resuelta porque habran tablas que no se modificaran asi de facil por lo que tamben te tocara un poco de trabajo manual, pero igual puede que sea menor a realizarlo todo manual; el procedimiento de select podras utilizarlo para ubicar las tablas que no se han podido modificar con este procedimiento.

Suerte, aca va el codigo.

declare @tabla varchar(100),
@campo varchar(100),
@tamanio int,
@query varchar(300)

declare base cursor for
select distinct a.name, --> nombre de la tabla
b.name, --> nombre del campo
b.prec --> tamaño del campo tipo varchar
from sysobjects a, syscolumns b
where a.id = b.id
and a.type = 'U'
and a.name <> 'dtproperties'
and b.collation is not null
and b.collationid <> 53288 --> Callationid de Modern_Spanish_CI_AS
and substring(a.name,1,4) = 'tbl_'
and b.isnullable = 1 --> selecciono solo los campos que permiten null
and b.prec is not null --> selecciono los campos que no son tipo text
and b.collation <> 'Modern_Spanish_CI_AS'

/* and b.name = ''
ESTA ULTIMA LINEA USALA PARA EJECUTAR LA CONSULTA Y VER QUE TABLA TENDRAS QUE MODIFICAR MANUALMENTE*/

open base
fetch base into
@tabla,
@campo,
@tamanio

while @@fetch_status = 0
begin
set @query = ' ALTER TABLE [' +
ltrim(rtrim(@tabla)) + --> nombre de la tabla
'] ALTER COLUMN [' +
ltrim(rtrim(@campo)) + --> nombre del campo
'] [varchar] (' + --> cuando son tipo text esto cambia
ltrim(rtrim(cast(@tamanio as varchar(5)))) + --> tamaño
--del campo, esto no se pone cuando son tipo text
') COLLATE Modern_Spanish_CI_AS ' + --> nuevo collation
'NULL' + --> cuando el campo no permite que sea null esta
--linea se quita
exec (@query)

fetch base into
@tabla,
@campo,
@tamanio
end

close base
deallocate base

Este codgio deveras ejecutarlo un minimo de cuatro veces realizandole las modificaciones necesarias:

• para campos varchar que permiten null deja el codigo tal y como esta
• para campos varchar que no permiten null cambia en linea b.isnullable = 1 el 1 por el 0
• para campos text que permiten null cambia la linea b.prec is not null por b.prec is null
• para campos text que no permiten null has los dos cambios anteriores.