Ciao a tutti
Ho un DB.mdb con una Tabella ordini e una tabellaVarianti
With tb3
.Name = "TVarianti"
Set .ParentCatalog = cat
.Columns.Append "idv_Var", adInteger ' Chiave primaria
.Columns("idv_Var").Properties("AutoIncrement") = True
.Columns.Append "idv_Ord", adInteger ' Chiave riferimento tabella Ordini
ecc...
Voglio fare una estrazione di tutte le varianti ad un dato ordine
Public Function RicercaOrdine(cOrd As Long)
On Error Resume Next
Err.Number = 0
rsVarmp.Close
Err.Number = 0
rsVarmp.CursorLocation = adUseClient
rsVarmp.Open "SELECT * FROM TVarianti WHERE idv_Ord = cOrd", _
cn, adOpenDynamic, adLockOptimistic
'rsVarmp.Open "SELECT * FROM TVarianti WHERE idv_Ord LIKE '" & cOrd & "%' ", _
' cn, adOpenDynamic, adLockOptimistic
If Err.Number <> 0 Then
MsgBox Err.Number + " " + Err.Description
Call GestErr("errore open rs in RicercaOrdine ", 1)
End
End If
End Function
Quando faccio la Open del recordset mi segnala err=13 Tipo non corrispondente
Se modifico la open con LIKE
rsVarmp.Open "SELECT * FROM TVarianti WHERE idv_Ord LIKE '" & cOrd & "%' ", _
cn, adOpenDynamic, adLockOptimistic
funziona ma se cerco l'ordine 2 mi tira fuori il 2, 12, 20, 22, ecc. tutti le varianti il cui ordine contiene 2
Dove è l'errore?
Franco