Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 sqlObrigada 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
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