kuroi

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.

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]

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.