wozniak's Content

#758187 Função Para Tirar Hora....

Posted by wozniak on 07/07/2006, 09:03 in .NET

Eu fiz essa função aqui, você pode converte-la p/ c#:

Formatar data

Formatando uma data em diversos formatos:

Framework 1.1

Linguagem: VB.NET

=============

#Region "Method FormatDateTime()"

Public Function FormatDateTime(ByVal strDate As String, ByVal strFormat As String) As String

If strDate = "" Then Exit Function

If strFormat = "" Then Exit Function

Dim data As New System.DateTime(Year(strDate), Month(strDate), Day(strDate), Hour(strDate), Minute(strDate), Second(strDate))

Dim strReturn As String

Select Case strFormat

Case "DD/MM/YYYY"

strReturn = AddZero(data.Day) & "/" & AddZero(data.Month) & "/" & data.Year

Case "DD-MM-YYYY"

strReturn = AddZero(data.Day) & "-" & AddZero(data.Month) & "-" & data.Year

Case "DD.MM.YYYY"

strReturn = AddZero(data.Day) & "." & AddZero(data.Month) & "." & data.Year

Case "DD/MM/YYYY HH:MM:SS"

strReturn = AddZero(data.Day) & "/" & AddZero(data.Month) & "/" & data.Year

Case "DD-MM-YYYY HH:MM:SS"

strReturn = AddZero(data.Day) & "-" & AddZero(data.Month) & "-" & data.Year

Case "DD.MM.YYYY HH:MM:SS"

strReturn = AddZero(data.Day) & "." & AddZero(data.Month) & "." & data.Year

Case "HH:MM:SS"

strReturn = AddZero(data.Hour) & ":" & AddZero(data.Minute) & ":" & data.Second

End Select

Return strReturn

End Function

#End Region

 

#Region "Method AddZero()"

Function AddZero(ByVal str As String) As String

If str = "" Then Exit Function

If Len(str) = 1 Then str = "0" & str

Return str

End Function

#End Region

=============

Para chamar a função é simples:

FormatDateTime(now(),"DD/MM/YYYY HH:MM:SS")

Forte abraço e até o próximo!

#757333 Separando Os Valores...

Posted by wozniak on 04/07/2006, 22:09 in ASP

Foi um colapso

eu dei uma misturada com .net, foi força do ábito

Abraços

maravilha
tenho outra tabela com uns 20 registros
esse loop vai ajudar bastante

brigadao vcs

deu erro no

next i
----^

#756439 Separando Os Valores...

Posted by wozniak on 03/07/2006, 01:14 in ASP

Só um incremento ao post do amigo acima:

Para capturar mais de um valor você pode utilizar um laço for:

Dim strArray, i

strArray = Split("ABC-123-TDG-HTP","-")

for i = 0 to Ubound(strArray)

response.write strArray(i)

next i

O código acima quebra a string em 4 partes, você pode ter milhares de partes, e para capturar todas você utiliza o laço for com um contador (index)

Forte abraço

#754641 Array Dinâmica

Posted by wozniak on 28/06/2006, 09:11 in ASP

Faz uma pesquiza por GetRows(), vai te ajudar muito

T+

#751191 Inserir Form De Outro Form

Posted by wozniak on 18/06/2006, 23:15 in .NET

vc pode criar uma função em java script para enviar os parametros assim vc não precisa ter dois forms na mesma página

T+

#745231 Erro Consulta Atualizável

Posted by wozniak on 31/05/2006, 14:38 in ASP

Só uma dica:

vc não precisa setar um RecordSet para o método insert

ex.:

Sqla = "Insert into contas(tipo,data,empresa,situacao,valor,notafiscal) values ('entrada', '"& data2 &"', 'DiaSorin', 'pagar', '"& valor2 &"', '"& notaf &"')"

Conexao.Execute(Sqla)

Abraços

#742616 Response.write

Posted by wozniak on 23/05/2006, 12:36 in ASP

wozniak,

Cara, eu tentei usar o código

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Write "<script>window.open('Alunos.aspx', 'Cadastro de Alunos', 'height=250, width=615, top=200, left=100')</script>"
End Sub

Mas não carregou a página. O q poderá ter acontecido?

Opa, provavemente está gerando um erro de js

t+

#742028 Select Distinct + Usar Outros Campos

Posted by wozniak on 21/05/2006, 22:19 in ASP

Tenta usar o Group By

t+

#742027 Senha Expira A Cada Mês

Posted by wozniak on 21/05/2006, 22:13 in ASP

Dá p/ fazer sim, utilizando apenas uns ifs

ex.:

if Cstr(Now()) = Cstr(DateTimeVindoDoDataBase) Then

'envia msg de aviso pq expirou a senha

