Alexandre_Ribeiro
-
Total de itens
77 -
Registro em
-
Última visita
Tudo que Alexandre_Ribeiro postou
-
Galera, to tentando fazer um select.. mas não to conseguindo!! Eu tenho uma tabela de status de protocolos. Onde nessa tabela, um protocolo tem vários status com suas respectivas datas. Gostaria de ver no select o numero do protocolo e o status(cuja data é a mais recente). Como poderia fazer isso ?? Exp: Protocolo Data Status 001 10/02/2005 ABERTO 002 11/02/2005 ABERTO 001 12/02/2005 PENDENTE 001 14/02/2005 FECHADO 002 15/02/2005 FECHADO No select eu gostaria de visualizar assim: Protocolo Data Status 001 14/02/2005 FECHADO 002 15/02/2005 FECHADO
-
Tem q verificar os tipos das variáves (string, integer)!
-
Valeu Galera... consegui!! a trigger: select codigo from inserted o insert da aplicação transforma-se em um select (trigger). Alexandre.
-
Cara, é só gerar o script de criação das tabelas no MySQL e executar no SQL Server (query analyser). Ats, Alexandre.
-
Galera, como faço para retorna o valor gerado pela trigger, no momento de sua execução, para a minha aplicação em VB??? CREATE TRIGGER TG_EMP ON [dbo].[T_Empresa] AFTER INSERT AS select Empresa_Codigo from inserted Grato, Alexandre.
-
Cara, tenta utilizar este select dentro da trigger: Select fkIdItem from inserted O resto acho q você desenrola!
-
Galera, to com um probleminha básico... Fiz uma aplicação de controle de viagens... Ao criar uma viagem, faço um select no bd para verificar qual o código da última viagem, somo 1 nesse código achado pelo select e tenho o novo código da viagem a ser aberta. Eu acho este processo de obtenção de chave primária bastante seboso e ridículo. Tentei usar o identity mas como faço para utilizar o código atribuido pelo identity no segundo insert que precisa do código da viagem inserida... Pra ajudar o entendimento coloquei o código abaixo!! Grato, Alexandre. conexao.BeginTrans Set consulta = conexao.Execute("select max(cast(cod_viagem as integer)) from viagens") codviagem = consulta.Fields(0) codviagem = codviagem + 1 Set consulta = conexao.Execute("INSERT INTO Viagens VALUES ('" & codviagem & "' , '" & FormLogin.login & "' , 'ABERTO' , '" & Format(CDate(Date), "dd/mm/yyyy") & "' ) ", adExecuteNoRecords) Set consultaAuditECT = conexao.Execute("insert into Auditorias values('" & Trim(codviagem) & "', '" & Trim(localidade) & "') ", adExecuteNoRecords) conexao.CommitTrans
-
Galera, o comando framespacing não funciona no firefox ?? No ie funciona legal!! Alguém sabe alguma sugestão ?? <HTML> <HEAD> </HEAD> <frameset rows=25%,75% framespacing=0> <frame src="cabecalho.htm" frameborder=no noresize="noresize"> <frameset cols=20%,80% framespacing=0> <frame src="menu.htm" frameborder=no noresize="noresize"> <frame src="apresentacao.htm" frameborder=no noresize="noresize" name="showframe"> </frameset> </frameset> </HTML>
-
Galera, consegui... segue o codigo pra quem precisar... Public Function ValidEMail(sEMail As String) As Boolean Dim nCharacter As Integer Dim Count As Integer Dim sLetra As String If Len(sEMail) < 5 Then ValidEMail = False Exit Function End If For nCharacter = 1 To Len(sEMail) If Mid(sEMail, nCharacter, 1) = "@" Then Count = Count + 1 End If Next If Count <> 1 Then ValidEMail = False Exit Function Else If InStr(sEMail, "@") = 1 Then ValidEMail = False Exit Function ElseIf InStr(sEMail, "@") = Len(sEMail) Then ValidEMail = False Exit Function End If End If nCharacter = 0 Count = 0 For nCharacter = 1 To Len(sEMail) If Mid(sEMail, nCharacter, 1) = "." Then Count = Count + 1 End If Next If Count < 1 Then ValidEMail = False Exit Function Else If InStr(sEMail, ".") = 1 Then ValidEMail = False Exit Function ElseIf InStr(sEMail, ".") = Len(sEMail) Then ValidEMail = False Exit Function ElseIf InStr(InStr(sEMail, "@"), sEMail, ".") = 0 Then ValidEMail = False Exit Function End If End If nCharacter = 0 Count = 0 If InStr(sEMail, "..") > InStr(sEMail, "@") Then ValidEMail = False Exit Function End If For nCharacter = 1 To Len(sEMail) sLetra = Mid$(sEMail, nCharacter, 1) If Not (LCase(sLetra) Like "[a-z]" Or sLetra = _ "@" Or sLetra = "." Or sLetra = "-" Or _ sLetra = "_" Or IsNumeric(sLetra)) Then ValidEMail = False Exit Function End If Next If Right$(sEMail, 1) = "." Then ValidEMail = False Exit Function End If nCharacter = 0 ValidEMail = True End Function
-
Galera, estou precisando de um código de validação de e-mail... alguém poderia postar aqui?? Valeu.
-
Cara, você tem o codigo de validação de e-mail ? Grato, Alexandre.
-
Cara... estou com o mesmo problema que o adriano182... Para enviar email com PHP não é preciso ter nenhum componente parecido com o que usamos no ASP? Exp (asp) : Set iMail = CreateObject("CDONTS.NewMail") E a configuração do servidor smtp no PHP ?? Como é feita ?? Grato, Alexandre.
-
Galera, como posso utilizar o componente adodc para inserir, alterar e excluir no BD ?? Gostaria de ter essas funcionalidades em um unico form, utilizando os mesmos textbox tanto para inserir, alterar e excluir!! E quando no banco (sql server) estiver a propriedade identity=yes em um dos campos ?? Grato, Alexandre.
-
Valeu.. obrigado pela dica!! Mas o melhor mesmo é um servidor com ASP ou PHP!! Grato, Alexandre.
-
Galera, Fiz um site para um servidor que não tem tecnologia ASP, PHP ou similar. Existe algum meio de enviar email através de um formulário apenas com HTML ou alguma outra alternativa capaz de realizar???? Ouvi falar sobre formulario cgi-bin... será que resolveria e como funciona?? Grato, Alexandre.
-
Galera, fiz um site em asp em uma maquina local com o iis instalado... e ta tudo funcionando legal!! Quando vou colocar no servidor para disponibilizar o site na web... o que é preciso configurar?? Grato, Alexandre.
-
Galera, quando envio o email.. ta dando o erro: "This evaluation component has expired." O que eu faço?? O Aspemail não é free ?? Grato, Alexandre.
-
Amigo, um ótimo controle para isso é o INPUT32x.OCX , que você poderá baixar no endereço http://www.eoliv.com/ Abraço, Alexandre Ribeiro.
-
Pessoal, tenho uma tabela de cadastro de viagens que tem como chave primária: "cod_viagem". Atualmente faço o seguinte procedimento via aplicação(vb): set consulta = conexao.execute("select max(cod_viagem) from viagens") codigo = consulta.fields(0) + 1 set consulta = conexao.execute("insert into viagens values('" & codigo & "' , ....) Gostaria de utilizar um trigger q ao inserir atribua um código sequencial no registro inserido!! Como posso fazer isso?? Grato, Alexandre.
-
Pessoal, Como posso fazer uma transação no vb6, para controle de concorrência de usuários, no momento de inserir um registro no banco(sqlserver)??? Alexandre.
-
Pessoal, estou tendo problemas com a versão do windows... O aplicativo é compilado numa máquina com win2000, mas ele é executado em máquinas com win98 e outras com win2000! As maquinas com win98 não estão rodando a aplicação... o que será que está acontecendo??? Grato, Alexandre.
-
Internet Explorer, Me Obedeça!
pergunta respondeu ao Denis Bittencourt Muniz de Alexandre_Ribeiro em Visual Basic
Ae.. Graymalkin.. seus códigos são muito bons!!! Gostei deste q abre o iexplorer... Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "http://www.google.com" Como faço para fechar o browser q ele abriu ou todos os browser q estiverem abertos????? Grato, Alexandre. -
Deu certo.. valeu mesmo!! Grato, Alexandre
-
Galera, na minha aplicação vb esta dando incompatibilidade dos dados... no vb uso uma variavel do tipo currency e envio pro sql através do "INSERT into tabela values(" & totaldespesa & ") " mas o sql não aceita.... Qual o tipo de variavel devo usar no sql server?? money, real ou float?? E no insert do vb não uso as aspas ', apenas " & totaldespesa & " Mas eu to achando que o vb usa a vírgula para separar os decimais e o sql server usa o ponto. Será que é isso?? Terei q tratar a variavel do vb para alterar vírgula por ponto???? Grato, Alexandre.
-
Muito Obrigado, Graymalkin !!!! Era justamente isso que estava precisando!!! O Input32x é excelente e FREE !!! Ats, Alexandre.