sacofritoxd

humm... mas estranho ele ter fe ito isso tão rápido.. ele não deve ser uma pessoa sem afazeres p ter feito tudo isso pra mim... mas de qualquer jeito peguei um email dele la no fórum e adicionei no MSN e vou mandar email pra ele pedindo para ele me explicar como fez e na verdade tenho mais 2 bd's em formato .dat para fazer essa conversão esse q postei no fórum e mais um de fornecedores mas agradeço sua ajuda Kuroi.. espero sua resposta

deixei uma mensagem pessoal para voce

hum foi mal pelos tópicos repetidos Mas como assim ele le o 0 e interpreta como fim de arquivo ate entendi .... mas a coisa mais doida é q uma pessoa de um outro fórum de vb, abriu e me mandou todo alinhado o arquivo todo... voce tem idéia de como ele fez isso? e você tem como me explicar como faz pra abrir como binário e ler bye por byte? vlw

Boa tarde galera já fiz um tópico mas parece que ninguém consegue me ajudar rsrsrs agr to tentando fazer outra coisa pegar todos dados dentro desse arquivo .dat e transferir para .txt a minha funçao está assim algm me ajuda a descobrir o porque ela só esta dando um loop e não faz realmente até estar vazio Dim ds As String Function eu() Open "c:\PDVPPROD.dat" For Input As #1 While Not EOF(1) Line Input #1, ds Open "c:\pdvprod1.txt" For Output As #2 Print #2, ds Wend End Function Private Sub Command1_Click() eu MsgBox "pronto" End End Sub só tem o form com 1 botao de comando qc hama a funçao eu ai eu debugo e o sistema apenas passa uma vez pelo laço Obrigado desde já

Boa tarde Tenho um banco de dados no formato '.dat' mas não consigo abri-lo apenas por bloco de notas e sai tudo misturado.. algm pode me ajudar a abrir? já pesquisei sobre mas não sei de onde ele veio e nem tenho cmo saber pois esse bd era de sistema antigo de um pessoal q está pra virar cliente nosso e a empresa q fazia o sistema deles fechou .. enfim não tenho cmo saber como ele foi gerado algm sabe se tem algum otro jeito de eu abrir esse bd com os dados alinhados? um usuario de um outro fórum abriu um de 2 bd's q eu tenho em .dat e me mandou os dados alinhados link pra download desse arquivo http://vbmania.com.br/pages/vbmdownload.ph...2&varTipo=1 Obrigado desde já

Esta comentado a linha que dá o erro já pensei q pudesse ser "produtos" o nome da tabela mas não é... a declaração está correta não sei mais o que pode ser Set dsproduto = db.OpenRecordset("produto", dbOpenSnapshot) ' erro aqui

Boa tarde glr. to faendo um projetinho aqui só pra eu aprender a mexer em list view e da erro 13 type mismatch já vi q isso pode ser erro de declaraçao de variavel mas não acho nd q possa resolver.. está declarado corretamente vou postar o codigo pra voces Dim db As Database Dim dsproduto As Recordset Private Sub Form_Load() Set db = OpenDatabase(App.Path & "\dados.mdb") preencheproduto mostra End Sub Private Sub Text1_Change() Set dsproduto = db.OpenRecordset("produtos", dbOpenSnapshot) dsproduto.FindFirst "codigo =" & Text1 If Not dsproduto.NoMatch Then mostra Else Exit Sub End If End Sub Function preencheproduto() Set dsproduto = db.OpenRecordset("produto", dbOpenSnapshot) ' erro aqui Text2.Clear Do While Not dsproduto.EOF Text2.AddItem dsproduto!descricao dsproduto.MoveNext Loop End Function Function mostra() Text2 = IIf(IsNull(dsproduto!descricao), "", dsproduto!descricao) Text3 = IIf(IsNull(dsproduto!precovenda), "", dsproduto!precovenda) End Function

