kuroi

[preço de Custo] + [preço de Custo] * Reajuste / 100

tenta assim: SELECT * from (Select codigo_item from A UNION Select codigo_item from B) WHERE codigo_item = '1234'

tenta: sql = "Select * from informativos where hora between #"&dataini&"# and #"&datafim&"#"

como disse o graymalkin, você deve achar alguma coisa sobre isso no forum, de uma procurada. não sei registrar via codigo, so na mao, então não posso ajudar muito. também não consegui fazer funcionar esse, não. talvez não funcione no XP. qualquer coisa poste aí.

tente assim: htmlemail = htmlemail & " <td width='82%'>" & "<strong>" & " T&iacute;tulo:<a href='http://www.atenas.edu.br/informativo/vercomunicado.asp?id = " & Response.Write(rs.Fields("id")) & "class='link'>" & Response.Write(rs.Fields("titulo")) & " </strong></a> </td>"

tem certeza? então, ponha um response.write das variaveis vlogin e vsenha, só de teste, pra ver o que elas retornam. porque talvez o problema seja no formulario de onde vêm request.form("login") e request.form("senha")

andebol = handebol??

veja se ajuda: http://scriptbrasil.com.br/forum/index.php?showtopic=41838

vixe, o visual basic está zuando ca minha cara. a propriedade so apareceu agora que você falou!!! valeu

como, no .NET, encontro o Me.ActiveControl que tinha no Visual Basic 6?

está, eu tenho o python interpreter, mas como eu faco pra fazer um exe ou uma dll, tipo compilar meu programa e rodar em outro pc??

para usar o clipper no 98, precisava desse código no autoexec.bat: SET CLIPPER=F130 SET INCLUDE=C:\Progra~1\CLIPPER\CLIPPER5\INCLUDE SET LIB=C:\Progra~1\Clipper\CLIPPER5\LIB SET OBJ=C:\Progra~1\CLIPPER\CLIPPER5\OBJ SET PLL=C:\Progra~1\CLIPPER\CLIPPER5\PLL PATH=C:\Progra~1\CLIPPER\CLIPPER5\BIN;C:\Progra~1\CLIPPER\CLIPPER5\NG;%path%[/code] e desse no config.sys: [code]FILES=100 BUFFERS=30 como faco no xp? o xp normalmente tem um autoexec em branco no c:, quando instalei o clipper, ele automaticamente pos esse codigo la, mas no boot ele não passa por ai, e tenho que rodar o autoexec na mao cada vez que abro o windows. quanto ao config.sys não tenho nem ideia do que fazer, alguém sabe???

copie esse codigo: insert into Agenda(cidade,local,endereco,data) values ('Jacarei','trianon','rua abaeté',#14/07/2006#) e tente executar no seu access. abra o seu banco de dados, entre em consultas, criar consulta no modo design, e entre no modo sql pelo botaozinho la de cima. cole o codigo e clique na exclamação pra executar e veja se funciona. quando da erro, normalmente ele para o cursor onde estiver o erro. assim fica mais facil pra descobrir.

estranho, criei aqui uma tabela com esse nome e esse campos, testei o insert e funcionou. sera que os nome da tabela ou dos campos estao certo mesmo? qual a versao do access que você usa?

tente assim: insere="insert into Agenda(cidade,[local],endereco,data) values ('" & vcidade &"','" & vlocal & "','" & vendereco &"',#" & vdata & "#)" se não funcionar, de um response.write so pra ver o que fica na variavel insere e veja se descobre onde esta o problema. senao poste aí pra gente ver se consegue descobrir.

hora é igual data, ou seja entre # (entre ' normalmente funciona também) e moeda é igual numero sem aspas e sem nada.

acho que so com timer, porque você tem que testar a cada segundo se mudou o dia, mas acho que isso não vai deixar muito pesado não. outra coisa, é que esse seu codigo não vai funcionar quando mudar de mês já que 31 é maior que 1. o mais certo era você comparar a data toda: Private Sub Timer1_Timer() If data <> Date Then mdgbox "mudou o dia" 'também você devia mudar a variavel data dentro desse if, 'mas você que sabe onde prefere fazer isso End If End Sub[/code]

e o que acontece se você tentar por mais de 8?

????????

certo, mas tire o execute da linha 79.

não foi isso que eu quis dizer. disse pra você fazer assim: sqlUpdateUsuarios = "UPDATE usuarios SET" sqlUpdateUsuarios = sqlUpdateUsuarios & "Debitos = '" & VarDebitosUsuario & "', " sqlUpdateUsuarios = sqlUpdateUsuarios & "Cod_Atualizacao = " & varCodAtualizar sqlUpdateUsuarios = sqlUpdateUsuarios & " WHERE usuario = '" & VarUsuario &"'" Response.Write sqlUpdateUsuarios [/code] assim, ele vai mostrar na tela como vai ficar a string toda. depois disso, você da uma olhada e vê se consegue descobrir onde esta o erro. senao posta o resultado pra gente ver se consegue descobrir.

em vez do execute, de um response.write sqlUpdateUsuarios so pra testar e ver o que ele retorna.

e por isso que se costuma testar o programa antes. e, logico, testar num banco de dados a parte.

se você abre ', você tem que fechar. veja se funciona: DelProd = "DELETE * FROM debitos WHERE Usuario = '"& varUsuario & "'"

você tem que por um espaco no final de cada linha senao a string vai ficar toda junta: set rsRecebimento = Conn.execute("select nom_entidade_doadora," _ & "cgc_cpf_entidade," _ & "apl_logradouro," _ & "nom_logradouro," _ & "num_logradouro," _ & "des_complemento," _ & "nom_bairro," _ & "num_cep," _ & "nom_municipio," _ & "nom_representante "_ & "from etddt001, recet001, endet002, munit001, logrt001 " _ & "where recet001.cod_recebimento = " & cod_recebimento & " " _ & "and recet001.cod_entidade_doadora = etddt001.cod_entidade_doadora " _ & "and etddt001.cod_entidade_doadora = endet002.cod_entidade_doadora " _ & "and endet002.cod_municipio = munit001.cod_municipio " _ & "and endet002.cod_logradouro = logrt001.cod_logradouro")[/code]