EMSO.EXE

Funcionou exatamente do jeito que eu precisava!!! Obrigado!!!

Jovens! Estou montando um sistema simples que trabalha com 2 tabelas tb_colaboradores e tb_setor_cargo. tb_colaboradores cd_matricula....nm_nome....cd_codigo 1001................Bruce.............003 1002................Clark..............003 1003................Diana.............004 1004................Barry..............004 1005................Hal.................005 A coluna cd_codigo é a referência ao cargo do funcionário. tb_setor_cargo cd_codigo....cd_setor_cargo.....ds_setor_cargo 001................999......................informatica 002................999......................atendimento 003................001......................aux de informatica 004................002......................aux de atendimento 005................001......................programador A coluna cd_codigo "individualiza" cada setor e cargo. A coluna cd_setor_cargo com valor 999 define que trata-se de um setor A coluna cd_setor_cargo com valor 001 define que trata-se de um cargo que pertence ao setor 001 (cd_codigo) Agora estou tentando exibir as informações em uma página em PHP, até este ponto está ok, consigo exibir matrícula, nome, cargo, porém não consigo exibir a descrição do setor, consigo exibir somente a código do setor. SELECT * FROM tb_colaboradores AS c INNER JOIN tb_setor_cargo AS a ON c.cd_codigo = a.cd_codigo INNER JOIN tb_setor_cargo AS b ON a.cd_codigo = b.cd_codigo ORDER BY nm_nome; Acredito que o problema esteja no 2 INNER JOIN pois este não faz diferença de estar ou não no código. Alguém pode demonstrar se é possível fazer essa exibição dos registros? Agradeço

consegui desta forma Private Sub btn_consulta_desc_Click() Dim coluna(31) As String Dim y, i, k As Integer y = 7 Sheets("consulta").Select Range("B4").Select pesquisa = ActiveCell.FormulaR1C1 If pesquisa = "" Then Exit Sub Set plan = Sheets("dados") Set x = plan.Columns("A:A").Find(what:=pesquisa) If Not x Is Nothing Then celula = x.Address Do plan.Select x.Select Selection.Copy For i = 1 To 31 coluna(i) = x.Columns(i) Next i Sheets("consulta").Select Range("A" & y).Value = coluna(1) Range("B" & y).Value = coluna(2) Range("C" & y).Value = coluna(3) Range("D" & y).Value = coluna(4) Range("E" & y).Value = coluna(5) Range("F" & y).Value = coluna(7) Range("G" & y).Value = coluna(12) Range("H" & y).Value = coluna(14) Range("I" & y).Value = coluna(15) Range("J" & y).Value = coluna(16) Range("K" & y).Value = coluna(17) Range("L" & y).Value = coluna(18) Range("M" & y).Value = coluna(19) Range("N" & y).Value = coluna(21) Range("O" & y).Value = coluna(22) Range("P" & y).Value = coluna(23) Range("Q" & y).Value = coluna(24) Range("R" & y).Value = coluna(25) Range("S" & y).Value = coluna(26) Range("T" & y).Value = coluna(30) Range("U" & y).Value = coluna(31) y = y + 1 Set x = plan.Columns("A:A").FindNext(x) Loop While Not x Is Nothing And x.Address <> celula Else MsgBox "Produto " & pesquisa & " não encontrado na planilha " & plan.Name End If End Sub

