利用 Command对象存取数据库 建立 Connection对象 Dim db, strconn 建立 Command对象 Dim cmd Set cd= server Createobject( ADODB. Command) cd. ActiveConnection=db 查询记录 Dim rs, strscl strs1=se⊥ect古 From users cmd. CommandText= strsql Set rs=cmd. Execute Do While Not rs EOf Response. Write rs( name)&<br> s. Moseley七 Loop 添加记录 strS1=工 nsert Into users(name,te1,age)va1ues(‘李玫','88888888',21) cmd. CommandText=strsql cd. Execute 更新记录 strsql ="Update users Set tel-66666666 Where name=2E. cmd. CommandText=strscl cmd. Execute 册除记录,删除李玫的记录 stro1= Delete From users Where name=‘李玫 cmd. CommandText=strsql cmd. Execute 关闭 Connect1on对象 db. Close set db=nothing 了东学宋职业学院利用Command对象存取数据库