I'm using Visual Web Developer 2010 Express with SQL Server 2008 Express, VB.
I have a program that reads several SQL tables and "copies" the data to Access. Upon completion it updates various TextBoxes with the number of SQL records transferred to Access for each table and provides a total count. No problem so far.
The problem is that the UpdateProgress seems to have some kind of "time limit" and if it expires no data is placed in the TextBoxes. Without UpdateProgress everything is fine, with UpdateProgress I get nothing.
14 tables are copied: Capacitors, Connectors, Crystals and Oscillators, Diodes, ICs, Inductors, Misc, Relays, Resistors, Switches, Transformers, Transistors, TMPPRTS, and CIS Manufacturer Parts. I have a line in the VB code to "bypass" everything in the VB code after the Inductors table completes and I get the expected results. If I remove the bypass I get nothing.
If there is some kind of time limit on UpgradeProgress can it be changed? If that is not the problem hopefully someone will let me know what I'm missing. This is all very confusing for a newbie.
aspx code:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Test4.aspx.vb" Inherits="Test4" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" ><head id="Head1" runat="server"><title></title><style type="text/css">
.UpdateProgressContent{
padding: 20px;
border: 1px dashed #C0C0C0;
background-color: #FFFFFF;
width: 274px;
text-align: center;
vertical-align: middle;
z-index: 1001;
top: 40%;
margin-left:100px;
position: absolute;
margin-right: 0px;
margin-top: 0px;
margin-bottom: 0px;
}
.UpdateProgressBackground
{
margin:0px;
padding:0px;
top:0px; bottom:0px; left:0px; right:0px;
position:absolute;
z-index:1000;
background-color:#cccccc;
}</style></head><body><form id="form1" runat="server"><div style="height: 6000px"><asp:ScriptManager ID="ScriptManager1" runat="server"></asp:ScriptManager><asp:UpdatePanel ID="UpdatePanel1" runat="server"><ContentTemplate><legend><asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="Generate Home Use Database" /><br /><br /><br /><asp:Label ID="Label1" runat="server" Text="Capacitors" Width="200px"></asp:Label> <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox><br /><asp:Label ID="Label2" runat="server" Text="Connectors" Width="200px"></asp:Label> <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox><br /><asp:Label ID="Label3" runat="server" Text="Crystals and Oscillators" Width="200px"></asp:Label> <asp:TextBox ID="TextBox3" runat="server"></asp:TextBox><br /><asp:Label ID="Label4" runat="server" Text="Diodes" Width="200px"></asp:Label> <asp:TextBox ID="TextBox4" runat="server"></asp:TextBox><br /><asp:Label ID="Label5" runat="server" Text="ICs" Width="200px"></asp:Label> <asp:TextBox ID="TextBox5" runat="server"></asp:TextBox><br /><asp:Label ID="Label6" runat="server" Text="Inductors" Width="200px"></asp:Label> <asp:TextBox ID="TextBox6" runat="server"></asp:TextBox><br /><asp:Label ID="Label7" runat="server" Text="Misc" Width="200px"></asp:Label> <asp:TextBox ID="TextBox7" runat="server"></asp:TextBox><br /><asp:Label ID="Label8" runat="server" Text="Relays" Width="200px"></asp:Label> <asp:TextBox ID="TextBox8" runat="server"></asp:TextBox><br /><asp:Label ID="Label9" runat="server" Text="Resistors" Width="200px"></asp:Label> <asp:TextBox ID="TextBox9" runat="server"></asp:TextBox><br /><asp:Label ID="Label10" runat="server" Text="Switches" Width="200px"></asp:Label> <asp:TextBox ID="TextBox10" runat="server"></asp:TextBox><br /><asp:Label ID="Label11" runat="server" Text="Transformers" Width="200px"></asp:Label> <asp:TextBox ID="TextBox11" runat="server"></asp:TextBox><br /><asp:Label ID="Label12" runat="server" Text="Transistors" Width="200px"></asp:Label> <asp:TextBox ID="TextBox12" runat="server"></asp:TextBox><br /><asp:Label ID="Label13" runat="server" Text="TMPPRTS" Width="200px"></asp:Label> <asp:TextBox ID="TextBox13" runat="server"></asp:TextBox><br /><asp:Label ID="Label14" runat="server" Text="CIS Manufacturer Parts" Width="200px"></asp:Label> <asp:TextBox ID="TextBox14" runat="server"></asp:TextBox><br /><br /><asp:Label ID="Label17" runat="server" Text="Total Records Transferred" Width="200px"></asp:Label> <asp:TextBox ID="TextBox15" runat="server"></asp:TextBox><br /><br /><br /><br /><br /><asp:UpdateProgress ID="UpdateProgress1" runat="server" DisplayAfter="0" AssociatedUpdatePanelID="UpdatePanel1"><ProgressTemplate><script type="text/javascript">
document.write("<div class='UpdateProgressBackground'></div>");</script><center><div class="UpdateProgressContent"
style="background-color: #FFFFFF; font-weight: bold; left: 572px; height: 29px;">
Transfer to MS-Access in process...<asp:Image id="CapWait" runat="server" ImageUrl="~/Images/progress.gif"/></div></center></ProgressTemplate></asp:UpdateProgress><br /><br /> </legend></ContentTemplate></asp:UpdatePanel><br /> </div></form></body></html>VB code:
Imports System.IO
Imports System.Data
Imports System.Drawing
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Text
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.Control
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.Label
Imports System.Web.UI.WebControls.TextBox
Imports System.Web.UI.HtmlTextWriter
Imports System.Web.UI.WebControls.FormView
Imports System.Web.UI.WebControls.LinkButton
Imports System.Web.UI.ScriptManager
Imports System.Web.UI.UpdatePanel
Imports System.Web.Mail
Imports System.Net.Mail.SmtpClient
Imports System.Data.OleDb
Imports System.Data.Odbc
Imports System.Web.Configuration
Partial Class Test4
Inherits System.Web.UI.Page
Public Shared idList As New ArrayList()
'Public Shared X As Integer
Protected Sub button1_Click(sender As Object, e As EventArgs)
' Introducing delay for demonstration.
Dim sqlConnection As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("conCString1").ConnectionString)
Dim ConnString As String = Utils.GetConnString()
Dim cmd As New SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = sqlConnection
Dim querystring As String = String.Empty
Dim X As Integer = 1
Dim Y As Integer = 0
Dim Z As Integer = 0
Dim R As Integer = 0
Dim L As Integer = 0
Dim AP As Integer = 0
Dim Tot As Integer = 0
Dim Tmp As String = String.Empty
Dim Prt1 As String = String.Empty
Dim Prt2 As String = String.Empty
Dim Prt3 As String = String.Empty
Dim Prt4 As String = String.Empty
Dim Prt5 As String = String.Empty
Dim Prt6 As String = String.Empty
Dim Prt7 As String = String.Empty
Dim Prt8 As String = String.Empty
Dim Prt9 As String = String.Empty
Dim Prt10 As String = String.Empty
Dim Prt11 As String = String.Empty
Dim Prt12 As String = String.Empty
Dim Prt13 As String = String.Empty
Dim Prt14 As String = String.Empty
Dim Prt15 As String = String.Empty
Dim Prt16 As String = String.Empty
Dim Prt17 As String = String.Empty
Dim Prt18 As String = String.Empty
Dim Prt19 As String = String.Empty
Dim Prt20 As String = String.Empty
Dim Prt21 As String = String.Empty
Dim Prt22 As String = String.Empty
Dim Prt23 As String = String.Empty
Dim Prt24 As String = String.Empty
Dim Prt25 As String = String.Empty
Dim Prt26 As String = String.Empty
Dim Prt27 As String = String.Empty
Dim Prt28 As String = String.Empty
Dim Prt29 As String = String.Empty
Dim Prt30 As String = String.Empty
Dim Prt31 As String = String.Empty
Dim Prt32 As String = String.Empty
Dim Prt33 As String = String.Empty
Dim Prt34 As String = String.Empty
Dim Prt35 As String = String.Empty
Dim Prt36 As String = String.Empty
Dim Prt37 As String = String.Empty
Dim Prt38 As String = String.Empty
Dim Prt39 As String = String.Empty
Dim Prt40 As String = String.Empty
Dim Prt41 As String = String.Empty
Dim Prt42 As String = String.Empty
Dim Prt43 As String = String.Empty
Dim Prt44 As String = String.Empty
Dim Prt45 As String = String.Empty
Dim Prt46 As String = String.Empty
Dim Prt47 As String = String.Empty
Dim Prt48 As String = String.Empty
Dim Prt49 As String = String.Empty
Dim Prt50 As String = String.Empty
Dim Prt51 As String = String.Empty
Dim Prt52 As String = String.Empty
Dim Prt53 As String = String.Empty
Dim Prt54 As String = String.Empty
Dim Prt55 As String = String.Empty
Dim Prt56 As String = String.Empty
Dim Prt57 As String = String.Empty
Dim Prt58 As String = String.Empty
Dim Prt59 As String = String.Empty
Dim Prt60 As String = String.Empty
Dim Prt61 As String = String.Empty
'First, delete any existing rows in the Access tables
querystring = "DELETE * FROM [Capacitors]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete capacitors
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Connectors]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete connectors
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Crystals and Oscillators]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete crystals and oscillators
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Diodes]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete diodes
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [ICs]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete ics
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Inductors]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete inductors
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Misc]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete misc
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Relays]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete relays
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Resistors]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete resistors
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Switches]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete switches
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Transformers]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete transformers
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [Transistors]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete transistors
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [TMPPRTS]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete tmpprts
End Using
conn.Close()
End Using
querystring = "DELETE * FROM [CIS Manufacturer Parts]"
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'delete cis manufacturer parts
End Using
conn.Close()
End Using
'Capacitors
querystring = "SELECT * FROM [Capacitors] ORDER BY [PART_NUMBER]" '38
sqlConnection.Open()
Dim command As New SqlCommand(querystring, sqlConnection)
Dim reader As SqlDataReader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
X = X + 38
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Capacitors] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Dielectric Type], [Equivalent Series Resistance], [Temperature Coefficient], [Tolerance], [Rated Voltage], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 37 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 37 Then querystring = querystring & ", "
If Y = 37 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Capacitors
End Using
conn.Close()
End Using
Next
TextBox1.Text = X - 1
Tot = X - 1
idList.Clear()
'Connectors
querystring = "SELECT * FROM [Connectors] ORDER BY [PART_NUMBER]" '43
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
Prt42 = reader(41).ToString
idList.Add(Prt42.ToString())
Prt43 = reader(42).ToString
idList.Add(Prt43.ToString())
X = X + 43
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Connectors] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Contact Current], [Contact Gender], [Contact Material], [Contact Plating], [Contact Voltage], [Housing Gender], [Housing Material], [Number of Contacts], [Number of Rows], [Pitch], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 42 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 42 Then querystring = querystring & ", "
If Y = 42 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Connectors
End Using
conn.Close()
End Using
Next
TextBox2.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Crystals and Oscillators
querystring = "SELECT * FROM [Crystals and Oscillators] ORDER BY [PART_NUMBER]" '42
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
Prt42 = reader(41).ToString
idList.Add(Prt42.ToString())
X = X + 42
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Crystals and Oscillators] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Cut and Osc Mode], [Duty Cycle], [Enable High/Low], [Frequency Stability], [Frequency Tolerance], [Load Capacitance], [Load Resistance], [Number of Outputs], [Shunt Capacitance], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 41 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 41 Then querystring = querystring & ", "
If Y = 41 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Crystals and Oscillators
End Using
conn.Close()
End Using
Next
TextBox3.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Diodes
'If L = 1 Then
querystring = "SELECT * FROM [Diodes] ORDER BY [PART_NUMBER]" '41
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
X = X + 41
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Diodes] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Rated Voltage], [LED Color], [Peak Forward Current], [Rated Current], [Rated Power], [Repetitive Reverse Voltage Maximum], [Reverse Recovery Time], [Voltage Root Mean Square], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 40 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 40 Then querystring = querystring & ", "
If Y = 40 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Diodes
End Using
conn.Close()
End Using
Next
TextBox4.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'ICs
'If L = 1 Then
querystring = "SELECT * FROM [ICs] ORDER BY [PART_NUMBER]" '61
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
Prt42 = reader(41).ToString
idList.Add(Prt42.ToString())
Prt43 = reader(42).ToString
idList.Add(Prt43.ToString())
Prt44 = reader(43).ToString
idList.Add(Prt44.ToString())
Prt45 = reader(44).ToString
idList.Add(Prt45.ToString())
Prt46 = reader(45).ToString
idList.Add(Prt46.ToString())
Prt47 = reader(46).ToString
idList.Add(Prt47.ToString())
Prt48 = reader(47).ToString
idList.Add(Prt48.ToString())
Prt49 = reader(48).ToString
idList.Add(Prt49.ToString())
Prt50 = reader(49).ToString
idList.Add(Prt50.ToString())
Prt51 = reader(50).ToString
idList.Add(Prt51.ToString())
Prt52 = reader(51).ToString
idList.Add(Prt52.ToString())
Prt53 = reader(52).ToString
idList.Add(Prt53.ToString())
Prt54 = reader(53).ToString
idList.Add(Prt54.ToString())
Prt55 = reader(54).ToString
idList.Add(Prt55.ToString())
Prt56 = reader(55).ToString
idList.Add(Prt56.ToString())
Prt57 = reader(56).ToString
idList.Add(Prt57.ToString())
Prt58 = reader(57).ToString
idList.Add(Prt58.ToString())
Prt59 = reader(58).ToString
idList.Add(Prt59.ToString())
Prt60 = reader(59).ToString
idList.Add(Prt60.ToString())
Prt61 = reader(60).ToString
idList.Add(Prt61.ToString())
X = X + 61
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [ICs] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Rated Power], [Propagation Delay], [Supply Current], [Number of Channels], [Function], [Supply Voltage], [Signal to Noise Ratio], [Output Voltage], [Number of Gates], [Output Low Current], [Voltage Input High], [Number of I/O], [Access Time], [Data Retention in Years], [Data Retention Voltage], [Memory Depth], [Memory Page Size], [Memory Width], [Clock Frequency Maximum], [I/O Voltage], [Common Mode Rejection Ratio], [Gain BW Product], [Input Bias Current], [Input Offset Voltage], [Erase Cycles], [Programming Cycles], [Drop Out Voltage], [Rated Output Current], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 60 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 60 Then querystring = querystring & ", "
If Y = 60 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'ICs
End Using
conn.Close()
End Using
Next
TextBox5.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Inductors
'If L = 1 Then
querystring = "SELECT * FROM [Inductors] ORDER BY [PART_NUMBER]" '40
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
X = X + 40
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Inductors] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Tolerance], [Rated Current], [Rated Power], [DC Resistance], [Q Factor], [Self Resonating Frequency], [Test Frequency], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 39 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 39 Then querystring = querystring & ", "
If Y = 39 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Inductors
End Using
conn.Close()
End Using
Next
TextBox6.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Misc
If L = 1 Then
querystring = "SELECT * FROM [Misc] ORDER BY [PART_NUMBER]" '36
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
X = X + 36
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Misc] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Rated Voltage], [Rated Current], [Rated Power], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 35 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 35 Then querystring = querystring & ", "
If Y = 35 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Misc
End Using
conn.Close()
End Using
Next
TextBox7.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Relays
'If L = 1 Then
querystring = "SELECT * FROM [Relays] ORDER BY [PART_NUMBER]" '45
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
Prt42 = reader(41).ToString
idList.Add(Prt42.ToString())
Prt43 = reader(42).ToString
idList.Add(Prt43.ToString())
Prt44 = reader(43).ToString
idList.Add(Prt44.ToString())
Prt45 = reader(44).ToString
idList.Add(Prt45.ToString())
X = X + 45
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Relays] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Contact Current], [Contact Material], [Contact Plating], [Contact Voltage], [Rated Current], [Coil Resistance], [Coil Voltage Maximum], [Coil Voltage Minimum], [Hold Current], [Hold Voltage], [Number of Poles], [Rated Coil Current], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 44 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 44 Then querystring = querystring & ", "
If Y = 44 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Relays
End Using
conn.Close()
End Using
Next
TextBox8.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Resistors
'If L = 1 Then
querystring = "SELECT * FROM [Resistors] ORDER BY [PART_NUMBER]" '40
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
X = X + 40
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Resistors] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Temperature Coefficient], [Tolerance], [Rated Voltage], [Rated Power], [Material], [Number of Elements], [Rated Power Per Element], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 39 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 39 Then querystring = querystring & ", "
If Y = 39 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Resistors
End Using
conn.Close()
End Using
Next
TextBox9.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Switches
'If L = 1 Then
querystring = "SELECT * FROM [Switches] ORDER BY [PART_NUMBER]" '43
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
Prt42 = reader(41).ToString
idList.Add(Prt42.ToString())
Prt43 = reader(42).ToString
idList.Add(Prt43.ToString())
X = X + 43
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Switches] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Rated Voltage], [Contact Current], [Contact Voltage], [Rated Current], [Rated Power], [Number of Poles], [Number of Elements], [Default Setting], [Switch Configuration], [Switch Type], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 42 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 42 Then querystring = querystring & ", "
If Y = 42 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Connectors
End Using
conn.Close()
End Using
Next
TextBox10.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Transformers
querystring = "SELECT * FROM [Transformers] ORDER BY [PART_NUMBER]" '44
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
Prt42 = reader(41).ToString
idList.Add(Prt42.ToString())
Prt43 = reader(42).ToString
idList.Add(Prt43.ToString())
Prt44 = reader(43).ToString
idList.Add(Prt44.ToString())
X = X + 44
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Transformers] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Tolerance], [Rated Voltage], [Rated Current], [Rated Power], [Output Voltage], [Common Mode Rejection Ratio], [Frequency], [Input Voltage], [Primary Voltage], [Secondary Voltage], [Turns Ratio], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 43 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 43 Then querystring = querystring & ", "
If Y = 43 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Transformers
End Using
conn.Close()
End Using
Next
TextBox11.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Transistors
querystring = "SELECT * FROM [Transistors] ORDER BY [PART_NUMBER]" '46
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
Prt15 = reader(14).ToString
idList.Add(Prt15.ToString())
Prt16 = reader(15).ToString
idList.Add(Prt16.ToString())
Prt17 = reader(16).ToString
idList.Add(Prt17.ToString())
Prt18 = reader(17).ToString
idList.Add(Prt18.ToString())
Prt19 = reader(18).ToString
idList.Add(Prt19.ToString())
Prt20 = reader(19).ToString
idList.Add(Prt20.ToString())
Prt21 = reader(20).ToString
idList.Add(Prt21.ToString())
Prt22 = reader(21).ToString
idList.Add(Prt22.ToString())
Prt23 = reader(22).ToString
idList.Add(Prt23.ToString())
Prt24 = reader(23).ToString
idList.Add(Prt24.ToString())
Prt25 = reader(24).ToString
idList.Add(Prt25.ToString())
Prt26 = reader(25).ToString
idList.Add(Prt26.ToString())
Prt27 = reader(26).ToString
idList.Add(Prt27.ToString())
Prt28 = reader(27).ToString
idList.Add(Prt28.ToString())
Prt29 = reader(28).ToString
idList.Add(Prt29.ToString())
Prt30 = reader(29).ToString
idList.Add(Prt30.ToString())
Prt31 = reader(30).ToString
idList.Add(Prt31.ToString())
Prt32 = reader(31).ToString
idList.Add(Prt32.ToString())
Prt33 = reader(32).ToString
idList.Add(Prt33.ToString())
Prt34 = reader(33).ToString
idList.Add(Prt34.ToString())
Prt35 = reader(34).ToString
idList.Add(Prt35.ToString())
Prt36 = reader(35).ToString
idList.Add(Prt36.ToString())
Prt37 = reader(36).ToString
idList.Add(Prt37.ToString())
Prt38 = reader(37).ToString
idList.Add(Prt38.ToString())
Prt39 = reader(38).ToString
idList.Add(Prt39.ToString())
Prt40 = reader(39).ToString
idList.Add(Prt40.ToString())
Prt41 = reader(40).ToString
idList.Add(Prt41.ToString())
Prt42 = reader(41).ToString
idList.Add(Prt42.ToString())
Prt43 = reader(42).ToString
idList.Add(Prt43.ToString())
Prt44 = reader(43).ToString
idList.Add(Prt44.ToString())
Prt45 = reader(44).ToString
idList.Add(Prt45.ToString())
Prt46 = reader(45).ToString
idList.Add(Prt46.ToString())
X = X + 46
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [Transistors] ([PART_NUMBER], [Part Type], [Description], [Value], [PCB Footprint], [Schematic Part], [Number of Pins], [Operating Temperature Maximum], [Operating Temperature Minimum], [Package Size], [Package Height], [Package Type], [Company Part Status], [Rated Voltage], [Rated Current], [Rated Power], [Collector Current Maximum], [Collector-Emitter Voltage], [Drain Gate Voltage], [Drain Saturation Current], [Drain Source On Resistance], [Drain Source Saturation Voltage], [Gate Source Voltage], [Junction Temperature], [Polarity], [Small Signal Current Gain], [Implementation], [Implementation Type], [PSpiceTemplate], [Device Type], [UserField01], [UserField02], [UserField03], [UserField04], [UserField05], [UserField06], [UserField07], [UserField08], [UserField09], [UserField10], [TMP Manufacturer], [TMP Manufacturer PN], [Activeparts ID], [CLASS], [LP Viewer], [RowID]) VALUES("
For Y = 0 To 45 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 45 Then querystring = querystring & ", "
If Y = 45 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'Transistors
End Using
conn.Close()
End Using
Next
TextBox12.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'TMPPRTS
querystring = "SELECT * FROM [TMPPRTS] ORDER BY [TMPPRTNO]" '4
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
X = X + 4
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [TMPPRTS] ([TMPPRTNO], [RELPRTNO], [USERNAME], [CREATETIME]) VALUES("
For Y = 0 To 3 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 3 Then querystring = querystring & ", "
If Y = 3 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'TMPPRTS
End Using
conn.Close()
End Using
Next
TextBox13.Text = X - 1
Tot = X - 1
idList.Clear()
'CIS Manufacturer Parts
querystring = "SELECT * FROM [CIS Manufacturer Parts] ORDER BY [PART_NUMBER]" '14
R = 0
sqlConnection.Open()
command = New SqlCommand(querystring, sqlConnection)
reader = command.ExecuteReader()
While reader.Read()
Prt1 = reader(0).ToString 'AuditID
idList.Add(Prt1.ToString())
Prt2 = reader(1).ToString 'PART_NUMBER
idList.Add(Prt2.ToString())
Prt3 = reader(2).ToString 'Manufacturer
'
'Search for ' in Manufacturer field and add second ' if present
'
AP = InStr(Prt3, "'")
If AP <> 0 Then
L = Len(Prt3)
Tmp = Left(Prt3, AP - 1)
Tmp = Tmp & "''"
Tmp = Tmp & Right(Prt3, L - AP)
Prt3 = Tmp
End If
idList.Add(Prt3.ToString())
Prt4 = reader(3).ToString
idList.Add(Prt4.ToString())
Prt5 = reader(4).ToString
idList.Add(Prt5.ToString())
Prt6 = reader(5).ToString
idList.Add(Prt6.ToString())
Prt7 = reader(6).ToString
idList.Add(Prt7.ToString())
Prt8 = reader(7).ToString
idList.Add(Prt8.ToString())
Prt9 = reader(8).ToString
idList.Add(Prt9.ToString())
Prt10 = reader(9).ToString
idList.Add(Prt10.ToString())
Prt11 = reader(10).ToString
idList.Add(Prt11.ToString())
Prt12 = reader(11).ToString
idList.Add(Prt12.ToString())
Prt13 = reader(12).ToString
idList.Add(Prt13.ToString())
Prt14 = reader(13).ToString
idList.Add(Prt14.ToString())
X = X + 14
R = R + 1
End While
sqlConnection.Close()
Z = 0
For X = 1 To R Step 1
querystring = "INSERT INTO [CIS Manufacturer Parts] ([AuditID], [PART_NUMBER], [Manufacturer], [Manufacturer PN], [Manufacturer PN Status], [Datasheet], [RoHS Compliant], [Digikey PN], [Newark PN], [Premier Farnell PN], [Future PN], [Mouser PN], [Arrow PN], [MSL Classification]) VALUES("
For Y = 0 To 13 Step 1
querystring = querystring & "'" & idList(Z) & "'"
If Y <> 13 Then querystring = querystring & ", "
If Y = 13 Then querystring = querystring & ")"
Z = Z + 1
Next
Using conn As New OleDbConnection(ConnString)
Using cmd1 As New OleDbCommand(querystring, conn)
cmd1.CommandType = CommandType.Text
conn.Open()
cmd1.ExecuteNonQuery() 'CIS Manufacturer Parts
End Using
conn.Close()
End Using
Next
TextBox14.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
End If
TextBox15.Text = Tot
'X = 27
'System.Threading.Thread.Sleep(3000)
'TextBox1.Text = X
End Sub
End Class
Public NotInheritable Class Utils
' sealed to ensure the utility class won't be inherited
Private Sub New()
End Sub
' Ensure you cannot instantiate an object of this type
'Add static methods which means you can reference them
'anywhere in the project simply by using Utils.
'This one keeps the name of the connection string in just 2 places -
'once in the Web.Config, and once in the Utils class.
Public Shared Function GetConnString() As String
Return WebConfigurationManager.ConnectionStrings("CRAP_HOME_USE_ACCESS").ConnectionString
End Function
End Class
Many thanks!