kuroi

nunca fiz esse tipo de coisa, mas sei q o objeto Report tem o metodo AddGroup q deve servir pra criar um grupo novo, é so você passar os parametros certinho. quanto a adicionar o subtotal, não sei, talvez seja direto na Section do grupo. pra acessa-la, veja se isso ajuda: http://scriptbrasil.com.br/forum/index.php?showtopic=108555

cara nunca fiz esse tipo de coisa, mas tava olhando la e o objeto Report tem a propriedade Sections. ai você passaria o numero da Section. o Crystal deve reconhecer o numero pela ordem delas, talvez, de uma olhada e ve se você descobre. ai você tem o metodo AddFieldObject. tipo assim: crxReport.Sections(index).AddFieldObject(Field, Left, Top) ai é só você passar os parametros certinhos. quanto a suprimir a Section quando a formula for 0, não sei se da via codigo Visual Basic. tenta dar uma estudada na propriedade Sections do objeto Report. bom, mas sei como fazer isso direto no editor do Crystal. se isso ajudar você, da um toque ae.

não sei... vo mover pra Delphi, vamos ver se alguém la sabe.

a entendi q você queria por uma senha de acesso pros usuarios. o q você quer é proteger o codigo fonte do seu projeto, é isso?? desconheco se tem jeito de fazer isso direto no visual basic, mas você pode gravar o seu projeto num .zip, por exemplo, e bloquear o .zip por senha. ou... alias... tava lembrando agora, tem o negocio do SourceSafe. acho q o SourceSafe vem junto com o Visual Studio, você deve ter ele no seu pc. quando você abre o seu projeto pela primeira vez, ele pergunta "Add this project to SourceSafe?" (se você quiser q ele pergunta de novo, apague o arquivo MSSCCPRJ.SCC q deve estar na mesma pasta do .vbp). você adicionando, ele vai precisar de um login no SourceSafe pra poder acessar. não posso te dar mtos detalhes de como trabalhar com o SourceSafe, mas você clicando em Iniciar -> Programas -> Microsoft Visual Studio 6.0 -> Microsoft Visual SourceSafe, você deve conseguir configurar certinho o negocio. outra vantagem do SourceSafe é q ele grava as versoes antigas do seu projeto. tipo cada alteracao q você faz, ele guarda la o historico e, a não ser q você apague no proprio SourceSafe, você pode recuperar qualquer alteracao q você possa ter feito.

cara, pra o seu grid ficar só com uma linha a unica coisa q me vem na cabeca é q o seu select só retorna um registro mesmo. e quanto ao RecordCount, isso é problema de permissao, já foi comentado aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=107398 antes de abrir sua conexao, adicione a linha: cn.CursorLocation = adUseClient

não precisa ser vb.net não. você quer q os seus forms abram no navegador, seria isso?? sei q da pra fazer se o seu projeto for um ActiveX Control, mas não sei mtos detalhes não. ai quando você for abrir no explorer ele pede pra você instalar o controle ActiveX, mas acredito q não funcione em otros navegadores.

mesmo como string da pra fazer o join. tenta fazer tipo assim: Select DatePart(dw, data) As DiaSemana, Count(*) As Quantidade From historicoLocacoes Where codCliente = (ponha aqui o codigo do cliente) Group By DatePart(dw, data) Order By Quantidade Desc Select codFilme, Count(*) as Quantidade From historicoLocacoes Where codCliente = (ponha aqui o codigo do cliente) Group By codFilme Order By Quantidade Desc Select Genero, Count(*) as Quantidade From historicoLocacoes INNER JOIN filme ON historicoLocacoes.codFilme = filme.CodFilme Where codCliente = (ponha aqui o codigo do cliente) Group By Genero Order By Quantidade Desc

faz assim: Select * From (Select pais_comp, count(tipo_comp) as conta From Tabela Group By pais_comp) Order By conta Desc ai o primero registro do select é o pais q mais foi sede.

