problemas con refrescar datos
Publicado por hector (78 intervenciones) el 23/01/2008 20:20:00
Hola todos tengo un formulario con el botón buscar y lo tengo que al presionar me aparezca una grilla para yo elegir que dato busco y después lo pasa al formulario y lo muestra, me funciona súper bien, pero cuando ingreso un registro nuevo y quiero buscar otro la grilla me la muestra vacía, tengo que cerrar el programa para que me muestre datos en la grilla y la estoy limpiando grilla.clear() al igual que el dataset dataset.clear(), también se produce algo raro cuando elimino un registro y después quiero buscar otro me aparece la grilla con cada registro repetido dos veces y también me parece dos veces el registro que acabo de eliminar, también tengo que cerrar el programa, que puede ser?????
el codigo de donde esta la grilla es el siguiente:
'CREANDO LA CONEXION CON LA BASE DE DATOS SQL
conexion.ConnectionString = "workstation id=(local);packet size=4096;integrated security=SSPI;data source=(local);persist security info=False;initial catalog=Phuertos"
adapdestino.AcceptChangesDuringFill = True
ddestino.Clear()
grilla.TableStyles.Clear()
'ABRIENDO PROPIEDADES Y ENLAZANDO LA TABLA
cmddestino.CommandText = "select coddestino,rut,digito,nombre,direccion,fono,ciudad from DESTINO"
cmddestino.Connection = conexion
adapdestino.SelectCommand = cmddestino
adapdestino.Fill(ddestino, "tdestino")
grilla.DataSource = ddestino
grilla.DataMember = "tdestino"
'EDITANDO LA GRILLA
Dim estilo As DataGridTableStyle = New DataGridTableStyle
estilo.MappingName = grilla.DataMember
grilla.TableStyles.Add(estilo)
grilla.TableStyles(0).GridColumnStyles(0).Width = 100
grilla.TableStyles(0).GridColumnStyles(0).HeaderText = "Código Destino"
grilla.TableStyles(0).GridColumnStyles(1).Width = 80
grilla.TableStyles(0).GridColumnStyles(1).HeaderText = "RUT"
grilla.TableStyles(0).GridColumnStyles(2).Width = 20
grilla.TableStyles(0).GridColumnStyles(2).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(3).Width = 300
grilla.TableStyles(0).GridColumnStyles(3).HeaderText = "Nombre"
grilla.TableStyles(0).GridColumnStyles(4).Width = 0
grilla.TableStyles(0).GridColumnStyles(4).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(4).Width = 0
grilla.TableStyles(0).GridColumnStyles(4).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(5).Width = 0
grilla.TableStyles(0).GridColumnStyles(5).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(6).Width = 0
grilla.TableStyles(0).GridColumnStyles(6).HeaderText = ""
Ojala puedan ayudarme por favor
Gracias de antemano
el codigo de donde esta la grilla es el siguiente:
'CREANDO LA CONEXION CON LA BASE DE DATOS SQL
conexion.ConnectionString = "workstation id=(local);packet size=4096;integrated security=SSPI;data source=(local);persist security info=False;initial catalog=Phuertos"
adapdestino.AcceptChangesDuringFill = True
ddestino.Clear()
grilla.TableStyles.Clear()
'ABRIENDO PROPIEDADES Y ENLAZANDO LA TABLA
cmddestino.CommandText = "select coddestino,rut,digito,nombre,direccion,fono,ciudad from DESTINO"
cmddestino.Connection = conexion
adapdestino.SelectCommand = cmddestino
adapdestino.Fill(ddestino, "tdestino")
grilla.DataSource = ddestino
grilla.DataMember = "tdestino"
'EDITANDO LA GRILLA
Dim estilo As DataGridTableStyle = New DataGridTableStyle
estilo.MappingName = grilla.DataMember
grilla.TableStyles.Add(estilo)
grilla.TableStyles(0).GridColumnStyles(0).Width = 100
grilla.TableStyles(0).GridColumnStyles(0).HeaderText = "Código Destino"
grilla.TableStyles(0).GridColumnStyles(1).Width = 80
grilla.TableStyles(0).GridColumnStyles(1).HeaderText = "RUT"
grilla.TableStyles(0).GridColumnStyles(2).Width = 20
grilla.TableStyles(0).GridColumnStyles(2).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(3).Width = 300
grilla.TableStyles(0).GridColumnStyles(3).HeaderText = "Nombre"
grilla.TableStyles(0).GridColumnStyles(4).Width = 0
grilla.TableStyles(0).GridColumnStyles(4).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(4).Width = 0
grilla.TableStyles(0).GridColumnStyles(4).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(5).Width = 0
grilla.TableStyles(0).GridColumnStyles(5).HeaderText = ""
grilla.TableStyles(0).GridColumnStyles(6).Width = 0
grilla.TableStyles(0).GridColumnStyles(6).HeaderText = ""
Ojala puedan ayudarme por favor
Gracias de antemano
Valora esta pregunta


0