Re: [delphi-br] Iniciante no Delphi, apanhando que nem um probe coitado, Problemas SQL Server 2000 + Delphi 7 e relacionamentos!

2006-02-02 Por tôpico Carlos Delfino Carvalho Pinheiro
Pessoal, Obrigado pela atenção!

Acabei resolvendo o problema removendo os campos calculados, também
retirando os MasterSource!

Não sei se tenha a ver e se está ligado diretamente ao problema, so posso
dizer que isto resolveu!

Mas de qualquer forma achei muito estranho o Insert e Append fazerem o post
da mesma forma que o InsertRecord, já que ainda não populei os campos como o
InsertRecord me permite!

[]s

Em 31/01/06, Julio Abdala [EMAIL PROTECTED] escreveu:

 O Delphi respeita as restrições, mas recebendo as mensagens de erros
 originárias do banco de dados.

   Voc pode tratá-las devidamente se você utilizar um bloco
   Try
   Except
   end
   no evento onPost do componente table ou query que você estiver
 utilizando.

   Implemente isto e não terá mais problemas.

   Quanto ao teu script, dá uma olhada na variável campo que acredito que
 ela não esteja setada devidamente.

   Abs.

   Júlio Abdala

 Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] escreveu:
   Bons Dias!

 Sou programador Java a 3 anos, e estou trabalhando em um projeto com
 Delphi, mas estou tendo serios problemas com restrições de
 relacionamento, que o Delphi não tem respeitado!

 Agradeço muito a colaboração dos colegas! Vamos a detalhes:

 Tenho 3 tabelas:
 CREATE TABLE [dbo].[OPERADOR_SUBESTOQUE] (
   [CD_OPERADOR] [int] NOT NULL ,
   [CD_SUBESTOQUE] [int] NOT NULL
 ) ON [PRIMARY]

 CREATE TABLE [dbo].[OPERADOR] (
   [CD_OPERADOR] [int] IDENTITY (1, 1) NOT NULL ,
   [NM_OPERADOR] [varchar] (50) ,
   [NM_APELIDO] [varchar] (25) NOT NULL ,
   [DE_SENHA] [varchar] (15) NOT NULL ,
   [ID_BLOQUEIO] [varchar] (1) NULL
 ) ON [PRIMARY]

 CREATE TABLE [dbo].[SubEstoque] (
   [CD_SUBESTOQUE] [int] IDENTITY (1, 1) NOT NULL ,
   [NM_SUBESTOQUE] [varchar] (50) NOT NULL
 ) ON [PRIMARY]

 A tabela Operador_Subestoque recebe como FK o campo Cd_Operador de
 Operador e Cd_SubEstoque de SubEstoque.

 A intenção é caso exista um registro na Tabela Operador_Subestoque, o
 operador pode atuar sobre o SubEstoque! mas infelizmente o Delphi
 emite uma mensagem de erro quanto tento inserir um registro, tal
 mensagem de erro relata que estou tentando inserir uma valor nulo no
 campo CD_SubEstoque da tabela Operador_SubEstoque, o que realmente não
 é permitido.

 Estou usando o seguinte codigo para inserir o novo registro (o erro
 esta na linha que possui o comentário):

   with FrmListaSimplesSubEstoque.DBGrid1 do
 if SelectedRows.Count0 then
 with DataSource.DataSet do
   for i:=0 to SelectedRows.Count-1 do
   begin
 GotoBookmark(pointer(SelectedRows.Items[i]));

 Campo := Fields[0].AsInteger;
 DmAuditoria.TableOperadorSubestoque.InsertRecord([
 DmAuditoria.TableOperadorCD_OPERADOR.AsInteger,Campo]);
 // o erro ocorre nesta liha

 DmAuditoria.TableOperadorSubestoque.Post;
   end;

 end;

 Mais uma vez agradeço, caso necessite mais informaçoes estou disponivel!

 Se preferir eis meu MSN [EMAIL PROTECTED]
 Obrigado!
 --
 Carlos Delfino
 Consultoria e Pesquisa
 Desenvolvimento de Softwares.
 Sun Certified Associate for Java Platform


 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE


 -
   Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/

Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]

O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
 do Yahoo!.





 -
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

 -
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

 [As partes desta mensagem que não continham texto foram removidas]





 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





   *Yahoo! Grupos, um serviço oferecido por:*   PUBLICIDADE
 http://br.ard.yahoo.com/SIG=12f11g6ek/M=393477.7870451.8719931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1138806294/A=3254979/R=0/id=noscript/SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE_3
 --
 *Links do Yahoo! Grupos*

- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED][EMAIL PROTECTED]

- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.




--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 

Re: [delphi-br] Iniciante no Delphi, apanhando que nem um probe coitado, Problemas SQL Server 2000 + Delphi 7 e relacionamentos!

2006-02-01 Por tôpico Julio Abdala
O Delphi respeita as restrições, mas recebendo as mensagens de erros 
originárias do banco de dados.
   
  Voc pode tratá-las devidamente se você utilizar um bloco 
  Try
  Except
  end
  no evento onPost do componente table ou query que você estiver utilizando.
   
  Implemente isto e não terá mais problemas.
   
  Quanto ao teu script, dá uma olhada na variável campo que acredito que ela 