Olá jovens! Seguinte estou desenvolvendo uma planilha em que o usuário lança em uma célula a descrição do produto (por exemplo: refrigerante) e ao clicar em um botão a sub-rotina pesquisa em uma guia (planilha) e retorna em outra guia todas as ocorrências com a palavra digitada e mais outras informações (por exemplo: preço, qtde em estoque, data de entrada, etc) O código abaixo retorna com base na pesquisa por descrição do produto na coluna A, este está funcionando. Quero usar o mesmo código em outro botão para fazer uma pesquisa com base no código da mercadoria que fica na coluna B, porém retorna todos os dados exceto a descrição da mercadoria na coluna A Agradeço a ajuda Private Sub btn_consulta_desc_Click() Call LimpaPesquisa Dim coluna(31) As String Dim y, i, k As Integer y = 7 Sheets("consulta").Select Range("B4").Select pesquisa = ActiveCell.FormulaR1C1 If pesquisa = "" Then Exit Sub Set plan = Sheets("smg11") Set x = plan.Columns("A:A").Find(what:=pesquisa) If Not x Is Nothing Then celula = x.Address Do plan.Select x.Select Selection.Copy For i = 1 To 31 coluna(i) = x.Columns(i) Next i Sheets("consulta").Select Range("A" & y).Value = coluna(1) Range("B" & y).Value = coluna(2) Range("C" & y).Value = coluna(3) Range("D" & y).Value = coluna(4) Range("E" & y).Value = coluna(5) Range("F" & y).Value = coluna(7) Range("G" & y).Value = coluna(12) Range("H" & y).Value = coluna(14) Range("I" & y).Value = coluna(15) Range("J" & y).Value = coluna(16) Range("K" & y).Value = coluna(17) Range("L" & y).Value = coluna(18) Range("M" & y).Value = coluna(19) Range("N" & y).Value = coluna(21) Range("O" & y).Value = coluna(22) Range("P" & y).Value = coluna(23) Range("Q" & y).Value = coluna(24) Range("R" & y).Value = coluna(25) Range("S" & y).Value = coluna(26) Range("T" & y).Value = coluna(30) Range("U" & y).Value = coluna(31) Call FormatarLinha(y) y = y + 1 Set x = plan.Columns("A:A").FindNext(x) Loop While Not x Is Nothing And x.Address <> celula Else MsgBox "Produto " & pesquisa & " não encontrado na planilha " & plan.Name End If End Sub

Sim, o melhor é um BD mesmo, mas quero aprender também usando arquivos texto...

Pessoal, alguém sabe onde posso encontrar apostilas, tutoriais, vídeos, sites, qualquer tipo de conteúdo para aprender a programar em COBOL e DATAFLEX? Agradeço

Pessoal como poderia estar consultando, lendo, atualizando e deletando, ou seja, todas as operações de banco de dados em arquivo txt com php, sei como ler e armazenar somente a 1ª linha de um arquivo, o que eu queria era trabalhar com arquivos com se fosse tabelas. Alguém pode de indicar funções ou tópicos no fórum que abordem esse assunto? valeu!

Obrigado, mas preciso que permita 2 registros... mas já resolvi... segue: create procedure stpAlunos_CursosIns @matricula int, @id_curso int as declare @qtde int set @qtde = (select count(matricula) as qtde from alunos_cursos where matricula=@matricula) if @qtde < 2 insert into alunos_cursos (matricula,id_curso) values (@matricula,@id_curso) else print ' Existem 2 registros!'

Pessoal, como adiciono uma Constraint Check que verifica se por exemplo o campo id_aluno está gravado mais de 2 vezes, ou seja, só permite 2 registros do aluno no banco, ele poderia fazer até 2 cursos id_aluno id_curso 01 10 01 20 02 10 02 30 02 20 <---------- não pode permitir esse registro Agradeço

Pessoal, estou com seguinte problema, tenho um BD no SQL SERVER 2008 STANDARD, já está no limite tenho que melhorar sua performance, pensei em criar filegroups e particionar o BD, porém a versão STANDARD não suporta isso, como posso implementar isso ou aumentar a capacidade do BD? Quais opções/ferramentas esta versão possui para esse fim? Agradeço

