首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
ASP导出Excel数据的四种方法
ASP漏洞及安全建议来源
XMLHTTP.readyState的五种状态
xmlhttp status 各类值说明
Asp中ByVal传值与ByRef传值的问..
ASP技巧:判断远程图片是否存在
asp中有关字符编码转换的几个函..
绝妙的asp生成静态页面html函数
Asp计算页面执行时间
一个简单的用存储过程分页
将asp页面转换成htm页面
ASP网站漏洞解析及黑客入侵防范..
URL编码与SQL注入
几种常用排序算法(asp)
ASP调用带参数存储过程的几种方..
实用的ASP连接数据库的函数
ASP如何获取真实IP地址
ASP中怎么实现SQL数据库备份、..
判断Cookies是否处于开启状态
怎样才能将服务器端文件夹下的..
几行Asp代码实现防止表单重复提..
用ASP设计网站在线人数统计程序
asp论坛在线人数统计研究
如何用ASP远程在数据库中创建Ta..
用ASP调用SQL Server的视图和存..
Asp与XML的关系
ASP读取EXCEL
在ASP中使用Oracle数据库技巧
一个通过web.Mail发送邮件的类
几种打开记录集方式的比较

技术教程 -> ASP教程 ->  
如何用ASP远程在数据库中创建Table
来源:转载   人气:4025   录入时间:2006/5/20


    
   Dim objRS
   Set objRS = Server.CreateObject( "ADODB.Recordset" )
   objRS.CursorLocation = adUseClient
    
   
   objRS.Fields.Append "Product", adBSTR
   objRS.Fields.Append "Quantity", adInteger
   objRS.Fields.Append "Unit Price", adCurrency
    
   
   objRS.Open
   objRS.AddNew
   An empty record now exists; you just need to set the values.
   
   objRS.Fields( "Product" ).value = "1969 Camero RS"
   objRS.Fields( "Quantity" ).value = 3
   objRS.Fields( "Unit Price" ).value = 2000.40
   And finally Update() is called to save the changes.
   
   objRS.Update
    
   
   ADO Added Value
   If that were all, using ADO in this way would be no better than using
   arrays. However, you now get to use all that great functionality
   built into ADO. Let's look at some specific examples.
   
   Methods
   There are many methods available in ADO used for data manipulation. A
   popular feature is sorting. Instead of writing code to sort an array
   you can store the data in an ADO Recordset object and sort it.
   
   objRS.Sort = "Product"
   This creates a temporary index based on the Product field, so when
   the records are accessed they will be returned in a sorted order.
   
   Streaming
   Data in a recordset can be streamed out as a string. An example of
   its use is building a comma-delimited file to import into Excel. Here
   is an example:
   
   asString = objRS.GetString( adClipString, , "," )
   The method GetString() starts at the current cursor position, so be
   sure to call MoveFirst if you intend to stream all the records. The
   parameters to GetString() allow you to control the number of rows to
   convert, the column delimiter, the row delimiter and the expression
   used for a NULL field.
   
   Persistence
   Persisting data to a file so that a data structure can be
   reconstructed later is tedious if you are using standard data types,
   since you have to create your own persistence mechanism. ADO has
   persistence built in so you get it for free. To write your recordset
   to a file just call Save() .
   
   objRS.Save "theOrder.dat", adPersistADTG
   The file type in this case is "Advanced Data Tablegram" format. This
   is a proprietary Microsoft format, so it is only really useful for
   storing a recordset in a file. The only other option is adPersistXML.
   
   To reconstruct the recordset from the file just do the following:
   
   Dim objRS2
   Set objRS2 = Server.CreateObject( "ADODB.Recordset" )
   objRS2.Open "theOrder.dat"
   



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2020 868资源网- 版权所有    粤ICP备05007330号