Boa tarde glr, to numa buxa estranha aqui pro meu nível rs até não tem mt a ver com o próprio vb mas queria ajuda para pensar no caso Seguinte, o cliente pediu para q sejam feitas 3 telas uma de cadastro de matéria prima uma de produtos q levam na memória a matéria prima q eles são feitos e uma terceira onde cada cliente tem um produto numa concentração diferente de matéria prima... Ex o cliente X sempre compra asfalto na proporção 30% pedra, 40 % piche e 30 % sei la o que eu pensei na seguinte maneira de montar as telas um cadastro de materia prima comum com o código e a descriçao ai na tela de cadastro do produto, o codigo co produto, a descriçao dele, o codigo da materia prima, sua descriçao e a baixo do botao grava, uma listview com os dados das matérias primas cadastradas.... e na terceira tela, cod cliente, razao cod prod, descricao um txtbox para a porcentagem de cada materia prima * aparece numa list a descriçao das matérias primas usadas naquele produto e conforme for selecionada materia prima X, será digitada a qtd dessa materia e acrescentara na list view quando for pressionado enter... Bem a parte de programação eu vo correr atrás.. mas to batendo cabeça em como montar essas tabelas e como vo fazer pra gravar o produto com suas materias primas, se eu não sei qtos tipos de MP existem na empresa ai na gravaçao do cliente com seu respectivo produto e concentraçao, a mesmo duvida algm me ajuda a matutar? acredito q tenha dado pra entender rsrs... PS: uso access Obrigado desde já.

Function pf_verificadias() Set SNCLIENTES = db.OpenRecordset("select * from clientes", dbOpenDynaset) If SNCLIENTES!dtalterou < Date And SNCLIENTES!trava = "Y" Then X = DateDiff(D, SNCLIENTES!dtalterou, Date) ' erro aqui End If Set DSCAIXA = db.OpenRecordset("select * from caixa", dbOpenDynaset) If DSCAIXA!PAGAMENTO = "" And DSCAIXA!VENCIMENTO < Date Then X = DateDiff(D, DSCAIXA!VENCIMENTO, Date) Else GoTo fim End If fim: End Function a mesgbox imprime normal mas não sai o valor de X essa rotina está no keypress do cliente no pdv If SNCLIENTES.NoMatch Then dsorcamentos!CODCLI = Null Else If SNCLIENTES!trava = "Y" Then pf_verificadias MsgBox "ESTE CLIENTE ESTA COM UMA CONTA EM ABERTO HÁ" & X & " DIAS", vbInformation, "ATENÇÃO" op = MsgBox("DESEJA EFETUAR A VENDA?", vbYesNo, "ATENÇÃO") lembrando q to começando e devo ta fazendo monte de cagada.. mas se algm me ajudar eu agradeço :(

