kuroi

o q é "calcular" uma matriz?? somar e multiplicar??

spilin182, com mdi é pra funcionar do mesmo jeito. entretanto, se o segundo form não estiver como mdichild, você tem q somar tb o top e o left do mdi pai. e como ficou o codigo dessa vez??

tem?? estranho q não esteja aparecendo no editor do visual basic. então faca o seguinte, abra um desses forms no modo design (você clicando com o botao direito no nome dele na lista, deve aparecer a opcao "Modo Design". pelo menos é assim no 2003). e ai de um duplo clique num botao ou num objeto qualquer. isso fara com q ele te leve ate a tela de codigos e ai você vai poder ver os codigos q você tava querendo. ai se não tiver codigo la dentro, isso significa q nd foi programado mesmo, so o design do formulario foi feito.

porque teria q ser um programa auxiliar?? se a instrucao ta no private sub de um form, esse codigo, de preferencia teria q estar nesse mesmo form. ou você gravaria como public sub e chamaria de fora (mas tem q ser da mesma aplicacao), mas se for pra fazer como publico, o mais certo seria gravar a funcao num module ne. fora isso q dificuldade você ta tendo??

teria, você pode usar banco de dados. mas qual seria o objetivo?? você ta tentando so estudar c++ ou ta pretendendo criar um sistema mesmo?? o q você teria q fazer seria procurar o registro dentro do txt baseado no codigo, e ai, no meu modo de ver, você teria q reescrever o txt inteiro, copiando todas as linhas e, na hora de escrever essa linha q ele editou, em vez de copiar a q esta no txt você grava os dados q ele digitou.

mas como ta o seu codigo pra listar os produtos?? esse aqui não vai listar nd mesmo: case 1: cout << "Lista de produtos" << endl << endl; ofstream myfile ("data.txt", ios::out | ios::app); // LINHA 31 goto inicio;[/code] olha la o codigo de exemplo, você devia dar usar o getline() pra pegar as linhas e depois um cout pra escrever na tela. a e no caso, pra ler o arquivo, não é pra ser ofstream e sim ifstream. ofstream é so pra escrever no arquivo.

sp4i, isso significa q o seu banco de dados não tem nenhum codigo vba programado.

