Connesso

Imports System.Data.OleDb


Module Module1

Sub Main()

Try
'dichiaro e creo connessione

Dim cnNegozio As OleDbConnection
cnNegozio = New OleDbConnection()

cnNegozio.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PROVA\ArchivioOrsetto.mdb;"
'"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ArchivioOrsetto.mdb;"


'apro connessione

cnNegozio.Open()

Console.WriteLine("Connessione aperta")

Dim comandoOledb As New OleDbCommand()
'assegno la connessione al comando

comandoOledb.Connection = cnNegozio

'1) ricerca

'comandoOledb.CommandText = "select * from Employees"



'DML

'************************************************

'2) create (inserimento)

'comandoOledb.CommandText = "INSERT INTO utenti " & _

'"VALUES (1,'Peppino','Di Capri')"


'3) update

'comandoOledb.CommandText = "UPDATE utenti " & _

'"SET nome = 'Gioacchino' WHERE nome = 'Peppino' "


'4) delete

comandoOledb.CommandText = "DELETE FROM CLIENTI " & _
"WHERE id =1"
'**************************************************




'QUERY

'*************************************************

'Dim risultato As OledbDataReader = comandoOledb.ExecuteReader()


'PARAMETRIZZAZIONE COLONNA DA VISUALIZZARE

'Console.WriteLine("Inserire la posizione del campo da leggere")

'Dim st As String = Console.ReadLine()

'Dim pos As Integer = CInt(st)



'While (risultato.Read())

' 'Dim temp As Object = risultato.GetData(pos)

' 'Dim line As String = CType(temp, String)

' Console.WriteLine(risultato.GetString(2))

' Console.WriteLine()

'End While


'***********************************************************


'DML ESECUZIONE

'****************************************************

Dim modificate As Integer = comandoOledb.ExecuteNonQuery()
Console.WriteLine(modificate)



cnNegozio.Close()

Catch e As Exception
Console.WriteLine(e.Message)
End Try

Console.ReadLine()

End Sub

End Module