Insert SQL

[Marcelo Ribamar 0]

Pessoal, socorro, não sei mais o que fazer, este comando está retornando como dataser SQL não em edit ou isert mode, o que fazer?

 

 

Cust_M_Prima.Close;
			   Cust_M_Prima.SQL.Clear;
			   Cust_M_Prima.RequestLive := True;
			   Cust_M_Prima.SQL.Add('Select * From dbo.Cust_M_Prima');
			   Cust_M_Prima.Open;
			   Cust_M_Prima.append;
			//////////
			 Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
			 Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
			 Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
			//////

[marcio.theis 3]

Você pede um insert passando um SQL ?

Da forma que esta mostrando, não precisa do Append, e sim algo como:

 

Cust_M_Prima.Close;
Cust_M_Prima.SQL.Clear;
Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
Cust_M_Prima.ExecSQL;

[Marcelo Ribamar 0]

Você pede um insert passando um SQL ?

Da forma que esta mostrando, não precisa do Append, e sim algo como:

 

Cust_M_Prima.Close;
Cust_M_Prima.SQL.Clear;
Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
Cust_M_Prima.ExecSQL;

estive ausente estes dias, mas fui tentar e retornou um erro do tipo Incorrect syntax near 'VALUE'. o que é isso?

[orc 0]

Você pede um insert passando um SQL ?

Da forma que esta mostrando, não precisa do Append, e sim algo como:

 

Cust_M_Prima.Close;
Cust_M_Prima.SQL.Clear;
Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
Cust_M_Prima.ExecSQL;

estive ausente estes dias, mas fui tentar e retornou um erro do tipo Incorrect syntax near 'VALUE'. o que é isso?

 

 

é pq num é value é VALUES

[Marcelo Ribamar 0]

Você pede um insert passando um SQL ?

Da forma que esta mostrando, não precisa do Append, e sim algo como:

 

Cust_M_Prima.Close;
Cust_M_Prima.SQL.Clear;
Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
Cust_M_Prima.ExecSQL;

estive ausente estes dias, mas fui tentar e retornou um erro do tipo Incorrect syntax near 'VALUE'. o que é isso?

 

 

é pq num é value é VALUES

 

 

por values passou mas agora está com Must declare the variable '@Pla'. - tem outra forma de fazer isso? ou está é a melhor?

[orc 0]

Você pede um insert passando um SQL ?

Da forma que esta mostrando, não precisa do Append, e sim algo como:

 

Cust_M_Prima.Close;
Cust_M_Prima.SQL.Clear;
Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
Cust_M_Prima.ExecSQL;

estive ausente estes dias, mas fui tentar e retornou um erro do tipo Incorrect syntax near 'VALUE'. o que é isso?

 

 

é pq num é value é VALUES

 

 

por values passou mas agora está com Must declare the variable '@Pla'. - tem outra forma de fazer isso? ou está é a melhor?

 

Tenta assim, onde você passou parametro troca arroba para dois pontos :

 

Cust_M_Prima.SQL.Add('VALUES(:Pla,:Cod,:Eco,:pre)end');

[Marcelo Ribamar 0]

Você pede um insert passando um SQL ?

Da forma que esta mostrando, não precisa do Append, e sim algo como:

 

Cust_M_Prima.Close;
Cust_M_Prima.SQL.Clear;
Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
Cust_M_Prima.ExecSQL;

estive ausente estes dias, mas fui tentar e retornou um erro do tipo Incorrect syntax near 'VALUE'. o que é isso?

 

 

é pq num é value é VALUES

 

 

por values passou mas agora está com Must declare the variable '@Pla'. - tem outra forma de fazer isso? ou está é a melhor?

 

Tenta assim, onde você passou parametro troca arroba para dois pontos :

 

Cust_M_Prima.SQL.Add('VALUES(:Pla,:Cod,:Eco,:pre)end');

 

Mudou novamente agora retornou - Cust_M_Prima :Field 'Pla' is of unknwon type

[orc 0]

Você pede um insert passando um SQL ?

Da forma que esta mostrando, não precisa do Append, e sim algo como:

 

Cust_M_Prima.Close;
Cust_M_Prima.SQL.Clear;
Cust_M_Prima.SQL.Add('IF NOT EXISTS(SELECT * from [dbo].[Cad_M_Prima] where Cad_CM_Planta = @Pla and Cad_CM_Codigo = @Cod and Cad_CM_Economics = @Eco');
Cust_M_Prima.SQL.Add('INSERT INTO [dbo].[Cad_M_Prima] ([Cad_CM_Planta],[Cad_CM_Codigo],[Cad_CM_Economics],[Cad_CM_Preco])');
Cust_M_Prima.SQL.Add('VALUE(@Pla,@Cod,@Eco,@pre)end');
Cust_M_Prima.ExecSQL;

estive ausente estes dias, mas fui tentar e retornou um erro do tipo Incorrect syntax near 'VALUE'. o que é isso?

 

 

é pq num é value é VALUES

 

 

por values passou mas agora está com Must declare the variable '@Pla'. - tem outra forma de fazer isso? ou está é a melhor?

 

Tenta assim, onde você passou parametro troca arroba para dois pontos :

 

Cust_M_Prima.SQL.Add('VALUES(:Pla,:Cod,:Eco,:pre)end');

 

Mudou novamente agora retornou - Cust_M_Prima :Field 'Pla' is of unknwon type

 

 

como você esta atribuindo os valores para os parametros ??

[Marcelo Ribamar 0]

Todas as variável são do tipo string