31/03/2008, 11:11
|
 | | | Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá
Mensajes: 100
Antigüedad: 17 años, 1 mes Puntos: 0 | |
| Re: Desconcatenar!
Mi idea es la siguiente te explico
Private Sub CmdGuardar_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from datos", BD, adOpenStatic, adLockOptimistic
RecSQL.AddNew
RecSQL.Fields(1).Value = Text1 & " " & Text2 & " " & Text3 & " " & Text4 & " " & Text5 & " "
RecSQL.Update
RecSQL.Close
Set RecSQL = Nothing
End Sub
Private Sub CmdMostrar_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from datos", BD, adOpenStatic, adLockOptimistic
---- HASTA AQUI PUEDO ABRIR LA BASE DE DATOS -----
Luego com hago para mostrar por separado todo lo que esta en el
RecSQL.Fields(1)
End Sub |