isso ai é porque você ta declarando o myfile duas vezes. uma vez no case 1 e outra vez no case 2. você pode adicionar umas chaves pra separar a declaracao dos dois objetos, assim você restringe o alcance deles e não vai ter conflito. tipo assim: case 1: { cout << "Lista de produtos" << endl << endl; ofstream myfile ("data.txt", ios::out | ios::app); // LINHA 31 goto inicio; } break; case 2: // LINHA 35 { cout << endl << "Adicionar um produto" << endl <<"Digite como no exemplo: Produto 5512 15"<<endl; ofstream myfile ("data.txt"); // LINHA 38 if (myfile.is_open()) { char pData[40]; cin >> pData; myfile << pData; myfile.close(); } else cout << "Unable to open file"; goto inicio; } break;[/code] a e tb o ios::out | ios::app de q eu falei era pra por la embaxo quando você abre o arquivo no case 2. esses dois flags significam q você ta abrindo o arquivo pra output e append (pra escrever dentro dele, q é exatamente o q faz o case 2). e se você fizer isso no case 1, você tb não deve conseguir ler os dados.

use a funcao CallByName: Public Sub x() MsgBox "x" End Sub Private Sub Form_Load() CallByName Me, "x", VbMethod End Sub[/code]

hum, reparei agora q o editor do visual basic do access não mostra os formularios, so os modules. de qualquer forma, no painel "Objetos" a esquerda, você pode ver as opcoes "Formulários" e "Modulos". são nelas q você encontra os codigos. clique numa delas e escolha o formulario/modulo q você deseja abrir. se você não sabe, os modulos servem pra guardar funcoes q podem ser chamadas de qualquer parte da aplicacao (de formularios ou de outros modulos).

tente abrir assim: ofstream myfile ("data.txt", ios::out | ios::app);

você devia ler o resp antes do switch, não?? com cin ou scanf().

descobri aqui, alex. a sintaxe pra chamada de procedure no mysql tem q ter o call na frente e os parametros tem q ir entre parenteses. faca assim: ssql = "call SP_Inserir_Usuario_01 (" & executar(0) & ", '" & executar(1) & "', '" & executar(2) & "', '" & executar(3) & "')" q deve funcionar. e era o execute q limpava o ssql, isso não deve acontecer se o comando for executado com sucesso. veja ai se não funciona agora.

acho q você podia fazer assim: sSQL = "SELECT IMOVEIS.idimovel, IMOVEIS.tipoimovel, IMOVEIS.domitorios, IMOVEIS.endereco, IMOVEIS.bairro, IMOVEIS.valor, IMOVEIS.datacadastro, IMOVEIS.status, Max(IMO_FOTOS.imagem) As imagem FROM IMOVEIS LEFT JOIN IMO_FOTOS ON (IMOVEIS.idimovel = IMO_FOTOS.idimovel) WHERE IMO_FOTOS.principal = 1 " + QueryCodigo + QueryImovel + Querydormi + QueryPreco + QueryBairro + " ORDER BY datacadastro desc GROUP BY IMOVEIS.idimovel, IMOVEIS.tipoimovel, IMOVEIS.domitorios, IMOVEIS.endereco, IMOVEIS.bairro, IMOVEIS.valor, IMOVEIS.datacadastro, IMOVEIS.status";

douglas, os admins estao vendo isso mas tem uns obstaculos q ainda estamos tentando superar. entretanto, a andreia me falou q o binho migrou o forum para um novo banco de dados, e, desde então, pelo menos eu não tive nenhum problema de ips error desde o comeco do mes. mas vamos esperar...

então, é so você imprimir a variavel onde ele digitou dentro do arquivo da mesma forma q o texto esta sendo impresso; aqui ta um exemplo: #include <iostream> #include <fstream> using namespace std; int main () { ofstream myfile ("example.txt"); if (myfile.is_open()) { char c[30]; cin >> c; myfile << c; //Aqui copia o texto q ele digitou pra dentro do arquivo. myfile.close(); } else cout << "Unable to open file"; return 0; }[/code] EDITADO: e a mensagem de erro deve ser porque faltou um ponto e virgula na linha de cima.

pode mandar em rafaelsposito[arroba]gmail.com ou hospeda em algum servidor tipo rapidshare e passa o link. entretanto não tenho mysql aqui e vai ficar meio dificil pra testar, mas vo tentar.

e o q você ta pondo na opcao Make Command Line Arguments??

mas e pra ele clicar no label ou no formulario?? de qualquer modo, é aquele codigo mesmo. se precisar checar o click do label, ponha o mesmo codigo no mousedown do label. e tb some o top e o left do label ao top e left do outro form. aqui esta um exemplo q faz isso q você quer, tanto para o form quanto para o label: spilin182.rar

pra pegar um registro random, no access (não sei qual bd você usa), o codigo seria esse: Select Top 1 * From Tabela Order By Sin(Rnd() * id) onde id seria um campo chave numerico (teria q ser um campo q não se repete na tabela toda, de preferencia um campo autonumeracao). pra fazer essas checagens, se esta disponivel etc, você pode por um where na query para checar. se essa checagens so forem possiveis de serem feitas no visual basic, você pode tirar o top 1 da query, o q vai fazer com q ele traga todos os registros ordenados randomicamente. ai você vai testando um por um ate achar um disponivel.

alex, isso é impossivel. como q em uma linha você adiciona um texto numa variavel e na linha debaxo ela ta vazia?? acho q você ta fazendo alguma coisa diferente daquilo q eu falei, olha la. a linha onde você deve apertar F9 é onde diz Set rs = cmd.Execute(ssql), la no final da sub:

não entendi a pergunta. tb não entendi. dessa vez, a ordenacao saira correta, porque pra cada grupo vai ter somente um registro de cada prioridade. então dentro do grupo sempre ficara ordenado 123. é isso mesmo. na hora de cadastrar você pega o ultimo grupo dessa prioridade e soma 1. exemplo: Dim g as Integer 'p é a prioridade q esta sendo cadastrada (de acordo com a renda) sql = "Select * From Tabela Where Grupo = (Select Max(Grupo) From Tabela Where Prioridade = " p & ")" Set rs = cn.Execute(sql) If rs.EOF Then g = 1 Else g = rs!Grupo + 1 End If[/code] e na hora de gravar você grava essa variavel g em grupo. pra resolver isso, na hora q for excluido, adicione o seguinte codigo: [code]sql = "Update Tabela Set Grupo = Grupo - 1 Where Prioridade = " & p & " And Grupo > " & g cn.Execute sql onde p é a prioridade do registro q você ta excluindo, e g é o grupo do registro q você ta excluindo. isso vai tapar o buraco q ia ficar no banco. entretanto, se você excluir na mao no banco de dados, o buraco vai ficar la.

sahad, olha o link q eu passei. esse codigo aqui tem tudo o q você precisa pra ler o arquivo: // reading a text file #include <iostream> #include <fstream> #include <string> using namespace std; int main () { string line; ifstream myfile ("example.txt"); if (myfile.is_open()) { while (! myfile.eof() ) { getline (myfile,line); cout << line << endl; } myfile.close(); } else cout << "Unable to open file"; return 0; }[/code] enquanto esse outro tem tudo o q você precisa pra escrever nele: [code]// writing on a text file #include <iostream> #include <fstream> using namespace std; int main () { ofstream myfile ("example.txt"); if (myfile.is_open()) { myfile << "This is a line.\n"; myfile << "This is another line.\n"; myfile.close(); } else cout << "Unable to open file"; return 0; } em q parte disso tudo exatamente você esta tendo dificuldade?? você ta conseguindo entender esses exemplos??

a ta, o correto é: document.getElementById("TCEP").value.length ou document.FORM_ENVIA_CEP_SERVICO.TCEP.value.length faltou o value.

então, esse campo grupo é simplesmente pra separar os registro de 3 em 3 pra q você possa ordenar, entendeu?? por exemplo, se no banco estiver assim: Grupo | Prioridade ------------------- 1 | 2 1 | 3 2 | 1 1 | 1 2 | 3 2 | 2[/code] você mandando ordenar por grupo e depois por prioridade, vai ficar assim: [code]Grupo | Prioridade ------------------- 1 | 1 1 | 2 1 | 3 2 | 1 2 | 2 2 | 3 certinho do jeito q você quer, entendeu?? esse é o unico jeito do crystal ordenar como você quer. porque ficara divido em grupos. então, crie o campo grupo como int mesmo. pra preencher, você usaria um codigo tipo assim: Dim i As Integer, p as Integer For p = 1 To 3 sql = "Select * From Tabela Where prioridade = " & p Set rs = cn.Execute(sql) i = 1 Do while Not rs.EOF sql = "Update Tabela Set grupo = " & i & " Where id = " & rs!id cn.Execute(sql) rs.MoveNext i = i + 1 Loop Next[/code] simplesmente isso. so lembre de trocar os nomes de campos e objetos para os nomes q você ta usando. o campo id corresponde ao campo chave q você tiver na tabela (se por acaso você não tem um, insira imediatamente um campo auto-numeracao ai e use-o). depois disso, no crystal reports, você entra em sort e manda ordenar primeiro por grupo e depois por prioridade. e deve funcionar. ve ai se da certo, qualquer coisa poste.