border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 15-04-2011, 13:54:31
Buena Participación en el Foro
 
Registrado: sep 2009
Posts: 92
Créditos: 3.580
juan_trejo Aun no valorado
Predeterminado Pasar todos los datos de un Datagrid a un Textbox

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
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 15-04-2011, 14:19:22
Buena Participación en el Foro
 
Registrado: abr 2011
Posts: 54
Créditos: 1.460
SamuVisual Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

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

Gracias.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 15-04-2011, 14:27:14
Buena Participación en el Foro
 
Registrado: sep 2009
Posts: 92
Créditos: 3.580
juan_trejo Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

Que tal SamuVisual se trata de un DataGridView.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 15-04-2011, 14:51:46
Buena Participación en el Foro
 
Registrado: abr 2011
Posts: 54
Créditos: 1.460
SamuVisual Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

Cita:
Empezado por juan_trejo Ver Mensaje
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.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 15-04-2011, 14:59:12
Buena Participación en el Foro
 
Registrado: sep 2009
Posts: 92
Créditos: 3.580
juan_trejo Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

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
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #6 (permalink)  
Antiguo 15-04-2011, 15:03:05
Buena Participación en el Foro
 
Registrado: abr 2011
Posts: 54
Créditos: 1.460
SamuVisual Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

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.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #7 (permalink)  
Antiguo 15-04-2011, 15:15:19
Buena Participación en el Foro
 
Registrado: sep 2009
Posts: 92
Créditos: 3.580
juan_trejo Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

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.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #8 (permalink)  
Antiguo 15-04-2011, 15:21:57
Buena Participación en el Foro
 
Registrado: abr 2011
Posts: 54
Créditos: 1.460
SamuVisual Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

Cita:
Empezado por juan_trejo Ver Mensaje
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.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #9 (permalink)  
Antiguo 15-04-2011, 15:36:18
Buena Participación en el Foro
 
Registrado: sep 2009
Posts: 92
Créditos: 3.580
juan_trejo Aun no valorado
Predeterminado Re: Pasar todos los datos de un Datagrid a un Textbox

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
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 22:22:24.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design