REM  *****  BASIC  *****

Sub Main
  dim document   as object
  dim dispatcher as object
  DIM oDoc as object
  document   = ThisComponent.CurrentController.Frame
  oDoc = ThisComponent
  dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    
   Dim oForm as object
   oForm = ThisComponent.Drawpage.Forms.getByName("MainForm")

   
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object
Dim oStatement As Object
Dim ResultSet As Object

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("country_state")

If Not DataSource.IsPasswordRequired Then
  Connection = DataSource.GetConnection("","")
Else
  InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
  Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If

oStatement = Connection.createStatement()

Dim strSql As String
strSql = "INSERT INTO COUNTRY (CNAME, CCAPITAL, CAREA, CPOPULATION) VALUES ('Australia', 'Canberra', 7692024, 23000000);" 
oStatement.execute(strSql)
strSql = "INSERT INTO COUNTRY (CNAME, CCAPITAL, CAREA, CPOPULATION) VALUES ('Tuvalu', 'Funafuti', 26, 10544);" 
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'STATE', 'West Australia', 'Perth', 2529875, 2296411);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'STATE', 'South Australia', 'Adelaide', 983482, 1644642);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'STATE', 'New South Wales', 'Sydney', 800642, 7238819);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'STATE', 'Victoria', 'Melbourne', 227416, 5603100);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'STATE', 'Queensland', 'Brisbane', 1730648, 4516361);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'STATE', 'Tasmania', 'Hobart', 68401, 507626);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'TERRITORY', 'Northern Territory', 'Darwin', 1349129, 229675);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'TERRITORY', 'Australian Capital Territory', 'Canberra', 2358, 358894);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'TERRITORY', 'Jervis Bay Territory', 'Jervis Bay Village', 70, 611);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'EXTERNAL', 'Ashmore and Cartier Islands', ' ', 199, 0);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'EXTERNAL', 'Australian Antarctic Territory', 'Mawson Station', 5896500, 1000);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'EXTERNAL', 'Christmas Island', 'Flying Fish Cove', 135, 1493);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'EXTERNAL', 'Cocos (Keeling) Islands', 'West Island', 14, 628);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'EXTERNAL', 'Coral Sea Islands', 'Willis Island', 10, 4);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'EXTERNAL', 'Heard Island and McDonald Islands', 'Atlas Cove', 372, 0);"
oStatement.execute(strSql)
strSql = "INSERT INTO ENTITY (CNAME, TYPE, NAME, CAPITAL, AREA, POPULATION) VALUES ('Australia', 'EXTERNAL', 'Norfolk Island', 'Kingston', 35, 2114);"
oStatement.execute(strSql)
End Sub