08.05.2013 Aufrufe

deutschen Handbuch - QT software GmbH

deutschen Handbuch - QT software GmbH

deutschen Handbuch - QT software GmbH

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

00399 INTEGER (SQLRETURN) :: SQLColAttributes<br />

00400 INTEGER (SQLHSTMT) :: stmt<br />

00401 INTEGER (SQLUSMALLINT) :: icol, fDescType<br />

00402 CHARACTER (LEN=*) :: rgbDesc<br />

00403 INTEGER (SQLSMALLINT) :: cbDescMax, pcbDesc<br />

00404 !2011-08-08# INTEGER (SQLINTEGER) :: pfDesc<br />

00405 INTEGER (SQLLEN ) :: pfDesc<br />

00408 END FUNCTION SQLColAttributes<br />

00409 END INTERFACE<br />

00410<br />

00411 INTERFACE SQLColumnPrivileges<br />

00412 FUNCTION SQLColumnPrivileges( stmt, &<br />

00413 CatalogName, LenCatName, &<br />

00414 SchemaName, LenSchemaName, &<br />

00415 TableName, LenTableName, &<br />

00416 ColumnName, LenColName )<br />

00417 USE qtODBCKinds<br />

00418 INTEGER (SQLRETURN) :: SQLColumnPrivileges<br />

00419 INTEGER (SQLHSTMT) :: stmt<br />

00420 CHARACTER (LEN=*) :: CatalogName, SchemaName, TableName, ColumnName<br />

00421 INTEGER (SQLSMALLINT) :: LenCatName, LenSchemaName, LenTableName, LenColName<br />

00424 END FUNCTION SQLColumnPrivileges<br />

00425 END INTERFACE<br />

00426<br />

00427 INTERFACE SQLColumns<br />

00428 ! SQLRETURN SQLColumns(<br />

00429 ! SQLHSTMT StatementHandle,<br />

00430 ! SQLCHAR * CatalogName,<br />

00431 ! SQLSMALLINT NameLength1,<br />

00432 ! SQLCHAR * SchemaName,<br />

00433 ! SQLSMALLINT NameLength2,<br />

00434 ! SQLCHAR * TableName,<br />

00435 ! SQLSMALLINT NameLength3,<br />

00436 ! SQLCHAR * ColumnName,<br />

00437 ! SQLSMALLINT NameLength4);<br />

00438 FUNCTION SQLColumnsChar( stmt, &<br />

00439 szTableQualifier, cbTableQualifier, &<br />

00440 szTableOwner, cbTableOwner, &<br />

00441 szTableName, cbTableName, &<br />

00442 szColumnName, cbColumnName ) ! changed 14.10.2000: szColumnName, cbColum<br />

00442-1 nName ) ! changed 14.10.2000: SQLColumns -> SQLColumnsChar<br />

00443 USE qtODBCKinds<br />

00444 INTEGER (SQLRETURN) :: SQLColumnsChar<br />

00445 INTEGER (SQLHSTMT) :: stmt<br />

00446 CHARACTER (LEN=*) :: szTableQualifier, szTableOwner, &<br />

00447 szTableName, szColumnName<br />

00448 INTEGER (SQLSMALLINT) :: cbTableQualifier, cbTableOwner, cbTableName, cbColumnName<br />

00452 END FUNCTION SQLColumnsChar<br />

00453<br />

00454 ! 14.10.2000: added SQLColumnsLP (all arguments being transferred as values, use LOC() to pass a refer<br />

00454-1 ence)<br />

00455 FUNCTION SQLColumnsLP( stmt, &<br />

00456 szTableQualifier, cbTableQualifier, &<br />

00457 szTableOwner, cbTableOwner, &<br />

00458 szTableName, cbTableName, &<br />

00459 szColumnName, cbColumnName )<br />

00460 USE qtODBCKinds<br />

00461 INTEGER (SQLRETURN) :: SQLColumnsLP<br />

00462 INTEGER (SQLHSTMT) :: stmt<br />

00463 INTEGER (SQLPOINTER) :: szTableQualifier, szTableOwner, &<br />

00464 szTableName, szColumnName<br />

00465 INTEGER (SQLSMALLINT) :: cbTableQualifier, cbTableOwner, cbTableName, cbColumnName<br />

00467 END FUNCTION SQLColumnsLP<br />

00468 END INTERFACE SQLColumns<br />

00469<br />

00470 INTERFACE SQLConnect<br />

00471 FUNCTION SQLConnect( dbc, szDSN, cbDSN, szUID, cbUID, szAuthStr, cbAuthStr )<br />

00472 USE qtODBCKinds<br />

00473 INTEGER (SQLRETURN) ::SQLConnect<br />

00474 INTEGER (SQLHDBC) :: dbc<br />

00475 CHARACTER(*) szDSN, szUID, szAuthStr<br />

00476 INTEGER (SQLSMALLINT) :: cbDSN, cbUID, cbAuthStr<br />

00479 END FUNCTION SQLConnect<br />

00480 END INTERFACE<br />

00481<br />

00482 INTERFACE SQLCopyDesc<br />

00483 FUNCTION SQLCopyDesc( SourceDescHandle, TargetDescHandle )<br />

00484 USE qtODBCKinds<br />

00485 INTEGER (SQLRETURN) :: SQLCopyDesc<br />

00486 INTEGER (SQLHDESC) :: SourceDescHandle, TargetDescHandle<br />

00488 END FUNCTION SQLCopyDesc<br />

00489 END INTERFACE<br />

00490<br />

00491 INTERFACE SQLDataSources<br />

00492 FUNCTION SQLDataSources( env, fDirection, &<br />

00493 szDSN, cbDSNMax, pcbDSN, &<br />

00494 szDescription, cbDescriptionMax, pcbDescription )<br />

00495 USE qtODBCKinds<br />

00496 INTEGER (SQLRETURN) :: SQLDataSources<br />

00497 INTEGER (SQLHENV) :: env<br />

00498 INTEGER (SQLUSMALLINT) :: fDirection<br />

00499 CHARACTER (LEN=*) :: szDSN, szDescription<br />

ForDBC - Fortran Database Connectivity 48

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!