naveguito
16 de Enero del 2004

Hola a todos tengo el siguiente problema:

Hago una conexion en tiempo de ejecucion entre un DBGrid y un control data de la siguiente forma:

Set DBG(Num).DataSource = Data(Num).Recordset

El problema es que estoy metiendo datos en el data y no se me reflejan en el DBGrid.

Espero que me podais ayudar.Gracias
Saludos

Mary
16 de Enero del 2004

Hola,
me imaginoo que estaras haciendo un refresh del data despues de hacer el insert no?
si lo haces y no funciona estoy un poco perdida, cuentame algo mas.

naveguito
16 de Enero del 2004

Muchas gracias por contestar,vamos a ver te explico.Necesito crear controles en tiempo de ejecucion,estos controles pertenecen a una matriz,lo hace todo correctamente salvo que no se muestran los datos introducidos en el DBGrid.Para crear los controles leo un archivo en el que escribo las tablas a las que pertenecen esos controles(el archivo lo nombro como conf.ini),este es el codigo que utilizo para leer el conf.ini y para crear los controles,lo hace todo correctamente salvo lo de visualizar los datos en el DBGrid:

Private Sub LeerIni()


Rutaprog = App.Path
RutaIni = Rutaprog & "conf.ini"

Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.OpenTextFile(RutaIni, 1, 0)

BPrincipio = True
Do While (F.AtEndofStream = False)
strPrev = F.ReadLine
'If Mid(strPrev, 1, 6) = "BD=" Then
' Ruta = Mid(strPrev, 4, Len(strPrev) - 3)
' Set Db = Workspaces(0).OpenDatabase(Ruta)
'Else
If Mid(strPrev, 1, 6) = "TABLA=" Then 'Es el nombre de una tabla
If BPrincipio = True Then
BPrincipio = False
Data(0).DatabaseName = "c:LupatronicLupatronic.MDB"
Data(0).RecordSource = Mid(strPrev, 7, Len(strPrev) - 6)
Data(0).Height = 375
Data(0).Left = 3600
Data(0).Top = 3120
Data(0).Width = 4455
Data(0).Caption = " " + Data(0).RecordSource
Data(0).Enabled = False
Data(0).Visible = False
'Aqui cargamos las propiedades del DBG
Set DBG(0).DataSource = Data(0).Recordset
DBG(0).Height = 1335
DBG(0).Left = 960
DBG(0).Top = 120
DBG(0).Width = 9375
DBG(0).Caption = Data(0).RecordSource
DBG(0).AllowUpdate = False
DBG(0).Visible = False
Cbselec.AddItem Data(0).RecordSource
Else
Num = Data.UBound
Num = Num + 1
Load Data(Num)
Data(Num).DatabaseName = "c:LupatronicLupatronic.MDB"
Data(Num).RecordSource = Mid(strPrev, 7, Len(strPrev) - 6)
Data(Num).Height = 375
Data(Num).Left = 3600
Data(Num).Top = 3120
Data(Num).Width = 4455
Data(Num).Caption = " " + Data(Num).RecordSource
Data(Num).Enabled = False
Data(Num).Visible = False
'Aqui cargamos las propiedades del DBG
Load DBG(Num)
Set DBG(Num).DataSource = Data(Num).Recordset
DBG(Num).Height = 1335
DBG(Num).Left = 960
DBG(Num).Top = 120
DBG(Num).Width = 9375
DBG(Num).Caption = Data(Num).RecordSource
DBG(Num).AllowUpdate = False
DBG(Num).Visible = False
'Aqui cargamos la tabla en el ComboBox
Cbselec.AddItem Data(Num).RecordSource
End If
End If
'End If
Loop
End Sub

Muchas gracias y espero k lo entiendas