Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   MS SQL Server a FIrebird (https://www.clubdelphi.com/foros/showthread.php?t=17699)

rgabigonz 18-01-2005 22:34:48

MS SQL Server a FIrebird
 
Hola a todos. Soy nuevo en este foro (como suscripto) en el cual he leido mucho y aprendi muchas cosas de delphi que no sabia. Por eso me suscribi, para poder de alguna forma devolver el conocimiento adquirido.
Bueno, aca va mi consulta. Resulta que tengo un sistema de Historias Clinicas funcionando con VB y SQL Server. Nuestros clientes lo que necesitan es reducir costos, por lo que pense pasar de SQL Sever y W2000 a Firebird en un servidor linux (estoy utilizando Fedora C2) lo cual nunca hice. Existe alguna herramienta que me permita migrar la base directamente? O lo tengo que hacer a manopla nomas...

Gracias.

Gydba 19-01-2005 13:31:57

Hola,

Fijate si alguno de estos migradores te ayudan:
http://www.ibphoenix.com/main.nfs?a=...=ibp_mig_tools

Documento interesante:
http://firebird.sourceforge.net/manu...ion-mssql.html

Saludos!

rgabigonz 19-01-2005 14:11:42

Muchas gracias Gydba. La parte de documentacion me ayudo mucho para aprender ya que el migrador te convierte pero no te deja ningun conocimiento, en cambio los manuales te dicen los equivalentes para FireBird de MS-SQL Server.

Saludos.

rgabigonz 25-01-2005 15:51:51

... sigo migrando!
 
Uno de los SP (Stored Procedures) que tengo en MS_SQL es el siguiente:

CREATE PROCEDURE ImprimeTurnos
(IDProfesional int, Dia varchar(10))
returns (TipodeTurno char(1), Hora varchar(10), ApellidoyNombre varchar(40),
Telefono varchar(20), Obra varchar(50), Nro_Afiliado varchar(50), igno varchar(4),
Observaciones varchar(50), Llego smallint, Hora_Llegada varchar(10),
Recibio varchar(4), Abono varchar(10), Orden varchar(2), Atendido smallint)
as
begin
for
SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, P.Apellido + ', ' + P.Nombre as Paciente,
P.Telefono ,O.Obra, PO.Nro_Afiliado, T.Asigno, T.Observaciones, T.Llego, T.Hora_Llegada,
T.Recibio, T.Abono, T.Orden, T.Atendido
FROM Turnos T, Paciente P, Obrasocial O, PacienteObra PO
WHERE P.ID_Paciente =T.ID_Paciente And P.ID_Paciente=PO.ID_Paciente
and PO.ID_Obra = O.ID_Obra And T.ID_Profesional = :IDProfesional AND T.Dia = :Dia
UNION SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, 'BLOQUEADO' as Paciente,
'' as Telefono , '' as Obra, '' as Nro_Afiliado, T.Asigno, T.Observaciones,
'' as Llego, '' as Hora_Llegada, '' as Recibio, '' as Abono, '' as Orden, '' as Atendido
FROM Turnos T
WHERE T.ID_Profesional = :IDProfesional AND T.Dia = :Dia and Bloqueado = 1
UNION SELECT DISTINCT 'ST' as Tipo_de_Turno, T.Hora, P.Apellido + ', ' + P.Nombre as Paciente ,
P.Telefono, O.Obra, PO.Nro_Afiliado, T. igno , T.Observaciones, T.Llego, T.Hora_Llegada,
T.Recibio, T.Abono, T.Orden, T.Atendido
FROM SobreTurnos T, Paciente P, Obrasocial O, PacienteObra PO
WHERE P.ID_Paciente =T.ID_Paciente And P.ID_Paciente=PO.ID_Paciente and PO.ID_Obra = O.ID_Obra
And T.ID_Profesional = :IDProfesional AND T.Dia = :Dia
UNION SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, 'BLOQUEADO' as Paciente, '' as Telefono,
'' as Obra, '' as Nro_Afiliado, T. igno, T.Observaciones, '' as Llego, '' as Hora_Llegada,
'' as Recibio, '' as Abono, '' as Orden, '' as Atendido
FROM SobreTurnos T
WHERE T.ID_Profesional = :IDProfesional AND T.Dia = :Dia and Bloqueado = 1
into :TipodeTurno, :Hora, :ApellidoyNombre, :Telefono, :Obra, :Nro_Afiliado,
:Asigno, :Observaciones, :Llego, :Hora_Llegada, :Recibio, :Abono, :Orden, :Atendido
do
suspend;
end

Ya verifique la sintaxis y esta bien, pero me sale el siguiente error:

Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.

Alguien me pude ayudar?

Gracias.


La franja horaria es GMT +2. Ahora son las 06:26:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi