Visual Basic - Como Grabar el resultado de una operacion en acces

Life is soft - evento anual de software empresarial
   
Vista:

Como Grabar el resultado de una operacion en acces

Publicado por luis (2 intervenciones) el 23/11/2007 17:04:05
Hola a todos, tengo un gran problema le parecera simple pero no lo he podido resolver.

me gustaria saber como guardar en una tabla access el resultado de un formulario, es decir el resultado de una operacion matematica.

Mil gracias a todos por la ayuda que me puedan brindrar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como Grabar el resultado de una operacion en ac

Publicado por pablo (19 intervenciones) el 24/11/2007 10:05:33
Primero: haces una conexión a la base de datos.
Segundo: creas un recordset a la tabla.
Tercero: abres el recordset en modo append
Cuarto: asignas la variable 'rsultadodeunaoperacionmatematica ' al campo correspondiente de la tabla.
y Quinto: actualizas el recordset y lo cierras.

chan... el resultado de la operacion matematica ha quedado guardado en la tabla access!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como Grabar el resultado de una operacion en ac

Publicado por luis (2 intervenciones) el 25/11/2007 18:19:59
Porfavor pablo me podrias ayudar con un codigo, yo soy muy principiante en visual.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como Grabar el resultado de una operacion en ac

Publicado por Mario (107 intervenciones) el 26/11/2007 22:11:41
Si estas utilizando ADO seria mas o menos asi
Declaras las variables
Dim cnxMDB As ADODB.Connection, tblTabla As ADODB.Recordset
haces una conexión a la base de datos y abres la tabla
Set cnxMDB = New ADODB.Connection
Set tblTabla = New ADODB.Recordset
cnxMDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "MiBase.mdb;Persist Security Info=False"
cnxMDB.Open
tblTabla.ActiveConnection = cnxMDB
tblTabla.Open "latablaenmdb"
Agregas los datos
With tblTabla
.AddNew
.Fields("micampo")=miresultado
.Update
End With
Cierra la tabla y la base
tblTabla.Close
Set tblTabla=Nothing
cnxMDB.Close
Set cxnMDB=Nothing
Espero te resuelva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar