[VB.NET] Utilizzare oggetti OLE per INSERT in DB Access

[ladyBlu]

Ciao ragazzi

Vorrei utilizzare gli oggetti OleDb per eseguire una insert all'interno di un db Access, così come ho fatto per leggere i dati dai db di sql server.
Partendo dal codice che utilizzo per i db di sql server ho scritto queste righe:

Dim connA As New OleDbConnection(_
    "DATA SOURCE=" & strPathDBRead & ";Persist Security Info=False")
Dim cmdA As New OleDbCommand("", connA)
cmdA.CommandType = CommandType.Text
Dim daA As New OleDbDataAdapter(cmdA)
Dim dtA As New DataTable

Dim strIns As String = "INSERT INTO tbTabelle(NomeTabella) " _
                      & "VALUES('[pippo]')"

'come vado avanti?

strPathDBRead è il percorso del db access di destinazione.


Il problema ora è che non ho la più pallida idea di come andare avanti nè se sia giusto ciò che ho scritto.


Mi date una mano?

Grazie a tutti

lady

[stekimir]

Dim connA As New OleDbConnection(_
    "DATA SOURCE=" & strPathDBRead & ";Persist Security Info=False")
Dim cmdA As New OleDbCommand("", connA)
cmdA.CommandType = CommandType.Text
Dim daA As New OleDbDataAdapter(cmdA)
Dim dtA As New DataTable

Dim strIns As String = "INSERT INTO tbTabelle(NomeTabella) " _
                      & "VALUES('[pippo]')"

'come vado avanti?

domandina.....CommandType.Text cosa contiene?

[ladyBlu]

Originariamente inviato da stekimir
domandina.....CommandType.Text cosa contiene?

cmdA.CommandType = CommandType.Text

serve per dire al Command che il tipo di comando da eseguire; può essere di 3 tipi CommandType. :
- StoredProcedure
- TableDirect
- Text


ma xchè me lo hai chiesto?

[stekimir]

se fai così non va?

Dim connA As New OleDbConnection(_
    "DATA SOURCE=" & strPathDBRead & ";Persist Security Info=False")

Dim cmdA As New OleDbCommand("", connA)
cmdA.CommandText="INSERT INTO tbTabelle(NomeTabella) " _
                      & "VALUES('[pippo]')"

cmdA.CommandType = CommandType.Text

connA.Open()
cmdA.ExecuteNonQuery()
connA.Close()

[ladyBlu]

steki ho provato.
Non genera errori ma non scrive nulla nel db.


una precisazione:
nella stringa di connessione ho omesso il provider da utilizzare quindi prima di "DATA SOURCE..." ho aggiunto "Provider=Microsoft.Jet.OLEDB.4.0;"
qualora qualcuno provasse il codice altrimenti non funzionerebbe

[ladyBlu]

Ho risolto. Non mi ero accorta che c'era una variabile boolean da impostare a True per effettuare l'inserimento nel db


Comunque, per chi necessitasse del codice... questo è il risultato:

'Dichiarazioni
Dim conn As New OleDbConnection _
    ("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & strPathDB & ";" _
   & "Persist Security Info=False")

connA.Open()
Dim strIns As String = ""

'Per eseguire l'insert
strIns = "INSERT INTO tbTabelle(NomeTabella) " _
       & "VALUES('pippo')"

Dim cmd As New OleDbCommand(strIns, conn)
cmd.ExecuteNonQuery()
cmd.Dispose()

lady

[stekimir]

quindi in teoria dovrebbe andare anche quello che ti ho postato giusto?

[ladyBlu]

Originariamente inviato da stekimir
quindi in teoria dovrebbe andare anche quello che ti ho postato giusto?

si, funzionava
ho ottimizzato quello là

grazie steki