ayuda pleassssss

maye
26 de Agosto del 2005
Hola! Estoy trabajando con un flexgrid y necesito que este me guarde los datos en una base de datos que tengo diseñada en Access,
Esto es lo que tengo si podrías ayudarme te lo agradecería


rivate Sub Guardame_click()
Set data = OpenDatabase(App.Path & "solicitud2000.mdb")
Set rechorario = data.OpenRecordset("horario", dbOpenTable)

If rechorario.BOF = True And rechorario.EOF = True Then
a = dias
For i = 0 To dias.ListCount - 1
If a = dias.List(i) Then
C1 = dias1.List(i)
End If
Next i
a = sala
For i = 0 To sala.ListCount - 1
If a = sala.List(i) Then
C2 = sala1.List(i)
End If
Next i

If dias = "" Then
MsgBox "No Puede Dejar Campo Día Vacio", vbInformation, "ATENCION!"
Else

For i = 1 To FlexGrid1.Rows - 1
rechorario.AddNew
For j = 1 To FlexGrid1.Cols - 1
FlexGrid1.Row = i
FlexGrid1.Col = j
Select Case j
Case 1
rechorario!cod_dias = Val(FlexGrid1.Text)
Case 2
rechorario!hora_entrada = Val(FlexGrid1.Text)
Case 3
rechorario!hora_salida = Val(FlexGrid1.Text)
Case 4
rechorario!cod_sala = Val(FlexGrid1.Text)
Case 5
rechorario!horas = Val(FlexGrid1.Text)

End Select
Next j
rechorario.Update
Next i
MsgBox "Registro Guardado", vbInformation, "Atención"
End If
End If
End Sub

El guarda pero cuando busco los datos en la base de datos, no se guardan como deberia!!!””” por favor necesito ayuda

JC
26 de Agosto del 2005
Hola, esuve analizando tu codigo pero para poder ayudarte mas especificamente quisiera saber que te guarda en la base de datos