Jump to content
Fórum Script Brasil
  • 0

Duvidas De Consulta


Fábio Viana

Question

Ola estou com uma duvida

Não sei bem se é aqui que eu pergunto.

Eu fiz o sequinte programinha em vba do access para modificar um conteudo de um campo.

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim Conteudo As String

Dim Localiza1Barra As Integer

Dim PrimeiroEmail As String

Set db = CurrentDb()

Set rs = db.OpenRecordset("teste")

rs.MoveFirst

Do Until rs.EOF

Conteudo = rs("email").Value

Localiza1Barra = InStr(Conteudo, "/") - 1

If Localiza1Barra > 0 Then

PrimeiroEmail = Left(Conteudo, Localiza1Barra)

Else

PrimeiroEmail = Conteudo

End If

rs.Edit

rs("novoemail").Value = PrimeiroEmail

rs.Update

rs.MoveNext

Loop

Uso o codigo acima para caso a pessoa cadastre 2 E-mail juntos. Ex: primeiro@exemplo.com/segundo@exemplo.com

e quero que apareça so o primeiro E-mail.

O codigo funciona mas queria fazer isso com sql. Tem como?

Obrigado pela atenção

Fábio

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...