kuroi

a pelo q parece ele pega valor de umas celulas e soma em otras celulas, a gente aqui não vai saber qual a finalidade disso. você não tentou executar pra ver o q ele faz??

você abriu o ' mas falta fechar. mas se o codigo é numerico, não use o like e nem o '. assim: Data1.Recordset.FindFirst "CodigoDoAnimal = " & Verificar2

a se você quer espicificar os numeros tem q passar os indices, não pode ser com for each. tipo assim: Private Sub Testa_Linhas(t As Variant) Dim i As Integer For i = 1 To 20 MsgBox t(i).Text Next End Sub[/code] ai se os numeros são variaveis, você passa por parametro.

o q ta acontecendo de errado?? e do q se trata esse negocio q você ta falando q pus em negrito??

hum, mas isso pra rodar localmente?? seila, por questoes de seguranca não sei se o explorer vai dexar não. muito menos se for remotamente, a minha opiniao nesse caso é q ele devia perguntar sempre. mas checa as opcoes do explorer. la você deve encontrar alguma coisa. so q você teria q setar as opcoes em cada um dos computadores q forem acessar. mas toma cuidado, não vai baxar toda a seguranca, deve ter alguma opcao q de permissao apenas para seu endereco. acho melhor mover isso pra windows.

serio?? no projeto q você me mandou aqui aconteceu sim... imagino q você tenha alterado então... mas seila, se você diz q ta certo então beleza, mas é bom te certeza ai hum, mas esse problema é pra usar o filter não?? e o filter você so vai fazer no data q ta no form de consulta. e o q você vai alterar ta no otro form não?? então não vai ter problema... tipo, no form de consulta você vai filtrar. e ai ele seleciona, entre os registros do filtro, o codigo q ele quer. quando chegar no otro form, ele não faz filtro. ele selciona todos os registros. mas ai com o findfirst ele procura o codigo entre os registros selecionados (todos) e apenas aponta pro regsitro com esse codigo, mas não faz filtro nenhum.

declare como variant pra ele poder receber o array. exemplo: Private Sub Testa_Linhas(t As Variant) Dim Texto As Control For Each Texto In t MsgBox Texto.Text Next End Sub[/code] ai você simplesmente passar o array pra chamar: [code]Testa_Linhas t1

então, em access não é BOOLEAN, é YESNO

porque isso ta em links?? to movendo então.

não precisa ficar mudando de coluna tb se você for usar esse codigo. mas o q acontece?? ele continua mostrando o primero?? ai acho q o problema então é otro. tipo olhei aqui no projeto q você tinha me mandado antes. e no load do frmAnimal tem esse codigo aqui: Data1Animal.DatabaseName = App.Path & "\BD\db2.mdb" Data1Animal.RecordSource = "Animais" Data1Animal.RecordsetType = 0[/code] o q imagino q teja acontecendo é q você seta os dados no textbox, mas assim q o load é chamado, ele carrega o data e vincula com os controles, substituindo o texto q tava antes. alem do mais, se os controles do frmAnimal tão vinculados com o controle data, acho q seria meio errado você editar os textos não?? o mais certo não seria procurar o registro?? exemplo, se o formulario ta apontando pro registro 1. e você edita os textboxs e escreve o mesmo texto do registro 2. ele continua apontando pro registro 1. você ta na verdade editando os dados do registro 1 e não apontando pro 2. alias, isso ta acontecendo na sua consulta de clientes no projeto q eu tenho aqui, não sei se você corrigiu. pode fazer um teste ai. se você tiver dois clientes, abra o formulario e ele vai apontar pro primero, certo?? clica localizar e no form de consulta, selecione o registro 2. quando você voltar no form do cliente, vai ver todas as informacoes do registro 2, certo?? beleza, então clica em editar e depois gravar. abre la o seu banco. você vai ver agora... você tem 2 registros 2 e nenhum registro 1. porque isso acontece?? porque você não muda o pontero do recordset. so ta mudando os textos, entendeu?? o mais certo q você teria q fazer é: guardar somente o codigo do animal quando ele selecionar no form de consulta. você pode fazer isso com uma variavel global ou tipo igual aquele label q você fez q você punha um x lembra?? so q ai você guarda o codigo no label. mas não pode vincular o label com o data. e depois você usa um findfirst ou um seek pra encontrar o registro de acordo com o codigo, entendeu??

ele vai reconhecer porque o grid ta vinculado com o recordset. se você seleciona uma linha no grid, ele automaticamente seleciona a linha correspondente no recordset. e seria bem mais certo pegar os dados a partir do recordset do q pegar o texto do grid. não sei porque ele ta pegando sempre a primera linha pra você, mas imagino q seja porque pra pegar o text você tem q setar tanto a propriedade Col quanto a Row. e clicar no grid, seleciona o registro no recordset mas não muda o row. ai pra você usar no seu codigo é so você pegar os dados pelo campo no recordset em vez de ficar mudando de coluna e pegar o text do grid. tipo assim, em vez de: dbgAnimal.Col = 0 frmAnimal.lblCodCli2.Caption = dbgAnimal.Text dbgAnimal.Col = 1 frmAnimal.cboNomeCli.Text = dbgAnimal.Text[/code] faca: [code]frmAnimal.lblCodCli2.Caption = DataConsulta.Recordset.Fields(0).Value frmAnimal.cboNomeCli.Text = DataConsulta.Recordset.Fields(1).Value e assim por diante. ou pegue pelo nome: frmAnimal.lblCodCli2.Caption = DataConsulta.Recordset.Fields("Nome_do_Campo").Value frmAnimal.cboNomeCli.Text = DataConsulta.Recordset.Fields("Nome_do_Outro_Campo").Value[/code]

