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?
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.RecordsetSet 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.CloseValora esta pregunta
0