kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
estranho ter aparecido verdadeiro em vez de true, deve ser a configuracao do seu pc ou do servidor. o esquema é você testar antes: sqlX = " UPDATE doutores SET " sqlX = sqlX & " cto = " & Iif(varOk, "True", "False") & "" sqlX = sqlX & " WHERE id = " & varID [/code]
-
como assim? se for campo tipo texto, você pode definir o tamanho maximo, so que não pode passar de 255. se for campo do tipo memorando, não sei se tem limite, mas se tiver deve ser um numero muito alto, tipo mais de 6 milhoes de caracteres.
-
o que seria verdadeiro, um campo da tabela? porque isso que você so vai funcionar se for. se for uma variavel faca assim: UPDATE doutores SET cto =" & Verdadeiro & " WHERE id = 1109 se for um valor boolean faca assim: UPDATE doutores SET cto = True WHERE id = 1109
-
veja se é isso: http://scriptbrasil.com.br/forum/index.php?showtopic=73040
-
tem certeza que ela esta aberta? verfique o state antes: If Conexao.State = 1 Then '1 signfica que esta aberto Conexao.Close End If[/code]
-
tem certeza que quando ele passa por aqui If ex1 = "" Then ex1 = "OFF" Else If ex1 = "ON" Then ex1 = "'000001'" end if end if [/code] ele fica realmentoe com '000001'? tem certeza que ele esta ON antes de passar pelo if? e essa linha que você comentou? [code]'response.write "Select * from t_exame where cd_exame = "&ex1&"" você já tentou ver o que ela retorna?
-
so que na verdade tem que fazer uma correcao no meu codigo: Delete from Tabela Where Data <= DateAdd('d', -20, Date()) o que eu tinha postado antes apagava todas as datas que fossem vinte dias mais velhas ou menor. o certo é esse que eu passei agora, ele apaga todas as datas 20 ou mais dias mais velhas. reparem que é -20 no lugar de 20.
-
ue não e so fazer assim? Delete from Tabela Where Data <= DateAdd('d', 20, Date())
-
você não precisa criar um recordset pra gravar. você pode fazer assim: cn.Execute sql em vez de:Set rs = cn.Execute(sql) na hora de gravar.
-
Hello World
pergunta respondeu ao Denis Bittencourt Muniz de kuroi em Outras Linguagens de Programação
alguém sabe o que é isso? http://www.roesler-ac.de/wolfram/hello.htm#Piet -
Hello World
pergunta respondeu ao Denis Bittencourt Muniz de kuroi em Outras Linguagens de Programação
isso esta certo mesmo? o certo não seria? say "Hello World" ou ? "Hello World" não lembro direito mas acho que o @ servia pra posicionar na tela: @ 0, 1 say "Hello World" -
tava pesando agora, se você tivesse mais de uma atualizacao no mesmo dia, ia resolver se você gravasse data e hora
-
talvez esse arquivo seja de uma versao mais recente do sql da que você tem
-
se você tem as tabelas: faca assim: Select Codigo, Nome, Observacao from Pessoa INNER JOIN (Select Obs2.Observacao from ((Select CodPessoa, Max(Observacao.DataAtualizacao) as DataAtualizacao from Observacao Group By CodPessoa) as Obs1 INNER JOIN (Select * from Observacao) as Obs2 ON Obs1.DataAtualizacao = Obs2.DataAtualizacao And Obs1.CodPessoa = Obs2.CodPessoa)) as Observacao ON Pessoa.Codigo = Observacao.CodPessoa so o problema seria se você tivesse mais de uma atualizacao no mesmo dia. nesse caso, acho que ia funcionar se você usasse o codigo auto numeracao que você falou que tem. não testei esse codigo e ele é bem complicado pra funcionar de primeira, mas vê aí, acho que é isso mesmo que você quer. qualquer coisa poste.
-
onde você arranjou esse arquivo? pelo que eu sei os arquivos de back up do sql são .bak.
-
você não pode passar o valor em branco, você tem que validar antes: data = Request.Form("Data") sql = "Insert Into Tabela(Data) Values(" & IIf(data = "", "NULL", "'" & data & "'") & ")" cn.Execute sql [/code] nesse caso você deve validar antes: [code]If isDate (rs("Data")) Then data = CDate (rs("Data")) Else - VEM PRA CÁ SE não FOR DATA, você que SABE O que QUER POR AQUI - End If
-
veja se é isso: Private Function Arredonda (n as Double) as Double Arredonda = IIf (n = Int(n), n, Int(n) + 1) End Function[/code]
-
não sei como funciona essa extensao .lng, mas talvez o esquema seja você abrir com se abre um txt normalmente e pegar as traducoes, não? sua dificuldade esta ai, ou é um negocio totalmente diferente?
-
acho que não seria só isso, o certo seria substituir o que apenas quando estiver a letra que sozinha entre espacos. tipo, se eu tivesse por exemplo "que" entre aspas ou entre pontos, como você digitou o certo seria não substituir
-
não gostei. sem querer criticar o trabalho do Sr. Binho, do eddie ou de qualquer um outro envolvido, mas... se eu quero postar um codigo com uma variavel que chame que, apenas a letra que, caracter 113 da tabela ASCII ele transforma em que por extenso: que "que" que como eu faco pra digitar a letra que, que vem depois do p e antes do r? e que p**** é essa de sr Sr. Binho?
-
qual é o tipo do campo onde você grava a imagem? o certo seria BLOB/Objeto OLE. quanto ao seu outro problema, acho que você talvez esteja fazendo alguma confusao. tipo, em que secao você poe o logo? tipo page header, group header? porque a imagem nada mais é que um campo da tabela como qualquer outro. acho bom perguntar de novo: quantas tabelas você tem no report? tem certeza e elas estao linkadas corretamente? nunca tive problema nenhum em trabalhar com imagens no crystal, sendo .gif, .jpg ou qualquer outro, por isso não não consigo ver outra razao pra esse erro a não ser que você esteja confundindo alguma coisa. ou talvez a versao do crystal que você use tenha alguma diferenca da minha, tipo algum pau pra trabalhar com imagem. sera que não é algum erro na hora de exportar? você já tentou abrir o Report Preview pra ver como fica?
-
veja se ajuda: http://www.macoratti.net/vb_loct1.htm
-
encontrei o meu em C:\Windows\System32 se você não encontrar em nenhum lugar no seu pc, acho que então o crystal 11 não usa esse arquivo, mas mesmo assim você pode tentar baixar da internet. tipo procura no google.
-
qual a descricao do erro? no crystal 11 não sei, mas no 8.5 já tive alguns problemas mas consegui resolver adicionando junto com o instalador o arquivo "P2smon.dll". nem precisa registrar, é só por na System32.