我不确定这就是“自动”的意思,但可以通过循环来完成:
Sub UpdateUniversities
Context = CreateUnoService("com.sun.star.sdb.DatabaseContext")
databaseURLOrRegisteredName = "file:///C:/Users/JimStandard/Desktop/New Database.odb"
Db = Context.getByName(databaseURLOrRegisteredName )
Conn = Db.getConnection("","") 'username & password pair - HSQL default blank
Stmt = Conn.createStatement()
strSQL = "SELECT Universities.id, " & _
"COUNT(Courses.university_id) as NumCourses " & _
"FROM Courses " & _
"JOIN Universities ON Universities.id = Courses.university_id " & _
"GROUP BY Universities.id"
oResult = Stmt.executeQuery(strSQL)
Do While oResult.next()
university_id = oResult.getLong(1)
num_courses = oResult.getLong(2)
Stmt = Conn.createStatement()
strSQL = "UPDATE ""Universities"" SET ""num_courses"" = " & _
num_courses & " WHERE ""id"" = " & university_id
Stmt.executeUpdate(strSQL)
Loop
Conn.close()
End Sub
相关:如何使用 Open Office Base 创建更新查询?