vivigrieco

Olá a todos, estou fazendo uma aplicação onde eu tenho que me conectar ao Banco de Dados SQL Server. Normalmente eu crio um arquivo .asp como uma variável, +/- assim: <% MM_CCF_STRING = "provider=sqloledb;user id=castanho;password=;initial catalog=bp_ccf;data source=producao_06" %> só que agora eu tenho que conectar a um banco através da autenticação do Windows. Como eu faço essa conexão????? []'s

Gente, preciso da ajuda de vocês.. preciso fazer uma consulta SQL onde eu estou fazendo até agora isso: select ori.ds_vchDescSistOrigem, est.cd_vchSistDestino from tbl_estatistica est, tbl_sistorigem ori where est.CD_intSistOrigem=ori.cd_intSistOrigem and est.cd_vchSistDestino = 'SER' e preciso saber a quantidade maxima de est.cd_vchSistDestino. Só que não sei como fazer. Se eu coloco um count(...) lá no select, ele dá um erro... mas se eu faço um select separado: select count(cd_vchsistdestino) from tbl_estatistica where cd_intflagEnvioSerasa='1' ele funciona. Alguém sabe alguma forma de juntar essas duas consultas ou então colocar o count na primeira consulta para me mostrar essa qntidade total????

Olá a todos, estou implementando um sistema onde, em uma determinada parte, eu preciso fazer a multiplicação de matrizes. Sendo que a 1ª matriz vai ser determinada dinamicamente pelo usuário, e a 2ª matriz tem q ser uma matriz de "variáveis". Depois dessa multiplicação, eu preciso igualar o resultado dessa multiplicação com uma outra matriz também fornecida pelo usuário, de onde eu vou tirar os reais valores das variáveis dakela 2ª matriz. Alguém pode me ajudar, me fornecendo algum método que faça isso????? é urgente!!!

brigada gente... esse seu exemplo, Decio deu certo.. podem fechar o topic []'s

valeu pela dica, victor.. mas... a minha dúvida não era essa do elseif... e sim como fazer a comparação certa do que retorna com o Bd... se é ManipulaDB("Cp_tipo") = AC ManipulaDB("Cp_tipo") = "AC" ou como é, porque já tentei dessas duas formas acima e as duas retornaram "false", apesar de ter no BD esse registro...

olás! gente... to meio confusa aki... fiz a conexão com o BD, fiz uma consulta SQl básica (Select * from x where bla bla bla), só que agora preciso fazer um IF +/- assim: if ManipulaDB("Cp_tipo") = AC then ... else if ManipulaDB("Cp_tipo")=MAN then ... else if ManipulaDB("Cp_tipo") = POR then ... O ManipulaDB é : Set ManipulaDB = Server.CreateObject("ADODB.Recordset") ManipulaDB.ActiveConnection = MM_Conecta_Arquivos_STRING ManipulaDB.Source = SQL ManipulaDB.open() O MM_Conecta_Arquivos_STRING é a string que vai fazer a conexão propriamente dita... e o Cp_tipo é uma coluna do meu BD... O problema todo é que eu não sei como fazer essa comparação... tipo assim... O que exatamente o ManipulaDB("Cp_tipo") vai me retornar? uma string? o q? Eu já tentei fazer a comparação dessas formas: ManipulaDB("Cp_tipo") = AC ManipulaDB("Cp_tipo") = "AC" mas nenhuma deu certo.. ele sempre tah retornando "false"... alguém sabe me dar uma solução??? []'s

valeu urso!!!

A data tah pegando correto... ateh mesmo se eu coloco uma data estatica ele dá esse erro...

Olá a todos, quando tento abrir uma conexão na minha aplicação, assim: set ManipulaDB = Server.CreateObject("ADODB.Recordset") ManipulaDB.Activeconnection = MM_Conecta_Expresso_STRING SQL = "select cp_numero from tb_arquivos where cp_ano = " & Year(FormatDateTime(Now,2)) &"" ManipulaDB.Source = SQL On Error Resume next ManipulaDB.Open Set ManipulaDB = Nothing dá esse erro quando eu rodo a aplicação: ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /Arquivos/Administrador/Adicionar.asp, line 88 essa linha 88 é ManipulaDB.Activeconnection = MM_Conecta_Expresso_STRING Alguém sabe como resolver????

tipo assim... eu tenho um textfield em uma página. Esse textfield deve possuir um valor numérico que incremente a cada "acesso" à página. Só que na página eu também tenho dois botões, um de gravar e um de cancelar. o de gravar irá pegar o valor deste textfield (e de outros comoponentes que eu tenho na página) e gravar no BD. E o botão cancelar, sem comentários. Só que se o usuário clicar no botão cancelar, o textfield não irá incrementar, e sim ficar com o valor atual dele. Eu não sei como fazer esse "contador" que fica incrementando o textfield... Não sei se fui bem clara..

Olá a todos... bom, minha dúvida é a seguinte... eu tenho uma aplicação que possui, entre outras coisas um textfield. Eu quero que, sempre que eu entrar nessa página, o textfield incremente um (por exemplo, se eu entrei agora, tá 1, depois eu entro, quero que apareça 2), só que, se eu clicar no botao "cancelar", o textfield não incrementaria, e continuaria com o valor antigo. alguém sabe como fazer isso?

