We help IT Professionals succeed at work.
Get Started

Append Records from one sql table to another

tmaususer asked
Last Modified: 2012-08-14
I am new to programming. I have created a form (with help) that loads data from a table I created called yan_con_label. (sql 2000 db) I have a second "empty" table called Archive that is identical to my yan_con_label. All I need to do is create a button that when pressed will append all records from my yan_con_label to my archive table. I do not know how to do this. My code that loads records initally into my grid is as follows:

Imports System.Data.SqlClient
Imports System.Configuration
Imports System
Imports System.IO
Imports System.Net.Mime.MediaTypeNames

Public Class Form1

    Public Global_sqlProdCN As New SqlConnection("Data Source=SERVER04N;Initial Catalog=yamahalabeldb;Integrated Security=True")
    Public Global_ERPsettings As ConnectionStringSettings
    Public Global_strERPCN As String
    Public Global_sqlERPCN As New SqlConnection
    Public Global_dr As SqlDataReader
    Public Global_sqlcmd As New SqlCommand
    Public Global_strsql As String
    Public Global_strProdCN2 As String
    Public Global_sqlProdCN2 As New SqlConnection

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim irowcnt As Integer = -1

        Global_strsql += " SELECT Part_no, Deliverylocation, po_no, supplier_id, labelcode, qty, duedate, stocklocation, sirlocation "
        Global_strsql += " FROM yam_con_label "
        Global_strsql += " Order by part_no "
        Global_sqlcmd = New SqlCommand(Global_strsql, Global_sqlProdCN)
        Global_dr = Global_sqlcmd.ExecuteReader()
        If Global_dr.HasRows Then
            While Global_dr.Read
                irowcnt += 1
                Dim srow() As String = {Global_dr.Item("Part_no"), Global_dr.Item("Deliverylocation"), Global_dr.Item("po_no"), _
                                        Global_dr.Item("supplier_id"), Global_dr.Item("labelcode"), Global_dr.Item("qty"), _
                                        Global_dr.Item("duedate"), Global_dr.Item("stocklocation"), Global_dr.Item("sirlocation")}
            End While
        End If
    End Sub
Watch Question
This problem has been solved!
Unlock 1 Answer and 3 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE