kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
a não ser q ele teja acessando o db num servidor ou num otro pc, você tem q instalar o firebird de qualquer jeito, ai não tem outro jeito. não entendi o q você quis dizer com setar o banco, você quer dizer, criar todas as tabelas e etc?? se for isso, você pode fazer por sql, comando CREATE TABLE e etc. agora a conexao ODBC não sei, faca uma busca por ai, talvez seja possivel cria-la por script.
-
então, o seu relatorio tem q ser necessariamente assim?? tipo, ele lista metade dos registros, na ordem, na primeira coluna e depois a outra metade na segunda?? ou pode ser assim: tipo os dois primeros na primera linha, os dois segundos na segunda e etc?? pra primeira opcao, não sei se vai funcionar, mas você pode tentar por dois subreports, um ao lado do outro. pra mais informacoes sobre subreports, veja aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=106805 ai você faz um select pra pegar so a primeira metade no report da esquerda e um pra pegar a segunda metade no da direita. a segunda opcao, eu sugeri porque seria mais facil, você fazendo um next e pondo os dois na mesma linha. agora veja la se a segunda opcao serve pra você, ou se tem q ser a primera, ai se você tiver dificuldade eu explico os detalhes pra você.
-
subreport (sub-relatório), como o nome diz é um relatorio menor adicionado ao report principal. to usando aqui o Crystal 8.5, mas acredito q não seja muito diferente do 11. você clicando em Insert -> Subreport, você vai incluir um subreport no seu relatorio. la você vai ter duas opcoes: - Choose a report: aqui você insere um relatorio já existente (arquivo com extensao .rpt) como subreport no seu relatorio principal. - Create a subreport: aqui você cria um novo relatorio como subreport, exatamente da mesma forma como você monta o principal. qual a finalidade do subreport?? entre varias outras, a principal é: e se você quiser fazer uma sumarizacao ao final de cada agrupamento?? exemplo, você tem um relatorio q soma por dia os valores de cada conta. tipo assim: 01/01/2007 ============== Conta Valor ============== 1 10,00 2 20,00 ============== 02/01/2007 ============== Conta Valor ============== 1 13,00 3 50,00[/code] ai beleza. mas e se no final do mes você quer fazer a soma dos valores totais do mes?? ai no footer do group do mes, você insere la um subreport. e ai no subreport você simplesmente poe a soma de todas as contas. mas como você vai saber a q mes se refere cada subreport?? clica com o botao direito no subreport, vai ter la a opcao Change SubReport Links. la você passa o mes por parametro ao subreport. assim ele já filtra automaticamente pra q mes você quer. tipo, num sei se deu pra entender direito, mas o esquema é você ir fazendo o q você precisa e ir tirando as duvidas aqui a medida q os problemas forem aparecendo.
-
ta, mas tem q ter um limite, você não pode ficar somando o ia pra sempre. tipo, se eu entendi direito, o timer deve ficar mais o menos assim: Private Sub Timer1_Timer() - AQUI você CALCULA E SOMA O IA - tempo = tempo + 1 For i = 1 To 22 Me.Controls("lbl" & 22 - (tempo - 1)).Caption = xPiloto(tempo - 1).nome Next If tempo = 22 Then 'Aqui não tem q ser necessariamente 22, pois agora não depende mais do piloto, e sim de qtos segundos você quer q a corrida demore. Timer1.Enabled = False End If End Sub[/code]
-
hum... pelo q parece, o q acontece é q o busca__input_data ta recebendo o valor errado. ele não ta recebedno o q esta sendo digitado, no reponse.write não devia aparecer #1# nem #2#, e sim a data q você digitou. faz o seguinte, tenta usar aquele codigo q eu falei: <% If IsDate(busca__input_data) Then Dim busca Dim busca_numRows Set busca = Server.CreateObject("ADODB.Recordset") busca.ActiveConnection = MM_Estudos_Projetos_STRING busca.Source = "SELECT * FROM CIGFK_CONSULTA WHERE DT_ACAT >= #" + Replace(busca__input_data, "'", "''") + "#" busca.CursorType = 0 busca.CursorLocation = 2 busca.LockType = 1 busca.Open() busca_numRows = 0 Else Response.Write "Data Inválida" End If %>[/code] se você digitar uma data valida, mas aparecer a mensagem "Data Inválida", siginfica q a data esta sendo passado errada mesmo. nesse caso, posta pra gente o codigo onde você passa o valor do textbox para a variavel busca__input_data, pra gente ver se encontra o problema.
-
não uso ADODC então não sei se a dica do macedo vai dar certo. mas se não der, eu costumo fazer assim: SELECT * FROM Tabela1 WHERE Tipo LIKE '*PESQ*' UNION ALL SELECT * FROM Tabela2 WHERE Tipo LIKE '*PESQ*' num select só. mas so vai funcionar, se as estruturas das duas tabelas forem IDENTICAS.
-
o q é a caixa de dialogo de copia?? é quando você cola um arquivo e ele mostra o tempo q falta pra copiar??
-
em vez de txtTempo1 - txtTempo2 faca DateDiff("n", CDate(txtTempo1.Text), CDate(txtTempo2.Text)). ai nesse caso ele vai voltar a diferenca em minutos. se quiser depois converter pro formato 99:99, usa essa funcao q eu fiz: Public Function MontaHora(Min As Integer) As String If Min < 0 Then MontaHora = "-" Min = Abs(Min) Else MontaHora = "" End If MontaHora = MontaHora & Val(Min / 60) & ":" & IIf(Len(CStr(Min Mod 60)) = 1, "0", "") & Min Mod 60 End Function[/code] e na hora de comparar as datas faca: [code]If CDate(txtTempo1.Text) < CDate(txtTempo2.Text) Then DadosAtendimentos.Recordset.Fields("campo_tempo").Value = "00:00" End If
-
ta... se o cara ta com o pior pneu, porque você poe pra ele comprar o pior?? porque tipo assim: ElseIf (nPneu(j) - c) = nPneu(j) Then h(j) = 2[/code] ele so vai entrar ai se o peneu for 0, não?? porque ai c = 0 - 0, ai 0 - 0 = 0. e quando for 2, ele vai comprar o pior. acho q esse if ta errado. e otra coisa, ele não ta ordenando o peneu junto: [code]Public Function ClassificaçãoEquipe2(ByRef Vetor() As equipe, tam) Dim i, j, h, k Dim min Dim aux As equipe Dim aux1 As Variant For i = 0 To tam min = i For j = i + 1 To tam If Vetor(j).desempate < Vetor(min).desempate Then min = j Next j aux = Vetor(i) Vetor(i) = Vetor(min) Vetor(min) = aux aux1 = nMotor(i) nMotor(i) = nMotor(min) nMotor(min) = aux1 Next i End Function nessa funcao você poe pra ordenar o nMotor, mas não poe o nPneu. então vai acontecer aquilo, a classificacao das equipes vai mudar e ai uma vai ficar com o peneu da outra. o mesmo pro combustivel. a ferrari q comeca com o pneu 1, ficou com o pneu 0 aqui pra mim. e quando a equipe tem o pneu 0, pelo seu codigo acima, ele vai sempre comprar o 0.
-
insira um CommonDialog no seu form (menu Project -> Components, selecione Microsoft Common Dialog Control). ai pra selecionar a impressora, antes de imprimir, faca assim: CommonDialog1.ShowPrinter
-
mas isso q você falou não acontece pra mim de jeito nenhum. tipo tem dois lugares q as equipes compram o pior motor (0), certo?? q são, aqui: If (nMotor(j) - 6) < 0 Then h(j) = 0 ElseIf xEquipe(j).finanças > xMotor(nMotor(j) - 6).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - 6).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - 6).custo nMotor(j) = nMotor(j) - 6 Else xEquipe(j).Motor = xMotor(0).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(0).custo nMotor(j) = 0 End If[/code] e aqui: [code]ElseIf h(j) = 2 Then xEquipe(j).Motor = xMotor(0).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(0).custo nMotor(j) = 0 faz o seguinte, poe um breakpoint (F9) nas duas linhas q tem xEquipe(j).Motor = xMotor(0).nome, roda o programa e ve se ele para alguma vez ai. em tres temporadas, ele so parou pra uma equipe q realmente não tinha dinhero pra comprar os outros motores. ve se pra você aparece alguma vez uma equipe com bastante dinheiro.
-
não sei... aqui no comeco... em vez de CREATE DATABASE HelpDesk ON ( NAME = HelpDesk,[/code] sera q não seria [code]CREATE DATABASE HelpDesk ON ( NAME = 'HelpDesk', agora, esse script foi feito em SQL Server, certo?? tem certeza q vai funcionar no mySQL??
-
o primero erro foi porque o certo não é App.Patch e sim App.Path. e se o codigo do mrmalj não funcionar, tenta a funcao shellexecute, ela não serve pra access?? faca uma busca por ai q tem exemplos dela (no forum de visual basic tem).
-
cara na hora q eu fui baxar ontem deu pau no forum e ficou a madrugada toda com pau, pelo menos aqui em casa. mas hj eu vejo la EDITADO: hum acho q isso acontece por causa dessa linha: a = Int(b * Rnd) + 1 tipo uma equipe aqui tava com o motor 2 e com 24000. ai a variavel b passa a valer 5. ou seja, o a pode retornar qualquer valor entre 1 e 5. ou seja se retornar 1, ele vai comprar o motor 3. não é o pior motor, mas ele podia comprar um melhor, seria esse o problema??
-
é o seguinte, tipo em vez de criar 4 variaveis, tempo1, tempo2, tempo3, tempo4, cria so uma do tipo array com 4 indices, tipo assim: Dim tempo(3) ai pra acessar faca assim tempo(0) = valor1 tempo(1) = valor2[/code] entendeu?? então, copia a funcao pro seu programa q é ela q vai por seu array em ordem [code]Public Function SelectionSort(Vetor(), tam) Dim i, j Dim min, aux For i = 0 To tam min = i For j = i + 1 To tam If Vetor(j) < Vetor(min) Then min = j Next j aux = Vetor(i) Vetor(i) = Vetor(min) Vetor(min) = aux Next i End Function ai pra saber como ela funciona, le a explicacao q eu postei aqui: http://scriptbrasil.com.br/forum/index.php...st&p=440273
-
a selecao da linha não significa q o item teja selecionado, é so pro cara poder mexer com o teclado, o item so é considerado selecionado quando você clica no checkbox. não tem segredo nenhum, usar com checkbox é exatamente igual a usar sem. se quiser me manda em rafaelsposito[a]gmail.com
-
99/99/9999 não é data. não existe dia 99 muito menos mes 99, você tem q digitar uma data de verdade, tipo 24/08/2007. e pra evitar de dar erro, testa antes se a data digitada não é valida. tipo assim: <% If IsDate(busca__input_data) Then Dim busca Dim busca_numRows Set busca = Server.CreateObject("ADODB.Recordset") busca.ActiveConnection = MM_Estudos_Projetos_STRING busca.Source = "SELECT * FROM CIGFK_CONSULTA WHERE DT_ACAT >= #" + Replace(busca__input_data, "'", "''") + "#" busca.CursorType = 0 busca.CursorLocation = 2 busca.LockType = 1 busca.Open() busca_numRows = 0 Else Response.Write "Data Inválida" End If %>[/code]
-
se não me engano, nos dois. acho q ele copia no cab pra distribuicao e (não sei se tem q flagar alguma opcao pra isso) ele copia tb numa pasta solta. então, tem uns flags a mais q é sempre bom selecionar, um deles so vai copiar a dll se não existir uma outra (se você usa a versao em portugues, Somente se não existir), ou pra perguntar se ela for mais nova do q a já existente (Perguntar se mais antigo) e outra q não vai apagar a dll quando for feita uma desinstalacao do seu programa (Nunca desinstalar), etc. e so confirmando a opcao pra pasta C:\Windows\System32 é {sys}, fui conferir agora, achei q não tinha IsTool no meu pc.
-
tem q funcionar sim, q erro q deu (e em q linha)?? não tem funcao checked não, pra saber se ele ta checado é pelo selected como você já faz.
-
+ Um Que Roda No Fire Fox E N No I.e
pergunta respondeu ao Loki de kuroi em Ajax, JavaScript, XML, DOM
hum, só de teste, tenta por uns alerts pra ver em parte do codigo chega, tipo assim: function tras_dados_cidade(){ window.alert('1'); var uf = document.getElementById("uf").[document.getElementById("uf").selectedIndex].value; var url = 'cidade_cb.jsp?uf='+uf; xmlhttp.open("GET", url,true); xmlhttp.onreadystatechange=function() { window.alert('2');; if (xmlhttp.readyState==4){ window.alert('3'); var texto=xmlhttp.responseText; enche_cb(texto, 'cidade'); } } xmlhttp.send(null); }[/code] entendeu?? ai você consegue localizar onde ta o erro. tipo você vai saber ate q parte do codigo ele ta executando. -
hum, acho q é isso q você tem q fazer For i = 0 To ListaFornecedores.ListCount - 1 If ListaFornecedores.Selected(i) Then temp2 = ListaFornecedores.List(i) End If Next[/code]
-
+ Um Que Roda No Fire Fox E N No I.e
pergunta respondeu ao Loki de kuroi em Ajax, JavaScript, XML, DOM
tenta assim ó, no selects, ponha um id (o da cidade já vi q já tem): <select name="uf" id="uf" class="texto_normal" onChange="tras_dados_cidade()"> <option value="0" >Selecione o Estado </option> <% while(rs.next()){ %> <option value="<%=rs.getString(1)%>"><%=rs.getString(1)%></option> <% } %> </select>[/code] ai pegue os elementos pelo id: [code]function enche_cb(texto, caixa){ obj=getElementById(caixa); while(obj.options.length>0) obj.options[0]=null; var dados=eval(texto); obj.options[obj.options.length]=new Option('Selecione','ND'); for(var i=0;i<dados.length;i+=2){ dados[i]=unescape(dados[i]); obj.options[obj.options.length]=new Option(dados[i+1],dados[i]); } } function tras_dados_cidade(){ var uf = document.getElementById("uf").[document.getElementById("uf").selectedIndex].value; var url = 'cidade_cb.jsp?uf='+uf; xmlhttp.open("GET", url,true); xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4){ var texto=xmlhttp.responseText; enche_cb(texto, 'cidade'); } } xmlhttp.send(null); } -
cara, uso o Microsoft.Jet.OLEDB.4.0
-
tenta assim ó: If Session("Servidor") = "serva" Then %> <!-- #include file="Menu_serva.asp" --> <% ElseIf Session("Servidor") = "servb" Then %> <!-- #include file="Menu_servb.asp" --> <% End If[/code]
-
esse campo DT_ACAT é do tipo data ne?? porque olha, o busca__input_data ta trazendo o numero 1: e ai ele da erro porque ele so vai aceitar datas.