I'm using Visual Web Developer 2010 Express and SQL Server 2008 Express, VB.
I have the program below and it works fine except I would like to add some sort of progress indication. My first attempt was to include a textbox for each table and as the SQL insert progressed, display the row number count to the textbox. That did not work; it would only display after all commands for the table were inserted.
Next, I tried, again with a textbox, just updating the textbox after each table completed. That apparently doesn't work either as the textboxes update only after all tables are complete.
The program works by first deleting any entries in an Access database copy of the SQL database. Next, table by table the SQL database is read into an arraylist and then output as a structured SQL insert command and executed.
Does anybody have any ideas/suggestions on how to get some kind of progress displayed to the page? Otherwise the user just sits there waiting not knowing if anything is happening or if the program froze.
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
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 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" this repeats for 14 tables
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())"
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
'TextBox1.Text = X
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())"
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
'TextBox2.Text = X
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())"
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
'TextBox3.Text = X
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())"
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
'TextBox4.Text = X
Next
TextBox4.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'ICs
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())"
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
'TextBox5.Text = X
Next
TextBox5.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Inductors
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())"
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
'TextBox6.Text = X
Next
TextBox6.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Misc
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())"
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
'TextBox7.Text = X
Next
TextBox7.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Relays
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())"
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
'TextBox8.Text = X
Next
TextBox8.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Resistors
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())"
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
'TextBox9.Text = X
Next
TextBox9.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
'Switches
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())"
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
'TextBox10.Text = X
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())"
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
'TextBox11.Text = X
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())"
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
'TextBox12.Text = X
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())"
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
'TextBox13.Text = X
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())"
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
'TextBox14.Text = X
Next
TextBox14.Text = X - 1
Tot = Tot + (X - 1)
idList.Clear()
TextBox15.Text = Tot
End If
End SubThanks!