Ricerca tra i vari campi il campo contatore
'******************************************************* ' questa funzione CERCA il campo e' autoincrement '******************************************************* Public Function VerificaCampoAutoIncrement(ByVal Tabella As String, ByVal NomeDatabase As String, ByVal Campo As String) As Boolean On Error GoTo Errore Dim strConnect As String Dim ADOCon As ADODB.Connection Dim X As Integer strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & NomeDatabase & ";Persist Security Info=False" ADOCon = New ADODB.Connection With ADOCon .ConnectionString = strConnect .Open() End With Dim Rs As ADODB.Recordset Rs = New ADODB.Recordset Rs.let_ActiveConnection(ADOCon) Rs.CursorLocation = ADODB.CursorLocationEnum.adUseServer Rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic Rs.Open(Tabella) VerificaCampoAutoIncrement = False For X = 0 To Rs.Fields.Count - 1 If Rs.Fields(X).Properties("ISAUTOINCREMENT").Value = True And Rs.Fields(X).Name = Campo Then VerificaCampoAutoIncrement = True Rs.Close() ADOCon.Close() Exit Function End If Next X ADOCon.Close() Exit Function Errore: '********************** ' e' una query ed esce '********************** VerificaCampoAutoIncrement = False ADOCon.Close() Rs.Close() End Function |