Agrupar los datos de dos filas en un solo campo

Una pregunta que encontre de como Agrupar los datos de dos filas en un solo campo
es sencillo solo con un poco de codigo y 2 tablas se podra realizar esto lo que hara el ejemplo es lo siguiente:


Matrícula 1      Conductor A
Matrícula 2      Conductor B
Matrícula 2      Conductor C
Matrícula 3      Conductor D
....

Matrícula 1      Conductor A
Matrícula 2      Conductor B y Conductor C
Matrícula 3      Conductor D

código:

campos de la tabla Matricula: Matricula,Conductor
Campos de la tabla concatenaciónMatricula,Conductor

Dim TablaMatriculas As ADODB.Recordset
Dim TablaConcatenacion As ADODB.Recordset
'campos
Dim matricula As String
Dim conductor As String

Set TablaMatriculas = New ADODB.Recordset

With TablaMatriculas
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open " select Matricula, Conductor from Matriculas"
End With

Set TablaConcatenacion = New ADODB.Recordset

 With TablaConcatenacion
 .ActiveConnection = CurrentProject.Connection
 .CursorType = adOpenKeyset
 .LockType = adLockOptimistic
 .Open "select Matricula,Conductor from Concatenacion"
 End With

Do While Not TablaMatriculas.EOF

matricula = TablaMatriculas.Fields(0)
conductor = ""


Do While Not TablaMatriculas.EOF And matricula = TablaMatriculas.Fields(0)

conductor = conductor & " " & TablaMatriculas.Fields(1)
TablaMatriculas.MoveNext


If TablaMatriculas.EOF Then
Exit Do
End If
Loop


TablaConcatenacion.AddNew
TablaConcatenacion.Fields(0) = matricula
TablaConcatenacion.Fields(1) = conductor
TablaConcatenacion.Update

Loop

MsgBox "Revisa la tabla concatenacion", vbInformation, "Informacion"

End sub

Sumar cadena alfanumerica

Encontré una pregunta abierta en la pagina de www.todoexpertos.com la cual me tome el tiempo de contestar, la pregunta era de como se podía sumar los caracteres numéricos de una cadena de texto, aquí les muestro la forma de hacerlo.


El ejemplo siguiente consiste en suma la cadena "frds0000gts" mas el valor 25 de tal forma que quede de la siguiente manera "frds0025gts".





Sub SumarAlfanumericos()
Dim valor As Integer
Dim Caracter As String
Dim tempCaracter As String
Dim cadenaEjemplo As String
Dim union As String

cadenaEjemplo = "frds0000gts"

valor = 25

Caracter = Mid(cadenaEjemplo, 5, 4)
tempCaracter = Format((valor + Caracter), "0000")

union = Mid(cadenaEjemplo, 1, 4) & tempCaracter & Mid(cadenaEjemplo, 10, 3)

Debug.Print union
End Sub


Dejen sus comentarios y suscribanse

Saludos

Obtener los números de una cadena de texto

Este ejemplo es de una pregunta que me realizaron en http://www.todoexpertos.com/, de como obtener los caracteres numéricos de una cadena de texto.


con el siguiente código se pueden obtener el dato:



Sub RecorrerCadena()
Dim i As Integer
Dim Caracter As String
Dim tempCaracter As String
Dim cadenaEjemplo As String

cadenaEjemplo = "RFERT20FR3"

For i = 1 To Len(cadenaEjemplo)
If IsNumeric(Mid(cadenaEjemplo, i, 1)) Then
Caracter = Mid(cadenaEjemplo, i, 1)
tempCaracter = tempCaracter & Caracter

End If

Next
Debug.Print tempCaracter

End Sub

No olviden Suscribirse. Gracias

Saludos