hum, você tento fazer isso aqui??

então, você quer adicionar no inicio ou no final?? se for no final, você tem q fazer um while pra chegar no ultimo elemento da lista e adicionar la. se for no comeco, você poe o l.next no prox.next e o prox no l.

a mas você não por o L.next - prox sem chegar no final da lista. tipo, onde você quer inserir?? no comeco ou no final da lista?? entenda q o L aponta por primero endereco. o L->Next aponta pro segundo. o L->next->next aponta pro segundo e assim por diante. ou seja, pra inserir no final você tem q percorrer a lista ate o next ser NULL (se for nulo, significa q não aponta pra nenhum lugar, ou seja não tem nada depois dele, é o ultimo elemento). veja ai e se continuar não funcionando, explica exatamente o q ta acontecendo de errado.

hum, o q faz essa linha aqui?? Set frmConsulta.DataConsulta.Recordset = Data1.Recordset.OpenRecordset ela q faz o filtro?? se for, não devia ta antes da parte onde você passa os campos pro textbox?? alias, não to entendo esse codigo... ele vem de otro formulario?? ai você clica e chama o form de consulta?? mas porque você ta setando os valores nos texts antes de chamar o form?? não seria ser depois de ele ter selecionado?? esse grid consulta ta no form de consulta ou no form q chama?? alias, porque você altera os texts do form de consulta?? não teria q ser do form atual?? hum... seila, da uma explicada melhor em como ta funcionando esse evento. de qualquer forma, um jeito mais facil de escrever nos textbox acho q seria tipo assim: frmConsulta.lblCodCli2.Caption = DataConsulta.Recordset("Nome_do_Campo") ou assim: frmConsulta.lblCodCli2.Caption = DataConsulta.Recordset.Fields("Nome_do_Campo") ou você passa o numero do indice do campo como intero: frmConsulta.lblCodCli2.Caption = DataConsulta.Recordset(1)

cara o q você quer dizer com "a query não está sendo completamente executada"??

acho q não é o visual basic q vai te ajudar a encontra o arquivo

o q é esse # antes do nome da tabela?? é pra fazer parte do nome?? se for, acho q ele não vai aceitar, você teria q por entre [] tipo assim: CREATE TABLE [#SelecaoAcaoTipo] ... e q banco é esse, é access mesmo?? mas e ai você não testou o codigo não?? da dando algum erro?? se tiver, posta a mensagem do erro ai. e tb o codigo da sua funcao, a gente aqui não vai saber o q ela faz. a e otra coisa tb, é q se você ta tentando executar as duas querys de uma so vez (no mesmo execute), não tenho certeza se ele aceita não. ou você poe um ; no final de cada uma e testa ai.

então... tb achei estranho mas... funcionou sim... sem zuera... no dev c++ aqui. compilei o codigo igualzinho, só adicionei o conio.h e um getch() antes do return. ele deu o warning: [Warning] address of local variable `str' returned mas apareceu escrito beraldo... mas então durub... acho q era pra funcionar sim... tipo, não funciona se eu der o prinft direto. mas com o strcpy funciona sim. não sei como funciona o strcpy internamente, mas acho q ele consegue copiar de alguma forma antes do valor se perder. pelo menos aqui no dev c++ ta indo...

ark, esse while(*p1) acho q não vai funcionar... acontece q as strings são fechadas com o \ 0 e por isso funciona. com int você vai ter q usar o contador. fora isso, não precisa somar o sizeof. é so somar 1, acho q porque como o p1 ta declarado como pontero de int, ele entende q esse 1 significa mais 1 int e não simplesmente mais um byte. assim: for(x = 0; x < 5; x++){ printf("%d\n", *p1); p1 += 1; }[/code]

no visual basic 6 acho q tem um controle chamado INET q você consegue baxar o arquivo da internet. mas acho q não deve funcionar no .net, acho melhor você postar la na sala e perguntar sobre isso. mas uma duvida... o q é esse sistema de atualizacao q você fala?? por acaso é esse seu programa .net q faz isso?? e onde é q você compara o hash pra saber se o arquivo ta atualizado ou não??

seila, acho q tem umas coisas em http://www.macoratti.net/

não entendi... qual o codigo q você ta usando q não ta dando?? você ta dando return da matriz na funcao, ou ta alterando o parametro (por referencia)??

é mesmo... mas vai ver q pra evitar compara um campo muito gde, o access limita 255 caracteres. tipo, imagina comparar varios campos com 60000 caracteres pra saber se são iguais... trabalhar com campo memo as vezes gera uma complicacao mesmo... mas beleza então

count do q?? você quer agrupar por alguma coisa?? ai as tabelas tem relacao?? se for isso, ai faca com join, como no exemplo: http://scriptbrasil.com.br/forum/index.php?showtopic=108732 se você so quer pegar a qtde, faca com subquqery assin: Select (Select Count(*) From Tabela1) As Campo1, (Select Count(*) From Tabela2) As Campo2