Mayusuculas por minusculas en mi BBDD

"Kravek" <rubengARROBAkailea4.net> wrote in message
news:

Tengo una base de datos access con los datos ya metidos y necesito

pasarlos

a minusculas o mejor dicho el contenido de un campo de texto escrito

entero

en mayusculas ponerlo como escribimos normalmente la primera letra
mayusculas y el resto en minusculas (no hay puntos)

Puedes hacerlo ejecutando esta sentencia SQL contra tu tabla Access:

Update MiTabla Set MiCampo=Left(MiCampo,1)+LCase(Mid(MiCampo,2))

Hola:
Prueba esto:

Private Sub btnAceptar_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
Handles btnAceptar.Click
Dim loConexion As New OleDbConnection
loConexion.ConnectionString = msCadenaConexion
Dim lsQuery As String
lsQuery = "Update MITABLA set MICAMPO=ConvertirProperCase(MICAMPO)"
Dim loComando As New OleDbCommand(lsQuery, loConexion)
loConexion.Open()
loComando.ExecuteNonQuery()
loConexion.Close()
End Sub

Private Function ConvertirProperCase(ByVal lcCadena) As String
lcCadena = lcCadena.Substring(0, 1).ToUpper() &
lcCadena.Substring(1).ToLower()
Return lcCadena
End Function

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Kravek" <rubengARROBAkailea4.net> escribió en el mensaje
news:

Tengo una base de datos access con los datos ya metidos y necesito
pasarlos a minusculas o mejor dicho el contenido de un campo de texto
escrito entero en mayusculas ponerlo como escribimos normalmente la
primera letra mayusculas y el resto en minusculas (no hay puntos)

Muchas gracias pero en este caso me voy a quedar con la función del Lcase...

Siento haber molestado para esta minucia pero llevo un tiempo (como un mes)
sin poder ejecutar la ayuda de casi todos los programas de M$ y sin tiempo
para formatear:'(

Gracias a los 2!!

"J. Carlos Herrrero" escribió en el mensaje
news:

Hola:
Prueba esto:

Private Sub btnAceptar_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
Handles btnAceptar.Click
Dim loConexion As New OleDbConnection
loConexion.ConnectionString = msCadenaConexion
Dim lsQuery As String
lsQuery = "Update MITABLA set MICAMPO=ConvertirProperCase(MICAMPO)"
Dim loComando As New OleDbCommand(lsQuery, loConexion)
loConexion.Open()
loComando.ExecuteNonQuery()
loConexion.Close()
End Sub

Private Function ConvertirProperCase(ByVal lcCadena) As String
lcCadena = lcCadena.Substring(0, 1).ToUpper() &
lcCadena.Substring(1).ToLower()
Return lcCadena
End Function

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Kravek" <rubengARROBAkailea4.net> escribió en el mensaje
news:

Tengo una base de datos access con los datos ya metidos y necesito
pasarlos a minusculas o mejor dicho el contenido de un campo de texto
escrito entero en mayusculas ponerlo como escribimos normalmente la
primera letra mayusculas y el resto en minusculas (no hay puntos)