kuroi

pode ser sim, mas deve ter jeito mais simples. tipo de onde vem os valores q você poe nessa variavel?? é do recordset?? se for, é so você dar um MoveNext dentro do For e pegar os dados direto do RecordSet.

a mas olha como ta sua query: strQuery = "INSERT INTO lcaixa (data,historico,tipo,saidas) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&saidas&"')" você insere toda vez a mesma coisa, data, historico, tipo e saidas. você não altera os valores dessas variaveis em nenhum lugar no For, ai ele vai incluir sempre a mesma coisa. de onde você pega esses valores??

para mudar no apache sei q é no http.conf. não lembro exatamente aonde, mas o padrão é porta 80. procura a string 80 e substitui por outro valor (tipo 81). ai quando você for acessar seu site você digita http://localhost:81/pagina. pra mudar no IIS, não sei. você pode usar qualquer um. access, sql, mysql, oracle, qualquer um. pra utilizar é mais o menos como no php. você estabelece a conexao, executa as queries e etc, faca uma busca q tem varios exemplos.

você pode usar o IIS como webserver. é so entrar em Painel de Controle -> Adicionar ou Remover Programas -> Adicionar/Remover Componentes do Windows e checar a opcao Internet Information Services. ai você poe o CD do windows e ele já instala sem complicacao nenhuma (no caso de você usar windows 98 ou mais antigo, não é o IIS e sim o PWS, mas pra instalar é basicamente da mesma forma). mas caso você já tenha otro webserver instalado (como o apache), você pode ter conflito, ai você teria q mudar a porta ou do IIS ou do apache. ai por padrão o IIS carrega as paginas q estejam no diretorio C:\Inetpub\wwwroot\. exemplo, se você construir sua pagina no diretorioa C:\Inetpub\wwwroot\pagina\ você pode acessar como http://localhost/pagina/. mas você pode por o site em qualquer outro diretorio do pc e apontar o alias. quanto ao editor, eu uso o bloco de notas mesmo (ou o EditPlus), faco sempre na mao q é melhor, mas sei q o Dreamweaver trabalha com ASP tb.

acho q você ta passando algum campo numerico como texto. tipo se o campo for numerico ele não pode ir entre aspas. exemplo, quando o campo for texto, faca: Insert Into Tabela(Campo) Values('3') mas quando for numerico faca: Insert Into Tabela(Campo) Values(3)

como ficou o codigo do insert??

eu entendo q pra esse tipo de coisa tenho q instalar um programa no servidor. mas e no caso de o servidor não ser meu, as empresas de hospedagem costumam oferecer algum servico desse tipo??

tenta alguma das seguintes opcoes: no painel da esquerda, onde aparecem os nomes das sections, clica com botao direito onde esta a section do seu grupo. ai: - clica em Change Group e deixe checada a opcao Keep Group Together. - clica em Format Section e dexa checada a opcao Keep Together. se nenhuma das duas funcionar separadamente, tenta as duas juntas. qualquer coisa posta ae.

se endentacao for o q eu to pensando fiz pra você agora no post dele, beleza??

sera q não é porque no value você pos o ON em maiusculo e no if você pos em minusculo??

qual sua dificuldade?? ta na logica pra fazer o calculo ou em como usar as funcoes da linguagem c??

ele não funciona mas o q exatamente acontece?? ele ta chamando o semrefino toda vez??

não conheco o oracle, mas acredito q você tenha la onde executar suas proprias querys (como o Query Analizer do SQL) e procedures, certo?? quando você tenta rodar a procedure direto no oracle, ela funciona normalmente??

você quer via codigo visual basic?? bom, se for no access direto fica facil, é so clicar em Arquivo -> Obter dados externos -> Importar e seguir as instrucoes. pra fazer via codigo, veja aqui q tem varios exemplos de como acessar o excel pelo visual basic: http://www.macoratti.net/excel_vb.htm http://www.macoratti.net/vba_ofce.htm

quis dizer q o FlexGrid tem maior interacao pra você editar via codigo. exemplo, você pode preencher o q quiser no seu flexgrid pela propriedade textmatrix. exemplo, se eu quero q a coluna 1 da linha 1 tenha o texto kuroi, eu faco assim: FlexGrid1.TextMatrix(1, 1) = "kuroi" posso por o texto q eu quiser sem a necessidade de que os dados venham de um DataSet (ou RecordSet). realmente o DataGrid é melhor, como nesse exemplo q você citou, pra interacao do usuario com o banco e são nesses casos q eu costumo usar mesmo o DataGrid.

quis dizer q você pode declarar e inicializar o RecordSet no proprio Module tipo assim: Dim rs As New ADODB.RecordSet mas você tb pode fazer essa sua funcao sem problemas. você só chamaria ela uma vez (no Form_Load, pode ser). e ela seria só pra abrir a conexao e não o recordset (pode ser tb o recordset mas não tem necessidade). uma vez aberta a conexao, a não ser q você use o metodo Close alguma hora no seu programa, ela vai ficar aberta ate quando o programa for fechado (nesse caso tb é de costume fechar a conexao e todos os objetos abertos no Unload do form principal - ou seja, quando é encerrada a execucao do programa - pra liberar a memoria). como eu disse, o RecordSet ou você usa o comando Open cada vez q for executar um SQL e depois fecha, ou não precisa abrir nunca, somente executar com o execute da conexao (ou do command). tipo assim: Set rs = cn.Execute(sql) ou Set rs = cm.Execute onde cn é um objeto Connection e cm um Command.

