REPLACE NO VB5

USUARIO.EXCLUIDOS 18/07/2005 16:28:26
#94766
Olá Pessoal...

Qual é o comando que substitui o REPLACE no VB5?

(...) Baixei o Cadastro de contato,
dei um run, mas deu um erro...

"compile error sub ou function
not defined"

Linha:
NomeUsua = Replace(NomeUsua, "'", "")
executei o projeto no VB5
Tem como substituir o comando?

Grato,
FELIPEA 18/07/2005 16:52:16
#94776
O que seria esse NomeUsua?

Aqui da certo assim (mas o meu é VB6 e acho q nesse caso n tem diferença) :

Sub Command1_click()
    Text1 = Replace(Text1, "'", "") 
End Sub
USUARIO.EXCLUIDOS 18/07/2005 17:05:20
#94780
O NomeUsu e SenhaUsua é um campo em uma tabela:
'-----------------------------------------------------------------
Private Sub CmdOK_Click()
Dim NomeUsua, SenhaUsua, SQL As String

NomeUsua = Trim(TxtNome.Text)
SenhaUsua = Trim(TxtSenh.Text)

If Trim(NomeUsua) = "" Then
MsgBox "Digite um Nome de Usuário", vbExclamation, "Login"
TxtNome.SetFocus
Exit Sub
End If

Conexao
Set Rst = New ADODB.Recordset

'AQUI GERA O ERRO NO REPLACE.
'SUB OR FINCTION NOT DEFINED
'TEM COMO SUBSTITUIR NO VB5?
NomeUsua = Replace[/txt-color](NomeUsua, "'", "")
SenhaUsua = Replace(SenhaUsua, "'", "")

SQL = "SELECT NomeUsua,SenhUsua FROM TabUsuarios WHERE NomeUsua='" & NomeUsua & "' AND SenhUsua='" & SenhaUsua & "'"
Rst.Open SQL, Cnn, adOpenDynamic, adLockReadOnly

If Rst.RecordCount = 0 Then
MsgBox "Falha no Login. Nome de Usuário ou Senha Inválido", vbCritical, "Login"
TxtNome.SetFocus
SendKeys "{Home}+{End}"
vCont = vCont + 1
If vCont = 3 Then
Unload Me
End If
Else
vUsuario = "Usuário Logado : " & NomeUsua
MDIForm1.Show
Unload Me
End If

End Sub

Grato,
Tópico encerrado , respostas não são mais permitidas
Voltar