Visual Basic - Estudiante

Life is soft - evento anual de software empresarial
 
Vista:

Estudiante

Publicado por Alonsorg (3 intervenciones) el 21/11/2007 07:21:14
Saludos a todos!!

Soy muy nuevo en esto de programar con VB y la verdad yo se que me pregunta puede parecer muy tonta, pero no he logrado responderla por mas que he buscado.

Resulta que tengo una base de datos en access que tiene 3 tablas relacionadas.
Desde VB quiero ahcer la interfaz, me enlazo a la base de datos (ya lo se hacer) y obtengo un valor numerico de un campo de la Tabla1 y lo muestro en ua caja de texto.
Hasta ahi todo bien..

Pero en el mismo formulario debo introducir un valor en una caja de texto, luego ese valor multiplicarlo por el vlaor que tengo en la caja de texto anterior y el resultado mostrarlo en otra caja de texto. Finalmente las ultimas dos cajas de texto tengo que guardarlas como un nuevo registro de la Tabla2 (y es eso precisamente lo que no se hacer, ni sacar el valor para ponerlo en una variable, ni como regresar el resultado de la multiplciacion a la otra caja de texto). He tratado de hacerlo mediante la fucnion Val() pero no me sale.

Si alguien me puede ayudar o darme una orientacion de como se hace esto se lo(s) agradecerme mucho.

Bueno de antemano muchas, pero muchas gracias por su atencion.
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:Estudiante

Publicado por El conejo (124 intervenciones) el 21/11/2007 14:59:21
Hola,

a ver si entendí:

text1<---- valor numerico de un campo de la tabla1 de tú base de datos
text2<---- valor intrducido por el usuario de momento
text3<---- resultado de una operación sobre text1 y text2

si es eso ahí va mi solución.
supongo que estas trabajando con data control verdad?
base de datos usada:
prueba.mdb
tabla: test2
campos: cont - numerico

controles usados:
text1
text2
text3
command1
data1

código:
Private Sub Command1_Click()
If IsNumeric(Text1) = False Then Text1 = 0: Text1.SetFocus
If IsNumeric(Text2) = False Then Text2 = 0: Text2.SetFocus
Text3 = Text1 * Text2
Data1.Recordset.AddNew
Data1.Recordset.Fields!cont = Text3
End Sub

Private Sub Form_Load()
Data1.DatabaseName = (App.Path & "\prueba.mdb")
Data1.RecordSource = ("select all *from test2")
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
Text1.Text = Data1.Recordset.Fields!cont
End If
End Sub

Espero te sea util.
Saludos,.
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:Estudiante

Publicado por Alonsorg (3 intervenciones) el 23/11/2007 04:27:09
Gracias Conejo!!

Dejame antes que nada agradecerte por ayudarme a despejar mis dudas.

Y despues dejame felicitarte por 2 cosas:
1.- Ser atento y responder amablemente los mensajes
2.- Muy especialmente por enterder los enredos con los que describi mi problema.

Relamente me entendiste muy bien lo que quiria hacer, me sirvieron de mucho los ejemplos que me pusiste aqui, porque ademas de ayudarme a resolver mi duda me diste a conocer nuevas fucniones o atributos que no conocia (te digo que voy empezando a manjar VB) y eso me da pauta para saber que buscar.

Nuevamente muchas gracias
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