SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Mombasa en Martes 9 de Abril de 2013, 14:32

Título: Base de datos y consultas
Publicado por: Mombasa en Martes 9 de Abril de 2013, 14:32

Buenas...una consulta: tengo 2 msflexgrid en un formulario. En el primero, una vez cargados los datos los guardo en una base de datos. El segundo se va cargando automáticamente, ya que suma y muestra los totales de los datos tipeados en el primero.
Pero no logro que estos últimos se graben en una base de datos. a continuación, el código para la primer base: (Cabe destacar que la segunda base acumula los totales de: Min, Gol, Puntaje, etc.)
Muchas gracias.

Código: Visual Basic

1. Private Sub cmdAddEntry_Click()
2.     'agrego
3.    With Data1.Recordset
4.         .AddNew
5.         !Partido = Text1.Text
6.         !Fecha = DTPicker1
7.         !Min = Text2(1).Text
8.         !Gol = Text2(2).Text
9.         !Ptje = Text2(4).Text
10.         .Update
11.     End With
12.    
13.     Data1.Refresh
14.  
15. Data1.DatabaseName = App.Path & "\Estadis.mdb"
16.        
17. Data1.RecordSource = "select Min,Gol,Ptje from Datos order by Id"
18.  
19. end sub
20.  
21.