else

'executa o resto do aplicativo

end if

T+

#741267 Opção Onkeyup!

Posted by wozniak on 18/05/2006, 19:47 in .NET

você deve tirar a tag onkeyup, pois será adicionada dinâmicamente.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
Handles MyBase.Load

txtNascimento.atributtes.add("onkeyup","FormataDATA(this, event)")

End sub

Qualquer coisa posta ae

t+

#741080 Opção Onkeyup!

Posted by wozniak on 18/05/2006, 12:59 in .NET

vc deve adicionar este atributo via code-behind:

txtNascimento.atributtes.add("onkeyup","FormataDATA(this, event)")

t+

#730136 Sistema De Gerenciamento De Clientes

Posted by wozniak on 11/04/2006, 22:25 in Avaliação de Sistemas

Não consegui acessar, o botão de login se não me engano está sem ação...

Abraços

#729497 Web User Control Carregado Pelo Codebehind

Posted by wozniak on 10/04/2006, 13:29 in .NET

dentro do Menu1.ascx vc poderia definir isso com ifs

t+

#729493 Campo Data = Null

Posted by wozniak on 10/04/2006, 13:26 in .NET

Ou assim:

minhadata = Nothing

t+

#728454 Armazenar Strings Em Asp.net

Posted by wozniak on 07/04/2006, 09:01 in .NET

Você pode utilizar Property:

Dim _texto As String = "Aqui você define um valor"

	Public Property Texto() As String
		Get
			Return _texto
		End Get

		Set(ByVal Value As String)
			_texto = Value
		End Set
	End Property

Assim vc mantem o valor da string e só altera quando quizer dessa forma:

Texto = "minha nova string"

Qualquer deuvida posta ae

Abraços

#728450 Session Help

Posted by wozniak on 07/04/2006, 08:53 in ASP

Posta seu formulário html ai...

#707687 Envio De Password Para Mail

Posted by wozniak on 19/02/2006, 12:09 in .NET

Se não me engano, quando se utiliza o ComputeHash não é possivel converter para string novamente, vc consgue apenas fazer comparação...

eu sugiro o seguinte:

quando o visitante esquecer a senha o sistema crie uma nova e envie para ele antes de criptografar, depois criptografa e grava no banco de dados

Assim q eu faço!

Abraços

#657718 Encurtador De Url

Posted by wozniak on 03/11/2005, 23:46 in ASP

Conforme dito em outro tópico, cujo trata-se do mesmo assunto:

<%

Dim strURL 
strURL = Request.ServerVariables("PATH_INFO")

Response.write Replace(Mid(strURL,2,Len(strURL)-14),"/","")

%>

o código acima captura o nome da pasta desejada:

www.meudominio.com/wmonline

no caso o destaque acima ^.

depois você pode apenas realizar uma consulta com o dado capturado.

da uma olhada nesse exemplo:

http://www.zoadoresdorio.com.br/wozniak

fiz a mesma coisa que você quer p/ esse site acima.

Só um detalhe: você poderia ter apenas continuado o tópico anterior, que se trata do mesmo assunto

http://forum.wmonlin...howtopic=132503

Att

#656363 Redirecionamento

Posted by wozniak on 31/10/2005, 13:24 in ASP

Da uma olhada nesse código que fiz em VB.net, é só adaptar

<script runat="server">

	Sub page_load()
	
  Dim strURL As String = Request.ServerVariables("PATH_INFO")
	
  Response.redirect("http://www.site.com.br/usuario.aspx?Username="& Replace(Mid(strURL,2,Len(strURL)-14),"/",""))
	
	End Sub

</script>

Abraços

#652433 Codificar Caracteres.

Posted by wozniak on 19/10/2005, 14:10 in ASP

Eu acho q vc pode usar o server.htmlDecode() nesse caso

Abraços

#652109 Formatar Campo

Posted by wozniak on 18/10/2005, 15:18 in ASP

Faz assim:

<%

Dim i

i = "164,896578545"

response.write Left(i,6)

%>

abraços

#651920 Como Fazer Para Não

Posted by wozniak on 18/10/2005, 00:24 in ASP

Você poderia utilizar a busca p/ saber sobre isso...

Ex:

<%

Dim var

var = 00022244

Response.write Cint(var)

%>

qualquer coisa posta ae ?

t+

#651742 Como Fazer Para Não

Posted by wozniak on 17/10/2005, 15:07 in ASP

Ou então converte p/ integer :

Cint(variavel)

Abraços

t+

#651671 Menu Flash Em Asp.net

Posted by wozniak on 17/10/2005, 12:09 in .NET

vc pode usar isso aqui p/ não ocupar espaço :

Display="Dynamic"

Abraços