06/07/2005, 08:30
|
 | | | Fecha de Ingreso: marzo-2004 Ubicación: 32 kms de Santiago a la costa
Mensajes: 132
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Una parte del codigo es el sigte:
Data1.DatabaseName = "Sistemas.mdb"
Data2.DatabaseName = "Sistemas.mdb"
Data2.RecordSource = "SELECT * FROM menaut " & _
"WHERE au_Operad = '" & DBCombo1.BoundText & "' " & _
"ORDER BY au_Operad+au_Menu"
Data2.Refresh
With Data2.Recordset
If .RecordCount = 0 Then Exit Sub
.MoveFirst
Do While Not .EOF
strOpcion = .Fields("au_Menu")
strSelect = .Fields("au_Autori")
Cambia_Autorizacion
.MoveNext
Loop
End With
no se como se conecta???
__________________
Contento Señor contento :-) (Sto. Padre Alberto Hurtado) |