kuroi

em vez de ODBC, use OLEDB: "Provider=MySQLProv;Data Source=mydb;User Id=UserName;Password=asdasd;" ponha isso no connectionstring, substituindo para os nomes corretos.

você esta usando ADO? se for deve ser tipo assim: dim cn as ADODB.Connection Sub Main() set cn = New ADODB.Connection cn.ConnectionString= "Driver={mySQL};Server=localhost;Option=16834;Database=cadastro;" cn.Open End Sub[/code]

veja se encontra aqui: http://www.connectionstrings.com/ pra mim (com virtua) não.

os parametros da funcao, ue. você vai pegar 1 posicao do texto digitado a partir da posicao que você vai tirar do for.

use for e mid. pegue o mid(variavel, 1, 1) e ponha, por exemplo na variavel a. depois pegue o mid(variavael, 2, 1) e ponha na variavel a de modo que o anterior fique no final (a = mid(...) & a) assim ate o final do for.

e se você puser a propriedade ShowInTaskBar do form = True?

ela vê o tamanho da string. exemplo: x = "aaa" msgbox len(x)[/code] vai mostrar 3 [code]x = "aaabb" msgbox len(x) vai mostrar 5

você deve fazer um timer para executar uma acao a cada 2 minutos. se tiver dificuldade nessa parte, veja esse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=76882 pra mostrar aleatoriamente não sei direito, mas acho que seria assim: Randomize a = Rnd If Int(a * 10) = 0 Then MsgBox "mensagem 1" ElseIf Int(a * 10) = 1 Then MsgBox "mensagem 2" ElseIf Int(a * 10) = 2 Then MsgBox "mensagem 3" .... .... .... ElseIf Int(a * 10) = 9 Then MsgBox "mensagem 10" End If[/code]

em vez de: Dim total As Currency faca: Dim total As Double

3,62 não é 3 minutos e 62 segundos e sim 3 e 62/100 minutos, entendeu? pra ver quando da em segundos, você tem que fazer 62 / 100 * 60 = 37,2. ou seja 3,62 minutos equivale a 3 minutos, 37 segundos e 2 décimos.

certo... concordo em partes... na época eu não tinha percebido o problema. como fiquei bastante tempo sem mexer com o 2005, so fui reparar esses dias. valeu por ter juntado, nem sabia que moderador tinha poder pra fazer uma coisa assim... valeu pela atencao. estranho... parece ser uma coisa tão comum, sera que ninguém nunca teve um problema assim??? valeu, se eu arrumar uma solucao eu posto.

faca assim: rs1.open "select count (*) as Ontem from Users where data = DateAdd ('d', -1, Date)", conexao rs2.open "select count (*) as Hoje from Users where data= Date ", conexao[/code] se você puser now ele vai tentar procurar por data e hora.

tentou entrar em File -> Printer Setup para ver se tem algum problema na configuracao das impressoras nesse rpt?

Graymalkin, sem querer ser chato, não gosto da sua mania de ficar fechando posts. primeiro porque não vejo vantagem nisso. e depois, porque apesar desse post http://scriptbrasil.com.br/forum/index.php...topic=74461&hl= ser velho, ainda não está resolvido e eu podia ter continuado nele, assim ia ficar mais facil de quem ler entender qual é minha dúvida. mas beleza. é o seguinte, o código que você passou da outra vez: Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus, TextBox1.Click TextBox1.SelectionStart = 0 TextBox1.SelectionLength = TextBox1.Text.Length End Sub[/code] quando você me falou pra chamar o evento também no click do textbox funcionou certinho, mas hj vi que tem um problema. se eu clico no textbox sendo que eu já estou com o foco nele, ele também seleciona o texto. e isso não pode acontecer!! tipo, se eu estou escrevendo um texto qualquer e vejo que errei alguma coisa no comeco e clico com o mouse onde eu quero por o cursor ele vai selecionar o texto todo. ou se, por exemplo, quero selecionar só um pedaco do texto (com o mouse), também não consigo, ele vai selecionar o texto todo. sera que não tem jeito mesmo?? tentei fazer com que quando chamasse esse evento (ou o evento de selecionar de qualquer outra textbox), ele gravasse o nome da textbox numa variavel e ele so iria selecionar o texto caso o conteudo dessa variavel fosse diferente do nome da textbox. mas so funcionou no GotFocus. no click, parece que ele seleciona mas desseleciona logo em seguida. outra coisa é que esse esquema de variavel é muito tonto, já que eu teria que mudar o conteudo dela em cada gotfocus de cada controle. não tem um jeito simples não???

