Code: Select all
Create type CompLaLaLa AS (
Name character varying,
Count numeric
);
Code: Select all
CREATE TABLE "LaLaLa" (
"ID" serial NOT NULL,
"Сomposition" CompLaLaLa[] NOT NULL,
CONSTRAINT LaLaLa_pk PRIMARY KEY ("ID")
);
Code: Select all
sub main
Dim db as Object
db = connect_to_database("postgre")
SelectPrixod(db,30)
disconnect_from_database(db)
end sub
Sub SelectPrixod(dbName as Object,ID as integer)
Dim pSql as String
Dim i as Integer
Dim oRowSet as Object
Dim oResult as String
oSql = " SELECT ""Composition"" FROM ""LaLaLa"" Where ""ID""=ID;"
oRowSet = createUnoService("com.sun.star.sdb.RowSet")
oRowSet.activeConnection = dbName
oRowSet.Command = oSql
oRowSet.execute
while oRowSet.Next 'бежим
oResult = oResult & capitalize (oRowSet.getString(1)) & " " & chr(13)
wend
msgbox oResult
End Sub
Function capitalize (iName as String) as String
Dim wordStart as String
Dim wordEnd as String
wordStart = UCase (Mid (iName, 1, 1))
wordEnd = LCase (Mid (iName, 2))
capitalize = wordStart & wordEnd
End Function
Function connect_to_database (dbName as String) as Object
Dim dbContext As Object
Dim oDataSource As Object
dbContext = createUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource = dbContext.getByName(dbName)
connect_to_database = oDataSource.GetConnection("admin", "Oma")
End Function
Sub disconnect_from_database (db as Object)
db.close
db.dispose()
End Sub