Visual Basic - llenar datagrid

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 10
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

llenar datagrid

Publicado por Victor (6 intervenciones) el 07/07/2017 00:35:30
Buen día,

Tengo el siguiente codigo con el que se llena un formulario en vb6 y no hay problema con los text pero no se como hacer para llenar un datagrid que se encuantra en el mismo formulario, ¿alguien sabe como puedo hacer?


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim miRecorset As ADODB.Recordset
Set miRecorset = New ADODB.Recordset
Set miRecorset = New ADODB.Recordset
Dim Buscar As String
 Buscar1 = Text7.Text
 MsgBox (CStr(Buscar1))
 
If Text7.Text <> "" Then
 
miRecorset.ActiveConnection = miconec
miRecorset.CursorType = adOpenStatic
miRecorset.LockType = adLockOptimistic
 
 
 
          miRecorset.Open "Select * From Clientes,Equipos,ordenes Where Num_re = '" & Buscar1 & "'"
 
     Text1.Text = miRecorset!Nom_cli
     Text2.Text = miRecorset!Nom_rec
     Text3.Text = miRecorset!Tel_fij
     Text4.Text = miRecorset!Tel_cel
     Text6.Text = miRecorset!NIC
     Text5.Text = miRecorset!Num_OT
 
     Me.DataGrid1.DataSource = miRecorset!Equipos
 
     End If
 
miRecorset.Close
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 10
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

llenar datagrid

Publicado por Victor (6 intervenciones) el 10/07/2017 23:00:39
Hola buenas

dado que no tuve respuesta, pude encontrar un metodo para poder hacer lo que decia, la solucion fue colocar un control data y una DBgrid

Esta es la parte del codigo que se modifico

1
2
3
4
Text5.Text = miRecorset!Num_OT
Data1.RecordSource = "Select Equipo, Marca, Modelo, Serie, Estado From Equipos Where Reclamo = '" & Buscar1 & "'"
Data1.Refresh
Me.DBGrid1.Visible = True

Solamente se hace la consulta directo al recorset del control data y se refresca o actualiza y ya.

Saludos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar