Rafaeljuni0.ti

Estou separando meu projeto em FrontEnd e BackEnd. Criei um modulo de conexão passando o caminho do Backend... ate ai beleza a tela de cadastro funcionou ...mas já em um form onde ao iniciar carrega um listbox com o resultado de uma consulta não esta funcionando aparece uma msg de que a consulta não foi encontrada ...pesquisando achei uma solução e fui na consulta alterei.. AOo invés de ..select campo from tabela coloquei select campo from tabela in 'caminho do banco Funcionou mas toda vez que eu precisar altera o caminho do banco terei que alterar... Algum sugestão de como criar uma consulta no frontend sendo que as tabelas estão no backend ? Outra pergunta antes de separar eu tinha alguns combox que era preenchido com dados da tabela mas ao separar frontend e backend o componente não encontra a tabela. Como posso resolver isso ? Obrigado!

Obrigado por responder MrMALJ ! mas no ListView no access não encontrei essa propriedade... atualmente uso o listboz que inclusive uso dessa forma na propriedade origem de registro. Obrigado !

Boa noite ! alguém tem um exemplo de como preencher um ListView .. nunca usei esse componente . Agradeco a atencao !

Boa noite pessoal,, Estou com a seguinte situação... tenho um tabela para contabilizar as horas de manutenção em um equipamento no dia,mes, ano e etc.., Digamos que tenho uma tabela com os seguinte campos: TMP_ID => id da tabela TMP_DT_INICIO => inicio da manutenção TMP_DT_FIM=> termino da manutenção TMP_EQUIPAMENTO => equipamento manutenido * uma manutencao nunca pode ocorrer duas vezes ao menos tempo ou seja se um equipamento X estiver na tabela que ele teve retido(em manuntencao) de 10/07/2012 a 18/07/2012 não havera outro registro desse mesmo equipamento entre essa data ..a proxima manutencao devera ser maio que a data de liberacao da ultima manuntecaoq ue esse equipamento fez. * mas esse equipamento pode entrar e sair da ofcina N vezes ou seja ele pode ficar retido entre 10/07 a 18/07 e depois ficar retido do dia 20/07 a 23/07 por exemplo. então o que preciso é contruir uma consulta que me diz quantas horas por dia esse equipamento ficou retido dia por dia ...usando o datediff consigo pegar a diferecnas entre o inicio e fim da manutencao e isso já faco em um outra situacao mas aqui preciso saber quanta horas ele ficou retido cada dia no mes atuas ou seja Digamos que um EQU_NOME ficou retido tres vezes no mes atual (Julho) do dia 13/07 as 7:00 ate 15/07 as 11:30 do dia 16/07 10:00 ate 18/07 as 11:00 precisaria que ele me retornasse que no dia 01/07 ,02/07 ....ate 12/07 teve 00:00 horas de manuntecao já no dia 13/07 teve 17:00 ,14/07 teve 24:00 e por ai vai ou seja uma coluna para cada dia do meu atual..sempre do mes atual as horas de manuntencao daquele determinado equipamento por dia ..se ele ficou parada uma vez mas foi 5 dias de manutencao preciso mostrar que dia tal teve tantas horas e por ai vai. Agradeco sempre a atencao do Forum. Obrigado

Boa noite pessoal ! já pesquisei e não consegui resolver meu problema ... tenho um gridview que estou preenchendo via codigo e como não estou usando datasource a propriedade alowing paging não funciona e como meu grid tem mais de 600 linha gostaria de mostar somente 10 ou 15 de cada vez... já tentei ir no evento pagechanging do grid e colocar o seguinte codigo GridView.PageIndex = e.NewPageIndex; GridView.DataBind(); e não funcionou se alguém puder me ajudar agradeco abraz!!

