variaveis tipo Str


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: variaveis tipo Str

ed - claret
não registrado

Postada em 11/02/2005 08:27 hs

‘Minhas variáveis:

Entrada = “AFL”

Saída = “EFF”

Tudo = Entrada & “ ou “ & Saída

No campo de busca ou filtro essa instrução (Tudo) é adicionada no Access para filtrar:

Fica assim: “AFL ou EFF” – não funciona pois tudo esta entre aspas, preciso que fique separado assim: “AFL” ou “EFF”

A pergunta é: preciso fazer com que a variável (Tudo) fique entre aspas Entrada e Saída.

Obrigado por qualquer ajuda

Abraços

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 11/02/2005 10:24 hs

Tente

Tudo = Chr(34) & Entrada & " ou " & Saída & Chr(34)

Veja se é isso

__________________________________________________________________________

Qualquer coisa post

Rochª

ed - claret
não registrado

Postada em 11/02/2005 11:12 hs

Não deu certo, pois essa intrução devera entrar no SQL...

... Tabela.Ponto = """ & Tudo & """"

como faço???

Muito obrigado pelo sua colaboração

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 11/02/2005 13:08 hs

No sql use aspas simples tenho uma funcao que pode ajudar.

Function Aspas(strTexto, Optional bLCase As Boolean) As String
    SUBSTITUI_TUDO strTexto, "'", " "

    If strTexto = "" Then
        Aspas = "null"
        Exit Function
    End If

    If bLCase Then
        Aspas = "'" & UCase(strTexto) & "'"
    Else
        Aspas = "'" & strTexto & "'"
    End If
End Function

Use assim

text = aspas(txt_nome,false)

ela faz

text = 'Claudio'

Se quizer caixa alta passe true no parametro

text = aspas(txt_nome,true)

ela faz

text = 'CLAUDIO'

Ajuda

__________________________________________________________________________

Qualquer coisa post

Rochª

7Cordas

PORTO ALEGRE
RS - BRASIL

Postada em 11/02/2005 14:01 hs

Não sei se entendi, mas pelo q vi, tu queres concatenar duas strings somando aspas duplas a esta concatenação?

Entrada ="""AFL"""

Saída = """EFF"""

Tudo = Entrada & " ou " & Saída

Tudo="AFL" ou "EFF"

Vc deve usar tres aspas duplas para que entre uma aspa na string resultante.

Tentei...

Cristiano Fischer

SG-Data Sistemas de Gestão

MSN: cristiano_fischer@hotmail.com

Projeto SIGA - Sistemas Integrados de Gestão

TÓPICO EDITADO

ed - claret
não registrado

Postada em 11/02/2005 14:30 hs

Inicio ="#" Format CboDatas, "mm/dd/yyyy") & "#"
Fim = "#" & Format(Combo1, "mm/dd/yyyy") & "#"

Set Qd = bd.QueryDefs("ConsListPer")
Dim wSql As String
Dim X As Integer
wSql = " SELECT Relatorio.Numero, Relatorio.Data, Relatorio.Comunidade, Lançamentos.Ponto, FROM (Relatorio INNER JOIN ETEs ON Relatorio.Comunidade = ETEs.Comunidade) INNER JOIN Lançamentos ON Relatorio.Numero = Lançamentos.Numero WHERE "
If List2.ListCount > 0 Then
    For X = 0 To List2.ListCount
        If wSql = " SELECT Relatorio.Numero, Relatorio.Data, Relatorio.Comunidade, Lançamentos.Ponto, FROM (Relatorio INNER JOIN ETEs ON Relatorio.Comunidade = ETEs.Comunidade) INNER JOIN Lançamentos ON Relatorio.Numero = Lançamentos.Numero WHERE " Then
            wSql = wSql & " Relatorio.Data Between " & Inicio & " And " & Fim & " And Relatorio.Comunidade = """ & List1.List(X) & """ And Lançamentos.Ponto= """ & List2.List(X) & """"
            Else
            wSql = wSql & " Or Relatorio.Data Between " & Inicio & " And " & Fim & " And Relatorio.Comunidade = """ & List1.List(X) & """ And Lançamentos.Ponto= """ & List2.List(X) & """"
           End If
    Next X
wSql = wSql & " Order By Relatorio.Data, Lançamentos.Ponto "
Qd.SQL = wSql
End If

LIST1 E 2
Private Sub Combo3_Click()
  ' Verifica se número já foi incluído
  Dim LenCont As Integer
  LenCont = Len(Combo3)
  For i = 0 To List2.ListCount - 1
    If Combo3.Text = Left(List2.List(i), LenCont) Then
       MsgBox "Ponto já incluído na lista.", vbInformation
      List2.TopIndex = i
      Combo3.SetFocus
      Exit Sub
    End If
  Next
List2.AddItem Combo3.Text
End Sub

O MEU PROBLEMA É SELECIONAR VARIAS COMUNIDADES E VARIOS PONTOS, isto é, preciso adicionar nos 2 campos para filtrar no access, quantas comunidades e pontos foram selecionados, entenderam???

... Sei que o texto é longo, mas se atentem mais no:

wSql = wSql & " Or Relatorio.Data Between " & Inicio & " And " & Fim & " And Relatorio.Comunidade = """ & List1.List(X) & """ And Lançamentos.Ponto= """ & List2.List(X) & """"

... o resto me viro. Tentei usar variaveis como disse acima, mas acho que não é nada profissional..

Muito obrigado pelo vosso apoio, aliás não imaginava que teria tanto, muito obrigado a todos

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR