Rogerblower

valeu Morphadron T precisando mesmo, t agradeço muito.. meu ICQ é 233490369 to sempre online... valeu... Rogerblower

valeu Morphadron, era isso mesmo.....deu certo aqui, Obrigado.

Ok DELPHI-Man32 Agradeço pela ajuda........ qualquer informaçao que precise to sempre online no ICQ 233490369 se não estou online, mande assim mesmo a msg, porque as vz estou invisivel...hehehe No mais seria isso, já fiz um programa em ASP, sempre estuadando, pedindo ajuda e tentado como faço agora com Delphi. o q fiz em asp, foi hum programinha q fiz pra mim, pra administrar minhas despesas de casa, funcionou legal, so que o ASP, so roda no servidor, ae um amigo me pediu o programinha, mas como faria pra insina-lo a conf. o Server IIS do Win, muito complicado.....entendeu. valeu... Rogerblower

Ola, DELPHI-Man32 Primeiramente, agradeco muito deu interesse em me ajudar, vamos ver se consigo explicar direito o que preciso Bem meu irmao constroi sobrados para vendas, não é uma construtora, mas quem sabe um dia né... :) . então; ele faz toda a dministraçao de custos em uma tabela de excel, so que gostaria de fazer um programa pra facilitar as coisas, na verdade não sei se facilitaria ou se complicaria. Na tabela do excel tem os seguintes campos: ID, DATA, SOBRADO, MATERIAIS, SERVICOS, FERRAGENS, IDARULICA, CERAMICAS, ABERTURAS, PINTURA, ELETRICA, DIVERSOS, QUANTIDADE, VALOR, VALOR_TOTAL e VALOR DISPONIVEL. No db teria q ter os campos +- assim, pode até mudar, incluir ou cancelar alguns campos pra facilitar a funcionalidade do programa conforme a opiniao. Tavez, até aquele lance de pagamento com cheque pré-datado, vencimento e tal.... Nos campos devem ter a possibilidade de inserir, modificar e exluir dados, não esquecendo q o programa teria q fazer calculos, nas tabelas de quant. valor e valor_total. E q tenha a possibilidade de imprimir, tipo um relatorio seja semanal e mensal por sobrado, (tipo imprimir relatorio sobrado 1 do dia X ao dia X) Bem é +- isso que pensei em fazer, se você tiver alguma estrutura ou idéias pra melhorar, agradeço muito.... Rogerblower obs: O detector de mentiras deu com link quebrado....

Ola Pessoal Sou iniciante em Delphi, estou fazendo o curso aqui na SB, o problema é quando da uns erros é muito dificil descobrir onde é, se alguém puder me ajudar agradeco muito. o Lance é o seguinte, meu irmao tem uma panilha no excel para administrar seus negocios. e eu tava afim de fazer um programa que faça a mesma funçao ou mesmo facilitando seu trabalho, e isso me serviria de aprendizado, é coisa simples, tipo: Data, Quantidade, Sistema Idraulico, Sistema de Esgoto, Servicos, Cobertura, valor unit, valor.... Em Asp eu usaria um db, no Delphi pelo que já estudei da pra fazer em db, e sem db, é isso? Rogerblower.

Ola pessoal Sou iniciante em delphi, e estou tentando desenvolver um programa, so não achei onde mudo o icone da logo marca, que vem no form do delphi 7. alguém pode me dar uma dica ae. Obrigado Rogerblower

Os erros são esses ae. [Error] MDI_Principal.pas(76): Undeclared identifier: 'TfrmTexto' [Error] MDI_Principal.pas(77): Missing operator or semicolon [Error] MDI_Principal.pas(122): ';' expected but '.' found [Error] MDI_Principal.pas(124): Declaration expected but end of file found [Fatal Error] P_MDI.dpr(6): Could not compile used unit 'MDI_Principal.pas' mas a linha selecionada é essa ae abaixo. application.createForm(TfrmTexto,frmTexto); Estou começando agora com delphi, se precisarem de mais informaçoes por favor postem ae Obrigado Rogerblower