Ao criar uma função de particionamento o Microsoft SQL Server Management Studio (2008 R2) acusa que o objeto já existe no banco. Mensagem de erro: There is already an object named 'PF_HISTORICOVENDA' in the database -- SELECIONAR BANCO DE DADOS USE [dbXPTO] GO -- CRIAR FILEGROUPS ALTER DATABASE dbXPTO ADD FILEGROUP FGP1985 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1986 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1987 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1988 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1989 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1990 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1991 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1992 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1993 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1994 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1995 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1996 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1997 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1998 ALTER DATABASE dbXPTO ADD FILEGROUP FGP1999 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2000 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2001 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2002 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2003 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2004 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2005 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2006 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2007 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2008 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2009 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2010 ALTER DATABASE dbXPTO ADD FILEGROUP FGP2011 -- CRIAR ARQUIVOS DE DADOS RELACIONANDO AOS GRUPOS USE [master] GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1985', FILENAME = 'C:\db\F1985.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1985 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1986', FILENAME = 'C:\db\F1986.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1986 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1987', FILENAME = 'C:\db\F1987.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1987 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1988', FILENAME = 'C:\db\F1988.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1988 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1989', FILENAME = 'C:\db\F1989.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1989 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1990', FILENAME = 'C:\db\F1990.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1990 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1991', FILENAME = 'C:\db\F1991.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1991 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1992', FILENAME = 'C:\db\F1992.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1992 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1993', FILENAME = 'C:\db\F1993.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1993 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1994', FILENAME = 'C:\db\F1994.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1994 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1995', FILENAME = 'C:\db\F1995.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1995 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1996', FILENAME = 'C:\db\F1996.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1996 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1997', FILENAME = 'C:\db\F1997.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1997 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1998', FILENAME = 'C:\db\F1998.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1998 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F1999', FILENAME = 'C:\db\F1999.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP1999 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2000', FILENAME = 'C:\db\F2000.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2000 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2001', FILENAME = 'C:\db\F2001.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2001 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2002', FILENAME = 'C:\db\F2002.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2002 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2003', FILENAME = 'C:\db\F2003.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2003 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2004', FILENAME = 'C:\db\F2004.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2004 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2005', FILENAME = 'C:\db\F2005.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2005 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2006', FILENAME = 'C:\db\F2006.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2006 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2007', FILENAME = 'C:\db\F2007.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2007 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2008', FILENAME = 'C:\db\F2008.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2008 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2009', FILENAME = 'C:\db\F2009.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2009 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2010', FILENAME = 'C:\db\F2010.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2010 GO ALTER DATABASE dbXPTO ADD FILE ( NAME = 'F2011', FILENAME = 'C:\db\F2011.ndf' , SIZE = 2048KB , FILEGROWTH = 1024KB ) TO FILEGROUP FGP2011 GO -- CRIACAO DA FUNCAO DE PARTICIONAMENTO ---------------------------------- AQUI OCORRE O ERRO ------------------------------ CREATE PARTITION FUNCTION PF_HISTORICOVENDA (DATETIME) AS RANGE LEFT FOR VALUES ( '1985-01-01','1986-01-01','1987-01-01','1988-01-01','1989-01-01', '1990-01-01','1991-01-01','1992-01-01','1993-01-01','1994-01-01', '1995-01-01','1996-01-01','1997-01-01','1998-01-01','1999-01-01', '2000-01-01','2001-01-01','2002-01-01','2003-01-01','2004-01-01', '2005-01-01','2006-01-01','2007-01-01','2008-01-01','2009-01-01', '2010-01-01','2011-01-01' ) ------------------------------------------------------------------------------------------- AQUI OCORRE O ERRO ------------------------------ CREATE PARTITION SCHEME SCHEMA_VENDA AS PARTITION PF_HISTORICOVENDA TO (FGP1985,FGP1986,FGP1987,FGP1988,FGP1989,FGP1990, FGP1991,FGP1992,FGP1993,FGP1994,FGP1995,FGP1996,FGP1997,FGP1998,FGP1999,FGP2000, FGP2001,FGP2002,FGP2003,FGP2004,FGP2005,FGP2006,FGP2007,FGP2008,FGP2009,FGP2010, FGP2011) -- EXCLUINDO INDICE CLUSTERED ALTER TABLE VENDA DROP CONSTRAINT PK_VENDA -- CRIANDO INDICE CLUSTERED ALTER TABLE VENDA ADD CONSTRAINT PK_VENDA PRIMARY KEY CLUSTERED (CD_VENDA, DT_VENDA) ON SCHEMA_VENDA(DT_VENDA)

A programação web atual é uma tecnologia com problemas, combinamos diversas tecnologias asp, html, xml, php, java (e derivações), entre outras, enfrentamos problemas de compatibilidade com softwares, falhas específicas de cada linguagem... Até quando esta colcha de retalhos irá suportar a demanda atual de produtos e serviços?