Bom dia pessoal ! Tenho uma tabela de cadastrar equipamentos (EQU_ID) em manutenção mas um equipamento so pode ser cadastrado novamente se o status dele (STA_ID) for igual de 1 (1 é liberado) alguém pode me ajudar ?? estou usando a stored procedure abaixo mas do jeito que esta ai abaixo ele inserir independente do status (STA_ID) do equipamento (EQU_ID) e o que preciso que so pode ser inserido se o equipamento não estiver mais na oficina ou seja STA_ID = 1 procedure [dbo].[iNSERIR_MANUTENCAO] @OFICINA VARCHAR(10) ,@OS VARCHAR (10) ,@STATUS INT ,@LOCAL VARCHAR (20) ,@EQUIPAMENTO_ID INT ,@DESCRICAO VARCHAR (100) ,@OBSERVACAO VARCHAR (500) ,@DT_INICIO DATETIME ,@DT_PREVISAO DATETIME ,@TIPO_SERVICO INT ,@TIPO_PREVENTIVA INT AS BEGIN INSERT INTO MANUTENCOES (MAN_OFICINA,MAN_OS ,STA_ID ,MAN_LOCAL ,EQU_ID,MAN_DESCRICAO ,MAN_OBSERVACAO ,MAN_DT_INICIO,MAN_DT_PREVISAO,TIPO_SERVICO_ID,TIPO_PREV_ID) VALUES (@OFICINA,@OS,@STATUS,@LOCAL,@EQUIPAMENTO_ID,@DESCRICAO,@OBSERVACAO,@DT_INICIO,@DT_PREVISAO,@TIPO_SERVICO,@TIPO_PREVENTIVA) END

alguém saberia me dizer onde ta o erro nesse codigo ( mas precisamente na linha da instrução SQL) estou tentando exibir na planilha (Relatorio) excel um unico registro de uma consulta Cons_geral...ira somente mostra o registro onde o campo item for igual ao que o usuario digitar no textbox Private Sub btn_exibir_porCod_Click() Dim cn As New ADODB.Connection Dim Rs As New ADODB.Recordset 'Dim codigo As String ' codigo = Txt_ConsPorCod.Value Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\MEUBANCO.mdb;" cn.CursorLocation = adUseClient cn.Open ' Cons_geral é um consulta do meu banco Set Rs = cn.Execute("SELECT * FROM Cons_geral WHERE (((Cons_geral.[item])= '& codigo ' ));") ' preenche o cabeçalho do relatorio Plan3.Range("A1").Value = (" Relatorio ") Plan3.Range("A2").Value = ("Todos os Itens Com Problemas") ' Vai para a planilha onde o relatorio sera mostrado Worksheets("Relatorio").Select Range("A6").Select ' preenshe as a planilha com a consulta entre D6 e J6 Plan3.Range("A6, G6").Select Plan3.Range("A6, G6").CopyFromRecordset Rs cn.Close Set Rs = Nothing End Sub o campo item da consulta geral é texto ( Apesar de ser numero estar definido no banco como texto) mas tentei também declarando com integer variant e etc e não deu certo

Ola pessoal! to com uma duvida tremenda não tenho experiencia com vba então vau la... tenho um forumalio no excel com o textbox e no click do botao gostaria que na planilha especificada no codigo recebe uma consulta do banco ... o SELECT abaixo funciona se eu tirar o WHERE " & codigo & " = tbl_principal.iteM mas ai vem a consulta inteira ( essa SELECT tirei de uma consulta feita pelo assiste do access) e so que que mostre na planilha onde o codigo que o usuario digitou for igual ao do campo item da tabela tbl_principal Obs. declarei codigo como string porque no meu banco apesar de ser numero 8 digitos no banco esta do tipo texto mas já tentei usando variant ,integer e etc. o erro da no tipo de dados incopatives com criterio acho que o erro ta depois do where se alguém puder me ajudar Vlw muito obrigado pela atencao ! Private Sub btn_exibir_porCod_Click() Dim cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\meubanco.mdb;" cn.CursorLocation = adUseClient cn.Open Dim codigo As String codigo = Txt_ConsPorCod.Value Set Rs = cn.Execute("SELECT tbl_principal.Item, tbl_principal.Descricao, tbl_Relatorio_mensal.Status_Item, tbl_Relatorio_mensal.[Tipo Item Usuário], tbl_Relatorio_mensal.Mínimo, tbl_Relatorio_mensal.Máximo, tbl_Estoque.[saldo Consumo] FROM (tbl_PLURI INNER JOIN tbl_Relatorio_mensal ON tbl_principal.Item = tbl_Relatorio_mensal.Item) INNER JOIN tbl_Estoque ON tbl_principal.Item = tbl_Estoque.Item WHERE " & codigo & " = tbl_principal.item;") ' preenche o cabeçalho do relatorio Plan3.Range("A1").Value = (" Relatorio ") Plan3.Range("A2").Value = ("Todos os Itens Com Problemas") ' Vai para a planilha onde o relatorio sera mostrado Worksheets("Relatorio").Select Range("A6").Select ' preenshe as a planilha com a consulta entre D6 e J6 Plan3.Range("A6, G6").Select Plan3.Range("A6, G6").CopyFromRecordset Rs cn.Close End Sub