simples, e so fazer um for do numero ate 0 step -1 e ir multiplicando os numeros

facil, use len pra saber quantos nºs são, ou seja, qual vai ser o expoente e use o mid pra ler nº por nº, elevar e somar.

que eu saiba não da não. e que eu saiba em msflex também não da não, você teria que procurar outro componente.

porque você tirou a conexao com o banco? tente assim: <% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") Set RstParametros = Server.CreateObject("ADODB.RecordSet") conn.open ConnectString RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= DateAdd('d',-1,Date)) As Ontem, (select Count(*) from users where xdt_disponivel <= Date) As Hoje ", Conn 'Declaração de Variáveis TotOntem = RstParametros("Ontem") TotHoje = RstParametros("Hoje") TotGeral = TotOntem+TotHoje 'Fim das declarações (Variáveis) %> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#999999" colSpan=2 > <font color="#006600" face="Arial" size="-1">Total Geral ---> <%=TotGeral%></Font> </td> </tr> </table> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#9999CC" colSpan=2 > <font color="#339999" face="Arial" size="-1">Total Hoje ---> <%=TotHoje%></Font> </td> </tr> </table> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#FF3333" colSpan=2 > <font color="#3399FF" face="Arial" size="-1">Total Ontem ---> <%=TotOntem%></Font> </td> </tr> </table> <% 'Finalizando as conexões Set Conn = nothing Set RstParametros = nothing %>[/code]

posta o codigo como ficou...

então ponha assim no comeco: Set RstParametros = Server.CreateObject("ADODB.RecordSet")

ue, no codigo que você postou: <% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= Getdate()-1) Ontem, (select Count(*) from users where xdt_disponivel <= Getdate()) Hoje ", Conn 'Declaração de Variáveis TotOntem = RstParametros("Ontem") TotHoje = RstParametros("Hoje") TotGeral = TotOntem+TotHoje 'Fim das declarações (Variáveis) %> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#999999" colSpan=2 > <font color="#006600" face="Arial" size="-1">Total Geral ---> <%=TotGeral%></Font> </td> </tr> </table> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#9999CC" colSpan=2 > <font color="#339999" face="Arial" size="-1">Total Hoje ---> <%=TotHoje%></Font> </td> </tr> </table> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#FF3333" colSpan=2 > <font color="#3399FF" face="Arial" size="-1">Total Ontem ---> <%=TotOntem%></Font> </td> </tr> </table> <% 'Finalizando as conexões Set Conn = nothing Set RstParametros = nothing %>[/code] substitua isso: [code]RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= Getdate()-1) Ontem, (select Count(*) from users where xdt_disponivel <= Getdate()) Hoje ", Conn pelo codigo que eu passei.

isso? RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= DateAdd('d',-1,Date)) As Ontem, (select Count(*) from users where xdt_disponivel <= Date) As Hoje ", Conn

faltou python: print "Hello World"

é, o ideal ia ser se você alterasse o campo para numerico e gravar sem %. apesar d que do jeito que esta funciona assim: [preço de Custo] + [preço de Custo] * Val(Reajuste) / 100 você não vai conseguir selecionar numeros com virgula o melhor mesmo é trocar pra numero.

não sei o hino do brasil inteiro e nem tenho vontade de saber. pra mim patriotismo só leva a guerras. as pessoas deviam viver unidas e não separadas por fronteiras chamadas nacoes.