Newsgroup: it.comp.lang.visual-basic
Titolo: ADO (ancora...)

Dopo vostri consigli (mooolto graditi ^_^) sono riuscito ad andare avanti
nella mia impresa disperata...
Perņ continuo ad avere un problema con la ConnectionString...
Allora.. io guardando nel pannello di Controllo di WinXP ho visto ch i
Driver (ODBC) hanno dentro come User DSN i Driver (Microsoft Access Driver
(*.mdb)) e tali driver li ho anche aggiunti alla system DSN.
Ora... ho fatto questo piccolo programma che continua a darmi un errore
sull'apertura della connessione. Di seguito posto il codice...
Public Sub Check(strPath As String)
    Dim intCount As Integer, intStop As Integer, strQuery As String, strCnn
As String
    '------------------------------------------
    'QUESTO E' IL PUNTO INCRIMINATO
    '------------------------------------------
    Set tmpC = New ADODB.Connection
    '--------------------------------------------
    'QUESTA RIGA SOTTO NON FUNZIONA.... PERCHE'??????
    '-----------------------------------------------------------
        tmpC.ConnectionString = "driver = {Microsoft Access Driver(*.mdb)};"
& _
        "database = " & strPath
        tmpC.Open
        intStop = 0
        intCount = 1
        strQuery = "SELECT * FROM Anagrafica WHERE ID = 1"
    Dim Rs As New ADODB.Recordset
        If tmpC.State = adStateClosed Then
            'qui devo riaprirla perchč l'ho trovata chiusa
        End If
    Set Rs.ActiveConnection = tmpC
    Rs.CursorLocation = adUseClient
    Rs.CursorType = adOpenKeyset
    Rs.LockType = adLockBatchOptimistic
    Rs.Source = strQuery
    Rs.Open

 ha scritto nel messaggio
news:Cod48.4931$761.1...@twister1.libero.it...
CUT
Private Sub Command1_Click()
    Dim intCount As Integer
    Dim intStop As Integer
    Dim strQuery As String
    Dim strCnn As String
    Dim PATHDB As String 'qui c'è il path del database
    PATHDB = Trim(App.Path & "\dbTest.mdb") 'logicamente cambiala
    '------------------------------------------
    'QUESTO E' IL PUNTO INCRIMINATO....... NO TI SBAGLI!!!!
    '------------------------------------------
    Set tmpC = New ADODB.Connection
    '--------------------------------------------
    '..ora va! QUI ERA IL PUNTO!...nota il Dbq....
    '-----------------------------------------------------------
    strCnn = "Driver={Microsoft Access Driver (*.mdb)};"
    strCnn = strCnn & "Dbq=" & PATHDB & ";"
    strCnn = strCnn & "Uid=admin;Pwd=;"
    tmpC.ConnectionString = strCnn
        tmpC.Open
        intStop = 0
        intCount = 1
        strQuery = "SELECT * FROM Anagrafica "
    Dim Rs As New ADODB.Recordset
        If tmpC.State = adStateClosed Then
            'qui devo riaprirla perchè l'ho trovata chiusa
        End If
    Set Rs.ActiveConnection = tmpC
    Rs.CursorLocation = adUseClient
    Rs.CursorType = adOpenKeyset
    Rs.LockType = adLockBatchOptimistic
    Rs.Source = strQuery
    Rs.Open
End Sub
si però sei recidivo....i manuali leggili!
ciao!
....lo sai che puoi aprirle dsn Less come ora...ma anche con l'OLEDB?
queta che hai fatto ora, tipicamente si usa per le pagine ASP su
internet...si sostituisce Server.MapPath al App.Path..e si accede al DB !
Cerca su interne è pieno di manuali per ADO!
;-)

App.Path..e si accede al DB !
E se il db non fosse nella stessa directory dell' applicazione?
-- 
ciao, hal

 ha scritto

db.path ! :)
j.path

 Wodka4U ha scritto:
CUT


:-)
LOL
Error: sfiga unknown interface :-P