[vb express 2008] modificare il percorso di una connesione ADOX

[frank095]

per connettermi al database access uso il seguente comando :

Dim connessione As ADOX.Catalog = New ADOX.Catalog 'crea un nuovo oggetto connessione di tipo ADOX.Catalog
    Dim archivio As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyComputer) + "/Amico/Dati/Dbnew2000.mdb")

il problema è che io vorrei cambiare il percorso della connessione tramite la lettura di un file "txt" esterno.. esiste un modo per farlo??

[oregon]

Ovviamente sì che esiste, ma non hai neanche tentato di risolvere il problema da solo?

[frank095]

si ho provato a importa system.IO e a usare readline ma ci sono riuscito solo tramite il click di un button a me serve inserire il codice dentro public class Form 1 e non so come fare...
la strada che ho provato io e giusta ?
l'idea era quella di mettere al posto del percorso la variabile che leggeva le righe del file di testo.

[oregon]

Metti il codice dove ti serve, ovvero dove apri la connessione ... puoi farlo nella Form_Load ...

[frank095]

ho fatto così

Public Class Form1
    Dim connessione As ADOX.Catalog = New ADOX.Catalog 'crea un nuovo oggetto connessione di tipo ADOX.Catalog
    Dim archivio As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyComputer) + linea)
    Dim leggeredati As New OleDb.OleDbDataAdapter("SELECT* FROM Offerte", archivio)
    Dim da As New DataSet 'dichiara un nuovo dataset(cache di memoria)
    Dim reader As New StreamReader("C:\Users\Francesco\Desktop\Config.txt")
    Dim linea As String = ""
    Dim arrText As New ArrayList()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_progressivi'. È possibile spostarla o rimuoverla se necessario.
        Me.Articoli_progressiviTableAdapter.Fill(Me.Dbnew2000DataSet1.Articoli_progressivi)
        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_anagrafica'. È possibile spostarla o rimuoverla se necessario.
        Me.Articoli_anagraficaTableAdapter.Fill(Me.Dbnew2000DataSet1.Articoli_anagrafica)
        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_anagrafica'. È possibile spostarla o rimuoverla se necessario.

        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet.Offerte'. È possibile spostarla o rimuoverla se necessario.
        Me.OfferteTableAdapter.Fill(Me.Dbnew2000DataSet.Offerte)
        Do
            linea = reader.ReadLine()
            If Not linea Is Nothing Then
                arrText.Add(linea)
            End If
        Loop Until linea Is Nothing
        reader.Close()

        
        leggeredati.Fill(da, "Offerte")

ma mi dà errore :Nessun messaggio di errore disponibile, codice risultato: DB_SEC_E_AUTH_FAILED(0x80040E4D). evidenziandomi la riga di FILL..

[oregon]

No ... semmai

Dim archivio As OleDb.OleDbConnection

e nell'evento

archivio = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environmen t.SpecialFolder.MyComputer) + linea)

[frank095]

Public Class Form1
    Dim connessione As ADOX.Catalog = New ADOX.Catalog 'crea un nuovo oggetto connessione di tipo ADOX.Catalog
    Dim archivio As New OleDb.OleDbConnection
    Dim leggeredati As New OleDb.OleDbDataAdapter
    Dim da As New DataSet 'dichiara un nuovo dataset(cache di memoria)
    Dim reader As New StreamReader("C:\Users\Francesco\Desktop\Config.txt")
    Dim linea As String = ""
    Dim arrText As New ArrayList()


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_progressivi'. È possibile spostarla o rimuoverla se necessario.
        Me.Articoli_progressiviTableAdapter.Fill(Me.Dbnew2000DataSet1.Articoli_progressivi)
        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_anagrafica'. È possibile spostarla o rimuoverla se necessario.
        Me.Articoli_anagraficaTableAdapter.Fill(Me.Dbnew2000DataSet1.Articoli_anagrafica)
        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_anagrafica'. È possibile spostarla o rimuoverla se necessario.

        'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet.Offerte'. È possibile spostarla o rimuoverla se necessario.
        Me.OfferteTableAdapter.Fill(Me.Dbnew2000DataSet.Offerte)
        archivio = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyComputer) + linea)
        leggeredati = New OleDb.OleDbDataAdapter("SELECT* FROM Offerte", archivio)
        Do
            linea = reader.ReadLine()
            If Not linea Is Nothing Then
                arrText.Add(linea)
            End If
        Loop Until linea Is Nothing
        reader.Close()

        
        leggeredati.Fill(da, "Offerte") 'FILL scrive il risultato di LEGGEREDATI dentro il dataset DA

fatto così ma mi da lo stesso identico errore

[oregon]

+ "\" + linea

[gibra]

Cosa c'entra poi ADOX con tutto questo è un mistero...

[oregon]

Originariamente inviato da gibra
Cosa c'entra poi ADOX con tutto questo è un mistero...

Lascia stare ...