asp数据连接UPDATE

最新推荐文章于 2021-01-25 23:36:56 发布

xuezhanliang6886

最新推荐文章于 2021-01-25 23:36:56 发布

阅读量799

点赞数

分类专栏： asp 文章标签： asp 数据库 microsoft access sql

本文链接：https://blog.youkuaiyun.com/xuezhanliang6886/article/details/4506091

版权

asp 专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了如何在ASP中使用ADO（ActiveX Data Objects）进行Access数据库的UPDATE操作。通过实例代码，展示了如何连接数据库、编写SQL更新语句以及执行更新操作的过程，帮助读者掌握ASP中对数据库记录的修改技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

  
  
   
   
   
   sub
   
    OpenDatabase(conn)
    IsSqlData 
   
   =
   
    
   
   0
   
    
   
   '
   
   定义数据库类别，0为Access数据库，1为SQL数据库
   
   

   
       
   
   if
   
    IsSqlData 
   
   =
   
    
   
   0
   
    
   
   then
   
   
        
   
   '
   
   Access数据库
   
   

   
           Datapath 
   
   =
   
    
   
   "
   
   data/
   
   "
   
    
   
   '
   
   数据库目录的相对路径
   
   

   
           Datafile 
   
   =
   
    
   
   "
   
   data.mdb
   
   "
   
    
   
   '
   
   数据库的文件名
   
   

   
           Connstr 
   
   =
   
    
   
   "
   
   Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
   
   "
   
   &
   
   Server.MapPath
(
   
   ""
   
   &
   
   Datapath
   
   &
   
   ""
   
   &
   
   Datafile
   
   &
   
   ""
   
   )
        Connstr 
   
   =
   
    
   
   "
   
   DBQ=
   
   "
   
   &
   
   server.mappath(
   
   ""
   
   &
   
   Datapath
   
   &
   
   ""
   
   &
   
   Datafile
   
   &
   
   ""
   
   )
   
   &
   
   "
   
   ;DRIVER={Mi
   
   

   
   crosoft Access Driver (
   
   *
   
   .mdb)};
   
   "

   
   
    
   
   else
   
   
        
   
   '
   
   SQL数据库
   
   

   
           SqlLocalName 
   
   =
   
    
   
   "
   
   (local)
   
   "
   
    
   
   '
   
   连接IP  [ 本地用 (local) 外地用IP ]
   
   

   
           SqlUsername 
   
   =
   
    
   
   "
   
   sa
   
   "
   
    
   
   '
   
   用户名
   
   

   
           SqlPassword 
   
   =
   
    
   
   "
   
   1
   
   "
   
    
   
   '
   
   用户密码
   
   

   
           SqlDatabaseName 
   
   =
   
    
   
   "
   
   data
   
   "
   
    
   
   '
   
   数据库名
   
   

   
           Connstr 
   
   =
   
    
   
   "
   
   Provider=Sqloledb;User ID=
   
   "
   
    
   
   &
   
    SqlUsername 
   
   &
   
    
   
   "
   
   ; Password=
   
   "
   
    
   
   &
   
    S
qlPassword 
   
   &
   
    
   
   "
   
   ; Initial Catalog = 
   
   "
   
    
   
   &
   
    SqlDatabaseName 
   
   &
   
    
   
   "
   
   ; Data Source=
   
   "
   
    
   
   &
   
    SqlLo
calName 
   
   &
   
    
   
   "
   
   ;
   
   "
   
   

    
   
   end
   
    
   
   if
   
   
    
   
   on
   
    
   
   error
   
    
   
   resume
   
    
   
   next
   
   
    
   
   set
   
    Conn 
   
   =
   
    Server.createobject(
   
   "
   
   ADODB.Connection
   
   "
   
   )
    Conn.open Connstr
    
   
   if
   
    err 
   
   then
   
   
        err.clear
        
   
   set
   
    Conn 
   
   =
   
    
   
   nothing
   
   
        Response.write 
   
   "
   
   数据库连接出错，请检查连接字串。
   
   "
   
   
        Response.end
    
   
   end
   
    
   
   if
   
   
    
   
   on
   
    
   
   error
   
    
   
   goto
   
    
   
   0
   
   

   
   end sub
  
  
%>

用的时候 改下里面的 相应设置 

然后 在需要的地方 

<%call OpenDatabase(conn)%> 

更新数据 有2种方式 一是ado 的recordset对象的 update方法 


set rs = server.createobject("adodb.recordset") 
sqlstr = "sql语句" 
rs.open sqlstr, conn, 1, 3 
rs.update'更新记录集 

二是 直接 sql更新 

conn.execute("UPDATE [表名] SET  [字段一] =  '" & 值一 & "', [字段二] =  '" & 值二 & "' where id=自己设置")