Modificar una base de datos access desde vb Resuelto/Cerrado

Question

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

Julio Vasquez · Accepted Answer

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

Allcxz · Answer

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

shizaraht · Answer

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??

Allcxz · Answer

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.

shizaraht · Answer

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

sergiño · Answer

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

rober1993 · Answer

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

carlos · Answer

hola quisiera saber como modificar y grabar datos en una base de datos de sql server muchas gracias 

A!! es para visual basic 6

midvb · Answer

para sql o access?

marc27 · Answer

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

trunca · Answer

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("
");
            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("
");
            }
            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("
");
                }

            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("
");
            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("
");
            }
            else
                if (Case == 2)
                {
                    b = 117 * DOLAR;
                    System.Console.WriteLine("-----EL COSTO DEL CASE EN SOLES ES:-----");
                    System.Console.WriteLine(b);
                    System.Console.WriteLine("
");
                }
            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("
");
            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("
");
            }
            else
                if (Mainboard == 2)
                {
                    c = 103;
                    System.Console.WriteLine("-----EL COSTO DE LA MAINBOARD EN SOLES ES:-----");
                    System.Console.WriteLine(c);
                    System.Console.WriteLine("
");
                }
                else
                    if (Mainboard == 3)
                    {
                        c = 98;
                        System.Console.WriteLine("-----EL COSTO DE LA MAINBOARD EN SOLES ES:-----");
                        System.Console.WriteLine(c);
                        System.Console.WriteLine("
");
                    }
                    else
                        if (Mainboard == 4)
                        {
                            c = 317;
                            System.Console.WriteLine("-----EL COSTO DE LA MAINBOARD EN SOLES ES:-----");
                            System.Console.WriteLine(c);
                            System.Console.WriteLine("
");
                        }
            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("
");
            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("
");
            }
            else
                if (Procesador == 2)
                {
                    d = 125;
                    System.Console.WriteLine("-----EL COSTO DEL PROCESADOR EN SOLES ES:-----");
                    System.Console.WriteLine(d);
                    System.Console.WriteLine("
");
                }
                else
                    if (Procesador == 3)
                    {
                        d = 180;
                        System.Console.WriteLine("-----EL COSTO DEL PROCESADOR EN SOLES ES:-----");
                        System.Console.WriteLine(d);
                        System.Console.WriteLine("
");
                    }
                    else
                        if (Procesador == 4)
                        {
                            d = 185;
                            System.Console.WriteLine("-----EL COSTO DEL PROCESADOREN SOLES ES:-----");
                            System.Console.WriteLine(d);
                            System.Console.WriteLine("
");
                        }


            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("
");
            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("
");
            }
            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("
");
                }
                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("
");
                    }


            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("
");
            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("
");
            }
            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("
");
                }
                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("
");
                    }

            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("
");
            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("
");
            }
            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("
");
                }
                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("
");
                    }

            System.Console.WriteLine("-----ESCOGE TIPO DE LECTORA-----");
            Console.WriteLine("..1.LECTOR Y GRABADOR(S/.95)..");
            Console.WriteLine("..2.LECTOR(S/.60)..");
            System.Console.WriteLine("
");
            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("
");
            }
            else
                if (Lectora == 2)
                {
                    h = 60;
                    System.Console.WriteLine("-----EL COSTO DE LA LECTORA EN SOLES ES:-----");
                    System.Console.WriteLine(h);
                    System.Console.WriteLine("
");
                }
            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("
");
            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("
");
            }
            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("
");
                }
                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("
");
                    }
            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("
");
            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("
");
            }
            else
                if (Teclado == 2)
                {
                    j = 48;
                    System.Console.WriteLine("-----EL COSTO DEL TECLADO EN SOLES ES:-----");
                    System.Console.WriteLine(j);
                    System.Console.WriteLine("
");
                }
            System.Console.WriteLine("-----ESCOGE TIPO DE MOUSE-----");
            Console.WriteLine("..1.MOUSE OPTICO(S/.15)..");
            Console.WriteLine("..2.MOUSE SIMPLE(S/.7)..");
            System.Console.WriteLine("
");
            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("
");
            }
            else
                if (Mouse == 2)
                {
                    k = 7;
                    System.Console.WriteLine("-----EL COSTO DEL MOUSE EN SOLES ES:-----");
                    System.Console.WriteLine(k);
                    System.Console.WriteLine("
");
                }
            
            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 ...

Hemasachi · Answer

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

crazyzero · Answer

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

ElDaNyBoY · Answer

es facil
usa base1.recordset.edit
modificas lo que quieres
y utilizas
base1.recordset.update

y listo
toma en cuenta lo siguiente en que version esta la base de datos, te recomiendo en formato antiguo
y y que manipulador de base de datos estas usando. 
cualquier duda o aclaracion contacta entra a www.google.com.mx

mmmm · Answer

arriba ya te puse todos los codigos de mis cuates 
yo se los enseñe

karolina · Answer

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 :)

camal^2 · Answer

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

amilcar caamal caamal · Answer

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

kosita · Answer

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

Charles · Answer

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

Allcxz · Answer

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))

hern · Answer

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 · Answer

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!!!!

Modificar una base de datos access desde vb

24 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!