problema resolvido!! segue a solução <?php include ('conexao_bd.php'); include ('cabecalho.php'); include ('menu.php'); $resultado_tipo = mysql_query("SELECT * FROM `docx_tb_tipo` INNER JOIN `docx_tb_ativo` ON `docx_tb_tipo`.`cod_tipo` = `docx_tb_ativo`.`cod_tipo`;") or die (mysql_error()); $resultado_subtipo = mysql_query("SELECT * FROM `docx_tb_tipo` INNER JOIN `docx_tb_ativo` ON `docx_tb_tipo`.`cod_tipo` = `docx_tb_ativo`.`cod_subtipo`;") or die (mysql_error()); $linha = mysql_num_rows($resultado_tipo); if ( $linha == 0 ) { if ( isset( $conexao ) and $conexao ) { mysql_close($conexao); } die('table vazia'); } echo ' <table> <tr> <th class="titulo"><p>EDITAR</p></th> <th class="titulo"><p>EXCLUIR</p></th> <th class="titulo"><p>Código ativo</p></th> <th class="titulo"><p>Tipo de ativo</p></th> <th class="titulo"><p>Modelo</p></th> <th class="titulo"><p>Data de entrada</p></th> <th class="titulo"><p>Número de série</p></th> <th class="titulo"><p>PIP</p></th> </tr> '; for( $x = 0; $x < $linha; $x++ ) { $cod_ativo = mysql_result($resultado_tipo, $x, 'cod_ativo'); $nm_tipo = mysql_result($resultado_tipo, $x, 'nm_tipo'); $nm_subtipo = mysql_result($resultado_subtipo, $x, 'nm_tipo'); $dt_entrada = mysql_result($resultado_tipo, $x, 'dt_entrada'); $num_serie = mysql_result($resultado_tipo, $x, 'num_serie'); $num_pip = mysql_result($resultado_tipo, $x, 'num_pip'); $icone_editar = "<a href='alterar_cadastro.php?cod_ativo=$cod_ativo'> <img src=\"imagens/alterar_01.png\" alt=\"Clique para editar\" /> </a>"; $icone_excluir = "<a href='excluir_cadastro.php?cod_ativo=$cod_ativo' onClick=\"return confirm('Deseja excluir o ativo:$cod_ativo?');\"> <img src=\"imagens/excluir_01.png\" alt=\"Clique para excluir\" /> </a>"; $y = 0; $y = floor(fmod($x,2)); if ($y == 0) $y = 1; else $y = 2; echo ' <tr class="linha'.$y.'"> <td><center>'.$icone_editar.'</center></td> <td><center>'.$icone_excluir.'</center></td> <td><center>'.$cod_ativo.'</center></td> <td>'.$nm_tipo.'</td> <td>'.$nm_subtipo.'</td> <td>'.$dt_entrada.'</td> <td>'.$num_serie.'</td> <td>'.$num_pip.'</td> </tr> '; } echo '</table>'; ?>

Resolvi com este sql: SELECT * FROM `docx_tb_tipo` INNER JOIN `docx_tb_ativo` ON `docx_tb_tipo`.`cod_tipo` = `docx_tb_ativo`.`cod_tipo` está exibindo o nm_tipo no lugar de cod_tipo, agora quero exibir também o nm_tipo em cod_subtipo, essa tabela tipo fiz da seguinte forma: cod_tipo - cod_subtipo - nm_tipo 1 ........ 10 .......... monitor 2 ........ 10 .......... mouse 3 ........ 10 .......... teclado 4 ........ 1 ........... LG 5 ........ 1 ........... Samsung 6 ........ 2 ........... Genius 7 ........ 2 ........... microsoft e estou o usando este sql: SELECT * FROM `docx_tb_tipo` INNER JOIN `docx_tb_ativo` ON `docx_tb_tipo`.`cod_tipo` = `docx_tb_ativo`.`cod_tipo` OR `docx_tb_tipo`.`cod_tipo` = `docx_tb_ativo`.`cod_subtipo`; porém está exibindo uma linha com cod_tipo e outra com cod_subtipo...

Pessoal estou com o seguinte problema em php+mysql... tenho 2 tabelas e quero exibir os dados conforme exemplo abaixo: tb_ativo cod_ativo cod_tipo 1 1 2 1 3 2 4 2 tb_tipo cod_tipo nm_tipo 1 monitor 2 teclado na listagem deve aparecer assim: página php cod_ativo nm_tipo 1 monitor 2 monitor 3 teclado 4 teclado porém ocorre o seguinte erro: Warning: mysql_result(): Unable to jump to row 1 on MySQL result index 9 in /files/portal/documentox/listagem_ativo.php on line 42 e a primeira linha funciona e as demais ficam sem dados: página php cod_ativo nm_tipo 1 monitor 2 3 4 segue o código: <?php include ('conexao_bd.php'); include ('cabecalho.php'); include ('menu.php'); $resultado = mysql_query("select * from docx_tb_ativo;") or die (mysql_error()); $linha = mysql_num_rows($resultado); if ( $linha == 0 ) { if ( isset( $conexao ) and $conexao ) { mysql_close($conexao); } die('table vazia'); } echo ' <table> <tr>