UniObjects для .NET - чтение и запись файлов UniVerse - PullRequest
Новая
       67

UniObjects для .NET - чтение и запись файлов UniVerse

1 голос
/ 13 февраля 2010

Наша организация использует UniObjects для .NET, но компакт-диск, похоже, пропал. Мне нужно выяснить, как читать и писать в и из файлов во Вселенной. Обратите внимание, что программа написана на VB.NET 

Dim uniSession As UniSession
Private DATABASE_IDENTIFIER As String = "uvcs"

uniSession = UniObjects.OpenSession(_hostname, _username, _password, _account, DATABASE_IDENTIFIER)

' Clear the already existing LICENCE_STATUS table
Dim nepiLicenceStatusFile As UniFile = uniSession.CreateUniFile("LICENCE_STATUS")
nepiLicenceStatusFile.Open()
nepiLicenceStatusFile.ClearFile()

' Insert new values in the LICENCE_STATUS table???
' Read values from the LICENCE_STATUS table???

Мне нужно выяснить, как вставить новые значения и прочитать значения из таблицы LICENCE_STATUS. Может ли кто-нибудь здесь помочь мне?

1 Ответ

2 голосов
/ 13 февраля 2010

Во-первых, вы можете найти свои руководства на сайте Rocket

Вот несколько примеров чтения / записи 

' read a record "2"
Dim ar_record As UniDynArray = nepiLicenceStatusFile.Read("2")

' write back as record "2new"
nepiLicenceStatusFile.Read("2new", ar_record)

' write a random string to a record
nepiLicenceStatusFile.write("2new", "My random string")

'read a field "7" from record "2"
Dim ar_record2 As UniDynArray = nepiLicenceStatusFile.ReadField("2", 7)

' write back to field "8"
nepiLicenceStatusFile.write("2", 8)

'read number of fields (4,5,6) from record "2"
Dim lFieldSet() As Integer = {4, 5, 6}
Dim ar_record3 As UniDynArray = nepiLicenceStatusFile.ReadFields("2", lFieldSet)

' read named field "LNAME" from record "2"
Dim ar_record4 As UniDynArray = nepiLicenceStatusFile.ReadNamedField("2", "LNAME")

' read records (2, 12, 3 and 4) as unidataset
Dim sArray As String() = {"2", "12", "3", "4"}

uSet = nepiLicenceStatusFile.ReadRecords(sArray)

Я уверен, что вы поняли идею сейчас:)

...