MAIUSCULO E MINUSCULO.

USUARIO.EXCLUIDOS 19/12/2006 13:42:51
#190873
Tenho um base de dados access e os dados digitados estão todos com caracteres minusculos, tem como eu colocar todos maiuculos igual é feito no word?
ESLEYSANCHES 19/12/2006 13:45:35
#190875
Na hora de gravar faça asism:

VALOR = UCase(VALOR)

Simples não ?
ESLEYSANCHES 19/12/2006 13:47:49
#190879
Se for usando um recordset fica assim:

Recordset.Addnew
Recordset("campo1") = UCsae("Valor 1 aqui")
Recordset("campo2") = UCsae("Valor 2 aqui")
Recordset("campo2") = UCsae("Valor 3 aqui")
Recordset.Update

Na hora de gravar ele irá mudar todos os dados para maiuscula e irá gravar !!

Espero que te ajude !!
Abraços !!
WHELLNET 19/12/2006 13:49:35
#190880
Vc pode fazer uma funcao pra varrer os registro e ir alterando, com ajuda do Ucase()

Dim Cn As New ADODB.Connection
Dim Rs AS New ADODB.Recordset

Cn.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=C:\seubanco.mdb"
Rs.Open "SELECT codigo,nome FROM tbl_tabela"

While Not Rs.EOF
   Cn.Execute "UPDATE tbl_tabela set nome = '" & Ucase(Rs!nome) & "' WHERE codigo = " & Rs!codigo
   Rs.MoveNext
Wend

Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing


Lembre-se q vc precisa referenciar o Microsoft Activex
E colocar todos os campos q vc queria transformar em maiusculo

Agora se for somente pra exibir os dados, nada impede de vc trantar antes com o Ucase tb.
USUARIO.EXCLUIDOS 19/12/2006 14:03:04
#190889
Quantas tabelas vc precisa atualizar, caso sejam poucas vc pode utilizar o comando substituir no access e sair trocando a-A, á-à, etc...
USUARIO.EXCLUIDOS 19/12/2006 15:04:13
#190941
Ou eu não expliquei direito ou não entenderam mesmo...

Gravar tudo maiusculo eu sei... isso é a coisa mais simples que existe...

O que quero é pegar todos os dados que ja tenho na tabela do banco de dados e mudar para maiusculo.

E substituir um por um não dá... tem mais de 10.000 registros com 6 colunas cada registro.

O lance é mudar no banco de dados mesmo... não no vb... visto que a tabela que esta tudo minusculo serve apenas para pesquisa que posteriormente sera gravada numa outra tabela pelo vb só que na hora de visualizar os dados, eles estão minusculos e eu quero que eles ja apareçam todos maiuculos para não dar problemas no cliente.
USUARIO.EXCLUIDOS 19/12/2006 16:11:51
#190969
Carinha, a única forma que achei foi via programa mesmo, acho que por Query não tem como. Segue uma rotininha que poderá te ajudar:

 


Dim cnBanco As ADODB.Connection
Dim rsBanco As ADODB.Recordset
Dim intLoop As Integer
Dim strTabela As String
Dim strSQL As String

Set cnBanco = New ADODB.Connection
Set rsBanco = New ADODB.Recordset

'Abrir a Tabela desejada
strTabela = "TabClientes"

'Para o SQL
rsBanco.Open "Select TOP 1 * from " & strTabela, cnBanco

'Para o MySQL
rsBanco.Open "Select * from " & strTabela & " limit 1;", cnBanco

With rsBanco

    'Substituir tudo para Maiusculo
    For intLoop = 0 To .Fields.Count - 1
    
        strSQL = "UPDATE " & strTabela & " SET "
        strSQL = strSQL & .Fields(intLoop).Name & " = '" & UCase(.Fields(intLoop)) & "'"
        
        cnBanco.Execute strSQL
        
    Next intLoop

End With

'Fechar Banco
rsBanco.Close
cnBanco.Close
Set rsBanco = Nothing
Set cnBanco = Nothing

HUGOSSOUZA 19/12/2006 16:52:31
#190980
faz assim:

update tabela set nome = ucase(nome)
JABA 20/12/2006 12:05:30
#191155
Testa isso ai na hora de extrair os dados --> SELECT UCASE(Campo) FROM Tabela

Coloque dentro do Ucase() os campos da Tabela.

Se te ajudei, encerre o tópico
USUARIO.EXCLUIDOS 20/12/2006 12:11:58
#191156
Citação:

HUGOSSOUZA escreveu:
faz assim:

update tabela set nome = ucase(nome)



Isso que eu ia falar, bem simples e eficaz mesmo HUGO...flw
Tópico encerrado , respostas não são mais permitidas
Voltar