troubleshooting Question

Append Records from one sql table to another

Avatar of tmaususer
tmaususerFlag for United States of America asked on
.NET Programming
3 Comments1 Solution265 ViewsLast Modified:
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

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 3 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros