[Resolvido] Transformar string em maiúscula.

[S'Anna 0]

Tenho uma textMatrix e desejo que só aceite strings maiúsculas. Sei que isso é feito com uppercase, mas não sei onde coloca-lo. Segue o trecho do código do programa em VB6. A quem puder me ajudar.

 For Y = 1 To 7
                    Me.grdCoordenadas.Col = Y
                    Me.grdCoordenadas.Row = X
                    Me.grdCoordenadas.CellBackColor = &HFF&
                    Me.grdCoordenadas.CellForeColor = &H80000009
                Next Y
            Else
                
                sql = "replace into coordenadas select " & Me.grdCoordenadas.TextMatrix(X, 1)
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 2) & "'"
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 3) & "'"
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 4) & "'"
                sql = sql & ", " & Me.grdCoordenadas.TextMatrix(X, 5)
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 6) & "'"
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 7) & "'"
                sql = sql & ", '" & Replace(Me.grdCoordenadas.TextMatrix(X, 8), "'", " ") & "'"
                
                DBADO.Execute sql

[Claudio Neto 3]

Olá S'Anna, primeiramente, seja bem vinda ao fórum

Caso ainda não tenha lido nossas regras e deseje fazer para melhor se familiarizar, clique aqui.

 

 

Também não sei onde tem que por. A parte do código que colocou não condiz com o que descreveu na sua dúvida.

Você disse que quer que sua textmatrix só aceite maiusculas, mas nesse trecho do código não está passando nada para o grid, está apenas pegando informações já existentes nele.

 

Se quer que tudo no seu grid apareça em maiúsculo, peço que poste aqui a parte que está preenchendo o mesmo.

 

A função a se usar é Ucase

[S'Anna 0]

Obrigada Claudio Neto pela sua atenção.

Consegui que a textmatrix só aceitasse letra maiúsculas. Tentei colocar o Ucase em vários lugares, mas agora ta funcionando. Ele aceita letras minúscula mas as transforma e grava em maiúsculas. O código ficou assim :

For Y = 5 To 7
                    Me.grdCoordenadas.Col = Y
                    Me.grdCoordenadas.Row = X
                    Me.grdCoordenadas.CellBackColor = &HFF&
                    Me.grdCoordenadas.CellForeColor = &H80000009
                Next Y
            Else
                
                sql = "replace into coordenadas select " & Me.grdCoordenadas.TextMatrix(X, 1)
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 2) & "'"
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 3) & "'"
                sql = sql & ", '" & Me.grdCoordenadas.TextMatrix(X, 4) & "'"
                sql = sql & ", " & Me.grdCoordenadas.TextMatrix(X, 5)
                sql = sql & ", '" & [color="#9932CC"]UCase[/color](Me.grdCoordenadas.TextMatrix(X, 6)) & "'"
                sql = sql & ", '" & [color="#9932CC"]UCase[/color](Me.grdCoordenadas.TextMatrix(X, 7)) & "'"
                sql = sql & ", '" & [color="#9932CC"]UCase[/color](Replace(Me.grdCoordenadas.TextMatrix(X, 8), "'", " ")) & "'"

                DBADO.Execute sql

Obrigada.