Newsgroup: it.comp.lang.visual-basic
Titolo: problema MSDE e ADO

buongiorno a tutti,
 premetto che è la prima volta che uso MSDE finora usavo sempre access
 la cosa strana è che un mio applicativo mi restituisce errore "impossibile
 trovare il percorso" mentre faccio un INSERT o un UPDATE......
 fin qui non sarebbe strano se lo facesse sempre.... lo fa solo ogni tanto
a
 suo piacimento....
 siccome sto impazzendo qualche buon amina potrebbe aiutarmi???
 grazie mille in anticipo....
 Xes
Vi allego anche il codice...a me sembra corretto...comunque per sicurezza
dategli un occhiata x favore...
Legenda: Sql e Sql2 sono stringhe
                Rec è una stringa e contiene il nome della tabella
questa è l'insert...
    Sql = "INSERT INTO " & Rec & " ([CODPREV]"
    Sql2 = " VALUES (" & NewCodPrev & ""
    If NewDescp <> "" Then
        Sql = Sql & ",[DESCP]"
        Sql2 = Sql2 & ",'" & NewDescp & "'"
    End If
    Sql = Sql & ",[UM]"
    Sql2 = Sql2 & ",'" & NewUM & "'"
    Sql = Sql & ",[Q]"
    Sql2 = Sql2 & "," & NewQ & ""
    Sql = Sql & ",[PREZ]"
    Sql2 = Sql2 & ",'" & NewPrez & "'"
    Sql = Sql & ",[PREZUNI]"
    Sql2 = Sql2 & ",'" & NewPrezUni & "'"
    Sql = Sql & ",[SCPER]"
    Sql2 = Sql2 & "," & NewScPer & ""
    Sql = Sql & ",[SCNOM]"
    Sql2 = Sql2 & ",'" & NewScNom & "'"
    If NewPrez > 0 Then
        Tota = CalcSc(NewPrez, NewScPer, NewScNom)
    Else
        Tota = CalcSc(NewQ * NewPrezUni, NewScPer, NewScNom)
    End If
    Sql = Sql & ",[TOTAL]"
    Sql2 = Sql2 & ",'" & Tota & "'"
    Sql = Sql & ",[DATAINS],[DATAUM])"
    Sql2 = Sql2 & ",'" & Date & "','" & Date & "');"
    'MsgBox Sql & Sql2
    With Cmd
        .ActiveConnection = CN
        .CommandText = Sql & Sql2
        .Execute
    End With
e questa è l'update...
    Sql = "UPDATE " & Rec & " SET " & Rec & ".CODPREV = " & NewCodPrev & ""
    Sql = Sql & ", " & Rec & ".DESCP = '" & NewDescp & "'"
    Sql = Sql & ", " & Rec & ".UM = '" & NewUM & "'"
    Sql = Sql & ", " & Rec & ".Q = " & NewQ & ""
    Sql = Sql & ", " & Rec & ".PREZ = '" & NewPrez & "'"
    Sql = Sql & ", " & Rec & ".PREZUNI = '" & NewPrezUni & "'"
    Sql = Sql & ", " & Rec & ".SCPER = " & NewScPer & ""
    Sql = Sql & ", " & Rec & ".SCNOM = '" & NewScNom & "'"
    If NewPrez > 0 Then
        Tota = CalcSc(NewPrez, NewScPer, NewScNom)
    Else
        Tota = CalcSc(NewQ * NewPrezUni, NewScPer, NewScNom)
    End If
    Sql = Sql & ", " & Rec & ".TOTAL = '" & Tota & "'"
    Sql = Sql & ", " & Rec & ".DATAUM = '" & Date & "'"
    Sql = Sql & " WHERE " & Rec & ".ID = " & N_ID & ""
    With Cmd
        .ActiveConnection = CN
        .CommandText = Sql
        .Execute
    End With
grazie ancora...

 ha scritto nel messaggio
news:45001cf0.0409...@posting.google.com...

Ciao,
prova ad aumentare il connectionTimout della connessione, dal tipo di errore
sembrerebbe che di tanto in tanto non riesce a trovare il server!, magari
perchè c'è molto traffico in rete e va in timout!
Cinzia

  suo piacimento....
Si direbbe un problema di rete, nel senso che non trova il server Sql (in
realtà mi sembrava che l'errore fosse diverso, ma senza vedere la stringa di
connessione...).
Innanzitutto prova a mettere SET davanti all'impostazione della
ActiveConnection. Chissà che non sfrutti la vecchia anzichè aprirne una
nuova...
Ciao
Alberto

...

questa è la stringa di connessione dvoe "Appog" è la variabile che
contiene il nome della base ODBC...
Connessione="Provider=MSDASQL;DSN=" & Appog & ";uid=sa;pwd=password;"
inoltre vi dico come funziona la classe che contiene queste righe di
codice...
[dichiarazioni]
    dim Cn as adodb.connection
    ecc...
[Class_Initialize]
    set cn=new adodb.connection
    ecc..
dopo aver riempito la variabile connessione lancio questo comando
    cn.open connessione
inoltre in...
[Class_terminate]
set cn = nothing
così dal programma chiamante quando chiamo questa classe mi si crea
l'oggetto e quando la setto a nothing me la chiude....devo per caso
usare il comando
    cn.close ????
grazie ancora ragazzi

     cn.close ????
Sarebbe corretto, ma non credo riguardi il tuo problema iniziale.
Ciao
Alberto
--
"Non mi sembra piů granda del Delfino..."
"A partir dal fat che la merda liquida
l'as drisa gnan a puntlarla,
cňsta chě l'č piň granda, gnuranta."

 Alberto
ho apportato le modifiche ma il problema persiste....
posso contattarti via mail?
se non è troppo disturbo...
vorrei inviarti il codice cosicchè puoi darmici un occhiata...
a me sembra corretto...ma a quanto pare non lo è...
grazie ancora...
Xes