não esteja setada devidamente.
   
  Abs.

  Júlio Abdala
  
Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] escreveu:
  Bons Dias!

Sou programador Java a 3 anos, e estou trabalhando em um projeto com
Delphi, mas estou tendo serios problemas com restrições de
relacionamento, que o Delphi não tem respeitado!

Agradeço muito a colaboração dos colegas! Vamos a detalhes:

Tenho 3 tabelas:
CREATE TABLE [dbo].[OPERADOR_SUBESTOQUE] (
  [CD_OPERADOR] [int] NOT NULL ,
  [CD_SUBESTOQUE] [int] NOT NULL
) ON [PRIMARY]

CREATE TABLE [dbo].[OPERADOR] (
  [CD_OPERADOR] [int] IDENTITY (1, 1) NOT NULL ,
  [NM_OPERADOR] [varchar] (50) ,
  [NM_APELIDO] [varchar] (25) NOT NULL ,
  [DE_SENHA] [varchar] (15) NOT NULL ,
  [ID_BLOQUEIO] [varchar] (1) NULL
) ON [PRIMARY]

CREATE TABLE [dbo].[SubEstoque] (
  [CD_SUBESTOQUE] [int] IDENTITY (1, 1) NOT NULL ,
  [NM_SUBESTOQUE] [varchar] (50) NOT NULL
) ON [PRIMARY]

A tabela Operador_Subestoque recebe como FK o campo Cd_Operador de
Operador e Cd_SubEstoque de SubEstoque.

A intenção é caso exista um registro na Tabela Operador_Subestoque, o
operador pode atuar sobre o SubEstoque! mas infelizmente o Delphi
emite uma mensagem de erro quanto tento inserir um registro, tal
mensagem de erro relata que estou tentando inserir uma valor nulo no
campo CD_SubEstoque da tabela Operador_SubEstoque, o que realmente não
é permitido.

Estou usando o seguinte codigo para inserir o novo registro (o erro
esta na linha que possui o comentário):

  with FrmListaSimplesSubEstoque.DBGrid1 do
if SelectedRows.Count0 then
with DataSource.DataSet do
  for i:=0 to SelectedRows.Count-1 do
  begin
GotoBookmark(pointer(SelectedRows.Items[i]));

Campo := Fields[0].AsInteger;

DmAuditoria.TableOperadorSubestoque.InsertRecord([DmAuditoria.TableOperadorCD_OPERADOR.AsInteger,Campo]);
// o erro ocorre nesta liha

DmAuditoria.TableOperadorSubestoque.Post;
  end;

end;

Mais uma vez agradeço, caso necessite mais informaçoes estou disponivel!

Se preferir eis meu MSN [EMAIL PROTECTED]
Obrigado!
--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
 
  
-
  Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 

  



-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] Iniciante no Delphi, apanhando que nem um probe coitado, Problemas SQL Server 2000 + Delphi 7 e relacionamentos!

2006-01-31 Por tôpico Carlos Delfino Carvalho Pinheiro
Bons Dias!

Sou programador Java a 3 anos, e estou trabalhando em um projeto com
Delphi, mas estou tendo serios problemas com restrições de
relacionamento, que o Delphi não tem respeitado!

Agradeço muito a colaboração dos colegas! Vamos a detalhes:

Tenho 3 tabelas:
CREATE TABLE [dbo].[OPERADOR_SUBESTOQUE] (
[CD_OPERADOR] [int] NOT NULL ,
[CD_SUBESTOQUE] [int] NOT NULL
) ON [PRIMARY]

CREATE TABLE [dbo].[OPERADOR] (
[CD_OPERADOR] [int] IDENTITY (1, 1) NOT NULL ,
[NM_OPERADOR] [varchar] (50) ,
[NM_APELIDO] [varchar] (25) NOT NULL ,
[DE_SENHA] [varchar] (15) NOT NULL ,
[ID_BLOQUEIO] [varchar] (1) NULL
) ON [PRIMARY]

CREATE TABLE [dbo].[SubEstoque] (
[CD_SUBESTOQUE] [int] IDENTITY (1, 1) NOT NULL ,
[NM_SUBESTOQUE] [varchar] (50) NOT NULL
) ON [PRIMARY]

A tabela Operador_Subestoque recebe como FK o campo Cd_Operador de
Operador e Cd_SubEstoque de SubEstoque.

A intenção é caso exista um registro na Tabela Operador_Subestoque, o
operador pode atuar sobre o SubEstoque! mas infelizmente o Delphi
emite uma mensagem de erro quanto tento inserir um registro, tal
mensagem de erro relata que estou tentando inserir uma valor nulo no
campo CD_SubEstoque da tabela Operador_SubEstoque, o que realmente não
é permitido.

Estou usando o seguinte codigo para inserir o novo registro (o erro
esta na linha que possui o comentário):

  with FrmListaSimplesSubEstoque.DBGrid1 do
if SelectedRows.Count0 then
with DataSource.DataSet do
  for i:=0 to SelectedRows.Count-1 do
  begin