valeu raphael e resopi, to entrando em contato cas duas empresas, a pic e a dimep pra saber mais informaçoes. agora, resopi, o cadastro no meu banco tem q ser de forma automatica. ou a cada registro de entrada/saida ou em uma determinada hora do dia, precisaria que o txt fosse extraido pra eu poder gravar no meu banco. daria pra fazer isso com o biopoint?? raphael, como é esse esquema da pic?? eu vi no site um leitor deles mas como eu faria a integracao com o access?? tem como eu gravar no meu proprio banco?? ou é um banco deles?? me parece q, como na sugestao do resopi, eles tb extraem um txt com os registros. como é q você faz pra trabalhar com o leitor?? valeu

o q acontece é q o RecordSet esta vazio nessa hora, porque ele não ta passando por nenhuma das duas subs. provavelemnte porque nessa parte o chcRefinar não vem true nem false. chcRefinar = request.form ("chcRefinar") if chcRefinar = true then call comrefino() end if if chcRefinar = false then call semrefino() end if[/code] da uma olhada, o checkbox só vai ser "true" (e como string) se você setar nele na propriedade value, mas ele só pode vir como true ou vazio, nunca como false. e se você não setar a propriedade value do checkbox, ele vem como "on" quando checado e vazio quando não checado. ou seja, o seu if deveria ficar tipo assim: [code]chcRefinar = request.form ("chcRefinar") if chcRefinar = "on" then call comrefino() ElseIf chcRefinar = "" then call semrefino() end if

pra converter não deve ter nenhum problema não. só vai depender do componente q você usa, já q a versao 11, se não me engano, não é mais compativel com o Crystal Reports Control. quanto a parte de construir o relatorio pelo visual basic por codigo, não sei ate q ponto você pode alterar o relatorio mas se não me engano você pode fazer usando a referencia Crystal Reports ActiveX Design Runtime Library. veja se ajuda pra você.

pondo só Public DB As New ADODB.Connection no module resolve sim, mas você tb tem q abrir a conexao depois, ne (passar a connectionstring e acessar o metodo Open). foi isso q você quis dizer aqui?? como assim declarar a query?? você fala do recordset?? pode ser tb, mas nd impede de você criar um recordset tb publico.

hum e continua o mesmo erro?? a você fez o esquema do workgroup não?? no site q eu passei, desca na parte das strings OleDb e testa os exemplos q ele passa com o Workgroup (claro, passando os dados - caminho, senha, etc - do seu banco).

ai... ai fica dificil. olhando assim não parece md5 ou algum otro tipo de encriptacao q eu possa reconhecer. acho q você teria q entrar em contato com quem fez a aplicacao e perguntar

então ponha essa parte: Set Ac = New Access.Application Ac.OpenCurrentDatabase (App.Path & "")[/code] apenas na hora de abrir o relatorio. não deixe no load no form. e ai na hora de sair do form, teste se já não foi aberto antes de fechar. tipo assim: [code]If Not Ac Is Nothing Then Ac.CloseCurrentDatabase Ac.Quit Set Ac = Nothing End If

acho q teria q ser criptografar pra comparar sim. a criptografia deve ter sido feita via programacao. q linguagem você ta usando?? você não tem acesso ao codigo de onde se cadastram os usuarios pra pode ver como é feito??

mano num tem q te vergonha não. array funciona da seguinte forma, ele pode armazenar valores diferentes numa variavel só. exemplo, você tem 10 opcoes que o usuario vai preencher, e quer guardar o valor delas em variaveis. em vez de delcarar 10 variaveis, tipo assim: Dim var1, var2, var3, etc... você declara um array com 10 indices assim: Dim var(9) note q 9 é o maior indice do array. ou seja você pode acessar da posicao 0 ate a posicao 9. ou seja, 10 posicoes. ai pra acessar os valores, você simplesmente passa o indice. tipo assim: var(0) = "valor1" Response.Write (var(0)) var(1) = "valor2" Response.Write (var(1))[/code] a grande vantagem é q você pode acessar os valores todos de uma vez num For ou While, como você fez no seu codigo. quanto a funcao Split, ela transforma uma string num array, separando pelo caractere desejado (no nosso caso, a virgula). exemplo, você tem a variavel xxx com o conteudo "zero-um-dois-tres". usando o split, tipo assim: [code]var = split(xxx, "-") você vai ter como resultado q: var(0) = "zero" var(1) = "um" var(2) = "dois" var(3) = "tres" deu pra entender?? e pra explicar melhor o codigo, dei uma comentada nas linhas abaxo, qualquer duvida, pergunta: cmbTipo = Trim(Request.Form("cmbTipo")) 'Aqui você pega o conteudo q veio do formulario e poe na variavel cmbTipo sql_tipo = "" If cmbTipo <> "" Then 'Aqui você testa se o cmbTipo não ta em branco. porque se tiver, ele não vai filtrar por tipo, então ele dexa o sql_tipo em branco sql_tipo = "(" array_tipo = Split(cmbTipo, ",") 'Aqui você joga cada um dos valores, separados pela virgula, num dos indices do array For i = 0 To UBound(array_tipo) 'aqui você percorre o array da posicao 0 (inicial), até a ultima (q nos não sabemos qual é, pois não sabeos qtos valores ele selecionou. por isso usamos a funcao UBound() q nos tras o maior indice, 'Nas linhas abaixo a gente vai montando o select. o if serve pra q, no ultimo valor, ele não ponha um OR no final, pois ele não vai continuar a string depois. exemplo, se o texto ficasse assim "(tipo = 'um' OR tipo = 'dois' OR tipo = 'tres' OR)", você fica q fica um OR no final q não tem continuidade. isso daria erro na hora de executar If i <> UBound(array_tipo) Then sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "' OR " Else sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" End If Next sql_tipo = sql_tipo & ")" End If[/code]