http://scriptbrasil.com.br/forum/index.php?showtopic=33666 http://scriptbrasil.com.br/forum/index.php?showtopic=39790

o q acontece é q o sql_idi provavelmente tem menos de 4 caracteres. ai o left vai tentar pegar uma posicao negativa. exemplo, se o sql_idi tem 3 caracteres, o len volta 3. ai você pega o left 3 - 4 = -1. você não pode fazer left com valor negativo, por isso ele da esse erro.

o q você quer dizer com passar pra ambiente web??

então assim: DadosDadosP.Recordset.FindFirst "NomeC Like '*" & ValorPesquisa & "*'"

ou nem respondam essas coisas não, q os caras já tão de zuera. acho q ta na hora é de fechar esse tópico.

tenta assim: DadosDadosP.Recordset.FindFirst "NomeC Like '%" & ValorPesquisa & "%'"

da uma olhada como ta essa linha. strQuery = "INSERT INTO lcaixa " & array_id & " VALUES ('" & Request.Form("data" & i + 1) & "','" & Request.Form("historico" & i + 1) & "','" & Request.Form("tipo" & i + 1) & "','" & Request.Form("valor" & i + 1) & "')"sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " tem duas instrucoes na memsa linha. deveria estar assim ó: strQuery = "INSERT INTO lcaixa " & array_id & " VALUES ('" & Request.Form("data" & i + 1) & "','" & Request.Form("historico" & i + 1) & "','" & Request.Form("tipo" & i + 1) & "','" & Request.Form("valor" & i + 1) & "')" sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR "[/code]

eu tava pensando agora, acho q você nem precisa dos inputs hidden. porque se o idi já vai trazer os ids q você precisa não é so você fazer o select antes de excluir?? tipo assim: if err = 0 and id <> "" then array_idi = split(idi,",") For x=0 to ubound(array_idi) strQuery = "Select * From NOME_DA_SUA_TABELA WHere NOME_DO_SEU_CAMPO_ID = " & array_idi(x) Set objRS = objConn.Execute(strQuery) strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('"& objRS("data") &"','"& objRS("historico") &"','"& objRS("tipo") &"','"& objRS("saidas") &"')" sql_idi = sql_idi & "a_pagar.codigo = " & Trim(array_idi(x)) & " OR " objConn.Execute(strQuery) next sql_idi = left(sql_idi,(len(sql_idi)-4)) Session.LCID=1046[/code]

é foda, no .NET esse tipo de coisa é simples de se fazer. nessas horas q a gente fica de saco cheio do vb6. mas no caso da sua funcao é simples de resolver, é so por no KeyPress do proprio formulario. ai se no caso de você querer q a funcao funcione so em alguns controles e em otros não, é so você acessar a propriedade Me.ActiveControl pra saber qual o controle ativo no momento.

exatamente o q eu pensei. não achei q os caras dexariam alguém instalar um programa qualquer no pc deles (eu pelo menos não dexaria no meu). mesmo um winservice. é, então, se o servidor for proprio seu sem problemas, mas quando for um servidor de uma empresa de hospedagem, eles não vao dexar. o q eu achei é q pudesse ter alguma empresa q oferece algum servico, tipo proprio deles. exemplo, eles tivessem algum programa ou winservice deles proprios pra enviar email em determinada hora do dia q, de algum modo, você poderia implementar na sua pagina. ai perguntei se alguém conhecia alguma empresa q tivesse algo do tipo.

