Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.Oledb
Imports System


 Dim objConn As OleDbConnection
 Dim qualeProvider As String = System.Configuration.ConfigurationManager.AppSettings("dbprovider")


 Public Sub insertDati(ByVal qualeTab As String, ByVal qualePk As String, ByVal valore1 As String, ByVal valore2 As String, ByVal valore3 As String, ByVal percdb As String) As Integer


       'apri la connessione con i dati relativi al database
        objConn = New OleDbConnection _
                            (qualeProvider & percdb)

        objConn.Open()


        'inserimento dati nel db con l'utilizzo di parametri
        
                Dim command As New OleDbCommand("Insert Into " & qualeTab & " ( PK_" & qualeTab & ", DESCRIZIONE,ORDINE, IMG) values(@pk,@descrizione,@ordine,@img)", objConn)

                objConn.CreateCommand()
		'creo i parametri da inserire nella query
                command.Parameters.Add("@pk", OleDbType.Integer).Value = qualePk 
                command.Parameters.Add("@descrizione", OleDbType.VarChar, 255).Value = valore1
                command.Parameters.Add("@ordine", OleDbType.VarChar, 255).Value = valore2
                command.Parameters.Add("@img", OleDbType.VarChar, 255).Value = valore3
                command.CreateParameter()
                
	'eseguo la query di insert
	command.ExecuteNonQuery()
                
	  'rilascio le risorse
	  command.Dispose()
        objConn.Close()
        objConn.Dispose()
 

    End Sub