Question

oracle数据库的查询问题，大侠们帮帮忙吧，谢谢了啊！！！！

Create a query that displays the employees’last names and indicates the amounts of their
annual salaries with asterisks. Each asterisk signifies a thousand dollars. Sort the data in
descending order of salary. Label the column EMPLOYEES_AND_THEIR_SALARIES.
下面把那个效果图模拟下：
EMPLOYEES_AND_THEIR_SALARIES
King *************************
Kochhar *******************
…………………………仅举两列查询语句运行后的效果，希望大侠们帮帮忙，不胜感激！

Answer 1

Dim OraSession As Object '会话对象
Dim OraDatabase As Object '数据库对象
Dim OraDynaset As Object'动态集对象
Dim OraDatabase As Object’字段集对象
Set OraSession =CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.CreateDatabase

("Demo","scott/tiger",0&)'建立数据库连接
Set OraDynaset=OraDatabase.CreateDynaset("select*from

student",0&)'初始化动态集对象
’添加记录
'Begin an AddNew
OraDynaset.DbAddNew
OraDynaset.Fields("ID").value="1000"
’ID为列名
OraDynaset.DbUpdate'更新数据到表
’删除
OraDynaset.DbDelete
'修改
OraDynaset.DbEdit
OraDynaset.Fields("ID").value="101210"
OraDynaset.DbUpdate