Problema Con Datagrid

[luisXP]

Saludos,

Necesito Una Ayuda Al Tratar De Actualizar Un Datagrid Conectado A Un Dataenvironment.... No Utilizo Un Ado Sino Un Data Normal Conectado A Una Base De Datos Access.... El Problema Es Que Cuando Guardo Algun Registro, El Datagrid No Se Actualiza. Eh Probado Con Refresh Y No Funciona.... Si Alguien Puede Ayudar Se Lo Agradeceria Mucho....ES DECIR, que si se graba el dato o los datos pero no se reflejan en el grid... tengo que salir y volver a entrar de todo el proyecto.....

Gracias

[fero]

DataEnvironment1 enlazado a una base access (en este caso una tabla con cuatro campos)
Comando del DataEnvironment1:
Command1.CommandText = Select * from nombre_tabla
Form con 4 textboxs donde se cargan los valores de un registro a agregar.
DataGrid1.DataSource=DataEnvironment1
DataGrid1.DataMember=Command1

Código en el botón agregar:
Private Sub Command1_Click()
'agregar item
Dim i As Integer

DataEnvironment1.rsCommand1.AddNew

For i = 0 To 3
DataEnvironment1.rsCommand1.Fields(i) = Form1.Text1(i).Text
Next i

DataEnvironment1.rsCommand1.Update

End Sub

Al agregar el registro el datagrid se actualiza solo.

[luisXP]

Fero.... Disculpa, Tu Dices Es Al Hacer Clip En Guardar? Explicame Bien Por Favor......???????

[luisXP]

ES DECIR, FERO, DONDE DE COLOCAR EL COMANDO Q ME DICES DEL DATENVIRONMENT? AGREGUE LO QUE ME ENVIASTE AL BOTON QUE YO COLOCO COMO GUARDAR, TE NVIO EL CODIGO:

Private Sub Command1_Click()
Dim z
Dim i As Integer
Dim X As Currency
z = Label6.Caption
X = Text2.Text

X = 0
X = Val(Text2.Text)
Data1.Recordset.MoveLast


Data1.Recordset.AddNew
Data1.Recordset.Fields("cantidad") = (Text2.Text)
Data1.Recordset.Fields("cantidad") = X
Data1.Recordset.Fields("descripcion") = UCase(Text3.Text)
Data1.Recordset.Fields("serial") = UCase(Text4.Text)
Data1.Recordset.Fields("modelo") = UCase(Text6.Text)
Data1.Recordset.Fields("fecha_ingr") = UCase(Text5.Text)
Data1.Recordset.Fields("serial_int") = UCase(Text1.Text)

Data1.Recordset.Fields("codigo") = Label6.Caption
Data1.Recordset.Fields("codigo") = z

Data1.Recordset.Update

DataEnvironment1.rsCommand1.AddNew
For i = 0 To 3
DataEnvironment1.rsCommand1.Fields(i) = Form1.Text1(i).Text
Next i
DataEnvironment1.rsCommand1.Update

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Label6.Caption = ""

Data1.Recordset.Close


Frame1.Enabled = False
Command1.Enabled = False
Command3.Visible = True
Command4.Enabled = False

End Sub

AHORA, ESTO ME DA ERROR POR NO RECONOCER EL rsCommand1....

y ahora q tengo q hacer?

[fero]

NO. Por lo que veo en tu código estás usando un control data y no un dataenvironment, así que lo que puse antes no va. Tu código quedaría así:

Private Sub Command1_Click()
Dim z
Dim i As Integer
Dim X As Currency
z = Label6.Caption
X = Text2.Text

X = 0
X = Val(Text2.Text)
Data1.Recordset.MoveLast '************ esto para qué


Data1.Recordset.AddNew
Data1.Recordset.Fields("cantidad") = (Text2.Text)
Data1.Recordset.Fields("cantidad") = X
Data1.Recordset.Fields("descripcion") = UCase(Text3.Text)
Data1.Recordset.Fields("serial") = UCase(Text4.Text)
Data1.Recordset.Fields("modelo") = UCase(Text6.Text)
Data1.Recordset.Fields("fecha_ingr") = UCase(Text5.Text)
Data1.Recordset.Fields("serial_int") = UCase(Text1.Text)

Data1.Recordset.Fields("codigo") = Label6.Caption
Data1.Recordset.Fields("codigo") = z

Data1.Recordset.Update

Data1.Refresh
DataGrid1.REfresh ' o como se llame el data grid

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Label6.Caption = ""

'Data1.Recordset.Close ******** esto no va ********


Frame1.Enabled = False
Command1.Enabled = False
Command3.Visible = True
Command4.Enabled = False

End Sub

[luisXP]

Hey, Muchas Gracias Por Tu Ayuda.... Esto Si Me Funcionó.... Cualquier Cosa Q Necesites, Y Q Pueda Ayudarte, Estamos Para Eso...