Buscar : en
Por :

Modificar una base de datos access desde vb

Última respuesta el 14 oct 2009, 04:57:19 shizaraht, el 18 nov 2008, 17:50:42 
 Señalar este mensaje a los moderadores

Hola,
realmente no se casi nada de visual basic y me han mandado una tarea precisamente de visual basic en la escuela. Se trata de hacer un proyecto donde desde este pueda acceder a una base de datos de access. Hasta ahi, no hay problemas. Ya tengo casi todo, pero me faltan programar los botones de "actualizar" y "modificar". Pudieran darme el codigo por favor? Gracias

Configuración: Windows XP
Internet Explorer 6.0

Mejores respuestas para « Modificar una base de datos access desde vb » en :
Copia de seguridad de base de datos administrada por el usuario Ver1. Consultar las vistas para obtener información sobre los archivos de la base de datos Utiliza la vista V$DATAFILE para obtener los nombre y estados de todos los archivos de datos Utiliza la vista V$CONTROLFILE para mostrar todos los archivos...
Abrir una base datos Oracle conteniendo un data file faltante VerAbrir una base datos Oracle conteniendo un data file faltante Seguir estos pasos: Conectarse a SQL*DBA o al Server Manager ejecutar “shutdown abort” Ejecutar “startup mount” Ejecutar el siguiente comando para reemplazar el datafile (por...
Copia de respaldo y restauración de bases de datos Mysql VerEn este artículo veremos la manera más sencilla de hacer una copia de respaldo y luego restaurar una base de datos Mysql. Copia de respaldo Para hacer una copia de respaldo de una base de datos se recomienda crear un dump. Para hacer un dump de...
Descargar CDBF - DBF Viewer and Editor VerCDBF es un visualizador de ficheros DBF, pro no solo se limita en “ver” sino en el mismo modulo puede modificar. Realiza cambios en las celdas o campos, soporta dBaseIII, dBaseIV, Foxpro y Visual Foxpro, además exporta datos (SQL Server, FoxPro,...
Bases de datos - Utilización de formularios VerUtilización de formularios Para poder utilizar una base de datos, el usuario debe contar con una interfaz que le permita visualizar los datos según ciertos criterios Existe una herramienta para esto: los formularios. Un formulario es una interfaz con...
Administrador de bases de datos VerAdministrador de bases de datos Un administrador de bases de datos (o DBA) tiene la responsabilidad de mantener y operar las bases de datos que conforman el sistema de información de una compañía. Habilidades Debido a la importancia de los datos que...

1

Allcxz, el 19 nov 2008, 03:24:07
  • +1

Hola, podrias especificar un poco tu pregunta? Utilizas ADO o DAO para accesar a tu base de datos?

Responder a Allcxz

23

jupaarca, el 16 abr 2009, 02:27:58
  • +1

Tienes programas donde me ayuden a llamar una base de datos de access a vb. Si me hicieras el favor de enviarme por lo menos uno, te lo agracedería mucho...

JP

Responder a jupaarca

27

otlch, el 17 jul 2009, 05:47:58
  • +2

Ocupo saber el codigo para guardar datos desde visual a la bbasa de datos de acces 2003

Responder a otlch

2

shizaraht, el 19 nov 2008, 14:40:01
  • +1

Estoy usando ado, ya tengo casi todo, solo que no estoy segura en la diferencia de modificar y actualuizar... Por ejemplo, en el caso de adicionar, con un boton y el codigo: Adodc1.Recordset.AddNew todo esta bien o con eliminar: Adodc1.Recordset.Delete tambien, pero en el caso de actualizar y modificar no se... supongo que actualizar sea con Adodc1.Recordset.Update, pero y modificar??

Responder a shizaraht

3

Allcxz, el 20 nov 2008, 01:40:38
  • +1

Mmmmmm mira, para actualizar, lo que yo hago es conectar mis textbox a mi base a partir de mi conexion con el control del ADO, agrego uno nuevo con el add y elimino con el delete, creo que hasta ahi vamos bien, para modificar alguno se utiliza el "Adodc1.Recordset.Updatebatch AddAfectCurrent" asi se escribe creo, pero ahi esta la idea, con esa linea, peeeeeeeeero se supone que solo actualiza los datos, sino, utiliza el requery, asi por ejemplo "Adodc1.RecordSet.Requery", deberias de tener tus txtbox conectados para usar un campo para poder modificar de tu base de datos, asi no tendras que utilizar algunos botones, porque, por ejemplo, para modificar algun dato, lo seleccionas y escribes en el textbox donde este tu dato que quieras modificar y solo lo guarda, si quieres que te explique un poco mas, puedes preguntar, saludos.

Responder a Allcxz

26

AlucarD-_-, el 15 jul 2009, 07:57:42

Oye mano tngo una pregunta como ago para conectar los texbox a la tabla de la base de datos???????????
ese kreo q es mi uniko problema

Responder a AlucarD-_-

28

hola, el 31 jul 2009, 00:54:03
  • +1

Hola
para lo que te entendi creo que primero debes tener un adodc y hacer la conexion con coneccionstring darle general y seleccionar el 3.5 siguiente oprimir los ... y buscar tu base y derle provar conexion oprimir aceptar aplicar aceptar . a recorsours seleccionrar la tabla y seleccinar el texbox seleccionar datasours y seleccionar lo que quieras que aparesca en tu texbox.... espero te sirva a mi si .. adios saludos

Responder a hola

4

shizaraht, el 20 nov 2008, 19:07:19
  • +1

Muchas gracias, intentare con eso y si no, pues vuelvo aca al forum

Responder a shizaraht

5

Francesc, el 24 nov 2008, 21:50:45
  • +1

Buenas!! soy un estudiante de primero de ingenieria de informatica y me han solicitado un programa en visual basic que lleve las altas y bajas de un control de almacen, es decir, el material que entra (tanto nuevo como para reparar) y material que sale (nuevo, reparado o prestado).
Como aun no he dado MySQL he pensado que con access la cosa sería más facil pero la verdad es que no tengo ni idea, me gustaría que me aconsejarais algun tutorial de visual basic 2008 para hacer llamadas a bases de datos en access, el que quiera mi mail es francesc19@gmail.com.
Os estaría muy agradecido.

Ah! y gracias por adelantado.

Saludos.

Responder a Francesc

16

erick, el 25 feb 2009, 22:49:10
  • +1

Www.connectionstrings.com
www.astalaweb.com
www.lawebdelprogramador.com


Estos enlaces te serviran de mucho

Responder a erick

6

Allcxz, el 25 nov 2008, 04:24:03
  • +2

Haber si te sirve

Subido por luffymk

http://rapidshare.com/files/137195929/Visual_Studio_-_Base_d­e_datos.rar

Pass: www.chilewarez.org

Responder a Allcxz

7

fran_j3, el 30 nov 2008, 16:33:12
  • +2

Mira hermano este archivo tiene clave y no se puede abrir

Responder a fran_j3

8

Allcxz, el 1 dic 2008, 00:38:57
  • +3

El password esta abajo, ahi te lo escribi, saludos.

Responder a Allcxz

9

Fran_j3, el 9 dic 2008, 17:02:47
  • +1

Ok gracias me sirvio de mucho pero tengo un problemita DTPicker, lo estoy enlazando con una tabla y cuando me haces la carga no no carga la fecha sino los minuto y seg y estoy entremendo lio

Responder a Fran_j3

13

fl98005, el 16 ene 2009, 02:32:45
  • +2

Que tal me pueden ayudar tengo problemas con el access 2007, la cuestion esta asi tengo una tabla que se llama cuestionario el cual tiene los siguientes campos: buenas, malas, nombre_de_la_persona_que_realiza_el_cuestionario (nombre_tel) y nota. Tengo un formulario donde hay una pregunta y el usuario tiene que darle click al boton verdadero o falso dependiendo de cual boton le de este generara un conteo de buenas y malas, ok hasta aqui todo bien. Mi pregunta es la siguiente como hago para que al finalizar el cuestionario este me guarde la nota en el campo nota, he leido un poco y lo estos haciendo con DAO les muesttro un poco el codigo:

en mis declaraciones generales del formulario he puesto este codigo:

Option Explicit

Private db As dao.Database
Private rs As dao.Recordset

Cuando carga el formulario (form_load()) he puesto este codigo:

Const sPathBase As String = "C:\Users\Enzo\Desktop\Varios\Preguntas.mdb"
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("Select * from cuestionario", dbOpenDynaset)

y en el boton he puesto lo siguiente, es aqui donde quiero que me guarde la nota:

Private Sub Comando8_Click()
malas = malas + 1
rbuenas = rbuenas + buenas
rmalas = rmalas + malas
notastel = (rbuenas * 10) / 21
With rs
.AddNew
' Añadimos algún texto, para saber que es un nuevo dato
.Fields("buenas") = rbuenas
.Fields("malas") = rmalas
.Fields("nota_tel") = notastel
' Actualizamos los datos, para que se graben en el recordset
.Update (Cuando corro el programa es aqui donde me da error en .UPDATE)End With
End Sub

Espero sus comentarios y ayuda

Responder a fl98005

14

Synetcon, el 26 ene 2009, 06:36:17
  • +1

Probaste con:
.Update (Cuando corro el programa es aqui donde me da error en .UPDATE)
End With
:D

Responder a Synetcon

15

fl98005, el 26 ene 2009, 14:34:24
  • +1

Si ya probe y me da el mismo error

Responder a fl98005

22

fernando28481, el 8 abr 2009, 06:38:08
  • +1

Hola capas este codigo pueda serte util para modificar primero tienes que buscar en la tabla lo que queres modificar desde un textbox lo puedes hacer EJ:Private Sub txt_buscarnombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_buscarnombre.TextChanged
obj1.setnombre((Val(txt_buscarnombre.Text)))
End Sub
luego lo tienes que pasar los datos a modificar EJ: DS.Reset()
comando.CommandText = "select * from tabla1 where movil =" & obj1.getmovil
adaptador.Fill(DS, "tabla1")
If DS.Tables("tabla1").Rows.Count > 0 Then
mid = (DS.Tables("tabla1").Rows(0).Item("id"))

TextBox1.Text = (DS.Tables("tabla1").Rows(0).Item("nombre"))
TextBox2.Text = (DS.Tables("tabla1").Rows(0).Item("apellido"))
TextBox3.Text = (DS.Tables("tabla1").Rows(0).Item("direccion"))
TextBox4.Text = (DS.Tables("tabla1").Rows(0).Item("telefono"))
TextBox5.Text = (DS.Tables("tabla1").Rows(0).Item("movil"))
TextBox6.Text = (DS.Tables("tabla1").Rows(0).Item("notas"))

Else
MsgBox("Error no se encontró ningún registro... ")
End If
al final guardarlo de la misma manera que guardarias los datos al principio EJ: Dim nombre, apellido, direccion, mail, notas As String
Dim telefono, movil As Double
Dim elemento As ListViewItem
nombre = obj.getnombre
apellido = obj.getapellido
direccion = obj.getdireccion
mail = obj.getmail
notas = obj.getnotas
telefono = obj.gettelefono
movil = obj.getmovil
elemento = lsv_contacto.Items.Add(nombre)
elemento.SubItems.Add(apellido)
elemento.SubItems.Add(direccion)
elemento.SubItems.Add(telefono)
elemento.SubItems.Add(movil)
elemento.SubItems.Add(mail)
elemento.SubItems.Add(notas)
numero = numero + 1
elemento.Tag = numero

comando.CommandText = "insert into tabla1 (nombre,apellido,direccion,telefono,movil,mail,notas) values ('" & obj.getnombre & "','" & obj.getapellido & "','" & obj.getdireccion & "','" & obj.gettelefono & "','" & obj.getmovil & "','" & obj.getmail & "','" & obj.getnotas & "')"
adaptador.Fill(DS, "tabla1")
como te daras cuenta en mi programa ya contiene una cls

Responder a fernando28481

29

 Jose Azuaga, el 14 oct 2009, 04:57:19

Muchisimas gracias Allcxz, realmente me ayudaste muchisimo con este manual. Muy agradecido.

Responder a Jose Azuaga

10

sergiño, el 6 ene 2009, 19:19:39

Por favor como modificar,eliminar y que al momento de gurdar si hay una cedula repetida no lo hacecte datos duplicados porfa me pueden ayudar la sintaxis

Responder a sergiño

12

Allcxz, el 7 ene 2009, 22:20:59
  • +2

Hola, una pregunta, como realizas tu conexion?

Si utilizas ado:

Para agregar:

Primera forma:
Tutabla.Fields("Campo1")=Tustextos
Segunda Forma:
Adodc1.Recordset.Fields("Campo1")=TusTextos

Quisiera saber que modo estas utilizando para poder ayudarte, saludos.

Responder a Allcxz

11

rober1993, el 7 ene 2009, 03:12:22

Hola mira en este enlace puedes ver muchos ejemplos de visual basic para trabajar con ado y bases de datos, tambien con grillas y datagrid

http://www.recursosvisualbasic.com.ar/htm/tutoriales/ado.htm­
http://www.recursosvisualbasic.com.ar/htm/tutoriales/control­-flexgrid.htm
http://www.recursosvisualbasic.com.ar/htm/tutoriales/datagri­d-dbgrid.htm

espero que te sea de ayuda

Responder a rober1993

17

carlos, el 26 feb 2009, 15:01:08
  • +1

Hola quisiera saber como modificar y grabar datos en una base de datos de sql server muchas gracias

A!! es para visual basic 6

Responder a carlos

18

midvb, el 5 mar 2009, 00:03:35

Para sql o access?

Responder a midvb

19

christiand, el 11 mar 2009, 22:33:20

Alguien tien idea como conectarme a una base que tengo en un servidor web? pues quiero sincronizar la base para saber cuales son los usuarios registrados sin tener que entrar a la base etc

bueno espero respuestas

Responder a christiand

20

marc27, el 12 mar 2009, 09:56:15

Puedes hacerlo desde vb con ado, es muy simple busca un manual. para actualizar lo puedes hacer con los métodos de Ado o directamente con una consulta sql de actualización. Yo no soy experto pero eso creo que es mas o menos como te lo he comentado, cualquier cosa que alguien me corrija, por que yo tambien estoy aprendiendo en este mundillo de la programación y bases de datos, me gusta mucho. En el futuro quisiera pasar a sql server, Oracle, mysql que son mas potentes, pero me falta mucho, apenas batallo con access por ahora, un saludo

Responder a marc27

21

trunca, el 14 mar 2009, 16:51:03

HOLA; ESTE PROGRAMA SIMULACION DE UNA"COMPRA DE COMPUTADORA" EN C#
DESEARIA Q ME AYUDEN CON ESTE CODIGO SOLO "QUIERO SUMAR TODOS LOS RESULTADO DENTRO DE LAS CONDICIONES" "IF ,ELSE"... Y NO ME SALE ...."SOLO SUMAR "
using System;
using System.Collections.Generic;
using System.Text;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
Console.BackgroundColor = ConsoleColor.White;
Console.ForegroundColor = ConsoleColor.Blue;
Console.Clear();
double Monitores, Case, Procesador, Video, Mainboard, Sonido, Memoria;
double Lectora, Impresora, Teclado, Mouse;
double DOLAR;
double Mtotal;
double a, b, c, d, e, f, g, h, i,j,k;
System.Console.WriteLine("-----VENTA DE COMPUTADORAS------");
System.Console.WriteLine("------CAMBIO DE DOLAR-----");
DOLAR = Double.Parse(Console.ReadLine());
System.Console.WriteLine("-----TIPO DE MONITOR------");
Console.WriteLine("..1.Lcd(S/.325)..");
Console.WriteLine("..2.Entrelazado(S/.150)..");
System.Console.WriteLine("\n");
Monitores = double.Parse(Console.ReadLine());
if (Monitores == 1)
{
a = 325;
System.Console.WriteLine("------EL COSTO DEL MONITOR EN SOLES ES:-----");
System.Console.WriteLine(a);
System.Console.WriteLine("\n");
}
else
if (Monitores == 2)
{
a = 150;
System.Console.WriteLine("-----EL COSTO DEL MONITOR EN DOLAR EN SOLES ES.-----");
System.Console.WriteLine(a);
System.Console.WriteLine("\n");
}

System.Console.WriteLine("-----ESCOGA TIPO DE CASE-----");
Console.WriteLine("..1.MINITOWER DE 220v($63)..");
Console.WriteLine("..2.MANTOWER DE 220v 2ND($117)..");
System.Console.WriteLine("\n");
Case = double.Parse(Console.ReadLine());

if (Case == 1)
{
b = 63 * DOLAR;
System.Console.WriteLine("-----EL COSTO DEL CASE EN SOLES ES:-----");
System.Console.WriteLine(b);
System.Console.WriteLine("\n");
}
else
if (Case == 2)
{
b = 117 * DOLAR;
System.Console.WriteLine("-----EL COSTO DEL CASE EN SOLES ES:-----");
System.Console.WriteLine(b);
System.Console.WriteLine("\n");
}
System.Console.WriteLine("-----Escoga Tipo de MAINBOARD-----");
Console.WriteLine("..1.MSI(S/.140)..");
Console.WriteLine("..2.PCCHIP(S/.103)..");
Console.WriteLine("..3.KT9000(S/.98)..");
Console.WriteLine("..4.INTEL PURA(S/.317)..");
System.Console.WriteLine("\n");
Mainboard = double.Parse(Console.ReadLine());
if (Mainboard == 1)
{
c = 140;
System.Console.WriteLine("-----EL COSTO DE LA MAINBOARD EN SOLES ES:-----");
System.Console.WriteLine(c);
System.Console.WriteLine("\n");
}
else
if (Mainboard == 2)
{
c = 103;
System.Console.WriteLine("-----EL COSTO DE LA MAINBOARD EN SOLES ES:-----");
System.Console.WriteLine(c);
System.Console.WriteLine("\n");
}
else
if (Mainboard == 3)
{
c = 98;
System.Console.WriteLine("-----EL COSTO DE LA MAINBOARD EN SOLES ES:-----");
System.Console.WriteLine(c);
System.Console.WriteLine("\n");
}
else
if (Mainboard == 4)
{
c = 317;
System.Console.WriteLine("-----EL COSTO DE LA MAINBOARD EN SOLES ES:-----");
System.Console.WriteLine(c);
System.Console.WriteLine("\n");
}
System.Console.WriteLine("-----ESCOGE TIPO DE PROCESADOR-----");
Console.WriteLine("..1.PENTIUM IV C/COOLER(S/.97)..");
Console.WriteLine("..2.DUAL CORE(S/.125)..");
Console.WriteLine("..3.AMD(S/.180)..");
Console.WriteLine("..4.CORE DUO(S/.185)..");
System.Console.WriteLine("\n");
Procesador = double.Parse(Console.ReadLine());
if (Procesador == 1)
{
d = 97;
System.Console.WriteLine("-----EL COSTO DEL PROCESADOR EN SOLES ES:-----");
System.Console.WriteLine(d);
System.Console.WriteLine("\n");
}
else
if (Procesador == 2)
{
d = 125;
System.Console.WriteLine("-----EL COSTO DEL PROCESADOR EN SOLES ES:-----");
System.Console.WriteLine(d);
System.Console.WriteLine("\n");
}
else
if (Procesador == 3)
{
d = 180;
System.Console.WriteLine("-----EL COSTO DEL PROCESADOR EN SOLES ES:-----");
System.Console.WriteLine(d);
System.Console.WriteLine("\n");
}
else
if (Procesador == 4)
{
d = 185;
System.Console.WriteLine("-----EL COSTO DEL PROCESADOREN SOLES ES:-----");
System.Console.WriteLine(d);
System.Console.WriteLine("\n");
}


System.Console.WriteLine("-----ESCOGE TIPO DE TARJETA DE VIDEO-----");
Console.WriteLine("..1.NVIDIA 64MB($43)..");
Console.WriteLine("..2.NVIDIA 128MB($97)..");
Console.WriteLine("..3.GFORCE 64MB($64)..");
System.Console.WriteLine("\n");
Video = double.Parse(Console.ReadLine());
if (Video == 1)
{
e = 43 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA TARJETA EN SOLES ES:-----");
System.Console.WriteLine(e);
System.Console.WriteLine("\n");
}
else
if (Video == 2)
{
e = 97 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA TARJETA EN SOLES ES:-----");
System.Console.WriteLine(e);
System.Console.WriteLine("\n");
}
else
if (Video == 3)
{
e = 64 * DOLAR;
System.Console.WriteLine("EL COSTO DE LA TARJETA EN SOLES ES:");
System.Console.WriteLine(e);
System.Console.WriteLine("\n");
}


System.Console.WriteLine("-----ESCOGA TIPO DE TARJETA DE SONIDO-----");
Console.WriteLine("..1.MOTOROLA DE 16($28)..");
Console.WriteLine("..2.MOTOROLA DE 64($36)..");
Console.WriteLine("..3.NEC DE 32($31)..");
System.Console.WriteLine("\n");
Sonido = double.Parse(Console.ReadLine());
if (Sonido == 1)
{
f = 28 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA TARJETA EN SOLES ES:-----");
System.Console.WriteLine(f);
System.Console.WriteLine("\n");
}
else
if (Sonido == 2)
{
f = 36 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA TARJETA EN SOLES ES:-----");
System.Console.WriteLine(f);
System.Console.WriteLine("\n");
}
else
if (Sonido == 3)
{
f = 31 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA TARJETA EN SOLES ES:-----");
System.Console.WriteLine(f);
System.Console.WriteLine("\n");
}

System.Console.WriteLine("-----ESCOGA TIPO DE MEMORIA RAM-----");
Console.WriteLine("..1.256MB DDR2($30)..");
Console.WriteLine("..2.512MB DDR2($37)..");
Console.WriteLine("..3.1GB DDR($58)..");
System.Console.WriteLine("\n");
Memoria = double.Parse(Console.ReadLine());
if (Memoria == 1)
{
g = 30 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA MEMORIA EN SOLES ES:-----");
System.Console.WriteLine(g);
System.Console.WriteLine("\n");
}
else
if (Memoria == 2)
{
g = 37 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA MEMORIA EN SOLES ES:-----");
System.Console.WriteLine(g);
System.Console.WriteLine("\n");
}
else
if (Memoria == 3)
{
g = 58 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA MEMORIA EN SOLES ES:-----");
System.Console.WriteLine(g);
System.Console.WriteLine("\n");
}

System.Console.WriteLine("-----ESCOGE TIPO DE LECTORA-----");
Console.WriteLine("..1.LECTOR Y GRABADOR(S/.95)..");
Console.WriteLine("..2.LECTOR(S/.60)..");
System.Console.WriteLine("\n");
Lectora = double.Parse(Console.ReadLine());
if (Lectora == 1)
{
h = 95;
System.Console.WriteLine("-----EL COSTO DE LA LECTORA EN SOLES ES:-----");
System.Console.WriteLine(h);
System.Console.WriteLine("\n");
}
else
if (Lectora == 2)
{
h = 60;
System.Console.WriteLine("-----EL COSTO DE LA LECTORA EN SOLES ES:-----");
System.Console.WriteLine(h);
System.Console.WriteLine("\n");
}
System.Console.WriteLine("-----ESCOGA TIPO DE IMPRESORA-----");
Console.WriteLine("..1.HP 1560($55)..");
Console.WriteLine("..2.CANON PIXMA 5600($54)..");
Console.WriteLine("..3.HP LASER JET 1410($120)..");
System.Console.WriteLine("\n");
Impresora = double.Parse(Console.ReadLine());
if (Impresora == 1)
{
i = 55 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA IMPRESORA EN SOLES ES:-----");
System.Console.WriteLine(i);
System.Console.WriteLine("\n");
}
else
if (Impresora == 2)
{
i = 54 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA IMPRESORA EN SOLES ES:-----");
System.Console.WriteLine(i);
System.Console.WriteLine("\n");
}
else
if (Impresora == 3)
{
i = 120 * DOLAR;
System.Console.WriteLine("-----EL COSTO DE LA IMPRESORA EN SOLES ES:-----");
System.Console.WriteLine(i);
System.Console.WriteLine("\n");
}
System.Console.WriteLine("-----ESCOGA TIPO DE TECLADO-----");
Console.WriteLine("..1.101 TECLAS WINDOWS98(S/.23)..");
Console.WriteLine("..2.108 TECLAS MULTIMEDIA(S/.48)..");
System.Console.WriteLine("\n");
Teclado = double.Parse(Console.ReadLine());
if (Teclado == 1)
{
j = 23;
System.Console.WriteLine("-----EL COSTO DEL TECLADO EN SOLES ES:------");
System.Console.WriteLine(j);
System.Console.WriteLine("\n");
}
else
if (Teclado == 2)
{
j = 48;
System.Console.WriteLine("-----EL COSTO DEL TECLADO EN SOLES ES:-----");
System.Console.WriteLine(j);
System.Console.WriteLine("\n");
}
System.Console.WriteLine("-----ESCOGE TIPO DE MOUSE-----");
Console.WriteLine("..1.MOUSE OPTICO(S/.15)..");
Console.WriteLine("..2.MOUSE SIMPLE(S/.7)..");
System.Console.WriteLine("\n");
Mouse = double.Parse(Console.ReadLine());
if (Mouse == 1)
{
k = 15;
System.Console.WriteLine("-----EL COSTO DEL MOUSE EN SOLES ES:-----");
System.Console.WriteLine(k);
System.Console.WriteLine("\n");
}
else
if (Mouse == 2)
{
k = 7;
System.Console.WriteLine("-----EL COSTO DEL MOUSE EN SOLES ES:-----");
System.Console.WriteLine(k);
System.Console.WriteLine("\n");
}

System.Console.WriteLine("MONITOR: " +Monitores);
System.Console.WriteLine("CASE: "+ Case);
System.Console.WriteLine("MAINBOARD: "+ Mainboard);
System.Console.WriteLine("PROCESADOR: "+ Procesador);
System.Console.WriteLine("TARJETA DE VIDEO: "+ Video);
System.Console.WriteLine("TARJETA DE SONIDO: "+ Sonido);
System.Console.WriteLine("RAM: "+ Memoria);
System.Console.WriteLine("LECTORA: "+ Lectora);
System.Console.WriteLine("IMPRESORA: "+ Impresora);
System.Console.WriteLine("TECLADO: "+ Tecaldo);
System.Console.WriteLine("MOUSE: "+ Mouse);
Mtotal = Monitores+Mouse + Teclado + Video + Procesador + Memoria + Sonido + Mainboard + Case + Lectora + Impresora;
System.Console.WriteLine("MONTO TOTAL A PAGAR ES:");
System.Console.WriteLine(Mtotal);
}
}


}

COMO VERAN EN ESTA ULTIMA PARTE SOLO QUIERO SUMAR TODAS LAS CONDICIONES System.Console.WriteLine("MONTO TOTAL A PAGAR ES:");// EL MONTO TOTAL SOLO EL MONTO TOTAL...
ESPERO QUE ME AYUDEN ...

Responder a trunca

24

Hemasachi, el 26 may 2009, 17:38:23

Lo primero que tendrias que hacer es crear unas consultas en acces con parametros y luego en visual basic crear un procedimiento donde tienes que llamar a tu consulta y crear los parametrios segun los campos que vas a ingresar a tu tabla.
si me contestas te dire mas o menos como hacer la consulta con parametros y el codigo en visual basic

Responder a Hemasachi

25

crazyzero, el 7 jun 2009, 06:06:29
  • +1

El codigo para el boton agregar registros es el siguiente

adodc1.Recordset.addnew

si quieres un boton para eliminer registros es es el siguiente

adodc1.Recordset.delit

si quieres un boton para modificar un registro es el siguiente

adodc1.Recordset.update

Responder a crazyzero