[VB.NET] Prima connessione ad Access

[marco.santilli]

Oggi è il primo giorno di vb.net

Gia sono in difficoltà

Non riesco a collegare un semplice DB in ACCESS

Ho letto in giro, ma non ho capito molto bene.

In VB6 utilizzavo questo metodo, codice nel modulo:
-------------------------------------------------------
Option Explicit
Public CnConnessioni As ADODB.Connection
Public rsRecordSetConnessioni As ADODB.Recordset
-------------------------------------------------------
Sub ApriConn()
Dim strCONN As String
Dim Connessione As String


strCONN = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDBatabase Password=xxxx;"
strCONN = strCONN & "Data Source=" & App.Path & "\Archivio.mdb;"
strCONN = strCONN & "Jet OLEDB:Engine Type=5;"

Set CnConnessioni = New ADODB.Connection
CnConnessioni.Open strCONN
End Sub
-------------------------------------------------------

Poi nella form MDI aprivo la connessione

Private Sub MDIForm_Load()
ApriConn

End Sub

-------------------------------------------------------

Cosi non mi funziona

Io adesso sto provando tutto nella form principale senza usare i moduli, una volta fatta la prima connessione posso dividere il codice e creare un modulo da utilizzare per tutti i progetti

Riuscite a farmi un esempio pratico, di connessione

Ciao e grazieeeeeee

[alka]

Hai fatto una ricerca su questo forum?

L'implementazione in VB6 è da dimenticare. Certo che se vai alla cieca... auguri!

[oregon]

Non ti consiglio con VB.NET di operare per "esempi" ...

Prendi un buon libro, ti siedi, lo leggi, ne applichi i vari esempi passo passo ...

P.S. Il titolo non e' fatto per scriverci aiutoooooooo ...

[marco.santilli]

Ok fatto, ho trovato un tutorial che mi spiegava sulla connessione....ora ci sono riuscito

Adesso ho un problemino grafico. di pulsante sulla MDIform ..apro un nuovo argomento

[marco.santilli]

Niente...non è vero ho provato ma non funziona

questo è il codice

-------------------------------------------------------------
Imports System.Data

Imports System.Data.OleDb
-------------------------------------------------------------
Public Class Form1

Dim myConnection As OleDbConnection
Dim CnConnessioni As OleDbConnection

Dim connStr As String

-------------------------------------------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDBatabase Password=Ciao;"
connStr &= "Data Source=" & Application.StartupPath & "\Archivio.mdb;"
connStr &= "Jet OLEDB:Engine Type=5;"
CnConnessioni = New OleDbConnection(connStr)
CnConnessioni.Open()
End Sub
End Class
-------------------------------------------------------------

Cosi facendo non si connette
In pratica quando si connette ad un DB di access nella stessa cartella si vede il file che crea access di accesso ai dati, con l'icona di un DB con un lucchetto, a me questa iconcina non la crea, quindi significa che non sono connesso
Non capisco dove sbaglio

Ciao e grazieeeeee

[oregon]

Sei sicuro che il tuo file

Archivio.mdb

stia dove deve stare?

Per essere sicuro, metti una

MsgBox(connStr)

prima della Open e leggi il percorso completo in cui viene cercato il file ...

[alka]

Originariamente inviato da marco.santilli
In pratica quando si connette ad un DB di access nella stessa cartella si vede il file che crea access di accesso ai dati, con l'icona di un DB con un lucchetto, a me questa iconcina non la crea, quindi significa che non sono connesso

C'è da dire che il file non viene sempre creato (dipende dalla modalità con cui accedi al database).

Ad ogni modo, non penso sia un buon metodo verificare l'esistenza di un file per capire se il database è connesso oppure no.

Se il codice va a buon fine senza restituire eccezioni, la connessione va a buon fine; per fare una "prova del 9", cerca di estrarre dati: se li ottieni, non ci sono senz'altro dubbi.

[marco.santilli]

Il mio progetto si chiama Connessione

Quindi un file di progetto "Connessione" e la cartella "Connessione"

Con questo percorso
connStr &= "Data Source=" & Application.StartupPath & "\Archivio.mdb;"

Vado a ricercare il file con un persorso relativo

Dove metto il file di Access?? Dentro la cartella "Connessione"????

Ciao e grazieeeeee

[oregon]

Ma che ti avevo scritto di fare? Lo hai fatto?

[marco.santilli]

Ho rifatto tutto da capo

Ho messo il codice in un modulo che lo richiamo dalla form1 su load

Ecco lo screen con il codice e l'errore che mi visualizza