Ola pessoal Estou tendo dificuldades em terminar uma parte do curso q estou fazendo aqui na SB do Delphi. O problema é o seguinte: estou desenvolvendo um editor de texto, segui passo a passo já por 3 vzs o que esta no texto do curso, so que na hora de compilar da um erro e não consigo terminar, a linha que esta dando erro é esta aqui! Se alguém puder me ajudar fico muito grato. Rogerblower

valeu ae pessoal Vou seguir o conselho de vocês e instalar logo um antivirus aqui, fiquei so com uma duvida, Uso o IIS, e adsl, e desabilitei o firewal do win por causa do ICQ, e jogos online, o q uso muito, um antivirus não feixaria as portas que preciso abertas?? Obrigado.

Ola pessoal Preciso fazer um servidor FTP no meu pc, so q não sei como devo conf. meu site em ASP já ta rodando legal no ISS, mas o FTP nada ainda, minha partiçao é NTFS se aguem puder dar umas dicas ae agradeço muito.. Rogerblower.

oi não uso antivirus, e a reinstalaçao q sempre faço, primeiro com fdisk, elimino a partiço e depois crio outra, sempre vai tudo bem, so que desta vzs não sei o que esta aconteçendo, penso de seugunda feira, reinstalar novamente. Rogerblower

Ola pessoal já estou ficando maulo, não sei o q ta acontecendo aqui, ontem sumiu o outlook express, hoje não consigo instalr meus programas para programaçao, delphi 7 que me diz q falta o (mso98.dll) e visual basic 6, sempre da um pau em alguma coisa. semana passada peguei um tal de viruz do XP, reinstalei o Win e coloquei o tal do path, foi tudo beleza. so que hoje começou a bagunça de novo, sera que vou ter q instalar tudo de novo? alguém me ajuda ae!! valeu .....

Ola pessoal Estou começando agora com a linguagem C++ e apenas instalei o programa para começar a estudar, e já deu pau no meu ICQ. O que foi que eu fiz de errado. O Erro= C++ runtime library Error C:\programas\ICQ\icq.exe alguém pode me ajudar por favor! Obrigado Rogerblower

Ola André Da uma olhada aqui q você vai emcontrar tudo a respeito de configuraçao para o IIS. http://scriptbrasil.com.br/forum/index.php?showtopic=181

Ola Pessoal Conheço um pouco de asp, consegui fazer um programa em asp, q serve para eu administrar minhas despesas, trabalho que o ecxel faz e muito bem, so que fiz esse pra testar, ok, deu certo. So que a programaçao me atraiu e muito, e gostaria de tentar fazer um programa em C++ ou em outra linguagem. alguém pode me dar a primeiras coordenadas? valeu ae pessoal....

Fala ae Ademar Eu tenho um sistema que talves seja isso que você procura, manda teu email que te passo... Roger.

Lucas Se não me engano, você esta tentando instalar o snitz, eu tive o mesmo problema no IIS do winxp, consegui resolver configurando as autorizaçoes para ecrever no db, e também o DSN do usuario no ODBC. Qualquer coisa tenho o Snitz Forums 2000 Versao 3.4.03 traduzido por mim para o portugues BR. da uma olhada aqui na RogerJMJ o que esta la não esta completo, mas já tenho ele completo no meu IIS, faltam mandar algumas pag. para o servidor. Roger

