Modificar una base de datos access desde vb
Resuelto/Cerrado
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
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
Consulta también:
- Tenemos creada nuestra fuente de datos en access, ¿cuál es el comando para modificar esta base de datos?
- Access base de datos descargar - Programas - Bases de datos
- Enlazar datos de una hoja de excel a otra automáticamente - Guide
- Buscar fuente por imagen dafont - Guide
- Compartir datos a distancia ✓ - Foro de redes
- Puedo compartir Internet a larga distancias - Foro Móviles/PDA/GPS
24 respuestas
Public connDB As OleDbConnection
Dim cmd As OleDb.OleDbCommand
Public DataSet1 As DataSet
Public Sub conexion()
Try
Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=prueba.mdb"
connDB = New OleDb.OleDbConnection(conString)
MsgBox("conextado corextamente")
Catch ea As Exception
MsgBox(ea.Message)
End Try
End Sub
Public Sub insertar()
Try
connDB.Open()
cmd = New OleDb.OleDbCommand("insert into Tabla1(Campo1) values ('" & My.Forms.Form1.TextBox1.Text & "')", connDB)
cmd.ExecuteNonQuery()
connDB.Close()
MsgBox("Dato Insertado")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
este codigo lo creaas en un modulo....y conforme lo necesitas lo llamas desde tu boton en el evento clik
Dim cmd As OleDb.OleDbCommand
Public DataSet1 As DataSet
Public Sub conexion()
Try
Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=prueba.mdb"
connDB = New OleDb.OleDbConnection(conString)
MsgBox("conextado corextamente")
Catch ea As Exception
MsgBox(ea.Message)
End Try
End Sub
Public Sub insertar()
Try
connDB.Open()
cmd = New OleDb.OleDbCommand("insert into Tabla1(Campo1) values ('" & My.Forms.Form1.TextBox1.Text & "')", connDB)
cmd.ExecuteNonQuery()
connDB.Close()
MsgBox("Dato Insertado")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
este codigo lo creaas en un modulo....y conforme lo necesitas lo llamas desde tu boton en el evento clik
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
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
hola tengo un problema para hacer un proyecto en visual basic 6.0 esto me lo dejaron en la escuela miren aqui les dejo el problema ha resolver espero una respuesta GRACIAS!!!
PROBLEMA: elaborar un proyecto que permita manejar los datos de un directorio como son: clave, nombre, direccion, telefono y que los pueda agregar, buscar y que tenga su salida estos se deben agragar y buscar en un archivo
este es mi correo artu_1314@hotmail.com
PROBLEMA: elaborar un proyecto que permita manejar los datos de un directorio como son: clave, nombre, direccion, telefono y que los pueda agregar, buscar y que tenga su salida estos se deben agragar y buscar en un archivo
este es mi correo artu_1314@hotmail.com
trunca
Mensajes enviados
2
Fecha de inscripción
lunes, 3 de noviembre de 2008
Estatus
Miembro
Última intervención
sábado, 14 de marzo de 2009
6
14 mar 2009 a las 16:51
14 mar 2009 a las 16:51
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 ...
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 ...
Allcxz
Mensajes enviados
2
Fecha de inscripción
martes, 25 de mayo de 2010
Estatus
Miembro
Última intervención
sábado, 25 de septiembre de 2010
3
25 sep 2010 a las 00:22
25 sep 2010 a las 00:22
Mmmmm aquí les dejo parte del código que usé en un proyecto, cualquier duda aquí ando.
Módulo de conexión:
Public base As ADODB.Connection
Public tabla_doctor As ADODB.Recordset
...
Public proveedor As String
Public camino As String
Public contrasenia As String
Public Sub abrir_base()
'////////////////////////*********** Inicializar en Nada
Set tabla_doctor = Nothing
...
proveedor = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
contrasenia = ""
'contrasenia = "; Persist Security Info=False;Jet OLEDB:Database Password=pass123"
camino = "C:/Base.mdb"
Set base = New ADODB.Connection
'////////////////////////*********** Crear Tablas
Set tabla_doctor = New ADODB.Recordset
...
tabla_doctor.CursorType = adOpenDynamic
...
'///////////////////////************* Abrir base
base.Open proveedor & camino & contraseña
'///////////////////////************* Abrir Tablas
tabla_doctor.Open "SELECT * FROM Doctores", base, adOpenDynamic, adLockBatchOptimistic
...
end sub
Public Sub refrescar()
'/////////////////////////// Refresca las tablas
tabla1.Requery
...
End Sub
'Para guardar un registro, con su respecta validacion
Private Sub cmdGuarda_Click()
Dim QrySQL As String
QrySQL = "INSERT INTO Clientes VALUES("
QrySQL = QrySQL & Trim(txtNombre.Text) & "','"
QrySQL = QrySQL & Trim(txtApPaterno.Text) & "','"
QrySQL = QrySQL & Trim(txtApMaterno.Text) & "',False)"
base.Execute (QrySQL)
End Sub
'Para actualizar un registro, con su respectiva validación
Private Sub cmdActualiza_Click()
Dim qryup As String
qryup = "UPDATE Clientes SET Nombre = '" + Trim(txtNombre.Text) + "', Ap_Paterno = '" + Trim(txtApPaterno.Text) + "', Ap_Materno ='" + Trim(txtApMaterno.Text) + "', Modifica = true"
qryup = qryup + " WHERE ID = " + Trim(Str(id)) + " "
base.Execute (qryup)
End Sub
'Para borrar
base.Execute ("Delete From Doctores Where Clave=" + Str(id))
Módulo de conexión:
Public base As ADODB.Connection
Public tabla_doctor As ADODB.Recordset
...
Public proveedor As String
Public camino As String
Public contrasenia As String
Public Sub abrir_base()
'////////////////////////*********** Inicializar en Nada
Set tabla_doctor = Nothing
...
proveedor = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
contrasenia = ""
'contrasenia = "; Persist Security Info=False;Jet OLEDB:Database Password=pass123"
camino = "C:/Base.mdb"
Set base = New ADODB.Connection
'////////////////////////*********** Crear Tablas
Set tabla_doctor = New ADODB.Recordset
...
tabla_doctor.CursorType = adOpenDynamic
...
'///////////////////////************* Abrir base
base.Open proveedor & camino & contraseña
'///////////////////////************* Abrir Tablas
tabla_doctor.Open "SELECT * FROM Doctores", base, adOpenDynamic, adLockBatchOptimistic
...
end sub
Public Sub refrescar()
'/////////////////////////// Refresca las tablas
tabla1.Requery
...
End Sub
'Para guardar un registro, con su respecta validacion
Private Sub cmdGuarda_Click()
Dim QrySQL As String
QrySQL = "INSERT INTO Clientes VALUES("
QrySQL = QrySQL & Trim(txtNombre.Text) & "','"
QrySQL = QrySQL & Trim(txtApPaterno.Text) & "','"
QrySQL = QrySQL & Trim(txtApMaterno.Text) & "',False)"
base.Execute (QrySQL)
End Sub
'Para actualizar un registro, con su respectiva validación
Private Sub cmdActualiza_Click()
Dim qryup As String
qryup = "UPDATE Clientes SET Nombre = '" + Trim(txtNombre.Text) + "', Ap_Paterno = '" + Trim(txtApPaterno.Text) + "', Ap_Materno ='" + Trim(txtApMaterno.Text) + "', Modifica = true"
qryup = qryup + " WHERE ID = " + Trim(Str(id)) + " "
base.Execute (qryup)
End Sub
'Para borrar
base.Execute ("Delete From Doctores Where Clave=" + Str(id))
todo esta muy bien, pero a mi me sale un error, aunque estoy usando c# la sintaxis es parecida.
No me sale un mensaje pero si me genera una inconsistencia en el resultado, el valor se me actualiza en la interfaz grafica, pero no en la base de datos, y cuando vuelvo a generar una consulta me sale el valor antiguo de la variable.
necesito su ayuda.
No me sale un mensaje pero si me genera una inconsistencia en el resultado, el valor se me actualiza en la interfaz grafica, pero no en la base de datos, y cuando vuelvo a generar una consulta me sale el valor antiguo de la variable.
necesito su ayuda.
¿No encontraste la respuesta que buscabas?
Haz una pregunta
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
https://www.recursosvisualbasic.com.ar/htm/tutoriales/ado.htm
https://www.recursosvisualbasic.com.ar/htm/tutoriales/control-flexgrid.htm
https://www.recursosvisualbasic.com.ar/htm/tutoriales/datagrid-dbgrid.htm
espero que te sea de ayuda
https://www.recursosvisualbasic.com.ar/htm/tutoriales/ado.htm
https://www.recursosvisualbasic.com.ar/htm/tutoriales/control-flexgrid.htm
https://www.recursosvisualbasic.com.ar/htm/tutoriales/datagrid-dbgrid.htm
espero que te sea de ayuda
el codigo para el boton agregar registros es el siguiente
data1.Recordset.addnew
si quieres un boton para eliminer registros es es el siguiente
data1.Recordset.delete
si quieres un boton para guardar un registro es el siguiente
data1.Recordset.update
data1.Recordset.addnew
si quieres un boton para eliminer registros es es el siguiente
data1.Recordset.delete
si quieres un boton para guardar un registro es el siguiente
data1.Recordset.update
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??
hola que tal!.. no existe instrucciones recordset para la opcion "modificar" es mas bien "regrabar", es decir si quieres modifciar un registro por ejemplo desde un formulario visual basic, entonces solo te vas a ese registro y cambias los datos adecuados y vuelves a oprimir el boton grabar (que ejecuta la el metodo de rs.recordset.update). espero te sirva esta informacion.. salu2
HOLA OJALA QUE TE SEA DE UTILIDAD
Set DBCONTROL = OpenDatabase("c:\BDCONTROL1.mdb")
Public DBCONTROL As Database
Public TBCONTROL As Recordset
Set TBCONTROL = DBCONTROL.OpenRecordset("SELECT * FROM [DATOS PERSONALES] WHERE NO_CONTROL = '" & aux & "'", dbOpenDynaset)
TBCONTROL.Edit
TBCONTROL!diaBAJA = Text6.Text
TBCONTROL!mesBAJA = Text5.Text
TBCONTROL!AÑOBAJA = Text4.Text
TBCONTROL!MOTIVO = Text3.Text
TBCONTROL!ESTADO = "NOVIGENTE"
TBCONTROL.Update
Set DBCONTROL = OpenDatabase("c:\BDCONTROL1.mdb")
Public DBCONTROL As Database
Public TBCONTROL As Recordset
Set TBCONTROL = DBCONTROL.OpenRecordset("SELECT * FROM [DATOS PERSONALES] WHERE NO_CONTROL = '" & aux & "'", dbOpenDynaset)
TBCONTROL.Edit
TBCONTROL!diaBAJA = Text6.Text
TBCONTROL!mesBAJA = Text5.Text
TBCONTROL!AÑOBAJA = Text4.Text
TBCONTROL!MOTIVO = Text3.Text
TBCONTROL!ESTADO = "NOVIGENTE"
TBCONTROL.Update
hola quisiera saber como modificar y grabar datos en una base de datos de sql server muchas gracias
A!! es para visual basic 6
A!! es para visual basic 6
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
si me contestas te dire mas o menos como hacer la consulta con parametros y el codigo en visual basic
tengo una preguntaa como puedo hacer modificaciones en mi base de datos..
estee es mi codigo...
Dim precio As String, clave_A As String, marca As String
Dim datos_accesorios As Recordset
clave_A = txtclave_acce.Text
precio = txtprecio.Text
marca = txtmarca.Text
If clave_A = "" Then
MsgBox "Error:No introdujo en la clave del accesorio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf precio = "" Then
MsgBox "Error:No introdujo en el precio del accesorio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf marca = "" Then
MsgBox "Error:No introdujo en la marca del accesorio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf Not (IsNumeric(precio)) Then
MsgBox "Error:No puede introducir letras en el precio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf Not (IsNumeric(clave_A)) Then
MsgBox "Error:no se puede introducir letras en la clave ", vbCritical + vbOKOnly, "MENSAJE DE LA APLICACION"
Else
Set datos_accesorios = bddistribuidor.OpenRecordset("select * from Accesorios ")
If datos_accesorios.RecordCount = 1 Then
'agrega nuevo
datos_accesorios.AddNew
'enlasa a la tabla de accesorios
datos_accesorios!clave_Accesorio = clave_A
datos_accesorios!precio_accesorio = precio
datos_accesorios!marca = marca
---- > Aqui tengo que poner la base o la variablee que abri en mi recordset?
datos_accesorios.update
'cierra
datos_accesorios.Close
Else
MsgBox "Error: clave del accesorio repetida", vbCritical + vbOKOnly, "MENSAJE DE LA APLICACION"
End If
less agradeceriaaa mucho su ayudaaa :)
estee es mi codigo...
Dim precio As String, clave_A As String, marca As String
Dim datos_accesorios As Recordset
clave_A = txtclave_acce.Text
precio = txtprecio.Text
marca = txtmarca.Text
If clave_A = "" Then
MsgBox "Error:No introdujo en la clave del accesorio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf precio = "" Then
MsgBox "Error:No introdujo en el precio del accesorio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf marca = "" Then
MsgBox "Error:No introdujo en la marca del accesorio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf Not (IsNumeric(precio)) Then
MsgBox "Error:No puede introducir letras en el precio ", vbCritical + vbOKOnly, "mensaje de la aplicacion"
ElseIf Not (IsNumeric(clave_A)) Then
MsgBox "Error:no se puede introducir letras en la clave ", vbCritical + vbOKOnly, "MENSAJE DE LA APLICACION"
Else
Set datos_accesorios = bddistribuidor.OpenRecordset("select * from Accesorios ")
If datos_accesorios.RecordCount = 1 Then
'agrega nuevo
datos_accesorios.AddNew
'enlasa a la tabla de accesorios
datos_accesorios!clave_Accesorio = clave_A
datos_accesorios!precio_accesorio = precio
datos_accesorios!marca = marca
---- > Aqui tengo que poner la base o la variablee que abri en mi recordset?
datos_accesorios.update
'cierra
datos_accesorios.Close
Else
MsgBox "Error: clave del accesorio repetida", vbCritical + vbOKOnly, "MENSAJE DE LA APLICACION"
End If
less agradeceriaaa mucho su ayudaaa :)
Allcxz
Mensajes enviados
2
Fecha de inscripción
martes, 25 de mayo de 2010
Estatus
Miembro
Última intervención
sábado, 25 de septiembre de 2010
3
25 may 2010 a las 00:47
25 may 2010 a las 00:47
Hola!
Una de las soluciones podría ser ......
Podrias usar en vez de "select * from Accesorios", "select cajaDeTextoDelCampoQueNoQuieresQueSeRepita from Accesorios" y comparar con tu "if" si existe puedes poner lo siguiente:
Despues para actualizar puedes ocupar una parecida a esto:
"Update Accesorios Set Campo1=" & TuCampoDeTexto & ",Campo2=" &TuCampoDeTexto2 & ",Campo3=" & TuCampoDeTexto3 ........ etc";"
"Commi;"
Y si no existe:
Para Agregar uno nuevo
"Insert into Accesorios(Campo1,Campo2,Campo3,...)values(" & TuCampoDeTexto & "," & TuCampoDeTexto2 & "," & TuCampoDeTexto3 & ";"
Una de las soluciones podría ser ......
Podrias usar en vez de "select * from Accesorios", "select cajaDeTextoDelCampoQueNoQuieresQueSeRepita from Accesorios" y comparar con tu "if" si existe puedes poner lo siguiente:
Despues para actualizar puedes ocupar una parecida a esto:
"Update Accesorios Set Campo1=" & TuCampoDeTexto & ",Campo2=" &TuCampoDeTexto2 & ",Campo3=" & TuCampoDeTexto3 ........ etc";"
"Commi;"
Y si no existe:
Para Agregar uno nuevo
"Insert into Accesorios(Campo1,Campo2,Campo3,...)values(" & TuCampoDeTexto & "," & TuCampoDeTexto2 & "," & TuCampoDeTexto3 & ";"
el boton para eliminar un registro es:
Data1.Recordset.delete
el boton para nuevo registro es:
Data1.Recordset.AddNew
el boton para guardar un registro es:
Data1.Recordset.update
Data1.Recordset.delete
el boton para nuevo registro es:
Data1.Recordset.AddNew
el boton para guardar un registro es:
Data1.Recordset.update
hola tengo un problema para hacer un proyecto en visual basic 6.0 esto me lo dejaron en la escuela miren aqui les dejo el problema ha resolver espero una respuesta GRACIAS!!!
PROBLEMA: elaborar un proyecto que permita manejar los datos de un directorio como son: clave, nombre, direccion, telefono y que los pueda agregar, buscar y que tenga su salida estos se deben agragar y buscar en un archivo
PROBLEMA: elaborar un proyecto que permita manejar los datos de un directorio como son: clave, nombre, direccion, telefono y que los pueda agregar, buscar y que tenga su salida estos se deben agragar y buscar en un archivo
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.
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
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
Itan13
Mensajes enviados
2
Fecha de inscripción
domingo, 21 de abril de 2013
Estatus
Miembro
Última intervención
domingo, 21 de abril de 2013
21 abr 2013 a las 17:27
21 abr 2013 a las 17:27
Hola, uso ese metodo con ADO y acces 2003 la base. lo que me falta es programar el boton modificar. usando adodc1.recordset que instrucion iria?
muchas gracias, intentare con eso y si no, pues vuelvo aca al forum
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.
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.
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
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
Tienes que usar el UPDATE y el INSERT simplemente mandas parametros o armas tu cadena sql algo parecido a este.
imaginemonos que tenemos la tabla T1 con los siguientes campos
codigo int
nombre varchar(25)
dim cSQL as string
cSQL="Insert Into T1 values(" & Textbox1.text & ", ' " & Textbox2.text & " ' ")
y lo ejecutas , mira aqui t dejo una pagina que t puede ayudar trabja con ADO es una consulta pero tu ya lo cambias con el INSERT y UPDATE yo me guie d ese ejemplo y me ayudo , aqui t dejo la pagina
http://uyaychay.blogspot.com
imaginemonos que tenemos la tabla T1 con los siguientes campos
codigo int
nombre varchar(25)
dim cSQL as string
cSQL="Insert Into T1 values(" & Textbox1.text & ", ' " & Textbox2.text & " ' ")
y lo ejecutas , mira aqui t dejo una pagina que t puede ayudar trabja con ADO es una consulta pero tu ya lo cambias con el INSERT y UPDATE yo me guie d ese ejemplo y me ayudo , aqui t dejo la pagina
http://uyaychay.blogspot.com
busca en la web planetsourcecode .. en la sección de vb clásico hay ejempos de conexión a una bd remota. con el codigo fuente y los proyetos para descargar.
Jaime42
Mensajes enviados
1
Fecha de inscripción
lunes, 25 de agosto de 2014
Estatus
Miembro
Última intervención
lunes, 25 de agosto de 2014
25 ago 2014 a las 19:26
25 ago 2014 a las 19:26
Hola, tengo una base de datos en Access creada desde Visual Basic, el tema es que he perdido gran parte de los datos y no tengo un backup hecho, alguien sabe cómo puedo recuperarla. He visto en este blog https://comorepararaccess.tumblr.com/post/93212955642/por-qu%C3%A9-tienes-que-usar-microsoft-access#_=_ algo de información, pero necesitaría saber la opinión de alguien experto en Access o al menos con conocimientos avanzados... please!!!!
18 ago 2010 a las 16:51
Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=prueba.accdb"
Muchas gracias
14 sep 2010 a las 06:06
gracias.