Hola a todos, estoy tratando de pasar todos los datos de un datagrid a un textbox, alguien me podria apoyar con alguna sugerencia.

El datagrid solo tiene un Campo de Cuentas y en esta aparecen alrededor de 20 cuentas o menos.

Cuentas
123
456
789
101
121
131
141

Todas estas cuentas necesito que me aparezcan en mi Textbox de la misma forma que el datagrid.

Textbox
123
456
789
101
121
131
141

Intente con esto pero solo me aparece una cuenta

textbox.text = Datagrid


Espero su ayuda, gracias

Por favor, ¿podrías indicarme si se trata de un DataGridView o de un DataBoundGrid?

Gracias.

Que tal SamuVisual se trata de un DataGridView.

Veamos, quieres que en el textbox te aparezcan todas a la vez o conforme las vas seleccionando?

Si quieres hacerlo conforme vas seleccionando las filas del DataGrid debes utilizar:
1- El evento "ColRowChange" del DataGrid.
2- Asignarle a la caja de texto el valor de la columna 0, es decir de: "DataGrid.columns(0).text"

Por favor, especifica un poco más lo que buscas.

Claro, lo que necesito es que me aparezcan todas a la vez, que todo lo que se encuentre en el DataGridView me aparezca en el Textbox sin tener que seleccionar ninguna celda del DataGridView ya que este estara como visible = False.

Los datos del DataGridView deben aparecer en el textbox en este orden

Cuentas
123
456
789

Y no de esta manera
Cuentas 123456789

O no me he enterado bien de lo que dices, o me parece que te estás equivocando. No querrás ponerlo mejor en un "ListBox"?

Lo primero de todo es analizar el problema en profundidad, para saber qué es lo que realmente debemos hacer.

Deacuerdo, tienes razón en esto, me parece que esto vendria en un Listbox. pero como puedo lograr esto??

Serai de esta manera ??

List1.text = DataGridView


Gracias.

No, veamos. Te recomiendo que primero te leas el MSDN de los DataGrid y el de los ListBox.

La propiedad "Text" no existe para los listbox. Un listbox es una lista de elementos que vienen definidas por la propiedad "List". Es decir, si quiere añadir en el primer elemento del "ListBox" la palabra "Hola", deberás decir:

ListBox.List(0) = "Hola".

Para asignar el siguiente valor, deberás decir:

ListBox.List(1) = "Otra cosa".

Comprendes como funciona ahora un ListBox? Ahora solo te hace falta comprender como funciona el DataGrid, pero lo mejor es que leas las MSDN del DataGrid aquí.

Control DataGrid para usuarios de Visual Basic 6.0

Si tienes alguna duda en lo que se explica ahí puedes preguntar pero es bastante sencillo.

Otra cosa, ¿podrías poner tu código completo para poder analizar cual es tu forma de programar?

Escribe como metiste los datos en el DataGrid al menos.

Te envio el codigo completo, lo que intento es enviar mensajes con todos los datos del DataGridView en el textbox pero reconsiderando sera en un ListView.

Option Explicit
Dim Cn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim i As Integer
Dim FindLastName As String
Private Sub cmdAdjunto_Click()

'Para el archivo adjunto del Mail
With CommonDialog1

.ShowOpen

If .FileName = "" Then
Exit Sub
End If

LblAdjunto = .FileName

End With

End Sub

Private Sub CmdEnviar_Click()

'Borramos la ruta
LblAdjunto = ""

With MAPISession1
.NewSession = False
.SignOn
End With

With MAPIMessages1
.SessionID = MAPISession1.SessionID
' Creamos el mensaje
.Compose

' Asunto del mensaje
.MsgSubject = txtasunto

' Mensaje
.MsgNoteText = txtMensaje

' Nombre del Mail del destinatario
.RecipDisplayName = txtdestinatario
' Archivo Adjunto
If LblAdjunto <> "" Then
.AttachmentPathName = LblAdjunto
End If

' Enviamos el correo
.Send False

End With

' Cerramos la sesión abierta del Mapi
MAPISession1.SignOff

End Sub


Private Sub Command1_Click()
Dim vect(5) As String 'declaro un vector donde almaceno las dir de correo
'vect(0) = "juanmtrejog@gmail.com"
'vect(1) = "juanmtrejog@gmail.com" 'El vector se puede redimensionar segun la cantidad de direcciones a enviar
'vect(2) = "juanmtrejog@gmail.com"
'vect(3) = "juanmtrejog@gmail.com"
'vect(4) = "juanmtrejog@gmail.com"

vect(0) = Text1.Text
vect(1) = Text2.Text 'El vector se puede redimensionar segun la cantidad de direcciones a enviar
vect(2) = Text3.Text
vect(3) = Text4.Text
vect(4) = Text5.Text

MAPISession1.UserName = "juan"
MAPISession1.NewSession = True
MAPISession1.DownLoadMail = True ' para recibir
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.MsgIndex = -1 ' nuevo mensaje

For i = 0 To 4
MAPIMessages1.RecipIndex = i
MAPIMessages1.RecipType = 1
MAPIMessages1.RecipAddress = vect(i)

MAPIMessages1.AddressResolveUI = False
MAPIMessages1.ResolveName 'comprueba la existencia de la direccion
Next i
MAPIMessages1.MsgSubject = "Asunto del mensaje"
MAPIMessages1.MsgNoteText = "bla bla bla"

' para mandar adjuntos
'MAPIMessages1.AttachmentIndex = 0
'MAPIMessages1.AttachmentName = "test.txt"
'MAPIMessages1.AttachmentPathName = App.Path & "\test.txt"

'MAPIMessages1.AttachmentPosition = 1
'MAPIMessages1.AttachmentType = 0

'Para enviarlo
MAPIMessages1.Send

' cierra sesion
MAPISession1.SignOff

End Sub
Private Sub Form_Load()
Cn.CursorLocation = adUseClient

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False;Jet OLEDBatabase Password = controldecartera"

With cmd
.ActiveConnection = Cn
.CommandText = "SELECT * from CAT_PENDIENTES"

End With

With RS
.CursorType = adOpenKeyset
.LockType = adLockOptimistic

.Open cmd
End With
Set DataGrid1.DataSource = RS
Me.Caption = " Enviar Email"
CmdAdjunto.Caption = " Adjuntar archivo "
CmdEnviar.Caption = " Enviar mail "

End Sub