GotoBookmark(pointer(SelectedRows.Items[i]));

Campo := Fields[0].AsInteger;

DmAuditoria.TableOperadorSubestoque.InsertRecord([DmAuditoria.TableOperadorCD_OPERADOR.AsInteger,Campo]);
// o erro ocorre nesta liha

DmAuditoria.TableOperadorSubestoque.Post;
  end;

end;

Mais uma vez agradeço, caso necessite mais informaçoes estou disponivel!

Se preferir eis meu MSN [EMAIL PROTECTED]
Obrigado!
--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] Iniciante no Delphi, apanhando que nem um probe coitado, Problemas SQL Server 2000 + Delphi 7 e relacionamentos!

2006-01-31 Por tôpico anderson.silva
Olha só, o metodo InsertRecord insere um novo registro populado e ele mesmo 
executa o método Post do dataset,

retire a linha abaixo

 
   with FrmListaSimplesSubEstoque.DBGrid1 do
     if SelectedRows.Count0 then
     with DataSource.DataSet do
   for i:=0 to SelectedRows.Count-1 do
   begin
     GotoBookmark(pointer(SelectedRows.Items[i]));
 
     Campo := Fields[0].AsInteger;
     
 DmAuditoria.TableOperadorSubestoque.InsertRecord([DmAuditoria.TableOperadorCD_OPERADOR.AsInteger,Campo]);
 // o erro ocorre nesta liha
 
     //DmAuditoria.TableOperadorSubestoque.Post; não há necessidade desta 
 linha

   end;
 
 end;

-- 
Petroserv Macae (http://www.petroservmacae.com.br)

-- Original Message ---
From: Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] 
To: delphi-br@yahoogrupos.com.br 
Sent: Tue, 31 Jan 2006 11:48:13 -0300 
Subject: [delphi-br] Iniciante no Delphi, apanhando que nem um probe coitado, 
Problemas SQL Server 2000 + Delphi 7 e relacionamentos! 

 Bons Dias!
 
 Sou programador Java a 3 anos, e estou trabalhando em um projeto com
 Delphi, mas estou tendo serios problemas com restrições de
 relacionamento, que o Delphi não tem respeitado!
 
 Agradeço muito a colaboração dos colegas! Vamos a detalhes:
 
 Tenho 3 tabelas:
 CREATE TABLE [dbo].[OPERADOR_SUBESTOQUE] (
   [CD_OPERADOR] [int] NOT NULL ,
   [CD_SUBESTOQUE] [int] NOT NULL
 ) ON [PRIMARY]
 
 CREATE TABLE [dbo].[OPERADOR] (
   [CD_OPERADOR] [int] IDENTITY (1, 1) NOT NULL ,
   [NM_OPERADOR] [varchar] (50) ,
   [NM_APELIDO] [varchar] (25) NOT NULL ,
   [DE_SENHA] [varchar] (15) NOT NULL ,
   [ID_BLOQUEIO] [varchar] (1) NULL
 ) ON [PRIMARY]
 
 CREATE TABLE [dbo].[SubEstoque] (
   [CD_SUBESTOQUE] [int] IDENTITY (1, 1) NOT NULL ,
   [NM_SUBESTOQUE] [varchar] (50) NOT NULL
 ) ON [PRIMARY]
 
 A tabela Operador_Subestoque recebe como FK o campo Cd_Operador de
 Operador e Cd_SubEstoque de SubEstoque.
 
 A intenção é caso exista um registro na Tabela Operador_Subestoque, o
 operador pode atuar sobre o SubEstoque! mas infelizmente o Delphi
 emite uma mensagem de erro quanto tento inserir um registro, tal
 mensagem de erro relata que estou tentando inserir uma valor nulo no
 campo CD_SubEstoque da tabela Operador_SubEstoque, o que realmente não
 é permitido.
 
 Estou usando o seguinte codigo para inserir o novo registro (o erro
 esta na linha que possui o comentário):
 
   with FrmListaSimplesSubEstoque.DBGrid1 do
     if SelectedRows.Count0 then
     with DataSource.DataSet do
   for i:=0 to SelectedRows.Count-1 do
   begin
     GotoBookmark(pointer(SelectedRows.Items[i]));
 
     Campo := Fields[0].AsInteger;
     
 DmAuditoria.TableOperadorSubestoque.InsertRecord([DmAuditoria.TableOperadorCD_OPERADOR.AsInteger,Campo]);
 // o erro ocorre nesta liha
 
     DmAuditoria.TableOperadorSubestoque.Post;
   end;
 
 end;
 
 Mais uma vez agradeço, caso necessite mais informaçoes estou disponivel!
 
 Se preferir eis meu MSN [EMAIL PROTECTED]
 Obrigado!
 --
 Carlos Delfino
 Consultoria e Pesquisa
 Desenvolvimento de Softwares.
 Sun Certified Associate for Java Platform
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
 


Yahoo! Grupos, um serviço oferecido por:

PUBLICIDADE
  
 
---
Links do Yahoo! Grupos
 

* Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
   
* Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
   
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!.

--- End of Original Message ---



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html