Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''access''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

  1. Caros, Boa tarde a todos! Preciso de um grande help. Estou montando uma macro que atualize alguns relatórios automaticamente todo dia. Existe um relatório que sua base de dados é muito grande e está alocada em uma tabela do Access. Preciso saber se tem como criar um código que faça o Access importar o arquivo txt com os dados para a tabela e depois rodar uma consulta que modifica esses dados automaticamente. Grato pela atenção e ajuda!
  2. Ola Amigos eu preciso de uma ajuda, eu estou querendo fazer um calculo em uma tabela no Access 2007 porem quando eu coloco pra ele calcular a tabela fica em branco o calculo é SalarioFixo - 200 N_deVendas - 5 Comissao - Salariofixo*0,1*N_de vendas toda vez que coloco para fazer esse calculo o calculo não aparece na tabela
  3. Bom dia povo do ScriptBrasil. Sou novo no access e venho aqui pedir um help a vocês. É o seguinte. Tenho uma tabela com Código (Chave) que tem uma data de prazo (Data1 e Data2) e eu gostaria de saber como seria o código ou Script que eu poderia colocar no Access e que quando estivesse faltando três dias para o fim do prazo ele colocasse um alerta na tela assim que eu abrisse o formulário se possível informando qual Documento estaria vencendo ou vencido (Data de vencimento já vencido). Obrigado ;)
  4. Bom dia galera do Fórum. Estou com uma pequena dificuldade que é a seguinte: Tenho dois grupos de usuários usando sistema de cadastro e eu gostaria de fazer o seguinte: O primeiro grupo daria entrada em um documento com todos os dados do mesmo e ao final do cadastro o sistema enviasse uma mensagem para o segundo segundo grupo com o nome do "doc" que irá analisar o mesmo e ao final enviar de volta retornando com outra mensagem. Obrigado desde já pela ajuda.
  5. Olá, Preciso descobrir como faço para saber a próxima data disponível no banco. Será que é possível? +/- assim: tbPrincipal ----------------------------------------------------- |Data | | Carro | ----------------------------------------------------- |01/05/2014 | | C4 | |01/02/2014 | | C3 | |01/03/2014 | | ZAFIRA | |01/05/2014 | | ZAFIRA | |01/03/2014 | | C3 | ------------------------------------------------------ Consulta que preciso: SELECT Data, 'proxima data disponivel' FROM tbPrincipal GROUP BY Data ------------------------------------------------------ |Data | | Proxima Data | ------------------------------------------------------ |01/02/2014 | | 01/03/2014 | |01/03/2014 | | 01/05/2014 | |01/05/2014 | | null | ------------------------------------------------------
  6. Estou criando um Banco de Dados Access preciso de algumas dicas para resolver um problema. Criei um filtro de pesquisa em um formulário ("FmlPesquisaRelDataEntrega") para gerar relatório de acordo com a data selecionada. Para isto, primeiramente adicionei uma "tabela de consulta" e através dela gerei um relatório classificado por data. E em um formulário adicionei duas caixas de textos no formato data abreviada ("txtDataInicial1" e "txtDataFinal1") e um botão para pesquisar. Na minha tabela de consulta contém as seguintes colunas (só mencionarei as que importam) "PrevisãoDeEntrega" e "DataDeEntrega", elas servem para que eu controle quando o material sera entregue e quando realmente foi entregue, respectivamente, pois as entregas costumam ser adiantadas. A coluna de "DataDeEntrega" não esta contida no relatório, somente a primeira. Tanto a tabela de consulta quanto o relatório são para eu controlar as entregas que serão feitas, e lembrar ao fornecedor das mesmas. Como o meu objetivo é verificar somente as entregas que ainda não foram feitas, na coluna "DataDeEntrega" adicionei o critério "É Nulo' para que apareça somente os espaços em branco. E na coluna "PrevisãoDeentrega" adicionei o seguinte critério: "Entre [Forms]![FmlPesquisaRelDataEntrega]![txtDataInicial1] E [Forms]![FmlPesquisaRelDataEntrega]![txtDataFinal1]". Bom, após toda esta explicação vai a minha dúvida. Através do meu formulário consigo pesquisar as entregas pendentes de acordo com a data que eu selecionar, porém gostaria que quando os campos para o preenchimento da data estivesse em branco pesquisasse todas as entregas pendentes, ou seja, todas as entregas em que o a coluna "DataDeEntrega" esteja em branco. Para solucionar isto eu tentei (sem sucesso) utilizar o seguinte critério na coluna "PrevisãoDeEntrega": Como (Entre [Forms]![FmlPesquisaRelDataEntrega]![txtDataInicial1] E [Forms]![FmlPesquisaRelDataEntrega]![txtDataFinal1]) & "*". Saberiam como me ajudar?
  7. Bom Pessoal, Sou novo aqui e não sei onde postar, então, caso esteja no local errado já peço desculpas adiantas. Estou criando um painel de controle de informações para minha empresa e, em um subformulário de um subformulário (isso mesmo) há um campo de pesquisa em lista linkada com caixa de texto. O Tutorial que segui utiliza o comando "Como" para pegar as informações digitadas e traz na lista logo abaixo. Com um SendKeys no VBA, ele atualiza toda vez que é digitado algo na caixa. O Problema é que, sempre que vou abrir este formulário (pesquisa_login) que fica dentro de "pesquisa" que, por sua vez, está no "Main", ele diz que não o campo não tem parâmetros e traz uma caixa de texto com o seguintes dizeres: O Comando que estou utilizando para a importação automática durante a pesquisa é o abaixo: Como fazer para essa notificação dos parâmetros sumir?
  8. Solução em biometria facial para desenvolvedor delphi7 ,Vb.Net e Access VBA Khronos Tecnologia - Software/Aplicativo e consultoria em desenvolvimento biométrico Saiba mais em http://geovanny-oliveira16.wix.com/khronostecnologia Skype:Giovanny0113
  9. Olá! Estou com um problema na conexão do access. Uso um botão que no evento click deveria mostrar em um dropdown list os registros da tabela. <asp:Button ID="Button1" runat="server" Text="Button" /> <asp:DropDownList id="ddlCampos" Width="200px" Runat="server" Height="37px"></asp:DropDownList> E a conexão: Imports System.Data.OleDb Public Class _Default Inherits Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Table_ As String = "PRODUTOS" Dim query As String = "SELECT NOME FROM " & Table_ Dim MDBConnString_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\est10703\Desktop\Awq\DB.mdb;" Dim ds As New DataSet Dim cnn As OleDbConnection = New OleDbConnection(MDBConnString_) cnn.Open() Dim cmd As New OleDbCommand(Query, cnn) Dim da As New OleDbDataAdapter(cmd) da.Fill(ds, Table_) cnn.Close() Dim t1 As DataTable = ds.Tables(Table_) ddlCampos.Items.Add(t1.ToString) End Sub O problema é que na dropdownlist tá aparecendo só o nome da tabela, não os registros dela. Como consertar isso?
  10. Olá! Tenho duas tabelas uma de Funcionáriose outra de Treinamento. Minha chave primária na tabela Funcionários é o CPF e na tabela de Treinamento é o CPF e TIPO de treinamento. Um Funcionário pode realizar vários TIPOS treinamento, mas não pode realizar o mesmo por isso criei uma chave estrangeira na tabela Treinamento. Estou tentando fazer uma consulta para retornar os registros da tabela treinamento que possui a maior data de conclusão por CPF. Para tanto, se eu fizer o seguinte no ACCESS em SQL: SELECT [Tb Treinamento].[Nf Func], Max([Tb Treinamento].[Dt Conclusao]) AS [MaxDeDt Conclusao] FROM [Tb Treinamento] GROUP BY [Tb Treinamento].[Nf Func]; Deste modo consegui visualizar o número total correto de CPFs sem repetições de outros TIPOS de treinamento cuja a data é a maior. Porém, a minha consulta necessita de outras informações e se tento adicionar por exemplo, Data de envio ou o TIPO da tabela TREINAMENTO ele não me mostra mais a maior data. Ele simplesmente me mostra todos os registros correspondentes com o relacionamento da chave primária de ambas as tabelas. Segue abaixo como estou tentando: SELECT [Tb Treinamento].[Nf Func], [Tb Treinamento].[Dt Envio], Max([Tb Treinamento].[Dt Conclusao]) AS [MaxDeDt Conclusao], [Tb Treinamento].[status trn], [Tb Treinamento].Certificado FROM [Tb Treinamento] GROUP BY [Tb Treinamento].[Nf Func], [Tb Treinamento].[Dt Envio], [Tb Treinamento].[status trn], [Tb Treinamento].Certificado; Poderiam me ajudar? Não sei o que estou fazendo de errado. -_-
  11. Solução em biometria facial para desenvolvedor delphi7 ,Vb.Net e Access VBA Khronos Tecnologia - Software/Aplicativo e consultoria em desenvolvimento biométrico Saiba mais em http://geovanny-oliveira16.wix.com/khronostecnologia Skype:Giovanny0113
  12. Boa tarde, Sou novo no Access e estou tentando gerar um relatório a partir de dados que eu tenho em uma tabela de pesquisa de opinião de clientes. Por exemplo: tenho uma coluna chamada "educação do atendente" que possui valores numéricos de 1 à 5 onde 1 é "Excelente" e 5 é "Péssimo" e 6 é "Não respondeu" Preciso gerar um gráfico com o seguinte conteúdo(já tinha feito no Excel mas o volume de dados acabou se tornando muito grande):
  13. Boa tarde! Possuo um BD com 12 tabelas. desde janeiro meus funcionários incluem informações e ele nunca deu erro. há também 2 FrontEnd, 1 para cadastro e outro para acompanhamento. o de cadastro somente uma funcionária utiliza, e o de acompanhamento 3 funcionárias complementam (Não criam novos registros) as informações somente de uma tabela que é a tblFaturas. Recentemente fiz algumas alterações e incluí 3 novas tabelas, totalizando 15. o sistema rodou liso por uma semana e após isto começou a apresentar alguns erros ao alterar os registros. Ao fazer as alterações e salvar no formulário de cadastro aparece a seguinte caixa de mensagem "Registro excluído". Ao abrir o BD aparece a mensagem de que o Access detectou que o bd apresenta um estado inconsistente e tentará recupera-lo. Logo após, aparece uma nova tabela com a descrição dos 3 erros: ErrorCode: - 1017 ErrorDescription: Registro Excluído. ErrorTable: tblFatura ErrorCode: - 1053 ErrorDescription: Índice ou chave primária não pode conter valor Null. ErrorTable: tblFatura ErrorCode: - 1630 ErrorDescription: Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na 'TblDespesa'. ErrorTable: tblFatura Já pedi para a equipe de Ti restaurar o arquivo de 3 dias antes do erro ocorre e mesmo assim após linkar o Bd recuperado ele volta a apresentar o mesmo erro. Alguém sabe solucionar? pode ser problema de ter inserido novas tabelas?
  14. Boas! Criei uma base de dados que tem o formulário inicial com origem numa consulta. Basicamente, defini nessa consulta uma condição (data <= dd/mm/aa) que a ser verdadeira, aparece o formulário com todos os botões. Quando não se verifica essa condição abre esse formulário em branco e não dá para fazer mais nada. Isto já me vai servindo, mas o que eu gostaria é que caso a condição não se verifique abra um outro formulário. Obrigado. Abraço
  15. LiliaJ

    Access

    Olá a todos, estou a tentar fazer um formulário com campos de diferentes tabelas, relaccionadas entre si. Ao passar de vista de estrutura para vista de formulário, aparece em branco. Não consigo ver nenhum campo na vista de formulário. Alguém me pode ajudar, por favor. Obrigado
  16. Olá a todos, é o seguinte, eu costumo utilizar o assistente de pesquisa para ir buscar dados a outras tabelas. E funciona mt bem quando há apenas uma tabela para cada campo. Agora tenho uma tabela com 2 campos. Campo 1 e Campo 2. Se o Campo 1 tiver o valor 1, no campo 2 quero optar por valores da tabela 1, caso contrário, se o campo 1 tiver o valor 2 no campo 2 quero optar por valores da tabela 2.. Não sei como fazer :\. Alguém me pode ajudar por favor. Muito Obrigado..
  17. Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:geovanny_oliveira16@hotmail.com
  18. Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:geovanny_oliveira16@hotmail.com
  19. Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:geovanny_oliveira16@hotmail.com
  20. Opa Galera tudo bem? Montei um Canal no Youtube sobre tutoriais, nesse primeiro momento estou subindo vídeos do Access e do Excel, mas pretendo expandir também para SQL Server, Visual Studio e outros softwares. Youtube: https://www.youtube.com/user/livebraintutoriais/ Facebook:https://www.facebook.com/livebraintutoriais
  21. Com a seguinte linha de código eu consigo que apareça no meu datagrid as informações de vendas daquele dia em questão Private Sub btn_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscar.Click Dim strdia, strmes, strano, strdata As String strdia = Calendario.SelectionStart.Day strmes = Calendario.SelectionStart.Month strano = Calendario.SelectionStart.Year strdata = strdia + "/" + strmes + "/" + strano Me.DataTable1BindingSource.Filter = "DATA_DA_VENDA = '" + strdata + "'" Me.DataTable1TableAdapter.Fill(Me.CARLINHOS_BARDataSet.DataTable1) End Sub porém eu percebi que quando eu executo esse comando ele não me mostra realmente todas as vendas como vocês podem ver aqui nas imagens eu estou com 8 vendas efetuadas 7 delas no dia 06 porém quando vou puxar o relatório específico ele me retorna apenas 5 vendas do dia 06. Percebi que não aparecem as vendas que foram feitas pra uma mesma pessoa. e quando executo o comando... eu preciso que além de no meu form_relat_cliente ele mostre todas as vendas do período especificado, como também pesquisar por cliente. Porém não sei o que adicionar a minha linha de código. Será q vocês podem me ajudar ?
  22. Olá boa noite, Eu estou com o seguinte projeto onde eu quero assim que selecionar o código do cliente e o código do produto e também selecionada a quantidade que o seja gravado na minha tabela de vendas já com o (valor*quantidade), por enquanto estou com essa linha de código Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim intcodigodoproduto, intnomedocliente As Integer intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim strquantidade, strvalorfinal As String Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value strquantidade = QUANTIDADENumericUpDown.Value strvalorfinal = VALORMaskedTextBox.Text Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal) MsgBox("Venda Efetuada!") Me.Close() End Sub End Sub porém não sei como fazer com que já seja mostrado esse valor final da compra e como fazer para que ele já seja inserido no meu vendastableadapter O que eu devo inserir a mais na linha de código para que quando meu numberUpDown for mudando o meu valor também mude ? Agradeço desde já. ..... Enquanto isso, eu mudei algumas linhas Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim intcodigodoproduto, intnomedocliente As Integer intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim strquantidade, strvalorfinal As Integer Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(0).Value strquantidade = QUANTIDADENumericUpDown.Value strvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value) Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal) MsgBox("Venda Efetuada!") End Sub Agora eu já consigo fazer essa multiplicação mas não consigo ve-la sem fazer a venda acontecer, porém agora estou com o seguinte problema quando vou olhar na tabela de vendas o código do produto está no nome do cliente e o código do cliente esta no código do produto, estão invertidos kkk e na verdade nesse relatório eu quero o nome do cliente e não o código dele. será que alguém pode me ajudar ? PESSOAL KKKK CONSEGUI CORRIGIR ESSES ERROS Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim strnomedocliente, strnomedoproduto As String intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim intquantidade, intvalorfinal As Integer Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) strnomedoproduto = DataGridPRODUTOS.CurrentRow.Cells(1).Value strnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value intquantidade = QUANTIDADENumericUpDown.Value intvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value) Me.VendasTableAdapter1.Insert(dtDataVenda, strnomedocliente, strnomedoproduto, intquantidade, intvalorfinal) MsgBox("Venda Efetuada!") End Sub TROQUEI UNS INTEGER POR UNS STRING E ALGUMAS ORDENS E DEU TUDO CERTO MUITO OBRIGADO
  23. biribiu

    Colar Especial

    Pessoal, Por favor poderiam me ajudar no código abaixo? DoCmd.GoToRecord acTable, "PC_Base", acNewRec DoCmd.RunCommand (acCmdSelectRecord) DoCmd.RunCommand acCmdPasteSpecial Não estou conseguindo colocar pra colar apenas texto! Sempre aparece uma caixa pra q eu escolha qual tipo de "Colar Especial" Agradeço desde já, João
  24. Ola, minha situação é a seguinte: Criei uma tabela e estou que é carregada direto do formulario quando ele carrega. " Set bdestoque = OpenDatabase("c:\VB Projects\Database\estoque.mdb") Set tbentrada = bdestoque.OpenRecordset("entrada", dbOpenDynaset) " Gostaria de saber qual a forma de consultar dados da tabela. Não estou usando nenhum datacontrol nem ADO. Sei que por comando SQL é possivel consultar, usando apenas um botão para dar o comando, mais não me recordo como. A ideia é consultar os dados da tabela por um codigo digitado pelo usuario numa caixa de texto, usando uma variavel geralmente chamada de "criterio" para guardar o dado digitado e busca-lo na tabela. Alguma coisa como : ... & criterio & ... Desde já agradeço ajuda de todos.
  25. Galera boa noite sou novo e estou me familizarizando com o forum e também sou novo em asp estou fazendo um site para minha prova final, já consegui criar a pagina para incluir lsitar e excluir a minha duvida é a seguinte: Como posso fazer para consultar em uma tabela de 15 campos apenas 5 campos? exe:. minha tabela_funcionarios tenho os campos: codigo,matricula,nome,departamento,setor,empresa,ramal..... criei uma pagina para consulta onde o usuario poderia pesquisar por um dos 3 campos nome ou matricula ou departamento como posso fazer para buscar dessa maneira a pagina que criei listar puxa todo o meu banco e não so uma linha exclusiva, segue o codigo da minha pagina listar.asp: <!-- #include file="conn.asp" --> <% vSql = "SELECT * FROM TAB_FUNCIONARIOS" Set myRst = Server.CreateObject("ADODB.Recordset") myRst.Open vSql, conn, 3, 3 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Funcionarios Brasfels</title> <style type="text/css"> body { background-image: url(); } .Subtitulo { font-family: Tahoma, Geneva, sans-serif; font-size: 18px; text-align: center; } .listagem { font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif; font-size: 12px; } </style> </head> <body> <table width="100%" height="533" border="0" align="center"> <tr> <td><table width="100%" border="1"> <tr> <td width="800" height="122" align="center" valign="middle" class="Subtitulo"><img src="imagens/LOGOBR.jpg" width="288" height="126" /><br /></td> </tr> <tr> <td height="44" align="center"><table width="100%" border="0"> <tr> <th width="64" height="35" scope="col"><a href="Login.html"><img src="imagens/home.gif" width="30" height="30" longdesc="menu.html" /></a></th> <th width="865" scope="col"><p class="Subtitulo"> Funcionario </p></th><hr> <th width="81" scope="col"><a href="menu.html"><img src="imagens/seta-voltar.gif" width="30" height="30" longdesc="login.html" /></a></th> <table width="80%" border="1" cellpadding="0" cellspacing="0"><hr> <tr> <th width="2%" scope="col">codigo</th> <th width="6%" scope="col">matricula</th> <th width="40%" scope="col">nome</th> <th width="10%" scope="col">departamento</th> <th width="10%" scope="col">Empresa</th> <th width="10%" scope="col">&nbsp;</th> </tr> <% do while not myRst.EOF var_codigo = myRst.fields("codigo") var_matricula = myrst.fields("matricula") var_nome = myrst.fields("nome") var_departamento = myrst.fields("departamento") var_empresa = myrst.fields("empresa") %> <tr> <td height="45" align="center" valign="middle"><%=var_codigo%></td> <td align="center" valign="middle"><%=var_matricula%></td> <td align="center" valign="middle"><%=var_nome%></td> <td align="center" valign="middle"><%=var_departamento%></td> <td align="center" valign="middle"><%=var_empresa%></td> <td align="center" valign="middle"><table width="100%" border="1"> <tr> <th scope="col"><a href="funcionario_bf_form_alterar.asp?codigo=<%=var_codigo%>"><img src="imagens/user_male_edit.png" name="atualizar" width="32" height="32" id="atualizar" /></a></th> <th scope="col"><a href="funcionario_bf_excluir.asp?codigo=<%=var_codigo%>"><img src="imagens/delete.png" name="deletar" width="35" height="35" id="deletar" /></a></th> </tr> </table></td> </tr> <% myRst.MoveNext loop %> </table> </tr> </table> </tr> </table> </body> </html>
×
×
  • Criar Novo...