então. olha: <%Response.Write("<input type='hidden' name='txtData' VALUE='" & objRS("data") & "' />")%> <%Response.Write("<input type='hidden' name='txtHistorico' VALUE='" & objRS("historico") & "' />")%> <%Response.Write("<input type='hidden' name='txtTipo' VALUE='" & objRS("tipo") & "' />")%> <%Response.Write("<input type='hidden' name='txtValor' VALUE='" & objRS("valor") & "' />")%>[/code] aqui você só poe o primeiro registro, entendeu?? o valor que vai estar no input vai ser só o do primero registro do select, os otros vai ficar de fora. o q você podia fazer era tipo assim: [code]<% i = 1 Do While Not objRS.EOF Response.Write("<input type='hidden' name='txtData" & i "' VALUE='" & objRS("data") & "' />") Response.Write("<input type='hidden' name='txtHistorico" & i "' VALUE='" & objRS("historico") & "' />") Response.Write("<input type='hidden' name='txtTipo" & i "' VALUE='" & objRS("tipo") & "' />") Response.Write("<input type='hidden' name='txtValor" & i "' VALUE='" & objRS("valor") & "' />") i = i + 1 objRS.MoveNext Loop entendeu?? assim a primeira data vai ficar gravada no input txtData1, a segunda em txtData2 e etc. ai quando chegar aqui: if err = 0 and id <> "" then array_idi = split(idi,",") For x=0 to ubound(array_idi) strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('"&data&"','"&historico&"','"&tipo&"','"&saidas&"')" sql_idi = sql_idi & "a_pagar.codigo = " & Trim(array_idi(x)) & " OR " objRs.MoveNext objRs.Execute(strQuery) next sql_idi = left(sql_idi,(len(sql_idi)-4)) Session.LCID=1046[/code] já não sei direito como funciona seu codigo?? essa variavel idi é o q?? o ubound do array_idi vai trazer o numero de registros q você tem q incluir?? se for, você poderia fazer o insert mais o menos assim: [code]strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('" & Request.Form("txtData" & x + 1) & "','" & Request.Form("txtHistorico" & x + 1) & "','" & Request.Form("txtTipo" & x + 1) & "','" & Request.Form("txtValor" & x + 1) & "')" tb não entendi o array_idi faz nesse seu insert?? ela não é um array com os ids?? porque ela aparece no insert onde deviam estar os nomes dos campos e, ainda por cima, sem indice??

se você quer tanto eu digo q sim. com esse comando ele preenche o grid todo de uma vez. mas so funciona com um dataset DAO. pra um dataset (ou recordset) ADO, você tem q usar o Hierarchical Flex Grid. o codigo é exatamente como eu passei, onde MSHFlexGrid1 é o nome do seu grid e rs o nome do seu recordset.

não da não. a não ser q você faca a autonumeracao na mao, via codigo visual basic. olha: http://scriptbrasil.com.br/forum/index.php?showtopic=106320

sim, você pode por um formulario inicial onde você pede login e senha, por exemplo. se ele não digitar corretamente ele nem abre o projeto.

hum, acredito q foi o q eu acabei de postar no otro tópico. como esta o codigo onde ele preenche o Flex Grid?? você esta alterando pela propriedade TextMatrix linha por linha, coluna por coluna, certo?? se for isso, é normal q ele demore já q ele vai estar executando varias linhas de codigo durante o processo todo.

serio?? você baxou projetos de ADO com FlexGrid?? mas como eles funcionam?? acedito q eles preencham o grid pela propriedade TextMatrix, não?? esse tipo de coisa eu mesmo já fix, agora setar o datasource do FlexGrid com um recordset ADO, pelo q eu sei não da não. então foi exatamente isso q eu disse q não funciona no Flex Grid. pelo menos não com ADO. so vai dar certo no Hierarchical, o codigo tipo assim: Set MSHFlexGrid1.DataSource = rs você pode preencher o FlexGrid com o TextMatrix normalmente, agora você não pode setar um recordset ADO, ele não vai aceitar.

cara, você podia ter postado isso em visual basic, em demais bancos, menos em sql. sql não tem nd a ver com o assunto. mas na maioria dos bancos eu insiro direto assim como insiro qualquer outro txt no banco. e o enter sai certinho. tenta ai, se não der significa q o oracle q é diferente, então vo mover seu tópico pra Demais Bancos, ai talvez alguém esclareca pra você.