Freigeben über

Type-Eigenschaft (Beispiel) (Field) (VJ++)

Gilt für: Access 2013 | Access 2016

In diesem Beispiel wird die Type-Eigenschaft veranschaulicht, indem der Name der Konstante angezeigt wird, die dem Wert der Type-Eigenschaft aller Field-Objekte in der Employees-Tabelle entspricht. The FieldType function is required for this procedure to run.

// BeginFieldTypeJ 
import java.io.*; 
import com.ms.wfc.data.*; 
 
public class TypeFieldX 
{ 
 
 // The main entry point of the application. 
 
 public static void main (String[] args) 
 { 
 TypeFieldX(); 
 System.exit(0); 
 } 
 
 // TypeFieldX Function 
 static void TypeFieldX() 
 { 
 // Define ADO Objects. 
 Recordset rstEmployees = null; 
 Field fldLoop = null; 
 
 // Declarations. 
 String strCnn = "Provider='sqloledb';Data Source='MySqlServer';"+ 
 "Initial Catalog='Pubs';Integrated Security='SSPI';"; 
 int intLoop; 
 int intRecordCount = 0; 
 BufferedReader in = 
 new BufferedReader(new InputStreamReader(System.in)); 
 
 try 
 { 
 // Open the Recordset with data from Employees table. 
 rstEmployees = new Recordset(); 
 rstEmployees.open("employee", strCnn, 
 AdoEnums.CursorType.FORWARDONLY, AdoEnums.LockType.READONLY, 
 AdoEnums.CommandType.TABLE); 
 
 System.out.println("Fields in the Employees table:\n"); 
 
 // Enumerate fields collection of Employees table. 
 for(intLoop = 0;intLoop < 
 rstEmployees.getFields().getCount();intLoop++) 
 { 
 intRecordCount++; 
 // Loop needed for display of records 
 if((intRecordCount % 6)==0) 
 { 
 System.out.println("Press <Enter> to continue.."); 
 in.readLine(); 
 } 
 
 fldLoop = rstEmployees.getFields().getItem(intLoop); 
 System.out.println(" Name:" + fldLoop.getName() + "\n"+ 
 " Type:" + FieldType(fldLoop.getType()) + "\n"); 
 
 } 
 System.out.println("Press <Enter> to continue"); 
 in.readLine(); 
 } 
 catch(AdoException ae) 
 { 
 // Notify the user of any errors that result from ADO. 
 
 // As passing a Recordset, check for the null pointer first. 
 if(rstEmployees != null) 
 { 
 PrintProviderError(rstEmployees.getActiveConnection()); 
 } 
 else 
 { 
 System.out.println("Exception: " + ae.getMessage()); 
 } 
 } 
 // System read requires this catch. 
 catch(java.io.IOException je) 
 { 
 PrintIOError(je); 
 } 
 
 finally 
 { 
 // Cleanup objects before exit. 
 if (rstEmployees != null) 
 if (rstEmployees.getState() == 1) 
 rstEmployees.close(); 
 } 
 } 
 // FieldType Function 
 static String FieldType( int intType ) 
 { 
 String strLoop = null; 
 
 switch(intType) 
 { 
 case AdoEnums.DataType.CHAR: 
 strLoop = "adChar"; 
 break; 
 case AdoEnums.DataType.VARCHAR: 
 strLoop ="adVarChar"; 
 break; 
 case AdoEnums.DataType.SMALLINT: 
 strLoop = "adSmallInt"; 
 break; 
 case AdoEnums.DataType.UNSIGNEDTINYINT: 
 strLoop = "adUnsignedTinyInt" ; 
 break; 
 case AdoEnums.DataType.DBTIMESTAMP: 
 strLoop = "adDBTimeStamp"; 
 break; 
 default: 
 break; 
 } 
 
 return strLoop; 
 } 
 
 // PrintProviderError Function 
 static void PrintProviderError(Connection cnn1) 
 { 
 // Print Provider Errors from Connection Object. 
 // ErrItem is an item object in the Connections Errors Collection. 
 com.ms.wfc.data.Error ErrItem = null; 
 long nCount = 0; 
 int i = 0; 
 
 nCount = cnn1.getErrors().getCount(); 
 
 // If there are any errors in the collection, print them. 
 if ( nCount > 0) 
 { 
 // Collection ranges from 0 to nCount-1. 
 for ( i=0;i<nCount; i++) 
 { 
 ErrItem = cnn1.getErrors().getItem(i); 
 System.out.println("\t Error Number: " + ErrItem.getNumber() 
 + "\t" + ErrItem.getDescription()); 
 } 
 } 
 } 
 // PrintIOError Function 
 static void PrintIOError(java.io.IOException je) 
 { 
 System.out.println("Error: \n"); 
 System.out.println("\t Source: " + je.getClass() + "\n"); 
 System.out.println("\t Description: "+ je.getMessage() + "\n"); 
 } 
} 
// EndFieldTypeJ

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

  • Last updated on