Graymalkin
-
Total de itens
8.257 -
Registro em
-
Última visita
Tudo que Graymalkin postou
-
Trabalhando Com Texto Dentro De Um Memo
pergunta respondeu ao Davis Tome de Graymalkin em Delphi, Kylix
Não seria mais fácil fazer.... memo1.Lines.add('<html>'); memo1.Lines.add('</html>'); ... ? De qualquer forma, você pode fazer isso também da seguinte maneira: memo1.Lines.add('<html>'+#13+#10+'</html>'); Para isso, dê uma olhada no RichEdit da aba Win32. Veja este exemplo: memo1.Lines.Clear; memo1.Lines.add('<body></body>'); memo1.SelStart := 6; memo1.SetFocus; Abraços, Graymalkin -
O problema é que você está fazendo um código VBScript que *não* deveria ser executado do lado do cliente. É normal e correto que o IE avise sobre isso (pra variar...). Abraços, Graymalkin
-
No exemplo acima eu abri o recordset como somente leitura. Note esta linha: rs.Open(sql, cn, 3, 3) Aquele primeiro 3 ali significa o adOpenStatic, ou seja, somente leitura. Para leitura e gravação coloque um 2 ali, ficando: rs.Open(sql, cn, 2, 3) O 2 é o adOpenDynamic, que permite a você gravar também. Certo? Graymalkin
-
Você *tem* que compilá-las para DLL a fim de poder utilizá-las no VB. A Borland disponibiliza um compilador C/C++ gratuito em seu site e junto dele vem um programinha chamado impdef.exe que te retorna os nomes das funções dentro de uma DLL (após você ter compilado, é claro). Com isso basta declarar as funções no VB igual se declara as APIs do Windows (ajeitando os tipos, é claro). Abraços, Graymalkin
-
Você tem que ler o arquivo (para uma string ou para um vetor, preferivelmente este último) e depois regravar tudo, exceto a linha que você deseja remover. Abraços, Graymalkin
-
Essa variavel "fruta" é de q tipo? Declaro como variant tb? Sim, tem que ser Variant ou Object. Tentar fazer... Dim fruta As String For Each fruta In frutas Msgbox fruta Next ... resulta em erro. Abraços, Graymalkin
-
Você não precisa importar nada para ter a função type(), já que ela é builtin (ou seja, já faz parte das funções embutindas no interpretador). Testei o seguinte código... >>> i = 2 >>> print type(i) is int True ... e funcionou perfeitamente aqui (tinha acabado de abrir o interpretador). Qual a distribuição que você está utilizando? Qual a versão utilizada? Abraços, Graymalkin
-
Ele sempre dá o erro? Já tentou reinstalar? Qual a versão que você está utilizando? Abraços, Graymalkin
-
Eu sei, mas é que o código é tão próximo do utilizado no ASP comum (na verdade do VBScript que é utilizado no ASP), que achei que não seria difícil de fazer. De qualquer forma, segue um código simples: <script runat="server"> sub Page_Load dim cn, rs as object cn = CreateObject("ADODB.Connection") rs = CreateObject("ADODB.Recordset") cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("pasta\arquivo.mdb")) dim sql as string ="SELECT * FROM tabela" rs.Open(sql, cn, 3, 3) do while not rs.eof Response.Write(rs.fields("campo").value) Response.Write("<br />") rs.movenext() loop rs.close() cn.close() end sub </script> Basta colocar isso em um arquivo .aspx e chamar pelo browser (definindo corretamente, é claro, a tabela e o campo no código acima). Abraços, Graymalkin
-
Uma janela dentro da outra? Se for, dê uma olhada neste exemplo que fiz há um tempo atrás: http://www.graymalkin.globalhosts.com.br/stuff/TesteCalc.zip Abraços, Graymalkin
-
Troque a linha... criterio = "nome =" & codigo ... por: criterio = "nome ='" & codigo & "'" E veja se dá certo. Lembre-se que strings (textos) em uma SQL (ou em um critério, como é o caso) devem ficar entre aspas, assim como as strings do VB. Abraços, Graymalkin
-
Dê uma olhada neste post e veja se ele esclarece sua dúvida: http://scriptbrasil.com.br/forum/index.php...=0entry249402 Abraços, Graymalkin
-
Split, como o nome sugere, divide algo. Nesse caso, divide uma string em um vetor de variantes (variante, ou "variant" no original, é o tipo de dados do VB no qual você pode comportar quaisquer dos outros tipos [string, integer, long, etc.]). No caso... s = "Exemplo Dúvida 523547852" elementos = split(s, " ") ... vai tornar "elementos" em um vetor, contendo: elementos(0) = "Exemplo" elementos(1) = "Dúvida" elementos(2) = "523547852" Se você fizer... msgbox elementos(0) msgbox elementos(1) msgbox elementos(2) ... poderá comprovar isso. Certo? Quanto ao "For Each", vou transcrever aqui uma explicação que fiz para um amigo há um tempo atrás: """ O For Each... Next a gente usa quando se quer iterar (percorrer) sobre uma coleção de objetos ou sobre um vetor. O For...Next só itera sobre valores (de 1 até 100, de 20 a 30, 50 a 100, etc.). "For Each" significa "Para cada". Vamos a um exemplo: for each controle in me.controls msgbox controle.name next controle Com o código acima eu vou percorrer todos os controles do form atual (me). A cada iteração (volta do loop) o objeto "controle" estará referenciando-se a um determinado controle (igual quando você faz "for i=1 to 10", a cada iteração, o "i" vai ter um valor da faixa especificada). No caso acima, será exibida uma caixa de mensagem com o nome do controle. Vamos a outro exemplo, agora com um vetor: frutas = array("maçã", "pêra", "abacaxi", "limão") for each fruta in frutas msgbox fruta next fruta O código acima percorre todo o vetor "frutas" mostrando cada um dos nomes. No caso, a variável "fruta", a cada iteração, vai conter um dos nomes. O código acima poderia ser escrito com o For comum também: for i=0 to ubound(frutas) msgbox frutas(i) next i Mas, compare esse código com o anterior e você verá que o outro é muuuiiitttooo mais claro. No primeiro, literalmente, você pode ler: "PARA CADA FRUTA EM FRUTAS". Já no segundo você está trabalhando com os índices e não diretamente com os objetos (os quais você acessa especificando o índice, como em "msgbox frutas(i)"). Apesar de não aplicável a todos os casos no VB, acho o For Each muito melhor que o For convencional. """ Abraços, Graymalkin
-
O seu campo (utilizada no pesquisa) é texto ou numérico? Abraços, Graymalkin
-
Fiz um exemplo, que você pode baixar aqui: http://www.graymalkin.globalhosts.com.br/stuff/mdi.zip Mas, como disse anteriormente, o problema é que você está tentando carregar novamente um form que já foi descarregado. Uma vez descarregado (unload nome_do_form) você o destrói. Abraços, Graymalkin
-
Sim, isso é possível. Só não é exatamente desta maneira. Veja estes posts: http://scriptbrasil.com.br/forum/index.php?showtopic=25441 http://scriptbrasil.com.br/forum/index.php?showtopic=17311 http://scriptbrasil.com.br/forum/index.php?showtopic=3411 Abraços, Graymalkin
-
Qual o erro apresentado, exatamente? Abraços, Graymalkin
-
Como Eu Faço Pra Pegar Informações De (Resolvido)
pergunta respondeu ao XdogX de Graymalkin em Delphi, Kylix
Acho que com FMOD você pode obter isso, e ele tem exemplos em Delphi: http://www.fmod.org/ Abraços, Graymalkin -
Qual o erro apresentado? Abraços, Graymalkin
-
Desencripte ela gravando em um outro arquivo e exiba esse arquivo. Abraços, Graymalkin
-
Para salvar você pode fazer tanto em binário quanto o normal (com o Output). Eu prefiro fazer com o Output: Dim n as integer n = freefile() Open "c:\Lucas\vb\madeira_outro.rdc" For output As #n ? #n, texto Close #n Ok? Graymalkin
-
Use o modo Binary para abrir um arquivo binário (como uma figura). Exemplo: Dim Texto As String Dim n as integer n = freefile() Open "c:\Lucas\vb\madeira.rdc" For binary As #n texto = input(lof(n), n) Close #n debug.print texto Por serem dados binários, talvez você não irá conseguir vê-los em uma textbox, por isso coloquei para aparecer na janela Imediata. Abraços, Graymalkin
-
Exatamente, e é a mesma coisa que falei no post anterior. Sua tabela está preenchida? Abraços, Graymalkin
-
Não entendi. Ali no caso, você vai ter apenas um registro. Se você pede o cliente de id=1, você terá (no recordset cont): id quantidade 1 3 Se qt = quantidade e quantidade = 3 então aquele For vai escrever 1, 2, 3, independente do número da casa. Não é isso que você quer? Abraços, Graymalkin
-
Não seria mais fácil usar SQL para contar a quantidade para você? Exemplo: <% sql = "SELECT cod, Count(cod) as quantidade FROM propriedade WHERE cod=" & id &" GROUP BY cod" Set cont = Server.CreateObject("ADODB.Recordset") cont.Open sql, cnn, 3, 3 Response.Write("Visualizar outras Propriedades:") cod = cont("cod") qt = cont("quantidade") for i = 1 to qt %> <a href="propriedades_ce.asp?propriedade= <% =cod %> & cont= <% =qt %>" class="bt-voltar">[<% =i %>]</a> <% next cont.Close Set cont = Nothing %> Não testei aqui, mas seria isso? Abraços, Graymalkin