Ola pessoal ! estou tentando usar o codigo abaixo para exibir em uma planilha o resultado de de uma istrução SQL no formulario excel vba com banco access ...o usuario informa o "codigo do item " em uma caixa de texto e de acordo com o que ele informar ira fazer uma consulta no banco e trazer o registro corresponde aquele codigo e exibir na tabela citada no codigo estou usando a variavel "codigo" para armazenar o que o usuario digitar na caixa de texto ( estou usando variant mas já tentei string integer e não decerto também ) copilei o codigo depurando (f8) e ele passa por todas linhas sem da erro mas não exibe o resultado da consulta SQL o estranho que a linhas abaixo ele preenche Plan3.Range("A1").Value = (" Relatorio ") Plan3.Range("A2").Value = ("Todos os Itens Com Problemas") mas onde é para exibir o resultado do SQL ele não exibe alguém poderia me dar uma força ai ?? Obrigado ! Private Sub btn_exibir_porCod_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\meubanco.mdb;" cn.CursorLocation = adUseClient cn.Open Dim codigo As Variant codigo = Txt_ConsPorCod.Value Set rs = cn.Execute("SELECT tbl_equip.Item, tbl_equip.Descricao, tbl_Relatorio_mensal.Status_Item, tbl_Relatorio_mensal.[Tipo Item Usuário], tbl_Relatorio_mensal.Mínimo, tbl_Relatorio_mensal.Máximo, tbl_Estoque.[saldo Consumo]FROM (tbl_equip INNER JOIN tbl_Relatorio_mensal ON tbl_equip.Item = tbl_Relatorio_mensal.Item) INNER JOIN tbl_Estoque ON tbl_equip.Item = tbl_Estoque.Item WHERE tbl_equip.item = ' codigo';") ' preenche o cabeçalho do relatorio Plan3.Range("A1").Value = (" Relatorio ") Plan3.Range("A2").Value = ("Todos os Itens Com Problemas") ' Vai para a planilha onde o relatorio sera mostrado Worksheets("Relatorio").Select Range("A6").Select ' preenshe as a planilha com a consulta entre D6 e J6 Plan3.Range("A6, G6").Select Plan3.Range("A6, G6").CopyFromRecordset rs cn.Close End Sub

