TODBCDataBase

Ta stran je trenutno še v izdelavi.

Razred TODBCDataBase vsebuje informacije o priključitvi na zunanjo bazo podatkov preko ODBC protokola.

Dim DB As TOdbcDatabase, DS As TodbcDataset
Dim S1, S2, S3 As String
If InputListStr (AliasList, S1, 'Izberite ODBC vir') Then
 DB = CreateDatabase (S1, '', '')
 If InputListStr (DB.TableList, S2, 'Izberite tabelo') Then
  DS = DB.CreateDataset
  DS.SQL = 'Select * From ' + S2
  Message ("Rezultatov poizvedovanja", IntToStr (DS.RecordCount))
  While DS.FetchNext
   For I = 0 To DS.FieldCount - 1
    S3 = DS.FieldName(I) + ' is '
    Select Case DS.FieldType(I) 
     Case 1 S3 = S3 + 'string:' + DS.FieldAsString(I)
     Case 2 S3 = S3 + 'string:' + IntToStr(DS.FieldAsLong(I))
     Case 3 S3 = S3 + 'string:' + FloatToStr(DS.FieldAsFloat(I))
    EndSelect
    S3 = S3 + ' and is equal ' + DS.FieldAsString(I)
   Next
  Wend
  DS.Destroy
 endif
 DB.Destroy
Endif

CreateDataSet

Lastnost CreateDataSet kreira novo povezavo preko ODBC baze podatkov, ter kot rezultat vrne novo kreiran objekt. Po končani uporabi je potrebno ta objekt sprostiti.

RO Property TODBCDataBase.CreateDataSet As TODBCDataSet
Result	TODBCDataSet	.

Destroy

Metoda Destroy ukine predhono kreirano povezavo z ODBC bazo podatkov.

Method TODBCDataBase.Destroy

ExecuteSQL

Metoda ExecuteSQL .

Method TODBCDataBase.ExecuteSQL (SQL As String) As String
SQL	String	.
Result	Optional String	.

ExecuteSQLToArray

Lastnost ExecuteSQLToArray .

RO Property TODBCDataBase.ExecuteSQLToArray (SQL As String) As TStrArray2
SQL	String	.
Result	TStrArray2	.

ExecuteStoredProcedure

Metoda ExecuteStoredProcedure .

Method TODBCDataBase.ExecuteStoredProcedure (ProcName, Parameters As String) As String
ProcName	String	.
Parameters	String	.
Result	Optional String	.

TableList

Lastnost TableList določa seznam vseh tabel v ODBC viru podatkov. Tabele so zapisane vsaka v svoji vrstici.

RO Property TODBCDataBase.TableList As String
Result	String	.