|
|
Postada em 03/08/2006 15:17 hs
Tenta assim: do while not rs.eof BD.execute "UPDATE Tabela SET CAMPO = '" & removeacentos( rs(0) & "") & "' WHERE ID = " & Rs(1) rs.movenext loop Sendo BD o seu DataBase t+ |
|
|
|
|
|
José Neves
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 03/08/2006 17:25 hs
Quase deu certo!! Dim sCampo as String ' Instancia os objetos e abre a conexao com o banco e a tabela... rs.open "Select campo,ID from tabela", Conexao do while not rs.eof conexao.execute "UPDATE Tabela SET CAMPO = '" & removeacentos( rs(0) & "") & "' WHERE ID = " & Rs(1) rs.movenext loop Ghost, onde usamos isso daqui Dim sCampo as String, ja q no exemplo que vc citou anteriormente consta isso. e no campo q é pra mudar o texto pra ficar sem acento, ele grava a id de cada campo!!!
Me ajuda cara!! abraço |
|
|
|
|
|
Postada em 03/08/2006 18:32 hs
Opa, desculpa... acho q desenvolvi uma lógica num rascunho q usava sCampo e aí eu colei no post, mas não precisa mais... E como assim grava a ID de cada campo? É só para atualizar um campo q é o campo nome q terá o mesmo valor só sem acento certo? O q faço é uma verificação do ID para gravar no registro correto... |
|
|
|
José Neves
não registrado
|
|
Postada em 04/08/2006 11:06 hs
Ghost, mexi mexi, e mudei um nr e deu certo, veja como fiz!!!! Aliás, agora to usando essa rotina pra deixar somente a Primeira Letra Maiúscula, pq no BD esta TODAS MAIÚSCULAS, só q está dando um erro. Mas primeiro vou dizer como fiz, pra ele dar certo!!!! A rotina que altera o texto é essa!! Do While Not TCidade.EOF
bd.Execute "UPDATE Cidade SET cidade_descricao= '" & ConverteMaiuscula(TCidade(2) & "") & "' WHERE cidade_codigo = " & TCidade(1)
TCidade.MoveNext
Loop Só que quando chega numa cidade com nome EX.: Pau D'Alho, que tenho o apostrofo ele dá o seguinte erro "Erro de sintaxe (operador faltando) na expressão de consulta "Pau D'alho' where cidade_codigo=126' Entendeu?!?! Obrigado pela ajuda!!
|
|
|
|
|
|
Postada em 04/08/2006 11:14 hs
ah blz... faça assim manu: Dim sCampo as String Do While Not TCidade.EOF sCampo = REPLACE(ConverteMaiuscula(TCidade(2) & ""),"'","''")
bd.Execute "UPDATE Cidade SET cidade_descricao= '" & sCampo & "' WHERE cidade_codigo = " & TCidade(1)
TCidade.MoveNext
Loop Vc tem q substituir 1 apóstrofe (') por 2 apóstrofes (''). Agora o sCampo tem um utilidade... :P t+ |
|
|
|
José Neves
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/08/2006 13:19 hs
Mano deu certim!!!!
Valeu pela ajuda!! Vou ter que fazer mais alguma coisa relacionado a isso, ai volto a postar aqui!!
Grande Abraço |
|
|
|
