Imports System.Data.OleDbPublic Class Form1 'esto es para que te guies ;DDim pasaratabla2 As StringDim pasaratabla1 As StringDim eliminarregistro1 As StringDim eliminarregistro2 As String
Module Module1Public Conexion As ADODB.ConnectionPublic Sub Conectar()Conexion = New ADODB.ConnectionConexion.ConnectionString = "provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\base\ejemplo.accdb"Conexion.Open()End SubEnd Module
Dim MyConnectionString As String = "provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\base\ejemplo.accdb"Dim ds As New DataSet()Dim da As New OleDbDataAdapter("SELECT * FROM datos1", MyConnectionString)Tryda.Fill(ds, "dt")Catch ex As ExceptionMessageBox.Show("Operation failed: " & ex.ToString(), Application.ProductName & " - Error", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd Trytabla1.ColumnHeadersDefaultCellStyle.Font = New Font("Tahoma", 9, FontStyle.Bold, GraphicsUnit.Point)tabla1.ColumnHeadersDefaultCellStyle.BackColor = SystemColors.ControlDarktabla1.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Singletabla1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCentertabla1.DefaultCellStyle.Font = New Font("Tahoma", 8, FontStyle.Regular, GraphicsUnit.Point)tabla1.DefaultCellStyle.BackColor = Color.Emptytabla1.AlternatingRowsDefaultCellStyle.BackColor = SystemColors.ControlLighttabla1.CellBorderStyle = DataGridViewCellBorderStyle.Singletabla1.GridColor = SystemColors.ControlDarkDarktabla1.DataSource = dstabla1.DataMember = "dt"tabla1.Columns(tabla1.Columns.Count - 1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRighttabla1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)tabla1.Refresh()
Dim MyConnectionString As String = "provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\base\ejemplo.accdb"Dim ds As New DataSet()Dim da As New OleDbDataAdapter("SELECT * FROM datos2", MyConnectionString)Tryda.Fill(ds, "dt")Catch ex As ExceptionMessageBox.Show("Operation failed: " & ex.ToString(), Application.ProductName & " - Error", MessageBoxButtons.OK, MessageBoxIcon.Error)ReturnEnd Trytabla2.ColumnHeadersDefaultCellStyle.Font = New Font("Tahoma", 9, FontStyle.Bold, GraphicsUnit.Point)tabla2.ColumnHeadersDefaultCellStyle.BackColor = SystemColors.ControlDarktabla2.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Singletabla2.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCentertabla2.DefaultCellStyle.Font = New Font("Tahoma", 8, FontStyle.Regular, GraphicsUnit.Point)tabla2.DefaultCellStyle.BackColor = Color.Emptytabla2.AlternatingRowsDefaultCellStyle.BackColor = SystemColors.ControlLighttabla2.CellBorderStyle = DataGridViewCellBorderStyle.Singletabla2.GridColor = SystemColors.ControlDarkDarktabla2.DataSource = dstabla2.DataMember = "dt"tabla2.Columns(tabla2.Columns.Count - 1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRighttabla2.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)tabla2.Refresh()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadConectar()cargar1.Start()cargar2.Start()End Sub
If (id1.Text = "") Then 'Validamos que no quede vacio..MsgBox("Debes Digitar Una Identificacion", MsgBoxStyle.Information)End IfIf (id1.Text <> "") Then 'validamos lo que pasara cuando no este vacio :Ppasaratabla2 = " INSERT INTO datos2 SELECT datos1.* FROM datos1 WHERE id='" & id1.Text & "'" 'Este es el SQL clave para pasar los datosConexion.Execute(pasaratabla2)eliminarregistro1 = "DELETE FROM datos1 WHERE id='" & id1.Text & "' " 'Eliminamos el Registro que acabamos de pasar..Conexion.Execute(eliminarregistro1)MsgBox("Los Datos Fueron Pasados Correctamente", MsgBoxStyle.Information)End If
If (id2.Text = "") ThenMsgBox("Debes Digitar Una Identificacion", MsgBoxStyle.Information)End IfIf (id2.Text <> "") Thenpasaratabla1 = " INSERT INTO datos1 SELECT datos2.* FROM datos2 WHERE id='" & id2.Text & "'"Conexion.Execute(pasaratabla1)eliminarregistro2 = "DELETE FROM datos2 WHERE id='" & id2.Text & "' "Conexion.Execute(eliminarregistro2)MsgBox("Los Datos Fueron Pasados Correctamente", MsgBoxStyle.Information)End If