|
non trovando una soluzione per le transazioni di mysql ho deciso di passare a sql server dove però ho due ostacoli il primo non riesco a cilcare su una tabella di seguito riporto il codice che con le tabelle di access funziona
On Error GoTo ERR_fill
Dim objIEs As Object
Dim ContenutoConHtml As String
Dim ContenutoSenzaHtml As String
Dim RD As DAO.Recordset
Dim Y As Long
Dim ADR As Variant
Dim ADR1 As Variant
Dim dra As Variant
Dim eurd As Variant
Dim spesd As Variant
Dim datad As String
Dim descrid As String
DoCmd.Hourglass True
Set objIEs = Me.EstrattoConto.Object
'objIE.ExecWB _
'OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
'objIE.ExecWB _
'OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, 0, 0
ContenutoConHtml = objIEs.Document.documentElement.OuterHTML
'Metto in questa variabile tutto il documento senza Html
ContenutoSenzaHtml = objIEs.Document.Body.InnerText
Me.Estratto.value = ContenutoSenzaHtml
ADR = Split(Estratto, "0 /")
For Y = 1 To UBound(ADR)
Set RD = CurrentDb.OpenRecordset("DETTAGLIO")
RD.AddNew
RD!IDT = Y
RD!CONTRdet = LTrim(ADR(Y))
eurd = Split(RD!CONTRdet, "€")
spesd = Split(RD!CONTRdet, " ")
datad = Right(eurd(0), 11)
RD!UNOdet = LTrim(eurd(0))
RD!DUEdet = LTrim(eurd(1))
dra = Split(RD!UNOdet, " ")
ADR1 = Split(RD!DUEdet, " ")
RD!CONTRATTOdet = LTrim(dra(0))
RD!provadet = Mid(eurd(0), 1 + Len(RD!CONTRATTOdet))
descrid = Mid(eurd(0), 1 + Len(RD!CONTRATTOdet))
RD!DESCRIZIONEdet = Replace(descrid, Right(RD!UNOdet, 11), "")
RD!SCADENZAdet = Right(RD!UNOdet, 11)
RD!IDINCARICHIdet = ID
spesd = RD!DESCRIZIONEdet
Select Case spesd
Case " rata "
RD!altrodet = ADR1(0)
Case " Interessi maturati al "
RD!INTERESSIdet = ADR1(0)
Case Else
RD!IMPORTOdet = ADR1(0)
Contr_Soff = RD!CONTRATTOdet
End Select
Me.Dettaglio1.Requery
RD.Update
Next Y
RD.Close
Set RD = Nothing
DoCmd.Hourglass False
MsgBox "Tabelle riempite correttamente. ", vbExclamation, "AVVISO"
Me!Capitale = Capi
Me!Interessi = Inte
Me!altro = spes
Me!Totale = Me!Capitale + Interessi + altro
Exit Sub
ERR_fill:
MA con sql srver si impianta a volte sulla prima riga
l'altro problema che si presentava anche con my sql e l'insert into, o meglio dopo sull'apertura di un nuovo record di una maschera mi deve dare il rispettivo id
ho provato a fare così però non so se è la strada corretta su valore predefinito del campo id ho scritto =Nz(DMax("[id]";"[clienti]");0)+1
però se cancello l'ultimo record ???
grazie
| 
