kuroi

é, era isso q você fazia no access com o +. so q no mysql o + não serve pra juntar strings, pra isso existe a funcao concat().

cara se é arquivo txt, não da pra mudar a fonte nem em C, nem em nenhum outro jeito, já que arquivos txts não tem formatacao. cada vez que você abrir o bloco de notas ele vai mostrar o arquivo com a ultima fonte que você setou, não tem como um arquivo abrir com uma fonte e outro com outra.

a ta, é que o que tem que trocar aqui: aux1 = xMotor(i) xMotor(i) = xMotor(min) xMotor(min) = aux1[/code] não é o xMotor e sim o nMotor.

hum... então me manda de novo a ultima versao

então, não uso Data Control, então não sei falar mta coisa. mas acho que não precisa de execute não, esse codigo que eu passei: sql = "SELECT * FROM Clientes ORDER BY Cli_NomeFantasia" Adodc1.RecordSource = sql Adodc1.Refresh Adodc1.Recordset.Sort = "Cli_NomeFantasia"[/code] deve executar pra você, você não esta usando?? bom mas de uma estudada nos links que te passei que ensina bastante a usar Data Control. qualquer outra coisa com ADO de uma procurada no site do macoratti http://www.macoratti.net

sim, na funcao que ordena a equipe, adiciona mais uma linha embaxo (tres linhas pra falar a verdade) e troque o motor junto. tipo: aux1 = xMotor(i) xMotor(i) = xMotor(min) xMotor(min) = aux1[/code] mas como você mesmo disse, você ta usando mais de 5 linhas pra mostrar o nome, enquanto podia tar usando uma só. e por mais que você tenha que mudar um mte de coisa no seu programa, isso so vai dexar o codigo mais bem-feito. alem de que essa alteracao na funcao que eu passei agora num é nd mais que uma gambiarra e muito mal-feita.

e o select ta executado?? tipo assim: sql = "SELECT * FROM Clientes ORDER BY Cli_NomeFantasia" Adodc1.RecordSource = sql Adodc1.Refresh Adodc1.Recordset.Sort = "Cli_NomeFantasia"[/code] ou da uma olhada nesses links que tem varias coisas sobre Data Control: http://www.macoratti.net/ado_ini.htm http://www.macoratti.net/ado_bas1.htm http://www.macoratti.net/ado_bas2.htm

levando em conta que a ordem dos motores nunca vai mudar, em xEquipe(j).Motor em vez de guardar o nome do motor, guarde o indice dele que esta no xMotor. ai se você precisar saber qual o nome, custo ou qualquer outra coisa desse motor é so fazer: xMotor(xEquipe(x).Motor).nome

na linha 156 você pos um Else sem que nenhum If tivesse aberto.

e qual erro acontece dessa vez?? sera que não é aquele negocio de novo?? você guarda a equipe x no indice 0, e guarda a equipe y no indice 1. ai você fala que o nMotor(0) tem o motor a e o nMotor(1) tem o motor b. ate ai, a eqipe x tem o motor a, e a y tem a b. mas ai a corrida acaba, e o x tem mais pontos que o y. ai você manda ordenar, e o x vai pro indice 1, e o y pro 0. quando você for ver o motor do indice 0 (nMotor(0)), você vai achar o a. mas agora quem ta no indice 0 é o y. ou seja, eles trocaram de motor. sera que não é isso que ta acontecendo??

hum tenta assim: Adodc1.Recordset.Sort = "Cli_NomeFantasia" mas o seu data control se chama Adodc1 e ele ta conectado, não??

então tenta assim: sql1 = "SELECT DISTINCTROW * FROM produtos LEFT JOIN dados ON Concat(produtos.PRODUTO, '" & data & "') = dados.verificador WHERE (((dados.verificador) is Null) and produtos.tipo = '1' and produtos.dia = '" & dia & "') order by produtos.produto"

concordo

a explicacao pra isso ta aqui:

acho que tdo isso deve funcionar no mysql sim. se não da erro, o que acontece, ele não retorna nd?? explica melhor. vai ver que o join não ta batendo. não entendi essa parte: ((produtos.PRODUTO)+"&data&") = dados.verificador o que é essa data que tem ai??

acho que o qtdecampos era o que você estava fazendo antes: qtde_campos=rs.fields.count -1 em vez de pegar o RecordCount.

em todo lugar que estiver escrito rstemp no seu codigo, troque por rs.

não costumo usar vbscript então não sei direito, mas acredito que Response.Cookies so pode se usado em ASP e não em VBScript. ou seja, você teria que declara-la entre <% %>, assim: <% Sub Altera_Quantidade(campo,indice) Response.Cookies("Quantidade")(CStr(indice)) = "10" END Sub %>[/code] e não na tag script. mas agora vai ter outro problema, você não vai poder chamar a Sub Altera_Quantidade no onchange, já que ela esta declarada na parte dinamica do site. então você teria que postar o formulario no onchange pra depois chamar a funcao, ou usar ajax pra chama-la. ou ainda, não sei se é possivel, alterar os cookies via JavaScript.

não entendi. a mensagem de erro é "não é possivel usar parenteses ao chamar um Sub"?? e qual a linha do erro?? mostra o codigo onde você chama a funcao. mas acho que na verdade você esta chamando em asp a funcao não?? então você devia declara-la no proprio asp (entre <% %>) e não na tag script.

cara sempre posta a mensagem do erro junto, pode ser mil coisas, sem a mensagem não da pra saber. mas olhando pelo seu codigo, acho que é porque você ta passando uma string pra fazer a conexao (variavel conn). mas tem que ser um objeto SQLConnection. você tem que criar o objeto, passar a string pra ele, abri-lo (metodo Open) e ai sim passa-lo como parametro para o SQLCommand.

assim também deve funcionar: Select Count(Campo) As Total From (Select Campo From Tabela1 UNION ALL Select Campo From Tabela2)

por causa dessa linha: For nMotor(j) = 0 To 7 a equipe vai ter sempre motor 0 quando chegar aqui: ElseIf xEquipe(j).finanças > xMotor(nMotor(j) + 1).custo Then ou seja, ela vai sempre comprar o motor 1. ponha uma otra variavel qualquer pra fazer o for. porque no for você ta atribuindo valor pra ela. se o nMotor(j) era 6, por exemplo, você faz For nMotor(j) = 0, ele passa a valer 0 e vai somando ate 7. mas o mais simples a se fazer era gravar o codigo do motor no proprio xEquipe.

você pode dar um sort no recordset, como falamos aqui: http://scriptbrasil.com.br/forum/index.php...st&p=442780 ou pode ser na hora do select, adicionando o ORDER BY

acho que o que você quer é isso aqui, não?? http://www.macoratti.net/txt_arqs.htm

eu sei como jogar um select direto do visual basic (sei fazer no 6, mas talvez funcione no 2005) direto no crystal, mas so vai funcionar com os campos já predefinidos e os relatorios salvos. de repente, se você puder dexar tipo uns templates já prontos pra cada qtde de campos e so passar o select, mas o tipo dos campos tem que bater também. senao, talvez seja possivel criar um relatorio novo via codigo e adicionar os campos também via codigo, mas ai não sei como fazer não, você já fez uma busca no google, ou no help do proprio Visual Studio ou do Crystal??