Valeu MrMALJ pela atençao ... eu já tinha visto esse link que você me mandou ai mas não conseguir inserir CREATE TABLE e INSERT INTO no meu SQL ... eu estou fazendo em formulario excel vba e banco access e essa instrucao sql abaixo uso pra buscar no banco e colocar na planilha e caso o usuario deseje salvar ele escolhe o mes ( que sera o nome da tabela) e essa consulta volta para o banco em uma tabela criada com o nome que ele selecionou no combobox OBs . essa instrucao sql eu fiz a consulta pelo assistente e copiei e colei o sql no meu formulario excel vba funciona perfeitamente para trazer os dados do banco mas não sei inserir o INSERT INTO e CREATE TABLE . VLW obrigo Private Sub btn_save_rel_Click() Dim mes_atual As String mes_atual = cbo_save_rel.Value If cbo_save_rel.Value = "" Then MsgBox " Favor escolher uma opção.", vbExclamation, "Campo Vazio" Else Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Projeto\MYDATABASE.mdb;" cn.CursorLocation = adUseClient cn.Open Set rs = cn.Execute("SELECT tbl_DBAccess.Item, tbl_DBAccess.Descricao, tbl_Relatorio_mensal.Status_Item, tbl_Relatorio_mensal.[Tipo Item Usuário], tbl_Relatorio_mensal.Mínimo, tbl_Relatorio_mensal.Máximo, tbl_Estoque.[saldo Consumo]FROM (tbl_DBAccess INNER JOIN tbl_Relatorio_mensal ON tbl_DBAccess.Item = tbl_Relatorio_mensal.Item) INNER JOIN tbl_Estoque ON tbl_DBAccess.Item = tbl_Estoque.Item WHERE (((tbl_Relatorio_mensal.Status_Item)<>'Ativo')) OR (((tbl_Relatorio_mensal.[Tipo Item Usuário])<>'MA_ESTQ_PLAN' And (tbl_Relatorio_mensal.[Tipo Item Usuário])<>'MA_ESTQ_PLAN_NOVO')) OR (((tbl_Estoque.[saldo Consumo])<=0));") cn.Close End If End Sub Private Sub UserForm_Initialize() Me.cbo_save_rel.AddItem "JANEIRO" Me.cbo_save_rel.AddItem "FEVEREIRO" Me.cbo_save_rel.AddItem "MARCO" Me.cbo_save_rel.AddItem "ABRIL" Me.cbo_save_rel.AddItem "MAIO" Me.cbo_save_rel.AddItem "JUNHO" Me.cbo_save_rel.AddItem "JULHO" Me.cbo_save_rel.AddItem "AGOSTO" Me.cbo_save_rel.AddItem "SETEMBRO" Me.cbo_save_rel.AddItem "OUTUBRO" Me.cbo_save_rel.AddItem "NOVEMBRO" Me.cbo_save_rel.AddItem "DEZEMBRO" End Sub

alguém poderia me ajudar por favor !! Obrigado !

Ola boa tarde ! Sera que alguém podeira me ajudar? preciso salvar uma planilha ( que é resultado de uma consulta sql) em uma nova tabela no banco mas a tabela tem que ser nomeada de acordo com um campo chamada data.... ou seja essa os dados da planilha vira de uma consulta feita em varias tabelas no mesmo banco... depois de visualizar o usuario tera uma opcao de salvar essa planilha no banco ...caso ele decida salvar no click do botao ou algo assim ... essa planilha vai para o banco mas em uma tabela nova e o nome da tabela vai ser de acordo com o campo da planilha chamado " Data" se a data for 10/12/2011 ou quaquer data do mes de dezembro a tabela do banco chamara "Dezembro" se o campo data for 01/01/2011 se chamara " Janeiro" e assim por diante serao apenas 12 tabelas pois faco essa consulta uma vez por mes. obrigado pela atencao! vlw

Vlw por reponder! segue os arquivos ...tive que deletar algumas coisa pra ficar mais leve ...queria q o usuario pudesse ter uma opcao para salvar no banco a consulta SQL As planilhas "Estoque" tenho que importar uma vez por semana e a planilha relatorio_mensal somente uma vez por mes já a planilha PLuri uma vez por ano... Se tiver como me ajudar nesse importador também agradeco muito... preciso importar a planilha esqtoque e relatorio mensal adicionando um campo "data"com a data atual . Vlw pela atencao ! http://www.4shared.com/rar/ifuAMij6/Projeto.html?

Ola boa dia pessoal ! precisando de uma ajuda, to desenvolvendo um aplaicao em excel vba e tenho um formulario que ao clicar ou escolher uma opcao do listbox ou um botao ( ainda não decide qual usar ) ele ira mostra na planilha um consulta SQL que fiz ... mas minha questao é o seguinte estou usando o CopyFromRecordset e ele ta copiando o dados da consulta para a planilha gostaria de saber se tem como eu somente visualizar esses dados e criar uma opcao de salvar esse planilha no banco de dados em uma tabela nova caso o usuario deseje pois a consulta sera feita toda semana e as bases de dados da consutla mudam semalmente...mas o criteiro da consulta continua o mesmo.. Muito obrigado pela atencao ! feliz ano novo a todos!

Boa tarde pessoal ! estou precisando da ajudas de vocês ... preciso de uma codigo de importacao que importa uma planilha excel para um banco access adicionando um campo "Data" preenchido com a data atual da importacao...mas preciso fazer isso de dentro de um formulario excel... eu tenho um codigo que faz exatamente a mesma coisa mas ele so funcionou no formulario access... e preciso de um que faca a importacao no formulario do excel. Obrigado pela atencao! e feliz ano novo a todos!