kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
os campos data_acordo e data_vencimento são do tipo data/hora?? quando "não tem" data, significa q esta gravado nulo ou uma data em vazia?? é so você adaptar no iif() q eu passei: sql = "SELECT cobranca.codigo_cliente, cliente.nome_cliente, cliente.cpf, cobranca.data_venc, cobranca.parcelas, cobranca.quitado, cobranca.data_acordo, cobranca.observacao FROM cobranca, cliente WHERE cobranca.codigo_cliente = cliente.codigo_cliente AND cobranca.quitado = 0 ORDER BY IIf(Not IsNull(cobranca.data_acordo), cobranca.data_acordo, cobranca.data_venc)"
-
quem escolhe onde vai é vc, ue. o q exatamente você ta querendo fazer??
-
na verdade acho q você pode fazer so com html. tudo o q você precisa é mostrar uma imagem com o mapa do brasil usando a tag img. e depois mapear as areas do mapa usando as tags map e area: http://www.w3schools.com/TAGS/tag_area.asp http://www.javascriptkit.com/howto/imagemap.shtml
-
é, eu tava com essa impressao... adagir, visual basic 2010 é na verdade uma versao do visual basic .net, você postou na sala errada, essa aqui é so pra visual basic ate versao 6 (depois dessa versao, todas são .net). da proxima vez, mesmo q você não tenha certeza do local onde deve postar, pelo menos informe a versao da linguagem. moverei esse tópico pro local correto. agora, no 2010 já não sei como proceder, acho q você nem tem o objeto Line. mas moverei pra sala de .net, vamos ver se alguém te ajuda por la...
-
flecha, não é Index, é ListIndex.
-
se eu entendi o q você quer, faca dois fors pra ir somando cada celula com todas as outras. se a soma bater você mostra as duas.
-
adagir, antes uma duvida... q versao do visual basic você esta usando??
-
esquece td q eu disse nos otros posts. você não leu o aviso la em cima?? onde diz: então, acho q você sabe q você ta usando visual basic 2008, certo?? isso significa q você postou na sala errada, eu tava pensando q era visual basic 6 desde o comeco (consequentemente os codigos e tutoriais q passei não servem pra vc). da proxima vez, mesmo q não saiba exatamente em q sala postar, pelo menos especifique qual versao você usa. moverei esse tópico pra sala correta.
-
transfira essas linhas pra antes de abrir o while: 'Start a new workbook in Excel Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Add 'Add data to cells of the first worksheet in the new workbook Set oSheet = oBook.Worksheets(1)[/code] apague as linhas: [code]For i = 1 To F e Next i antes de abrir o while escreva: i = 1 e antes do Loop, escreva: i = i + 1 e ai veja se não funciona.
-
ta, isso acontece porque a data ocupa 10 caracteres. ai você declarou o array com 10 posicoes. acontece, q é necessaria uma posicao a mais pra guardar o caracter de fim de string ('\ 0'). então, na hora de ler do txt, ele vai ler as 9 primeras posicoes da data e vai adicionar o '\ 0'. quando for pra ler a hora, ele continua de onde parou e vai ler o ultimo caracter da data ate a quebra de linha. se você declarar a data com 11 posicoes (e mandar ler 11 com o fgets()), isso deve ser resolvido. entretanto, pelo q entendi, o txt ta separado em linhas. e isso pode atrapalhar tb. não fiz o teste aqui, mas tb, se não me engano, a quebra de linha é adicionada na string com o fgets(). e se você estiver usando windows, imagino q ele va adicionar os dois caracteres CR e LF. por conta disso, acho q o melhor seria declarar a data com 13 posicoes (e mandar ler 13 com o fgets()). tente ai.
-
adodc?? cara, uma coisa q eu não sei mesmo é usar controle vinculado. mas acho q você pode usar o Find() do Recordset. exemplo: Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "Codigo = " & txtCodigo.Text If Adodc1.Recordset.EOF Then MsgBox "Código não encontrado" Else - encontrou o codigo - End If[/code] entretanto, recomendo q você não use o controle adodc, por motivos q você le aqui: http://www.macoratti.net/vbc_vinc.htm o melhor é usar recordset declarado. você pode seguir esse tutorial: http://www.macoratti.net/dao_ado2.htm mas de atencao pra parte do ado (as janelas de codigo amarelas) porque o dao já estao ultrapassado há muito tempo. sobre ado: http://www.macoratti.net/ado.htm veja o q você consegue com esse codigo q eu passei, qualquer coisa poste ai.
-
isso na hora de mostrar na tela?? bom, eu nem sei a estrutura da funcao fgets() (alias, nem sei o q ela faz), mas olhando o seu codigo aqui, eu reparei: struct evento{ char nome[TAM_CHAR]; char data[10]; char hora[15]; char local[TAM_CHAR]; struct evento *prox; struct evento *ant; };[/code] [code]fgets(evento->nome,TAM_CHAR,arq); fgets(evento->data,TAM_CHAR,arq); fgets(evento->hora,TAM_CHAR,arq); fgets(evento->local,TAM_CHAR,arq); você declara data com tamanho 10 e hora com tamanho 15. mas na hora de ler com o fgets, você passa o tamanho TAM_CHAR (q vale 50). o certo não seria passar 10 e 15??
-
o erro ta na linha do malloc(), certo?? acho q o certo seria isso: evento=(EVENTO*)malloc(sizeof(EVENTO)); o sizeof() tem q pegar o tamanho do EVENTO com letra maiusculo (q se refere a struct). se você pegasse o tamanho do evento com letra minuscula, acho q ele retornaria o tamanho ocupado pelo pontero dessa struct, e todo pontero ocupa 4 bytes (em sistemas de 32 bits), o q não seria suficiente pra guardar toda a struct.
-
é verdade, vi agora q o vba não tem o objeto clipboard como no vb6. você pode usar o DataObject, entretanto, ele so pode ser usado dentro de um UserForm: http://www.cpearson.com/EXCEL/clipboard.aspx tb existem essas apis: http://www.mvps.org/access/api/api0049.htm eu estava pensando em você automaticamente pegar os textos das planilhas e inserir nos templates você mesmo, mas não sei se isso sera viavel. não entendi direito como esta ocorrendo. em vez de o cara apertar ctrl + c, ele chama uma macro q copia o texto pra ele?? como a macro sabe o q deve ser copiado?? a macro tb deveria colar o texto pra ele no local correto?? como você saberia??
-
tentou?? texto = Clipboard.GetText(vbCFText) onde estao esse template e o sistema de chamados. são alguma coisa q estejam dentro do mesmo arquivo .xls??
-
imagine quando, numa matriz qualquer, a maoiria dos elementos sejam 0. exemplo, numa matriz 30X30, você sabe q de todos os 900 elementos q existirao na matriz inteira, você vai usar somente uns 50. os demais estariam preenchidos com 0 (ou qualquer outro valor q represente nulo, ou algum valor q seja irrelevante pra você armazenar, já q sera sempre o mesmo). você estaria gastando mta memoria declarando todos os 900 elementos. em vez disso, o melhor seria você instanciar somente os elementos q você fosse usar. matriz esparsa: http://www.lcad.icmc.usp.br/~nonato/ED/Matrizes/node30.html http://en.wikipedia.org/wiki/Sparse_matrix
-
é, o adriano tem q ir pra copa sim, mas no momento acho q o nilmar esta melhor.
-
você não quer apagar as linhas q tem, so quer q nenhum item fique selecionado, seria isso?? nesse caso, o codigo seria: Combo1.ListIndex = -1 mas se por acaso você ta querendo apagar todas as linhas, seria: Combo1.Clear
-
javascript?? onde entra javascript ai?? agora, você ta usando dao ou ado?? controles vinculados ou recordsets declarados?? se o cara digitasse o codigo num textbox, você poderia fazer a query assim: sql = "Select * From Tabela Where Codigo = " & txtCodigo.Text Set rs = cn.Execute(sql)[/code] onde rs seria o seu recordset ado e cn o seu objeto connection.
-
prefiro o adriano ao nilmar, mas na fase atual, levaria o nilmar. mas agora, nd de neymar, robinho, luis fabiano, o esquema é grafite e diego tardelli.
-
diagrama de blocos seria um fluxograma?? não consegui entender o q significa "números ímpares dos números lidos entre 100 e 200".
-
adagir, é aquilo mesmo q eu falei. depois você pode calcular a distancia pelas propriedades X1, X2, Y1 e Y2 do Line, ou ainda pode pegar o X e o Y do MouseDown() e do MouseUp(). se você tem duvidas em como dexar o form transparente, procure no google por "form transparente vb6" q tem mta coisa. veja ai o q você consegue, qualquer problema, poste.
-
com "sb" você quer dizer "sub"?? se for, então... não analisei o seu codigo minuciosamente, mas era pra funcionar. esse problema aqui ainda ocorre?? ele ocorre somente em pcs onde o crystal não esteja instalado?? isso deve ser problema de distribuicao, e não de codigo. você tentou aquele do p2smon.dll q eu falei?? de qualquer modo, eu precisei dessa dll quando usei o componente CRAXDRT. como você ta usando o CRControl, possivelmente, a distribuicao q você tenha q fazer tenha q ser diferente. olha aqui, um link (em ingles) q os caras discutem isso, pode ajudar: http://www.dbforums.com/crystal-reports/98...orts-8-5-a.html flecha, não entendi o q você quis dizer.
-
flecha, como eu disse, quando ele cria esse form pronto, ele já te da o codigo todo q você usa pra mostrar. como eu disse, é so você adicionar o CRViewer no formulario q você quiser e usar aquele codigo. você tb não precisa fazer o relatorio necessariamente dentro do visual basic (usando o Add Crystal Reports), você pode fazer o .rpt separado e chama-lo do mesmo jeito q esta sendo feito no projeto q você me mandou. não tive nenhum problema desse tipo.
-
sim, porque ele faz a conversao automaticamente pra vc, entretanto você tem q tomar cuidado, porque você nunca sabe o q ele vai digitar no inputbox e não tem como validar. tipo, se o cara digitar texto la, vai ocorrer erro na hora de gravar em uma variavel integer. mas, no vba, você tem o Application.InputBox(), q você pode especificar se a inputbox recebera texto, numero, true/false, etc. exemplo de como usar aqui: http://www.tomasvasquez.com.br/blog/micros...cation-inputbox