bom talvez ajude eu colocar cmo ta minha funçao até agr não entendi direito o que você quis dizer raphael mas ai vai minha função (select td bichado :() Function pf_verificadias() Set DSCAIXA = db.OpenRecordset("select * from caixa where isnull(pagamento) and codcli= " & , dbOpenDynaset) X = DateDiff(dias, DSCAIXA!VENCIMENTO, Date) End Function não isso não funciona...pode me ajudar como terminar a funçao.. meu amigo aki daempresa disse q ta começando certo.. mas faltam algumas coisa as quais não consigo pensar no q são

Olá, preciso colocar uma coisa até fácil mas não to sabendo direito como fazer... Na minha tela de caixa, existe uma trava nos clientes, onde é selecionado um cliente devedor e a seguinte Msgbox é exibida "Este cliente está com uma conta em aberto" eu queria puxar de uma tabela onde grava o dia em q o cliente foi cadastrado como devedor, e fazer o cálculo com o dia atual para a msg box ficar "Este cliente está com uma conta em abeerto a N dias" já vi q com a funçao datediff(d,dinicial,dtnow) se faz essa conta mas não to conseguindo fazer a relação das tabelas em um select para saber deonde vou tirar a data do vencimento e tal.. algm pode me ajudar ?

Boa noite galera... to enroladao com um exercicio de algoritmo aqui da faculdade... é assim vo tenta " desenhar" o problema programar um robô para fazer a seguinte operaçao usando recurso de pilha e fila existe uma esteira com 5 campos.. com numeros de 0 a 4 em ordem numerica o programa deve passar esses 5 dados para uma esteira b q ficará da seguinte maneira 2 1 0 _ _ 3 4 Existe a instruçao: Entrada 5: Saída : mover 3 acima 0 0:0 2 move 2 topo 4 1: empilhar 4 acima 0 2: empilhar 1 topo 3 3: 3 1 encontra maior 4: 4 sair Arquivo de saída: a saida consiste da configuraçao final do seu mundo dos blocos. Emcasa linha deve aparecer o numero da posiçao original seguida de dois pontos(:). Se existir pelo menos um bloco naquela posiçao, os dois pontos devem ser seguidos pela lista de blocos que aparecem naquela pilha separados por um espaço em branco. Deve existir uma linha no arquivo de saida para cada posiçao, ou seja, n linhas sendo n é o numero inteiro na primeira linha do arquivo de entrada. Glr, sei q parece mta folga e tal mas ta em cima da hora e tenho q executar a primeira etapa do trabalho(Fazer um relatório com a descrição a analise do programa, descrição das estruturas estáticas definidas com a respectiva justificativa das estruturas gráficas) e entragar nessa 4ª feira e não da tempo mesmo de pesquisar sobre o assunto...até fui às aulas mas o exericio em si não ficou nem um pouco claro pra mim o que deve ser feito. Se algm puder me ajudar com esse trampo fico agradecido... não quero ele feito.. mas ajuda eu to precisando mesmo e o tempo p estuda é mt curto pra todos da equipe :\ Agradeço desde já, abraços

compile error mas misteriosamente ontem eu fui almoçar, deixei o note ligado, na hora q voltei pra testar de novo, ele compilou e criou o exe normalmente ahahaha n entendi nd mas resolveu o problema... mas se algm souber o que pode ser q tenha dado problema, eu agradeço...

ixi posso ta comendo 1 bola enorme...mas você n teria q colocar um data1.recordset.addnew la em cima antes de ser lido o que foi digitado ? até onde sei o update grava e o addnew adiciona pra tabela

Ola, estamos tentando migrar todos os micros daqui da empresa, onde usamos windows XP, para windows seven, e ocorre um problema ao tentar compilar o programa, da ero.. algm sabeoq pode estar acontecendo? algum problema de compatibilidade? Obrigado desde já

bom glr to fazndo uma tela de orçamento... e keria q dps de ser gravado o registro(assim q sai do subtotal do orçamento) aparecesse alguns campos do pedido numa flex grid dentro da tela orçamento mas como sou iniciante.. keria uma ajuda de vocês em como fazer isso ou algum fórum apostila e tal... obg

bom sim.. vlw pelas dicas mas agr o código está assim #include <stdio.h> #include <stdlib.h> #include <math.h> #include <conio.h> int pot(int i, int j) { [b]// ERRO AKI[/b] if(j == 0 ) return 1; else return i*pot(i, j-1); } int main() { int i;//base int j;//expoente int pote, n; printf("Digite o valor da base : "); scanf("%d", &i); printf("Digite o valor do expoente : "); scanf("%d", &j); pote = pot(n); printf("\n\n%d elevado a %d = %d ", i,j, pote); getche(); return 0; aaaaaaaaah isso ai q tava faltando... o main ta assim int main() { int i;//base int j;//expoente int pote; printf("Digite o valor da base : "); scanf("%d", &i); printf("Digite o valor do expoente : "); scanf("%d", &j); pote = pot(i,j); printf("\n\n%d elevado a %d = %d ", i,j, pote); getche(); return 0; agr funcionou... vlw pessoas ^^

Fala pessoal.. então tot endo problemas pra resolver esse exercicio.. como não manjo muito(lê-se nd) de funçao recursiva.. queria a ajuda de vocês nesse exercicio aqui - Escreva um funçao recursiva pot(i,j), que aceite dois argumentos inteiros positivos e retorna i elevado a j. Por exemplo pot(2,3) = 8. Use a seguinte definiçao pot(i,j)= i*pot(i, j-1) o q eu já fiz e n deu nd certo foi isso.. se algm puder me ajuda onde to errando..imagino q seja varios erros de sintaxe... Obrigado #include <stdio.h> #include <stdlib.h> #include <math.h: int bla(int i, int j) { if(j == 0 ) return 1; else return i*pot(i, j-1); } int main() { int i, j; int pote, n; printf("Digite o valor da base : "); scanf("%d", &i); printf("Digite o valor do expoente : "); scanf("%d", &j); pote = bla(n); printf("\n\n%d elevado a %d = %d ", i,j, ); getche(); return 0; }

ngm?

obrigado.. funcionou sim.. não conhecia essa função isupper e islower faltava isso mesmo hehe vlw

então cara como estou começando tb n posso analizar mt bem seu código mas eu fiz um exercicio desse semana retrasada tb e fiz dessa maneira e funcionou perfeitamente #include <stdio.h> #include <stdlib.h> #include <conio.h> // EXERCICIO NÚMERO 4; int main() { int n1, n2, fib, n, controle; system("cls"); n1 = 1; n2 = 1; controle = 1; printf("N:"); // numero de repetições q o programa ira executar scanf("%d", &n); printf("%d \n%d\n", n1, n2); while(controle <= n){ fib = n1 + n2; n1 = n2; n2 = fib; printf("\n%d\n", fib); controle ++; } getch(); return 0; } da uma olhada e tenta pegar algo do meu e aplicar no seu tipo no seu laço for fazer for(var=0; var<=numero de repetições; var++) acho q é por ai

Escrever um programa C que deverá solicitar ao usuário uma frase de até 20 posições e converter as letras maiúsculas em minúsculas e vice-versa. O programa deverá no final imprimir a frase original e a frase convertida. me ensinaram mais ou menos usar o tolower e o toupper mas não sei direito.. algm pode me ajudar a construir esse programa fonte?

algm me ajuda ? nem sei direito onde omeçar esse exercicio Fazer um programa C que: • Leia um número real X; • Determine e imprima o seguinte somatório: Usando os 13 primeiros termos da série: s=x-x/1!+ x/2! - x/3! + x/4!... até agr só declarei as variaveis e parei na leitura de x...acredito q terá um laço for para rodar inumeras vezes .... então ajudem pls não sei mais o que fazer hehe algm me da uma luz

O exercicio é o seguinte... e estou tentando fazer faz alguns dias e nada dele funcionar....algm me ajuda a terminá-lo ou me informar onde está o erro? Foi realizada uma pesquisa de algumas características físicas da população de uma certa região, a qual coletou os seguintes dados referentes a cada habitante para serem analisados: • Sexo (“M” ou “F”); • Cor dos olhos (“AZUIS”, “VERDES”, “CASTANHOS”); • Cor dos cabelos (“LOUROS”, “CASTANHOS”, “PRETOS”); • Idade. Faça um programa C que determine e escreva: • A idade do habitante mais velho; • A percentagem de indivíduos do sexo feminino cuja idade está entre 18 e 35 anos inclusive e que tenham olhos verdes e cabelos louros. O final do conjunto de habitantes é reconhecido pelo valor –1 informada como idade. código : #include <stdio.h> #include <stdlib.h> #include <conio.h> // EXERCICIO NUMERO 1 int main () { int olhos, cabelo, idade, i, // i = total maivelho, // maior idade entre todos mulher; // entre 18 e 35 anos com olhos verdes e cabelos louros; // contador do sexo feminino float perc; // percentual das mulheres entre 18 e 35 anos char sexo; i =0; printf("Pesquisa"); while(idade != -1) { printf("\nIdade "); scanf("%d", &idade); printf("\nInforme o sexo. M ou H "); sexo = getchar(); scanf("%c", &sexo); printf("Cor dos olhos. 1- azul. 2- verdes. 3- castanhos."); scanf("%d", &olhos); printf("\nCor do cabelo. 1- louros. 2- castanhos. 3- pretos."); scanf("%d", &cabelo); i++; mulher = 0; if(sexo =='m' || sexo == 'M'){ if ((cabelo = 1) && (olhos = 2)) { if ((idade >= 18) && (idade <= 35)) mulher++; } } printf("Para encerrar digite -1 no campo idade."); } // fim while printf("\nTotal de cadastrados = ", i); perc = mulher*100/i; printf("\nPercentual de mulheres com olhos verdes e cabelos louros entre 18 e 35 anos.", perc); maivelho = getch(); return 0; } quando informa -1 como idade ele não sai do laço e por não ter terminado ainda não consegui testar ele por completo.. obg PS: sou novo no fórum e na programaçao