Olá a todos, eu tenho uma aplicação onde eu mando e-mails através de MAPI (pelo menos na teoria era para mandar)... na verdade é o seguinte, tinha um codigo nessa minha aplicação que estava comentado que mandava e-mail pelo MAPI, porém, atualmente estou precisando desse código, e se eu só tiro os comentários e mando compilar, ele diz q uma determinada "variavel" não foi declarada. Eis o meu código: Application.CreateForm(TfrmEnviaMail,frmEnviaMail); frmEnviaMail.Show; frmEnviaMail.lbStatus.Caption := 'Conectando... '; frmEnviaMail.Refresh; Try MAPISession1.SignOn; Except ShowMessage('Erro na Conexão do Servidor Exchange!'); frmEnviaMail.Close; Exit; End; MAPIMessages1.SessionID := MAPISession1.SessionID; mensagem := 'Sr.s,' + #13 + '' + #13 + ' O Arquivo do Dia ' + mkData.Text + ' encontra-se Disponível no ' + #13 + 'Servidor FTP do xxx!' + #13 + '' + #13 + '' + #13 + ' Atenciosamente,' + #13 + '' + #13 + ' Fulano de Tal'; For i := 1 To 4 Do Begin MAPIMessages1.Compose; Case i Of 1:MAPIMessages1.RecipAddress := 'xxx@xxx.com.br'; 2:MAPIMessages1.RecipAddress :='xxx@xxx.com.br'; 3:MAPIMessages1.RecipAddress := 'xxx@xxx.com.br'; 4:MAPIMessages1.RecipAddress := 'xxx@xxx.com.br'; 5:MAPIMessages1.RecipAddress := 'xxx@xxx.com.br'; End; MAPIMessages1.MsgSubject := 'Resultado de Processamento! '; MAPIMessages1.AddressResolveUI := True; Try MAPIMessages1.ResolveName; Except Continue; End; MAPIMessages1.MsgNoteText := mensagem; Try MAPIMessages1.Send; Except Continue; End; End; frmEnviaMail.lbStatus.Caption := 'Desconectando...'; frmEnviaMail.lbStatus.Refresh; MAPISession1.SignOff; frmEnviaMail.Close; ShowMessage('Email Enviado Com Sucesso!'); ao compilar, ele diz que MAPISession1 é um identificado não declarado. Alguém sabe como eu devo declarar isso? qual a unit, etc?? OBS: Se perguntei alguma besteira, me perdoem, mas é q eu sou iniciante em delphi

alguém poderia me dar um exemplo (simples...eheheh) de paginação??? to fazendo um mural e quero que ele mostre apenas 20 registros por página...

é, seria +/- isso... a cada 10 registros, crio uma coluna na tabela... o meu código até agora tá assim: (OBS: ele tah fazendo o contrário, ao invés de ir linha por linha e a cada 10 registros, cria uma nova coluna, ele tá indo coluna por coluna e a cada 3 registros ele cria uma nova linha),,, tentei usar a mesma lógica pra fazer com linhas, mas não deu certo.. <% SQL = "Select * from Mu_Mural Order by mu_data Desc" Set RSMural = Server.CreateObject("ADODB.Recordset") RSMural.ActiveConnection = MM_Conexao_Mural RSMural.Source = SQL RSMural.CursorType = 0 RSMural.CursorLocation = 2 RSMural.LockType = 1 RSMural.MaxRecords = 21 RSMural.Open() %> </p> <p>&nbsp; </p> <table width="97%" border="1" cellpadding="0" cellspacing="0" bordercolor="#663300"> <% cor = "#E9C7BE" cor2 = "#F1AC81" If not RsMural.EOF Then RsMural.MoveFirst Do While Not(RsMural.EOF) %> <tr > <%if Not RsMural.eof then%> <td bgcolor="<%=cor%>" width="33%"><font size="1" face="Verdana" ><%= RsMural("mu_data") & " - "%><%=RsMural("mu_assunto")%><br> <%=RsMural("mu_desc")%><br> <%=RsMural("mu_autor") & " - "%><%=RsMural("mu_contato")%> <% RsMural.MoveNext %> </font></td> <%end if%> <%if Not RsMural.eof then%> <td bgcolor="<%=cor2%>" width="33%"><font size="1" face="Verdana" ><%= RsMural("mu_data") & " - "%><%=RsMural("mu_assunto")%><br> <%=RsMural("mu_desc")%><br> <%=RsMural("mu_autor") & " - "%><%=RsMural("mu_contato")%> <%RsMural.MoveNext %> </font></td> <%end if%> <%if Not RsMural.eof then %> <td bgcolor="<%=cor%>" width="33%"><font size="1" face="Verdana" ><%= RsMural("mu_data") & " - "%><%=RsMural("mu_assunto")%><br> <%=RsMural("mu_desc")%><br> <%=RsMural("mu_autor") & " - "%><%=RsMural("mu_contato")%> <%RsMural.MoveNext %> </font></td> <%end if%> </tr> <% If cor <> "#F1AC81" and cor2 <> "#E9C7BE"then cor = "#F1AC81" cor2 = "#E9C7BE" Else cor = "#E9C7BE" cor2 = "#F1AC81" 'end if End If Loop end if %> </table>

eheheheehhe acho q hj não to muito boa pra explciações... mas vamos lá... é tipo assim... eu tenho uma tabela com 10 linhas e 1 coluna. Faço uma consulta SQL que me retorna N registros. O que eu quero é que cada registro apareça em uma linha da minha tabela (isso eu já consegui fazer), e se tiverem mais registros do que linhas (no caso, 11, 12, 100 registros), quero que vá pra outra coluna, como uma "sequência"... deu pra entender +/-???? :]