Ola pessoal Estou meio perdido, em relaçao a banco de dados, gostaria de saber o q tem haver o SQL com access, access é um banco de dados, ok? e SQL o q é? Estou perguntando isso porque no meu IIS, começou a dar erro, q dias atras não dava e com o mesmo codigo em ASP. Quando tento abrir meu site, da um erro tipo: pagina.asp linha xxx.ok, Tipo do erro: Microsoft JET Database Engine (0x80004005) Para esta operaçao é necessario uma query atualizavel. Quando vou ver a linha xxx, la esta escrito, 'UPGATE my_conn.Execute (strSql) O q é isso??, porque não consigo gravar no db, é algum problema com Origem de dados ODBC? não sei se é este o forum certo, mas já postei no form de ASP, e não abtive respostas. já reinstalei o IIS e nada! Por favor alguém me ajude! já não sei mais onde pedir informaçoes sobre isso. Rogerblower.

Ola pessoal Estou meio perdido, em relaçao a banco de dados, gostaria de saber o q tem haver o SQL com access, access é um banco de dados, ok? e SQL o q é? Estou perguntando isso porque no meu IIS, começou a dar erro, q dias atras não dava e com o mesmo codigo em ASP. Quando tento abrir meu site, da um erro tipo: pagina.asp linha xxx.ok, Tipo do erro: Microsoft JET Database Engine (0x80004005) Para esta operaçao é necessario uma query atualizavel. Quando vou ver a linha xxx, la esta escrito, 'UPGATE my_conn.Execute (strSql) O q é isso??, porque não consigo gravar no db, é algum problema com Origem de dados ODBC? não sei se é este o forum certo, mas já postei no form de ASP, e não abtive respostas. já reinstalei o IIS e nada! Por favor alguém me ajude! já não sei mais onde pedir informaçoes sobre isso. Rogerblower.

Ola diraol Ae vai o codigo, e o erro q da é na linha 80 e na linha 80 = adoCon.Execute(strSQL) e quando eu faço assim 'adoCon.Execute(strSQL) abre normal so que não consigo gravar nada no db, se puder dar uma força ae t agradeço muito... Rogerblower. <% 'Include this file on every page on your website, EXCEPT the livesupport pages 'Checks to see if the user is wanted in a chat room by the admin and updates active users table 'You will need to change DB path and name 'Set the script timeout in seconds Server.ScriptTimeout = 90 'Set Dimension Variables Dim strDataBasePath 'Holds the path to the database Dim cString 'Holds the entire connection string Dim adoCon 'Holds the ado connection Dim SQL 'Holds SQL statement Dim strIPAddress 'Holds the current users IP address Dim rs_Active_Users 'Record sheet for the active users table Dim chatwanted 'Holds 0 if admin doesnt to chat with them, 5 if the admin does Dim usrID 'Holds user ID Set adoCon = Server.CreateObject("ADODB.Connection") '------------------------------------------------------------------------------------ 'Change this value to the path of the database strDataBasePath = "chat/LiveSupport.mdb" '------------------------------------------------------------------------------------ dim USER_AGENT, IS_IE, IS_NN USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT") IS_IE = InStr(USER_AGENT,"MSIE") IS_NN = InStr(USER_AGENT,"Nav") Dim strBrowser if IS_IE then strBrowser = "IE" elseif IS_NN then strBrowser = "NS" else strBrowser = "N/A" end if 'Connection string for the database 'If the following line does not work comment it out with a ' at the start of the line and uncomment another string cString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath) 'Uncomment this connection string if you are using Access Database 2000 or 2002 'cString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath) 'Uncomment this connection string if you are using a DSN (note: DSN is slower than the above connection strings) 'cString = "DSN=NAME_OF_DSN" 'Replace the NAME_OF_DSN with the DSN 'Give the variables some values strIPAddress = Request.ServerVariables("REMOTE_ADDR") 'Set the variable to hold the value of IP address 'Open the connection to the database path specified at top of page adoCon.Open cString 'Open the active users record sheet Set rs_Active_Users = Server.CreateObject("ADODB.Recordset") 'Create a new SQL statement to select the data from the row where users IP equals IP in database strSQL = "SELECT tblActiveUsers.* From tblActiveUsers WHERE IP='" & strIPAddress & "';" 'Set the cursor and lock types rs_Active_Users.CursorType = 2 rs_Active_Users.LockType = 3 'Open the record sheets and execute the SQL statement rs_Active_Users.Open strSQL, CString 'Check the database to see if the user whos online has a field in the database, if not create one If rs_Active_Users.EOF Then 'Insert the users IP address into a new row in database strSQL = "INSERT INTO tblActiveUsers (IP, Browser) VALUES ('" & strIPAddress & "','" & strBrowser & "');" 'Write data adoCon.Execute(strSQL) Linha 80 'If there is a record for the current user then update, dont create new Else 'Set new SQL statement, set the last active field to the current time strSQL = "UPDATE tblActiveUsers SET tblActiveUsers.LastActive=Now() WHERE IP='" & strIPAddress & "';" 'Write data adoCon.Execute(strSQL) End If 'Delete records older than 10 minuites, they are no longer active strSQL = "DELETE FROM tblActiveUsers WHERE tblActiveUsers.LastActive < Now() - 0.0070;" 'Write data adoCon.Execute(strSQL) 'Requery the record sheet to get data up to date rs_Active_Users.Requery 'Close n' clean! rs_Active_Users.Close Set rs_Active_Users = Nothing adoCon.close 'Open the table tblActiveUsers set rs_Active_Users = server.createobject("ADODB.RecordSet") 'Create new SQL string StrSql="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';" 'Open record sheet execute SQL string rs_Active_Users.open StrSql,cString,3,3 'Take the values from the database field and put them in the variables chatwanted = rs_Active_Users("ChatRequest") usrID = rs_Active_Users("ID") 'Close the record sheet and clean up rs_Active_Users.Close Set rs_Active_Users = Nothing %> <% 'If the field chatwanted is set to something other than 0 Then open chat automaticaly IF chatwanted <> 0 THEN %> <script language="Javascript"> pop1=window.open("chat/default.asp?q=1","pop1", "width=400, height=300, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, directories=no, status=no"); </script> <%ELSE%> <%END IF%> <% Dim rsStats 'Open new connection to database adoCon.Open cString 'Create new SQL string strsql="SELECT * FROM tblStats" set rsStats=server.CreateObject("ADODB.Recordset") rsStats.open strsql,adocon,3,3 Dim intCurrNum intCurrNum = rsStats.fields("PageViews") rsStats.fields("PageViews")= intCurrNum + 1 rsStats.Update %>

