Running sql statements as an array

[Broggy69]

Running sql statements as an array

I have over 250 queries I will be running

Below is a sample of three queries


Dim qryMain As OleDbCommand = New OleDbCommand

Dim qry_001_txt As String = "UPDATE [Input] SET [Input].MainDesc = 'Query 1';"
Dim qry_002_txt As String = "Update [Input] SET [Input].NewDesc = 'Query 2;"
Dim qry_003_txt As String = "UPDATE [Input] SET [Input].ProdDesc = 'Query 3;"

'Opens MS-Access
Conn_1.Open()
txt_Prog.AppendText("Access open For update queries" & vbCrLf)

Try

qryMain.CommandText = qry_001_txt
qryMain.ExecuteNonQuery()
txt_Prog.AppendText("Processed " & qry_001_txt & " Query" & vbCrLf)

qryMain.CommandText = qry_002_txt
qryMain.ExecuteNonQuery()
txt_Prog.AppendText("Processed " & qry_002_txt & " Query" & vbCrLf)

qryMain.CommandText = qry_003_txt
qryMain.ExecuteNonQuery()
txt_Prog.AppendText("Processed " & qry_003_txt & " Query" & vbCrLf)
Catch ex As Exception
txt_Prog.AppendText(ex.ToString)
End Try

Conn_1.Close()


I have tried:


Dim qryMain As OleDbCommand = New OleDbCommand

Dim Queries() As String = {"qry_001", "qry_002", "qry_003"}

For Each qry As String In Queries
qryMain.CommandText = qry & "_txt"
qryMain.ExecuteNonQuery()
Next
conn_1.close()



But get a error saying that is is expecting an update, select, etc... Statement

Continue reading...