Ola jissa Sou iniciante em asp, já fiz o curso aqui na SB, mas na época não entendia nada, agora alguma coisa consigo entender, so q não lembro sobre Application, se você puder dar uma ajuda ae t agradeceria muito. eu fiz um Application dentro do codigo so q não deu certo. Obrigado Rogerblower <% Application.Lock NumeroVisitas = Application.Contents("TotalNaPagina") NumeroVisitas = NumeroVisitas + 1 Application.Contents("TotalNaPagina") = NumeroVisitas Application.lock NumeroVisitas = NumeroVisitas -1 Application.Unlock %> <html> <head> </head> <body> Ola! você é o visitante n°, <%=Application.Contents("TotalNaPagina")%> Obrigado. </body>

Ola pessoal Estou tendo problemas em rodar certos codigos no meu IIS, tem codigos que rodam legal, mas tem codigos que da esse erro citado abaixo alguém pode me dizer o que é isso? Tipo de erro: Microsoft JET Database Engine (0x80004005) Para a operação é necessária uma query atualizavel. Obrigado Rogerblower

Ola jissa Testei o codigo, esta funcionando sim, so q ele continua contando depois que fecho todas as janelas do navegador, ele so para de contar quando reinicio o PC.....o q pode ser isso?? Obrigado Rogerblower.

cara da uma olhada aqui,aqui você vai achar o q procura, qualquer coisa posta la....ok? Rogerblower

Ola pessoal Gostaria de saber como faço para por na pagina inicial do meu site, tipo os ultimos 10 posts do forum? Obrigado Rogerblower